'------------------------------------------------------------------------------
'
' Este código fue generado por una herramienta.
' Versión de runtime:4.0.30319.42000
'
' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
' se vuelve a generar el código.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class InversionesDataSet1
Inherits Global.System.Data.DataSet
Private tableECALRI As ECALRIDataTable
Private tableEMIS As EMISDataTable
Private tableEMPR As EMPRDataTable
Private tableINFI As INFIDataTable
Private tablePAIS As PAISDataTable
Private tableSP_InventarioMaster As SP_InventarioMasterDataTable
Private tableBAN0 As BAN0DataTable
Private tableBAN1 As BAN1DataTable
Private tableFPAG As FPAGDataTable
Private tablePIN0 As PIN0DataTable
Private tableCALRI As CALRIDataTable
Private tableRPAG As RPAGDataTable
Private tableBAN2 As BAN2DataTable
Private tableOFON As OFONDataTable
Private tableDEP0 As DEP0DataTable
Private tableUSR0 As USR0DataTable
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("ECALRI")) Is Nothing) Then
MyBase.Tables.Add(New ECALRIDataTable(ds.Tables("ECALRI")))
End If
If (Not (ds.Tables("EMIS")) Is Nothing) Then
MyBase.Tables.Add(New EMISDataTable(ds.Tables("EMIS")))
End If
If (Not (ds.Tables("EMPR")) Is Nothing) Then
MyBase.Tables.Add(New EMPRDataTable(ds.Tables("EMPR")))
End If
If (Not (ds.Tables("INFI")) Is Nothing) Then
MyBase.Tables.Add(New INFIDataTable(ds.Tables("INFI")))
End If
If (Not (ds.Tables("PAIS")) Is Nothing) Then
MyBase.Tables.Add(New PAISDataTable(ds.Tables("PAIS")))
End If
If (Not (ds.Tables("SP_InventarioMaster")) Is Nothing) Then
MyBase.Tables.Add(New SP_InventarioMasterDataTable(ds.Tables("SP_InventarioMaster")))
End If
If (Not (ds.Tables("BAN0")) Is Nothing) Then
MyBase.Tables.Add(New BAN0DataTable(ds.Tables("BAN0")))
End If
If (Not (ds.Tables("BAN1")) Is Nothing) Then
MyBase.Tables.Add(New BAN1DataTable(ds.Tables("BAN1")))
End If
If (Not (ds.Tables("FPAG")) Is Nothing) Then
MyBase.Tables.Add(New FPAGDataTable(ds.Tables("FPAG")))
End If
If (Not (ds.Tables("PIN0")) Is Nothing) Then
MyBase.Tables.Add(New PIN0DataTable(ds.Tables("PIN0")))
End If
If (Not (ds.Tables("CALRI")) Is Nothing) Then
MyBase.Tables.Add(New CALRIDataTable(ds.Tables("CALRI")))
End If
If (Not (ds.Tables("RPAG")) Is Nothing) Then
MyBase.Tables.Add(New RPAGDataTable(ds.Tables("RPAG")))
End If
If (Not (ds.Tables("BAN2")) Is Nothing) Then
MyBase.Tables.Add(New BAN2DataTable(ds.Tables("BAN2")))
End If
If (Not (ds.Tables("OFON")) Is Nothing) Then
MyBase.Tables.Add(New OFONDataTable(ds.Tables("OFON")))
End If
If (Not (ds.Tables("DEP0")) Is Nothing) Then
MyBase.Tables.Add(New DEP0DataTable(ds.Tables("DEP0")))
End If
If (Not (ds.Tables("USR0")) Is Nothing) Then
MyBase.Tables.Add(New USR0DataTable(ds.Tables("USR0")))
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 ECALRI() As ECALRIDataTable
Get
Return Me.tableECALRI
End Get
End Property
_
Public ReadOnly Property EMIS() As EMISDataTable
Get
Return Me.tableEMIS
End Get
End Property
_
Public ReadOnly Property EMPR() As EMPRDataTable
Get
Return Me.tableEMPR
End Get
End Property
_
Public ReadOnly Property INFI() As INFIDataTable
Get
Return Me.tableINFI
End Get
End Property
_
Public ReadOnly Property PAIS() As PAISDataTable
Get
Return Me.tablePAIS
End Get
End Property
_
Public ReadOnly Property SP_InventarioMaster() As SP_InventarioMasterDataTable
Get
Return Me.tableSP_InventarioMaster
End Get
End Property
_
Public ReadOnly Property BAN0() As BAN0DataTable
Get
Return Me.tableBAN0
End Get
End Property
_
Public ReadOnly Property BAN1() As BAN1DataTable
Get
Return Me.tableBAN1
End Get
End Property
_
Public ReadOnly Property FPAG() As FPAGDataTable
Get
Return Me.tableFPAG
End Get
End Property
_
Public ReadOnly Property PIN0() As PIN0DataTable
Get
Return Me.tablePIN0
End Get
End Property
_
Public ReadOnly Property CALRI() As CALRIDataTable
Get
Return Me.tableCALRI
End Get
End Property
_
Public ReadOnly Property RPAG() As RPAGDataTable
Get
Return Me.tableRPAG
End Get
End Property
_
Public ReadOnly Property BAN2() As BAN2DataTable
Get
Return Me.tableBAN2
End Get
End Property
_
Public ReadOnly Property OFON() As OFONDataTable
Get
Return Me.tableOFON
End Get
End Property
_
Public ReadOnly Property DEP0() As DEP0DataTable
Get
Return Me.tableDEP0
End Get
End Property
_
Public ReadOnly Property USR0() As USR0DataTable
Get
Return Me.tableUSR0
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 InversionesDataSet1 = CType(MyBase.Clone,InversionesDataSet1)
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("ECALRI")) Is Nothing) Then
MyBase.Tables.Add(New ECALRIDataTable(ds.Tables("ECALRI")))
End If
If (Not (ds.Tables("EMIS")) Is Nothing) Then
MyBase.Tables.Add(New EMISDataTable(ds.Tables("EMIS")))
End If
If (Not (ds.Tables("EMPR")) Is Nothing) Then
MyBase.Tables.Add(New EMPRDataTable(ds.Tables("EMPR")))
End If
If (Not (ds.Tables("INFI")) Is Nothing) Then
MyBase.Tables.Add(New INFIDataTable(ds.Tables("INFI")))
End If
If (Not (ds.Tables("PAIS")) Is Nothing) Then
MyBase.Tables.Add(New PAISDataTable(ds.Tables("PAIS")))
End If
If (Not (ds.Tables("SP_InventarioMaster")) Is Nothing) Then
MyBase.Tables.Add(New SP_InventarioMasterDataTable(ds.Tables("SP_InventarioMaster")))
End If
If (Not (ds.Tables("BAN0")) Is Nothing) Then
MyBase.Tables.Add(New BAN0DataTable(ds.Tables("BAN0")))
End If
If (Not (ds.Tables("BAN1")) Is Nothing) Then
MyBase.Tables.Add(New BAN1DataTable(ds.Tables("BAN1")))
End If
If (Not (ds.Tables("FPAG")) Is Nothing) Then
MyBase.Tables.Add(New FPAGDataTable(ds.Tables("FPAG")))
End If
If (Not (ds.Tables("PIN0")) Is Nothing) Then
MyBase.Tables.Add(New PIN0DataTable(ds.Tables("PIN0")))
End If
If (Not (ds.Tables("CALRI")) Is Nothing) Then
MyBase.Tables.Add(New CALRIDataTable(ds.Tables("CALRI")))
End If
If (Not (ds.Tables("RPAG")) Is Nothing) Then
MyBase.Tables.Add(New RPAGDataTable(ds.Tables("RPAG")))
End If
If (Not (ds.Tables("BAN2")) Is Nothing) Then
MyBase.Tables.Add(New BAN2DataTable(ds.Tables("BAN2")))
End If
If (Not (ds.Tables("OFON")) Is Nothing) Then
MyBase.Tables.Add(New OFONDataTable(ds.Tables("OFON")))
End If
If (Not (ds.Tables("DEP0")) Is Nothing) Then
MyBase.Tables.Add(New DEP0DataTable(ds.Tables("DEP0")))
End If
If (Not (ds.Tables("USR0")) Is Nothing) Then
MyBase.Tables.Add(New USR0DataTable(ds.Tables("USR0")))
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.tableECALRI = CType(MyBase.Tables("ECALRI"),ECALRIDataTable)
If (initTable = true) Then
If (Not (Me.tableECALRI) Is Nothing) Then
Me.tableECALRI.InitVars
End If
End If
Me.tableEMIS = CType(MyBase.Tables("EMIS"),EMISDataTable)
If (initTable = true) Then
If (Not (Me.tableEMIS) Is Nothing) Then
Me.tableEMIS.InitVars
End If
End If
Me.tableEMPR = CType(MyBase.Tables("EMPR"),EMPRDataTable)
If (initTable = true) Then
If (Not (Me.tableEMPR) Is Nothing) Then
Me.tableEMPR.InitVars
End If
End If
Me.tableINFI = CType(MyBase.Tables("INFI"),INFIDataTable)
If (initTable = true) Then
If (Not (Me.tableINFI) Is Nothing) Then
Me.tableINFI.InitVars
End If
End If
Me.tablePAIS = CType(MyBase.Tables("PAIS"),PAISDataTable)
If (initTable = true) Then
If (Not (Me.tablePAIS) Is Nothing) Then
Me.tablePAIS.InitVars
End If
End If
Me.tableSP_InventarioMaster = CType(MyBase.Tables("SP_InventarioMaster"),SP_InventarioMasterDataTable)
If (initTable = true) Then
If (Not (Me.tableSP_InventarioMaster) Is Nothing) Then
Me.tableSP_InventarioMaster.InitVars
End If
End If
Me.tableBAN0 = CType(MyBase.Tables("BAN0"),BAN0DataTable)
If (initTable = true) Then
If (Not (Me.tableBAN0) Is Nothing) Then
Me.tableBAN0.InitVars
End If
End If
Me.tableBAN1 = CType(MyBase.Tables("BAN1"),BAN1DataTable)
If (initTable = true) Then
If (Not (Me.tableBAN1) Is Nothing) Then
Me.tableBAN1.InitVars
End If
End If
Me.tableFPAG = CType(MyBase.Tables("FPAG"),FPAGDataTable)
If (initTable = true) Then
If (Not (Me.tableFPAG) Is Nothing) Then
Me.tableFPAG.InitVars
End If
End If
Me.tablePIN0 = CType(MyBase.Tables("PIN0"),PIN0DataTable)
If (initTable = true) Then
If (Not (Me.tablePIN0) Is Nothing) Then
Me.tablePIN0.InitVars
End If
End If
Me.tableCALRI = CType(MyBase.Tables("CALRI"),CALRIDataTable)
If (initTable = true) Then
If (Not (Me.tableCALRI) Is Nothing) Then
Me.tableCALRI.InitVars
End If
End If
Me.tableRPAG = CType(MyBase.Tables("RPAG"),RPAGDataTable)
If (initTable = true) Then
If (Not (Me.tableRPAG) Is Nothing) Then
Me.tableRPAG.InitVars
End If
End If
Me.tableBAN2 = CType(MyBase.Tables("BAN2"),BAN2DataTable)
If (initTable = true) Then
If (Not (Me.tableBAN2) Is Nothing) Then
Me.tableBAN2.InitVars
End If
End If
Me.tableOFON = CType(MyBase.Tables("OFON"),OFONDataTable)
If (initTable = true) Then
If (Not (Me.tableOFON) Is Nothing) Then
Me.tableOFON.InitVars
End If
End If
Me.tableDEP0 = CType(MyBase.Tables("DEP0"),DEP0DataTable)
If (initTable = true) Then
If (Not (Me.tableDEP0) Is Nothing) Then
Me.tableDEP0.InitVars
End If
End If
Me.tableUSR0 = CType(MyBase.Tables("USR0"),USR0DataTable)
If (initTable = true) Then
If (Not (Me.tableUSR0) Is Nothing) Then
Me.tableUSR0.InitVars
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "InversionesDataSet1"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/InversionesDataSet1.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableECALRI = New ECALRIDataTable()
MyBase.Tables.Add(Me.tableECALRI)
Me.tableEMIS = New EMISDataTable()
MyBase.Tables.Add(Me.tableEMIS)
Me.tableEMPR = New EMPRDataTable()
MyBase.Tables.Add(Me.tableEMPR)
Me.tableINFI = New INFIDataTable()
MyBase.Tables.Add(Me.tableINFI)
Me.tablePAIS = New PAISDataTable()
MyBase.Tables.Add(Me.tablePAIS)
Me.tableSP_InventarioMaster = New SP_InventarioMasterDataTable()
MyBase.Tables.Add(Me.tableSP_InventarioMaster)
Me.tableBAN0 = New BAN0DataTable()
MyBase.Tables.Add(Me.tableBAN0)
Me.tableBAN1 = New BAN1DataTable()
MyBase.Tables.Add(Me.tableBAN1)
Me.tableFPAG = New FPAGDataTable()
MyBase.Tables.Add(Me.tableFPAG)
Me.tablePIN0 = New PIN0DataTable()
MyBase.Tables.Add(Me.tablePIN0)
Me.tableCALRI = New CALRIDataTable()
MyBase.Tables.Add(Me.tableCALRI)
Me.tableRPAG = New RPAGDataTable()
MyBase.Tables.Add(Me.tableRPAG)
Me.tableBAN2 = New BAN2DataTable()
MyBase.Tables.Add(Me.tableBAN2)
Me.tableOFON = New OFONDataTable()
MyBase.Tables.Add(Me.tableOFON)
Me.tableDEP0 = New DEP0DataTable()
MyBase.Tables.Add(Me.tableDEP0)
Me.tableUSR0 = New USR0DataTable()
MyBase.Tables.Add(Me.tableUSR0)
End Sub
_
Private Function ShouldSerializeECALRI() As Boolean
Return false
End Function
_
Private Function ShouldSerializeEMIS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeEMPR() As Boolean
Return false
End Function
_
Private Function ShouldSerializeINFI() As Boolean
Return false
End Function
_
Private Function ShouldSerializePAIS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeSP_InventarioMaster() As Boolean
Return false
End Function
_
Private Function ShouldSerializeBAN0() As Boolean
Return false
End Function
_
Private Function ShouldSerializeBAN1() As Boolean
Return false
End Function
_
Private Function ShouldSerializeFPAG() As Boolean
Return false
End Function
_
Private Function ShouldSerializePIN0() As Boolean
Return false
End Function
_
Private Function ShouldSerializeCALRI() As Boolean
Return false
End Function
_
Private Function ShouldSerializeRPAG() As Boolean
Return false
End Function
_
Private Function ShouldSerializeBAN2() As Boolean
Return false
End Function
_
Private Function ShouldSerializeOFON() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDEP0() As Boolean
Return false
End Function
_
Private Function ShouldSerializeUSR0() 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 InversionesDataSet1 = New InversionesDataSet1()
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 ECALRIRowChangeEventHandler(ByVal sender As Object, ByVal e As ECALRIRowChangeEvent)
_
Public Delegate Sub EMISRowChangeEventHandler(ByVal sender As Object, ByVal e As EMISRowChangeEvent)
_
Public Delegate Sub EMPRRowChangeEventHandler(ByVal sender As Object, ByVal e As EMPRRowChangeEvent)
_
Public Delegate Sub INFIRowChangeEventHandler(ByVal sender As Object, ByVal e As INFIRowChangeEvent)
_
Public Delegate Sub PAISRowChangeEventHandler(ByVal sender As Object, ByVal e As PAISRowChangeEvent)
_
Public Delegate Sub SP_InventarioMasterRowChangeEventHandler(ByVal sender As Object, ByVal e As SP_InventarioMasterRowChangeEvent)
_
Public Delegate Sub BAN0RowChangeEventHandler(ByVal sender As Object, ByVal e As BAN0RowChangeEvent)
_
Public Delegate Sub BAN1RowChangeEventHandler(ByVal sender As Object, ByVal e As BAN1RowChangeEvent)
_
Public Delegate Sub FPAGRowChangeEventHandler(ByVal sender As Object, ByVal e As FPAGRowChangeEvent)
_
Public Delegate Sub PIN0RowChangeEventHandler(ByVal sender As Object, ByVal e As PIN0RowChangeEvent)
_
Public Delegate Sub CALRIRowChangeEventHandler(ByVal sender As Object, ByVal e As CALRIRowChangeEvent)
_
Public Delegate Sub RPAGRowChangeEventHandler(ByVal sender As Object, ByVal e As RPAGRowChangeEvent)
_
Public Delegate Sub BAN2RowChangeEventHandler(ByVal sender As Object, ByVal e As BAN2RowChangeEvent)
_
Public Delegate Sub OFONRowChangeEventHandler(ByVal sender As Object, ByVal e As OFONRowChangeEvent)
_
Public Delegate Sub DEP0RowChangeEventHandler(ByVal sender As Object, ByVal e As DEP0RowChangeEvent)
_
Public Delegate Sub USR0RowChangeEventHandler(ByVal sender As Object, ByVal e As USR0RowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class ECALRIDataTable
Inherits Global.System.Data.TypedTableBase(Of ECALRIRow)
Private columnCodECalRi As Global.System.Data.DataColumn
Private columnDescrip As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "ECALRI"
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 CodECalRiColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodECalRi
End Get
End Property
_
Public ReadOnly Property DescripColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDescrip
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 ECALRIRow
Get
Return CType(Me.Rows(index),ECALRIRow)
End Get
End Property
_
Public Event ECALRIRowChanging As ECALRIRowChangeEventHandler
_
Public Event ECALRIRowChanged As ECALRIRowChangeEventHandler
_
Public Event ECALRIRowDeleting As ECALRIRowChangeEventHandler
_
Public Event ECALRIRowDeleted As ECALRIRowChangeEventHandler
_
Public Overloads Sub AddECALRIRow(ByVal row As ECALRIRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddECALRIRow(ByVal CodECalRi As String, ByVal Descrip As String) As ECALRIRow
Dim rowECALRIRow As ECALRIRow = CType(Me.NewRow,ECALRIRow)
Dim columnValuesArray() As Object = New Object() {CodECalRi, Descrip}
rowECALRIRow.ItemArray = columnValuesArray
Me.Rows.Add(rowECALRIRow)
Return rowECALRIRow
End Function
_
Public Function FindByCodECalRi(ByVal CodECalRi As String) As ECALRIRow
Return CType(Me.Rows.Find(New Object() {CodECalRi}),ECALRIRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As ECALRIDataTable = CType(MyBase.Clone,ECALRIDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New ECALRIDataTable()
End Function
_
Friend Sub InitVars()
Me.columnCodECalRi = MyBase.Columns("CodECalRi")
Me.columnDescrip = MyBase.Columns("Descrip")
End Sub
_
Private Sub InitClass()
Me.columnCodECalRi = New Global.System.Data.DataColumn("CodECalRi", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodECalRi)
Me.columnDescrip = New Global.System.Data.DataColumn("Descrip", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDescrip)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCodECalRi}, true))
Me.columnCodECalRi.AllowDBNull = false
Me.columnCodECalRi.Unique = true
Me.columnCodECalRi.MaxLength = 8
Me.columnDescrip.MaxLength = 100
End Sub
_
Public Function NewECALRIRow() As ECALRIRow
Return CType(Me.NewRow,ECALRIRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New ECALRIRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(ECALRIRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.ECALRIRowChangedEvent) Is Nothing) Then
RaiseEvent ECALRIRowChanged(Me, New ECALRIRowChangeEvent(CType(e.Row,ECALRIRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.ECALRIRowChangingEvent) Is Nothing) Then
RaiseEvent ECALRIRowChanging(Me, New ECALRIRowChangeEvent(CType(e.Row,ECALRIRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.ECALRIRowDeletedEvent) Is Nothing) Then
RaiseEvent ECALRIRowDeleted(Me, New ECALRIRowChangeEvent(CType(e.Row,ECALRIRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.ECALRIRowDeletingEvent) Is Nothing) Then
RaiseEvent ECALRIRowDeleting(Me, New ECALRIRowChangeEvent(CType(e.Row,ECALRIRow), e.Action))
End If
End Sub
_
Public Sub RemoveECALRIRow(ByVal row As ECALRIRow)
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 InversionesDataSet1 = New InversionesDataSet1()
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 = "ECALRIDataTable"
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 EMISDataTable
Inherits Global.System.Data.TypedTableBase(Of EMISRow)
Private columnCodEmis As Global.System.Data.DataColumn
Private columnDescrip As Global.System.Data.DataColumn
Private columnEstado As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "EMIS"
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 CodEmisColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodEmis
End Get
End Property
_
Public ReadOnly Property DescripColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDescrip
End Get
End Property
_
Public ReadOnly Property EstadoColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEstado
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 EMISRow
Get
Return CType(Me.Rows(index),EMISRow)
End Get
End Property
_
Public Event EMISRowChanging As EMISRowChangeEventHandler
_
Public Event EMISRowChanged As EMISRowChangeEventHandler
_
Public Event EMISRowDeleting As EMISRowChangeEventHandler
_
Public Event EMISRowDeleted As EMISRowChangeEventHandler
_
Public Overloads Sub AddEMISRow(ByVal row As EMISRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddEMISRow(ByVal Descrip As String, ByVal Estado As String) As EMISRow
Dim rowEMISRow As EMISRow = CType(Me.NewRow,EMISRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Descrip, Estado}
rowEMISRow.ItemArray = columnValuesArray
Me.Rows.Add(rowEMISRow)
Return rowEMISRow
End Function
_
Public Function FindByCodEmis(ByVal CodEmis As Integer) As EMISRow
Return CType(Me.Rows.Find(New Object() {CodEmis}),EMISRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As EMISDataTable = CType(MyBase.Clone,EMISDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New EMISDataTable()
End Function
_
Friend Sub InitVars()
Me.columnCodEmis = MyBase.Columns("CodEmis")
Me.columnDescrip = MyBase.Columns("Descrip")
Me.columnEstado = MyBase.Columns("Estado")
End Sub
_
Private Sub InitClass()
Me.columnCodEmis = New Global.System.Data.DataColumn("CodEmis", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodEmis)
Me.columnDescrip = New Global.System.Data.DataColumn("Descrip", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDescrip)
Me.columnEstado = New Global.System.Data.DataColumn("Estado", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEstado)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCodEmis}, true))
Me.columnCodEmis.AutoIncrement = true
Me.columnCodEmis.AutoIncrementSeed = -1
Me.columnCodEmis.AutoIncrementStep = -1
Me.columnCodEmis.AllowDBNull = false
Me.columnCodEmis.ReadOnly = true
Me.columnCodEmis.Unique = true
Me.columnDescrip.MaxLength = 100
Me.columnEstado.MaxLength = 1
End Sub
_
Public Function NewEMISRow() As EMISRow
Return CType(Me.NewRow,EMISRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New EMISRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(EMISRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.EMISRowChangedEvent) Is Nothing) Then
RaiseEvent EMISRowChanged(Me, New EMISRowChangeEvent(CType(e.Row,EMISRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.EMISRowChangingEvent) Is Nothing) Then
RaiseEvent EMISRowChanging(Me, New EMISRowChangeEvent(CType(e.Row,EMISRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.EMISRowDeletedEvent) Is Nothing) Then
RaiseEvent EMISRowDeleted(Me, New EMISRowChangeEvent(CType(e.Row,EMISRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.EMISRowDeletingEvent) Is Nothing) Then
RaiseEvent EMISRowDeleting(Me, New EMISRowChangeEvent(CType(e.Row,EMISRow), e.Action))
End If
End Sub
_
Public Sub RemoveEMISRow(ByVal row As EMISRow)
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 InversionesDataSet1 = New InversionesDataSet1()
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 = "EMISDataTable"
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 EMPRDataTable
Inherits Global.System.Data.TypedTableBase(Of EMPRRow)
Private columnCodEmpr As Global.System.Data.DataColumn
Private columnDescrip As Global.System.Data.DataColumn
Private columnSAP_BD As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "EMPR"
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 CodEmprColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodEmpr
End Get
End Property
_
Public ReadOnly Property DescripColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDescrip
End Get
End Property
_
Public ReadOnly Property SAP_BDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSAP_BD
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 EMPRRow
Get
Return CType(Me.Rows(index),EMPRRow)
End Get
End Property
_
Public Event EMPRRowChanging As EMPRRowChangeEventHandler
_
Public Event EMPRRowChanged As EMPRRowChangeEventHandler
_
Public Event EMPRRowDeleting As EMPRRowChangeEventHandler
_
Public Event EMPRRowDeleted As EMPRRowChangeEventHandler
_
Public Overloads Sub AddEMPRRow(ByVal row As EMPRRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddEMPRRow(ByVal CodEmpr As String, ByVal Descrip As String, ByVal SAP_BD As String) As EMPRRow
Dim rowEMPRRow As EMPRRow = CType(Me.NewRow,EMPRRow)
Dim columnValuesArray() As Object = New Object() {CodEmpr, Descrip, SAP_BD}
rowEMPRRow.ItemArray = columnValuesArray
Me.Rows.Add(rowEMPRRow)
Return rowEMPRRow
End Function
_
Public Function FindByCodEmpr(ByVal CodEmpr As String) As EMPRRow
Return CType(Me.Rows.Find(New Object() {CodEmpr}),EMPRRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As EMPRDataTable = CType(MyBase.Clone,EMPRDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New EMPRDataTable()
End Function
_
Friend Sub InitVars()
Me.columnCodEmpr = MyBase.Columns("CodEmpr")
Me.columnDescrip = MyBase.Columns("Descrip")
Me.columnSAP_BD = MyBase.Columns("SAP_BD")
End Sub
_
Private Sub InitClass()
Me.columnCodEmpr = New Global.System.Data.DataColumn("CodEmpr", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodEmpr)
Me.columnDescrip = New Global.System.Data.DataColumn("Descrip", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDescrip)
Me.columnSAP_BD = New Global.System.Data.DataColumn("SAP_BD", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSAP_BD)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCodEmpr}, true))
Me.columnCodEmpr.AllowDBNull = false
Me.columnCodEmpr.Unique = true
Me.columnCodEmpr.MaxLength = 10
Me.columnDescrip.MaxLength = 100
Me.columnSAP_BD.MaxLength = 50
End Sub
_
Public Function NewEMPRRow() As EMPRRow
Return CType(Me.NewRow,EMPRRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New EMPRRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(EMPRRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.EMPRRowChangedEvent) Is Nothing) Then
RaiseEvent EMPRRowChanged(Me, New EMPRRowChangeEvent(CType(e.Row,EMPRRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.EMPRRowChangingEvent) Is Nothing) Then
RaiseEvent EMPRRowChanging(Me, New EMPRRowChangeEvent(CType(e.Row,EMPRRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.EMPRRowDeletedEvent) Is Nothing) Then
RaiseEvent EMPRRowDeleted(Me, New EMPRRowChangeEvent(CType(e.Row,EMPRRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.EMPRRowDeletingEvent) Is Nothing) Then
RaiseEvent EMPRRowDeleting(Me, New EMPRRowChangeEvent(CType(e.Row,EMPRRow), e.Action))
End If
End Sub
_
Public Sub RemoveEMPRRow(ByVal row As EMPRRow)
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 InversionesDataSet1 = New InversionesDataSet1()
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 = "EMPRDataTable"
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 INFIDataTable
Inherits Global.System.Data.TypedTableBase(Of INFIRow)
Private columnCodIF As Global.System.Data.DataColumn
Private columnDescrip As Global.System.Data.DataColumn
Private columnTipo As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "INFI"
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 CodIFColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodIF
End Get
End Property
_
Public ReadOnly Property DescripColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDescrip
End Get
End Property
_
Public ReadOnly Property TipoColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTipo
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 INFIRow
Get
Return CType(Me.Rows(index),INFIRow)
End Get
End Property
_
Public Event INFIRowChanging As INFIRowChangeEventHandler
_
Public Event INFIRowChanged As INFIRowChangeEventHandler
_
Public Event INFIRowDeleting As INFIRowChangeEventHandler
_
Public Event INFIRowDeleted As INFIRowChangeEventHandler
_
Public Overloads Sub AddINFIRow(ByVal row As INFIRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddINFIRow(ByVal CodIF As String, ByVal Descrip As String, ByVal Tipo As String) As INFIRow
Dim rowINFIRow As INFIRow = CType(Me.NewRow,INFIRow)
Dim columnValuesArray() As Object = New Object() {CodIF, Descrip, Tipo}
rowINFIRow.ItemArray = columnValuesArray
Me.Rows.Add(rowINFIRow)
Return rowINFIRow
End Function
_
Public Function FindByCodIF(ByVal CodIF As String) As INFIRow
Return CType(Me.Rows.Find(New Object() {CodIF}),INFIRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As INFIDataTable = CType(MyBase.Clone,INFIDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New INFIDataTable()
End Function
_
Friend Sub InitVars()
Me.columnCodIF = MyBase.Columns("CodIF")
Me.columnDescrip = MyBase.Columns("Descrip")
Me.columnTipo = MyBase.Columns("Tipo")
End Sub
_
Private Sub InitClass()
Me.columnCodIF = New Global.System.Data.DataColumn("CodIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodIF)
Me.columnDescrip = New Global.System.Data.DataColumn("Descrip", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDescrip)
Me.columnTipo = New Global.System.Data.DataColumn("Tipo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTipo)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCodIF}, true))
Me.columnCodIF.AllowDBNull = false
Me.columnCodIF.Unique = true
Me.columnCodIF.MaxLength = 10
Me.columnDescrip.MaxLength = 50
Me.columnTipo.MaxLength = 10
End Sub
_
Public Function NewINFIRow() As INFIRow
Return CType(Me.NewRow,INFIRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New INFIRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(INFIRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.INFIRowChangedEvent) Is Nothing) Then
RaiseEvent INFIRowChanged(Me, New INFIRowChangeEvent(CType(e.Row,INFIRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.INFIRowChangingEvent) Is Nothing) Then
RaiseEvent INFIRowChanging(Me, New INFIRowChangeEvent(CType(e.Row,INFIRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.INFIRowDeletedEvent) Is Nothing) Then
RaiseEvent INFIRowDeleted(Me, New INFIRowChangeEvent(CType(e.Row,INFIRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.INFIRowDeletingEvent) Is Nothing) Then
RaiseEvent INFIRowDeleting(Me, New INFIRowChangeEvent(CType(e.Row,INFIRow), e.Action))
End If
End Sub
_
Public Sub RemoveINFIRow(ByVal row As INFIRow)
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 InversionesDataSet1 = New InversionesDataSet1()
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 = "INFIDataTable"
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 PAISDataTable
Inherits Global.System.Data.TypedTableBase(Of PAISRow)
Private columnCodPais As Global.System.Data.DataColumn
Private columnDescrip As Global.System.Data.DataColumn
Private columnRelInv As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "PAIS"
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 CodPaisColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodPais
End Get
End Property
_
Public ReadOnly Property DescripColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDescrip
End Get
End Property
_
Public ReadOnly Property RelInvColumn() As Global.System.Data.DataColumn
Get
Return Me.columnRelInv
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 PAISRow
Get
Return CType(Me.Rows(index),PAISRow)
End Get
End Property
_
Public Event PAISRowChanging As PAISRowChangeEventHandler
_
Public Event PAISRowChanged As PAISRowChangeEventHandler
_
Public Event PAISRowDeleting As PAISRowChangeEventHandler
_
Public Event PAISRowDeleted As PAISRowChangeEventHandler
_
Public Overloads Sub AddPAISRow(ByVal row As PAISRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddPAISRow(ByVal CodPais As String, ByVal Descrip As String, ByVal RelInv As String) As PAISRow
Dim rowPAISRow As PAISRow = CType(Me.NewRow,PAISRow)
Dim columnValuesArray() As Object = New Object() {CodPais, Descrip, RelInv}
rowPAISRow.ItemArray = columnValuesArray
Me.Rows.Add(rowPAISRow)
Return rowPAISRow
End Function
_
Public Function FindByCodPais(ByVal CodPais As String) As PAISRow
Return CType(Me.Rows.Find(New Object() {CodPais}),PAISRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As PAISDataTable = CType(MyBase.Clone,PAISDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New PAISDataTable()
End Function
_
Friend Sub InitVars()
Me.columnCodPais = MyBase.Columns("CodPais")
Me.columnDescrip = MyBase.Columns("Descrip")
Me.columnRelInv = MyBase.Columns("RelInv")
End Sub
_
Private Sub InitClass()
Me.columnCodPais = New Global.System.Data.DataColumn("CodPais", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodPais)
Me.columnDescrip = New Global.System.Data.DataColumn("Descrip", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDescrip)
Me.columnRelInv = New Global.System.Data.DataColumn("RelInv", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRelInv)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCodPais}, true))
Me.columnCodPais.AllowDBNull = false
Me.columnCodPais.Unique = true
Me.columnCodPais.MaxLength = 3
Me.columnDescrip.MaxLength = 50
Me.columnRelInv.MaxLength = 1
End Sub
_
Public Function NewPAISRow() As PAISRow
Return CType(Me.NewRow,PAISRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New PAISRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(PAISRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.PAISRowChangedEvent) Is Nothing) Then
RaiseEvent PAISRowChanged(Me, New PAISRowChangeEvent(CType(e.Row,PAISRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.PAISRowChangingEvent) Is Nothing) Then
RaiseEvent PAISRowChanging(Me, New PAISRowChangeEvent(CType(e.Row,PAISRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.PAISRowDeletedEvent) Is Nothing) Then
RaiseEvent PAISRowDeleted(Me, New PAISRowChangeEvent(CType(e.Row,PAISRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.PAISRowDeletingEvent) Is Nothing) Then
RaiseEvent PAISRowDeleting(Me, New PAISRowChangeEvent(CType(e.Row,PAISRow), e.Action))
End If
End Sub
_
Public Sub RemovePAISRow(ByVal row As PAISRow)
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 InversionesDataSet1 = New InversionesDataSet1()
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 = "PAISDataTable"
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 SP_InventarioMasterDataTable
Inherits Global.System.Data.TypedTableBase(Of SP_InventarioMasterRow)
Private columnCodInv As Global.System.Data.DataColumn
Private columnCodIF As Global.System.Data.DataColumn
Private columnEstado As Global.System.Data.DataColumn
Private columnCodEmpr As Global.System.Data.DataColumn
Private columnNombreManIF As Global.System.Data.DataColumn
Private columnCodManIF As Global.System.Data.DataColumn
Private columnCodEmis As Global.System.Data.DataColumn
Private columniCasaBanco As Global.System.Data.DataColumn
Private columnvCasaBanco As Global.System.Data.DataColumn
Private columnTipoMerc As Global.System.Data.DataColumn
Private columnCodCalRi As Global.System.Data.DataColumn
Private columnCodECalRi As Global.System.Data.DataColumn
Private columnValorNominal As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "SP_InventarioMaster"
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 CodInvColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodInv
End Get
End Property
_
Public ReadOnly Property CodIFColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodIF
End Get
End Property
_
Public ReadOnly Property EstadoColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEstado
End Get
End Property
_
Public ReadOnly Property CodEmprColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodEmpr
End Get
End Property
_
Public ReadOnly Property NombreManIFColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNombreManIF
End Get
End Property
_
Public ReadOnly Property CodManIFColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodManIF
End Get
End Property
_
Public ReadOnly Property CodEmisColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodEmis
End Get
End Property
_
Public ReadOnly Property iCasaBancoColumn() As Global.System.Data.DataColumn
Get
Return Me.columniCasaBanco
End Get
End Property
_
Public ReadOnly Property vCasaBancoColumn() As Global.System.Data.DataColumn
Get
Return Me.columnvCasaBanco
End Get
End Property
_
Public ReadOnly Property TipoMercColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTipoMerc
End Get
End Property
_
Public ReadOnly Property CodCalRiColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodCalRi
End Get
End Property
_
Public ReadOnly Property CodECalRiColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodECalRi
End Get
End Property
_
Public ReadOnly Property ValorNominalColumn() As Global.System.Data.DataColumn
Get
Return Me.columnValorNominal
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 SP_InventarioMasterRow
Get
Return CType(Me.Rows(index),SP_InventarioMasterRow)
End Get
End Property
_
Public Event SP_InventarioMasterRowChanging As SP_InventarioMasterRowChangeEventHandler
_
Public Event SP_InventarioMasterRowChanged As SP_InventarioMasterRowChangeEventHandler
_
Public Event SP_InventarioMasterRowDeleting As SP_InventarioMasterRowChangeEventHandler
_
Public Event SP_InventarioMasterRowDeleted As SP_InventarioMasterRowChangeEventHandler
_
Public Overloads Sub AddSP_InventarioMasterRow(ByVal row As SP_InventarioMasterRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddSP_InventarioMasterRow(ByVal CodInv As String, ByVal CodIF As String, ByVal Estado As String, ByVal CodEmpr As String, ByVal NombreManIF As String, ByVal CodManIF As String, ByVal CodEmis As Integer, ByVal iCasaBanco As String, ByVal vCasaBanco As String, ByVal TipoMerc As String, ByVal CodCalRi As String, ByVal CodECalRi As String, ByVal ValorNominal As Decimal) As SP_InventarioMasterRow
Dim rowSP_InventarioMasterRow As SP_InventarioMasterRow = CType(Me.NewRow,SP_InventarioMasterRow)
Dim columnValuesArray() As Object = New Object() {CodInv, CodIF, Estado, CodEmpr, NombreManIF, CodManIF, CodEmis, iCasaBanco, vCasaBanco, TipoMerc, CodCalRi, CodECalRi, ValorNominal}
rowSP_InventarioMasterRow.ItemArray = columnValuesArray
Me.Rows.Add(rowSP_InventarioMasterRow)
Return rowSP_InventarioMasterRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As SP_InventarioMasterDataTable = CType(MyBase.Clone,SP_InventarioMasterDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New SP_InventarioMasterDataTable()
End Function
_
Friend Sub InitVars()
Me.columnCodInv = MyBase.Columns("CodInv")
Me.columnCodIF = MyBase.Columns("CodIF")
Me.columnEstado = MyBase.Columns("Estado")
Me.columnCodEmpr = MyBase.Columns("CodEmpr")
Me.columnNombreManIF = MyBase.Columns("NombreManIF")
Me.columnCodManIF = MyBase.Columns("CodManIF")
Me.columnCodEmis = MyBase.Columns("CodEmis")
Me.columniCasaBanco = MyBase.Columns("iCasaBanco")
Me.columnvCasaBanco = MyBase.Columns("vCasaBanco")
Me.columnTipoMerc = MyBase.Columns("TipoMerc")
Me.columnCodCalRi = MyBase.Columns("CodCalRi")
Me.columnCodECalRi = MyBase.Columns("CodECalRi")
Me.columnValorNominal = MyBase.Columns("ValorNominal")
End Sub
_
Private Sub InitClass()
Me.columnCodInv = New Global.System.Data.DataColumn("CodInv", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodInv)
Me.columnCodIF = New Global.System.Data.DataColumn("CodIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodIF)
Me.columnEstado = New Global.System.Data.DataColumn("Estado", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEstado)
Me.columnCodEmpr = New Global.System.Data.DataColumn("CodEmpr", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodEmpr)
Me.columnNombreManIF = New Global.System.Data.DataColumn("NombreManIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNombreManIF)
Me.columnCodManIF = New Global.System.Data.DataColumn("CodManIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodManIF)
Me.columnCodEmis = New Global.System.Data.DataColumn("CodEmis", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodEmis)
Me.columniCasaBanco = New Global.System.Data.DataColumn("iCasaBanco", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columniCasaBanco)
Me.columnvCasaBanco = New Global.System.Data.DataColumn("vCasaBanco", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnvCasaBanco)
Me.columnTipoMerc = New Global.System.Data.DataColumn("TipoMerc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTipoMerc)
Me.columnCodCalRi = New Global.System.Data.DataColumn("CodCalRi", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodCalRi)
Me.columnCodECalRi = New Global.System.Data.DataColumn("CodECalRi", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCodECalRi)
Me.columnValorNominal = New Global.System.Data.DataColumn("ValorNominal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnValorNominal)
Me.columnCodInv.MaxLength = 20
Me.columnCodIF.MaxLength = 10
Me.columnEstado.MaxLength = 4
Me.columnCodEmpr.MaxLength = 10
Me.columnNombreManIF.MaxLength = 50
Me.columnCodManIF.MaxLength = 50
Me.columniCasaBanco.MaxLength = 1
Me.columnvCasaBanco.MaxLength = 10
Me.columnTipoMerc.MaxLength = 4
Me.columnCodCalRi.MaxLength = 8
Me.columnCodECalRi.MaxLength = 8
End Sub
_
Public Function NewSP_InventarioMasterRow() As SP_InventarioMasterRow
Return CType(Me.NewRow,SP_InventarioMasterRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New SP_InventarioMasterRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(SP_InventarioMasterRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.SP_InventarioMasterRowChangedEvent) Is Nothing) Then
RaiseEvent SP_InventarioMasterRowChanged(Me, New SP_InventarioMasterRowChangeEvent(CType(e.Row,SP_InventarioMasterRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.SP_InventarioMasterRowChangingEvent) Is Nothing) Then
RaiseEvent SP_InventarioMasterRowChanging(Me, New SP_InventarioMasterRowChangeEvent(CType(e.Row,SP_InventarioMasterRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.SP_InventarioMasterRowDeletedEvent) Is Nothing) Then
RaiseEvent SP_InventarioMasterRowDeleted(Me, New SP_InventarioMasterRowChangeEvent(CType(e.Row,SP_InventarioMasterRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.SP_InventarioMasterRowDeletingEvent) Is Nothing) Then
RaiseEvent SP_InventarioMasterRowDeleting(Me, New SP_InventarioMasterRowChangeEvent(CType(e.Row,SP_InventarioMasterRow), e.Action))
End If
End Sub
_
Public Sub RemoveSP_InventarioMasterRow(ByVal row As SP_InventarioMasterRow)
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 InversionesDataSet1 = New InversionesDataSet1()
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 = "SP_InventarioMasterDataTable"
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 BAN0DataTable
Inherits Global.System.Data.TypedTableBase(Of BAN0Row)
Private columnCodBanco As Global.System.Data.DataColumn
Private columnCodPais As Global.System.Data.DataColumn
Private columnNombreBanco As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "BAN0"
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 CodBancoColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodBanco
End Get
End Property
_
Public ReadOnly Property CodPaisColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCodPais
End Get
End Property