'------------------------------------------------------------------------------ ' ' 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 InversionesDEVDataSet4 Inherits Global.System.Data.DataSet Private tablePIN0 As PIN0DataTable 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("PIN0")) Is Nothing) Then MyBase.Tables.Add(New PIN0DataTable(ds.Tables("PIN0"))) 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 PIN0() As PIN0DataTable Get Return Me.tablePIN0 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 InversionesDEVDataSet4 = CType(MyBase.Clone,InversionesDEVDataSet4) 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("PIN0")) Is Nothing) Then MyBase.Tables.Add(New PIN0DataTable(ds.Tables("PIN0"))) 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.tablePIN0 = CType(MyBase.Tables("PIN0"),PIN0DataTable) If (initTable = true) Then If (Not (Me.tablePIN0) Is Nothing) Then Me.tablePIN0.InitVars End If End If End Sub _ Private Sub InitClass() Me.DataSetName = "InversionesDEVDataSet4" Me.Prefix = "" Me.Namespace = "http://tempuri.org/InversionesDEVDataSet4.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tablePIN0 = New PIN0DataTable() MyBase.Tables.Add(Me.tablePIN0) End Sub _ Private Function ShouldSerializePIN0() 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 InversionesDEVDataSet4 = New InversionesDEVDataSet4() 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 PIN0RowChangeEventHandler(ByVal sender As Object, ByVal e As PIN0RowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class PIN0DataTable Inherits Global.System.Data.TypedTableBase(Of PIN0Row) Private columnDocId As Global.System.Data.DataColumn Private columnCodInv As Global.System.Data.DataColumn Private columnDocEst As Global.System.Data.DataColumn Private columnAsunto As Global.System.Data.DataColumn Private columnCodEmpr As Global.System.Data.DataColumn Private columnCodIF As Global.System.Data.DataColumn Private columnCodEmis As Global.System.Data.DataColumn Private columnCodCalRi As Global.System.Data.DataColumn Private columnCodECalRi As Global.System.Data.DataColumn Private columnOFon As Global.System.Data.DataColumn Private columnComent As Global.System.Data.DataColumn Private columnJust As Global.System.Data.DataColumn Private columnTipoOper As Global.System.Data.DataColumn Private columnDocBase As Global.System.Data.DataColumn Private columnMontoInv As Global.System.Data.DataColumn Private columnPrecio As Global.System.Data.DataColumn Private columnRendimiento As Global.System.Data.DataColumn Private columnPlazo As Global.System.Data.DataColumn Private columnPlazoFact As Global.System.Data.DataColumn Private columnIngresos As Global.System.Data.DataColumn Private columnFechaDoc As Global.System.Data.DataColumn Private columnAutEstado As Global.System.Data.DataColumn Private columnTipoMerc As Global.System.Data.DataColumn Private columnCodPais As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "PIN0" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property DocIdColumn() As Global.System.Data.DataColumn Get Return Me.columnDocId End Get End Property _ Public ReadOnly Property CodInvColumn() As Global.System.Data.DataColumn Get Return Me.columnCodInv End Get End Property _ Public ReadOnly Property DocEstColumn() As Global.System.Data.DataColumn Get Return Me.columnDocEst End Get End Property _ Public ReadOnly Property AsuntoColumn() As Global.System.Data.DataColumn Get Return Me.columnAsunto End Get End Property _ Public ReadOnly Property CodEmprColumn() As Global.System.Data.DataColumn Get Return Me.columnCodEmpr End Get End Property _ Public ReadOnly Property CodIFColumn() As Global.System.Data.DataColumn Get Return Me.columnCodIF End Get End Property _ Public ReadOnly Property CodEmisColumn() As Global.System.Data.DataColumn Get Return Me.columnCodEmis 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 OFonColumn() As Global.System.Data.DataColumn Get Return Me.columnOFon End Get End Property _ Public ReadOnly Property ComentColumn() As Global.System.Data.DataColumn Get Return Me.columnComent End Get End Property _ Public ReadOnly Property JustColumn() As Global.System.Data.DataColumn Get Return Me.columnJust End Get End Property _ Public ReadOnly Property TipoOperColumn() As Global.System.Data.DataColumn Get Return Me.columnTipoOper End Get End Property _ Public ReadOnly Property DocBaseColumn() As Global.System.Data.DataColumn Get Return Me.columnDocBase End Get End Property _ Public ReadOnly Property MontoInvColumn() As Global.System.Data.DataColumn Get Return Me.columnMontoInv End Get End Property _ Public ReadOnly Property PrecioColumn() As Global.System.Data.DataColumn Get Return Me.columnPrecio End Get End Property _ Public ReadOnly Property RendimientoColumn() As Global.System.Data.DataColumn Get Return Me.columnRendimiento End Get End Property _ Public ReadOnly Property PlazoColumn() As Global.System.Data.DataColumn Get Return Me.columnPlazo End Get End Property _ Public ReadOnly Property PlazoFactColumn() As Global.System.Data.DataColumn Get Return Me.columnPlazoFact End Get End Property _ Public ReadOnly Property IngresosColumn() As Global.System.Data.DataColumn Get Return Me.columnIngresos End Get End Property _ Public ReadOnly Property FechaDocColumn() As Global.System.Data.DataColumn Get Return Me.columnFechaDoc End Get End Property _ Public ReadOnly Property AutEstadoColumn() As Global.System.Data.DataColumn Get Return Me.columnAutEstado End Get End Property _ Public ReadOnly Property TipoMercColumn() As Global.System.Data.DataColumn Get Return Me.columnTipoMerc End Get End Property _ Public ReadOnly Property CodPaisColumn() As Global.System.Data.DataColumn Get Return Me.columnCodPais 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 PIN0Row Get Return CType(Me.Rows(index),PIN0Row) End Get End Property _ Public Event PIN0RowChanging As PIN0RowChangeEventHandler _ Public Event PIN0RowChanged As PIN0RowChangeEventHandler _ Public Event PIN0RowDeleting As PIN0RowChangeEventHandler _ Public Event PIN0RowDeleted As PIN0RowChangeEventHandler _ Public Overloads Sub AddPIN0Row(ByVal row As PIN0Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddPIN0Row( _ ByVal CodInv As String, _ ByVal DocEst As String, _ ByVal Asunto As String, _ ByVal CodEmpr As String, _ ByVal CodIF As String, _ ByVal CodEmis As Integer, _ ByVal CodCalRi As String, _ ByVal CodECalRi As String, _ ByVal OFon As String, _ ByVal Coment As String, _ ByVal Just As String, _ ByVal TipoOper As String, _ ByVal DocBase As Integer, _ ByVal MontoInv As Decimal, _ ByVal Precio As Decimal, _ ByVal Rendimiento As String, _ ByVal Plazo As Integer, _ ByVal PlazoFact As String, _ ByVal Ingresos As Decimal, _ ByVal FechaDoc As Date, _ ByVal AutEstado As String, _ ByVal TipoMerc As String, _ ByVal CodPais As String) As PIN0Row Dim rowPIN0Row As PIN0Row = CType(Me.NewRow,PIN0Row) Dim columnValuesArray() As Object = New Object() {Nothing, CodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais} rowPIN0Row.ItemArray = columnValuesArray Me.Rows.Add(rowPIN0Row) Return rowPIN0Row End Function _ Public Function FindByDocId(ByVal DocId As Integer) As PIN0Row Return CType(Me.Rows.Find(New Object() {DocId}),PIN0Row) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As PIN0DataTable = CType(MyBase.Clone,PIN0DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New PIN0DataTable() End Function _ Friend Sub InitVars() Me.columnDocId = MyBase.Columns("DocId") Me.columnCodInv = MyBase.Columns("CodInv") Me.columnDocEst = MyBase.Columns("DocEst") Me.columnAsunto = MyBase.Columns("Asunto") Me.columnCodEmpr = MyBase.Columns("CodEmpr") Me.columnCodIF = MyBase.Columns("CodIF") Me.columnCodEmis = MyBase.Columns("CodEmis") Me.columnCodCalRi = MyBase.Columns("CodCalRi") Me.columnCodECalRi = MyBase.Columns("CodECalRi") Me.columnOFon = MyBase.Columns("OFon") Me.columnComent = MyBase.Columns("Coment") Me.columnJust = MyBase.Columns("Just") Me.columnTipoOper = MyBase.Columns("TipoOper") Me.columnDocBase = MyBase.Columns("DocBase") Me.columnMontoInv = MyBase.Columns("MontoInv") Me.columnPrecio = MyBase.Columns("Precio") Me.columnRendimiento = MyBase.Columns("Rendimiento") Me.columnPlazo = MyBase.Columns("Plazo") Me.columnPlazoFact = MyBase.Columns("PlazoFact") Me.columnIngresos = MyBase.Columns("Ingresos") Me.columnFechaDoc = MyBase.Columns("FechaDoc") Me.columnAutEstado = MyBase.Columns("AutEstado") Me.columnTipoMerc = MyBase.Columns("TipoMerc") Me.columnCodPais = MyBase.Columns("CodPais") End Sub _ Private Sub InitClass() Me.columnDocId = New Global.System.Data.DataColumn("DocId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocId) Me.columnCodInv = New Global.System.Data.DataColumn("CodInv", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCodInv) Me.columnDocEst = New Global.System.Data.DataColumn("DocEst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocEst) Me.columnAsunto = New Global.System.Data.DataColumn("Asunto", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAsunto) Me.columnCodEmpr = New Global.System.Data.DataColumn("CodEmpr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCodEmpr) Me.columnCodIF = New Global.System.Data.DataColumn("CodIF", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCodIF) Me.columnCodEmis = New Global.System.Data.DataColumn("CodEmis", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCodEmis) 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.columnOFon = New Global.System.Data.DataColumn("OFon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOFon) Me.columnComent = New Global.System.Data.DataColumn("Coment", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComent) Me.columnJust = New Global.System.Data.DataColumn("Just", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnJust) Me.columnTipoOper = New Global.System.Data.DataColumn("TipoOper", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTipoOper) Me.columnDocBase = New Global.System.Data.DataColumn("DocBase", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocBase) Me.columnMontoInv = New Global.System.Data.DataColumn("MontoInv", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMontoInv) Me.columnPrecio = New Global.System.Data.DataColumn("Precio", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrecio) Me.columnRendimiento = New Global.System.Data.DataColumn("Rendimiento", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRendimiento) Me.columnPlazo = New Global.System.Data.DataColumn("Plazo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPlazo) Me.columnPlazoFact = New Global.System.Data.DataColumn("PlazoFact", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPlazoFact) Me.columnIngresos = New Global.System.Data.DataColumn("Ingresos", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIngresos) Me.columnFechaDoc = New Global.System.Data.DataColumn("FechaDoc", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFechaDoc) Me.columnAutEstado = New Global.System.Data.DataColumn("AutEstado", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAutEstado) Me.columnTipoMerc = New Global.System.Data.DataColumn("TipoMerc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTipoMerc) Me.columnCodPais = New Global.System.Data.DataColumn("CodPais", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCodPais) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDocId}, true)) Me.columnDocId.AutoIncrement = true Me.columnDocId.AutoIncrementSeed = -1 Me.columnDocId.AutoIncrementStep = -1 Me.columnDocId.AllowDBNull = false Me.columnDocId.ReadOnly = true Me.columnDocId.Unique = true Me.columnCodInv.MaxLength = 20 Me.columnDocEst.MaxLength = 1 Me.columnAsunto.MaxLength = 100 Me.columnCodEmpr.MaxLength = 10 Me.columnCodIF.MaxLength = 10 Me.columnCodCalRi.MaxLength = 8 Me.columnCodECalRi.MaxLength = 8 Me.columnOFon.MaxLength = 10 Me.columnComent.MaxLength = 100 Me.columnJust.MaxLength = 100 Me.columnTipoOper.MaxLength = 1 Me.columnRendimiento.MaxLength = 20 Me.columnPlazoFact.MaxLength = 1 Me.columnAutEstado.MaxLength = 1 Me.columnTipoMerc.MaxLength = 3 Me.columnCodPais.MaxLength = 3 End Sub _ Public Function NewPIN0Row() As PIN0Row Return CType(Me.NewRow,PIN0Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New PIN0Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(PIN0Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.PIN0RowChangedEvent) Is Nothing) Then RaiseEvent PIN0RowChanged(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.PIN0RowChangingEvent) Is Nothing) Then RaiseEvent PIN0RowChanging(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.PIN0RowDeletedEvent) Is Nothing) Then RaiseEvent PIN0RowDeleted(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.PIN0RowDeletingEvent) Is Nothing) Then RaiseEvent PIN0RowDeleting(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action)) End If End Sub _ Public Sub RemovePIN0Row(ByVal row As PIN0Row) 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 InversionesDEVDataSet4 = New InversionesDEVDataSet4() 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 = "PIN0DataTable" 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 PIN0Row Inherits Global.System.Data.DataRow Private tablePIN0 As PIN0DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablePIN0 = CType(Me.Table,PIN0DataTable) End Sub _ Public Property DocId() As Integer Get Return CType(Me(Me.tablePIN0.DocIdColumn),Integer) End Get Set Me(Me.tablePIN0.DocIdColumn) = value End Set End Property _ Public Property CodInv() As String Get Try Return CType(Me(Me.tablePIN0.CodInvColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodInv' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.CodInvColumn) = value End Set End Property _ Public Property DocEst() As String Get Try Return CType(Me(Me.tablePIN0.DocEstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'DocEst' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.DocEstColumn) = value End Set End Property _ Public Property Asunto() As String Get Try Return CType(Me(Me.tablePIN0.AsuntoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Asunto' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.AsuntoColumn) = value End Set End Property _ Public Property CodEmpr() As String Get Try Return CType(Me(Me.tablePIN0.CodEmprColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodEmpr' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.CodEmprColumn) = value End Set End Property _ Public Property CodIF() As String Get Try Return CType(Me(Me.tablePIN0.CodIFColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodIF' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.CodIFColumn) = value End Set End Property _ Public Property CodEmis() As Integer Get Try Return CType(Me(Me.tablePIN0.CodEmisColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodEmis' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.CodEmisColumn) = value End Set End Property _ Public Property CodCalRi() As String Get Try Return CType(Me(Me.tablePIN0.CodCalRiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodCalRi' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.CodCalRiColumn) = value End Set End Property _ Public Property CodECalRi() As String Get Try Return CType(Me(Me.tablePIN0.CodECalRiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodECalRi' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.CodECalRiColumn) = value End Set End Property _ Public Property OFon() As String Get Try Return CType(Me(Me.tablePIN0.OFonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'OFon' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.OFonColumn) = value End Set End Property _ Public Property Coment() As String Get Try Return CType(Me(Me.tablePIN0.ComentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Coment' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.ComentColumn) = value End Set End Property _ Public Property Just() As String Get Try Return CType(Me(Me.tablePIN0.JustColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Just' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.JustColumn) = value End Set End Property _ Public Property TipoOper() As String Get Try Return CType(Me(Me.tablePIN0.TipoOperColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoOper' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.TipoOperColumn) = value End Set End Property _ Public Property DocBase() As Integer Get Try Return CType(Me(Me.tablePIN0.DocBaseColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'DocBase' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.DocBaseColumn) = value End Set End Property _ Public Property MontoInv() As Decimal Get Try Return CType(Me(Me.tablePIN0.MontoInvColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'MontoInv' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.MontoInvColumn) = value End Set End Property _ Public Property Precio() As Decimal Get Try Return CType(Me(Me.tablePIN0.PrecioColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Precio' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.PrecioColumn) = value End Set End Property _ Public Property Rendimiento() As String Get Try Return CType(Me(Me.tablePIN0.RendimientoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Rendimiento' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.RendimientoColumn) = value End Set End Property _ Public Property Plazo() As Integer Get Try Return CType(Me(Me.tablePIN0.PlazoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Plazo' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.PlazoColumn) = value End Set End Property _ Public Property PlazoFact() As String Get Try Return CType(Me(Me.tablePIN0.PlazoFactColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'PlazoFact' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.PlazoFactColumn) = value End Set End Property _ Public Property Ingresos() As Decimal Get Try Return CType(Me(Me.tablePIN0.IngresosColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Ingresos' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.IngresosColumn) = value End Set End Property _ Public Property FechaDoc() As Date Get Try Return CType(Me(Me.tablePIN0.FechaDocColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'FechaDoc' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.FechaDocColumn) = value End Set End Property _ Public Property AutEstado() As String Get Try Return CType(Me(Me.tablePIN0.AutEstadoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'AutEstado' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.AutEstadoColumn) = value End Set End Property _ Public Property TipoMerc() As String Get Try Return CType(Me(Me.tablePIN0.TipoMercColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoMerc' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.TipoMercColumn) = value End Set End Property _ Public Property CodPais() As String Get Try Return CType(Me(Me.tablePIN0.CodPaisColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodPais' de la tabla 'PIN0' es DBNull.", e) End Try End Get Set Me(Me.tablePIN0.CodPaisColumn) = value End Set End Property _ Public Function IsCodInvNull() As Boolean Return Me.IsNull(Me.tablePIN0.CodInvColumn) End Function _ Public Sub SetCodInvNull() Me(Me.tablePIN0.CodInvColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocEstNull() As Boolean Return Me.IsNull(Me.tablePIN0.DocEstColumn) End Function _ Public Sub SetDocEstNull() Me(Me.tablePIN0.DocEstColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAsuntoNull() As Boolean Return Me.IsNull(Me.tablePIN0.AsuntoColumn) End Function _ Public Sub SetAsuntoNull() Me(Me.tablePIN0.AsuntoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCodEmprNull() As Boolean Return Me.IsNull(Me.tablePIN0.CodEmprColumn) End Function _ Public Sub SetCodEmprNull() Me(Me.tablePIN0.CodEmprColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCodIFNull() As Boolean Return Me.IsNull(Me.tablePIN0.CodIFColumn) End Function _ Public Sub SetCodIFNull() Me(Me.tablePIN0.CodIFColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCodEmisNull() As Boolean Return Me.IsNull(Me.tablePIN0.CodEmisColumn) End Function _ Public Sub SetCodEmisNull() Me(Me.tablePIN0.CodEmisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCodCalRiNull() As Boolean Return Me.IsNull(Me.tablePIN0.CodCalRiColumn) End Function _ Public Sub SetCodCalRiNull() Me(Me.tablePIN0.CodCalRiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCodECalRiNull() As Boolean Return Me.IsNull(Me.tablePIN0.CodECalRiColumn) End Function _ Public Sub SetCodECalRiNull() Me(Me.tablePIN0.CodECalRiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOFonNull() As Boolean Return Me.IsNull(Me.tablePIN0.OFonColumn) End Function _ Public Sub SetOFonNull() Me(Me.tablePIN0.OFonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsComentNull() As Boolean Return Me.IsNull(Me.tablePIN0.ComentColumn) End Function _ Public Sub SetComentNull() Me(Me.tablePIN0.ComentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsJustNull() As Boolean Return Me.IsNull(Me.tablePIN0.JustColumn) End Function _ Public Sub SetJustNull() Me(Me.tablePIN0.JustColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTipoOperNull() As Boolean Return Me.IsNull(Me.tablePIN0.TipoOperColumn) End Function _ Public Sub SetTipoOperNull() Me(Me.tablePIN0.TipoOperColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocBaseNull() As Boolean Return Me.IsNull(Me.tablePIN0.DocBaseColumn) End Function _ Public Sub SetDocBaseNull() Me(Me.tablePIN0.DocBaseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMontoInvNull() As Boolean Return Me.IsNull(Me.tablePIN0.MontoInvColumn) End Function _ Public Sub SetMontoInvNull() Me(Me.tablePIN0.MontoInvColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrecioNull() As Boolean Return Me.IsNull(Me.tablePIN0.PrecioColumn) End Function _ Public Sub SetPrecioNull() Me(Me.tablePIN0.PrecioColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRendimientoNull() As Boolean Return Me.IsNull(Me.tablePIN0.RendimientoColumn) End Function _ Public Sub SetRendimientoNull() Me(Me.tablePIN0.RendimientoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPlazoNull() As Boolean Return Me.IsNull(Me.tablePIN0.PlazoColumn) End Function _ Public Sub SetPlazoNull() Me(Me.tablePIN0.PlazoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPlazoFactNull() As Boolean Return Me.IsNull(Me.tablePIN0.PlazoFactColumn) End Function _ Public Sub SetPlazoFactNull() Me(Me.tablePIN0.PlazoFactColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIngresosNull() As Boolean Return Me.IsNull(Me.tablePIN0.IngresosColumn) End Function _ Public Sub SetIngresosNull() Me(Me.tablePIN0.IngresosColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFechaDocNull() As Boolean Return Me.IsNull(Me.tablePIN0.FechaDocColumn) End Function _ Public Sub SetFechaDocNull() Me(Me.tablePIN0.FechaDocColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAutEstadoNull() As Boolean Return Me.IsNull(Me.tablePIN0.AutEstadoColumn) End Function _ Public Sub SetAutEstadoNull() Me(Me.tablePIN0.AutEstadoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTipoMercNull() As Boolean Return Me.IsNull(Me.tablePIN0.TipoMercColumn) End Function _ Public Sub SetTipoMercNull() Me(Me.tablePIN0.TipoMercColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCodPaisNull() As Boolean Return Me.IsNull(Me.tablePIN0.CodPaisColumn) End Function _ Public Sub SetCodPaisNull() Me(Me.tablePIN0.CodPaisColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class PIN0RowChangeEvent Inherits Global.System.EventArgs Private eventRow As PIN0Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As PIN0Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As PIN0Row 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 InversionesDEVDataSet4TableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class PIN0TableAdapter 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 = "PIN0" tableMapping.ColumnMappings.Add("DocId", "DocId") tableMapping.ColumnMappings.Add("CodInv", "CodInv") tableMapping.ColumnMappings.Add("DocEst", "DocEst") tableMapping.ColumnMappings.Add("Asunto", "Asunto") tableMapping.ColumnMappings.Add("CodEmpr", "CodEmpr") tableMapping.ColumnMappings.Add("CodIF", "CodIF") tableMapping.ColumnMappings.Add("CodEmis", "CodEmis") tableMapping.ColumnMappings.Add("CodCalRi", "CodCalRi") tableMapping.ColumnMappings.Add("CodECalRi", "CodECalRi") tableMapping.ColumnMappings.Add("OFon", "OFon") tableMapping.ColumnMappings.Add("Coment", "Coment") tableMapping.ColumnMappings.Add("Just", "Just") tableMapping.ColumnMappings.Add("TipoOper", "TipoOper") tableMapping.ColumnMappings.Add("DocBase", "DocBase") tableMapping.ColumnMappings.Add("MontoInv", "MontoInv") tableMapping.ColumnMappings.Add("Precio", "Precio") tableMapping.ColumnMappings.Add("Rendimiento", "Rendimiento") tableMapping.ColumnMappings.Add("Plazo", "Plazo") tableMapping.ColumnMappings.Add("PlazoFact", "PlazoFact") tableMapping.ColumnMappings.Add("Ingresos", "Ingresos") tableMapping.ColumnMappings.Add("FechaDoc", "FechaDoc") tableMapping.ColumnMappings.Add("AutEstado", "AutEstado") tableMapping.ColumnMappings.Add("TipoMerc", "TipoMerc") tableMapping.ColumnMappings.Add("CodPais", "CodPais") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[PIN0] WHERE (([DocId] = @Original_DocId) AND ((@IsNull_CodInv "& _ "= 1 AND [CodInv] IS NULL) OR ([CodInv] = @Original_CodInv)) AND ((@IsNull_DocEst"& _ " = 1 AND [DocEst] IS NULL) OR ([DocEst] = @Original_DocEst)) AND ((@IsNull_Asunt"& _ "o = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_Asunto)) AND ((@IsNull_CodE"& _ "mpr = 1 AND [CodEmpr] IS NULL) OR ([CodEmpr] = @Original_CodEmpr)) AND ((@IsNull"& _ "_CodIF = 1 AND [CodIF] IS NULL) OR ([CodIF] = @Original_CodIF)) AND ((@IsNull_Co"& _ "dEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis] = @Original_CodEmis)) AND ((@IsNu"& _ "ll_CodCalRi = 1 AND [CodCalRi] IS NULL) OR ([CodCalRi] = @Original_CodCalRi)) AN"& _ "D ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS NULL) OR ([CodECalRi] = @Original_C"& _ "odECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] IS NULL) OR ([OFon] = @Original_OFo"& _ "n)) AND ((@IsNull_Coment = 1 AND [Coment] IS NULL) OR ([Coment] = @Original_Come"& _ "nt)) AND ((@IsNull_Just = 1 AND [Just] IS NULL) OR ([Just] = @Original_Just)) AN"& _ "D ((@IsNull_TipoOper = 1 AND [TipoOper] IS NULL) OR ([TipoOper] = @Original_Tipo"& _ "Oper)) AND ((@IsNull_DocBase = 1 AND [DocBase] IS NULL) OR ([DocBase] = @Origina"& _ "l_DocBase)) AND ((@IsNull_MontoInv = 1 AND [MontoInv] IS NULL) OR ([MontoInv] = "& _ "@Original_MontoInv)) AND ((@IsNull_Precio = 1 AND [Precio] IS NULL) OR ([Precio]"& _ " = @Original_Precio)) AND ((@IsNull_Rendimiento = 1 AND [Rendimiento] IS NULL) O"& _ "R ([Rendimiento] = @Original_Rendimiento)) AND ((@IsNull_Plazo = 1 AND [Plazo] I"& _ "S NULL) OR ([Plazo] = @Original_Plazo)) AND ((@IsNull_PlazoFact = 1 AND [PlazoFa"& _ "ct] IS NULL) OR ([PlazoFact] = @Original_PlazoFact)) AND ((@IsNull_Ingresos = 1 "& _ "AND [Ingresos] IS NULL) OR ([Ingresos] = @Original_Ingresos)) AND ((@IsNull_Fech"& _ "aDoc = 1 AND [FechaDoc] IS NULL) OR ([FechaDoc] = @Original_FechaDoc)) AND ((@Is"& _ "Null_AutEstado = 1 AND [AutEstado] IS NULL) OR ([AutEstado] = @Original_AutEstad"& _ "o)) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL) OR ([TipoMerc] = @Origina"& _ "l_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] IS NULL) OR ([CodPais] = @O"& _ "riginal_CodPais)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocEst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocEst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Asunto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Asunto", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmpr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodEmpr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodCalRi", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodCalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodECalRi", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodECalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OFon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OFon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Coment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Coment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Just", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Just", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoOper", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoOper", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MontoInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MontoInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MontoInv", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "MontoInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Precio", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Precio", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Precio", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Precio", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Rendimiento", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PlazoFact", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PlazoFact", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Ingresos", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ingresos", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ingresos", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Ingresos", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FechaDoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FechaDoc", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AutEstado", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AutEstado", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoMerc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoMerc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodPais", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodPais", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[PIN0] ([CodInv], [DocEst], [Asunto], [CodEmpr], [CodIF], [CodE"& _ "mis], [CodCalRi], [CodECalRi], [OFon], [Coment], [Just], [TipoOper], [DocBase], "& _ "[MontoInv], [Precio], [Rendimiento], [Plazo], [PlazoFact], [Ingresos], [FechaDoc"& _ "], [AutEstado], [TipoMerc], [CodPais]) VALUES (@CodInv, @DocEst, @Asunto, @CodEm"& _ "pr, @CodIF, @CodEmis, @CodCalRi, @CodECalRi, @OFon, @Coment, @Just, @TipoOper, @"& _ "DocBase, @MontoInv, @Precio, @Rendimiento, @Plazo, @PlazoFact, @Ingresos, @Fecha"& _ "Doc, @AutEstado, @TipoMerc, @CodPais);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, DocEst, Asunto, Co"& _ "dEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBas"& _ "e, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, AutEstad"& _ "o, TipoMerc, CodPais FROM PIN0 WHERE (DocId = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocEst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Asunto", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodEmpr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodCalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodECalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OFon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Coment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Just", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoOper", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MontoInv", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "MontoInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Precio", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Precio", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PlazoFact", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ingresos", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Ingresos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FechaDoc", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AutEstado", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoMerc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodPais", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[PIN0] SET [CodInv] = @CodInv, [DocEst] = @DocEst, [Asunto] = @Asunt"& _ "o, [CodEmpr] = @CodEmpr, [CodIF] = @CodIF, [CodEmis] = @CodEmis, [CodCalRi] = @C"& _ "odCalRi, [CodECalRi] = @CodECalRi, [OFon] = @OFon, [Coment] = @Coment, [Just] = "& _ "@Just, [TipoOper] = @TipoOper, [DocBase] = @DocBase, [MontoInv] = @MontoInv, [Pr"& _ "ecio] = @Precio, [Rendimiento] = @Rendimiento, [Plazo] = @Plazo, [PlazoFact] = @"& _ "PlazoFact, [Ingresos] = @Ingresos, [FechaDoc] = @FechaDoc, [AutEstado] = @AutEst"& _ "ado, [TipoMerc] = @TipoMerc, [CodPais] = @CodPais WHERE (([DocId] = @Original_Do"& _ "cId) AND ((@IsNull_CodInv = 1 AND [CodInv] IS NULL) OR ([CodInv] = @Original_Cod"& _ "Inv)) AND ((@IsNull_DocEst = 1 AND [DocEst] IS NULL) OR ([DocEst] = @Original_Do"& _ "cEst)) AND ((@IsNull_Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_A"& _ "sunto)) AND ((@IsNull_CodEmpr = 1 AND [CodEmpr] IS NULL) OR ([CodEmpr] = @Origin"& _ "al_CodEmpr)) AND ((@IsNull_CodIF = 1 AND [CodIF] IS NULL) OR ([CodIF] = @Origina"& _ "l_CodIF)) AND ((@IsNull_CodEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis] = @Orig"& _ "inal_CodEmis)) AND ((@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL) OR ([CodCalRi]"& _ " = @Original_CodCalRi)) AND ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS NULL) OR "& _ "([CodECalRi] = @Original_CodECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] IS NULL) "& _ "OR ([OFon] = @Original_OFon)) AND ((@IsNull_Coment = 1 AND [Coment] IS NULL) OR "& _ "([Coment] = @Original_Coment)) AND ((@IsNull_Just = 1 AND [Just] IS NULL) OR ([J"& _ "ust] = @Original_Just)) AND ((@IsNull_TipoOper = 1 AND [TipoOper] IS NULL) OR (["& _ "TipoOper] = @Original_TipoOper)) AND ((@IsNull_DocBase = 1 AND [DocBase] IS NULL"& _ ") OR ([DocBase] = @Original_DocBase)) AND ((@IsNull_MontoInv = 1 AND [MontoInv] "& _ "IS NULL) OR ([MontoInv] = @Original_MontoInv)) AND ((@IsNull_Precio = 1 AND [Pre"& _ "cio] IS NULL) OR ([Precio] = @Original_Precio)) AND ((@IsNull_Rendimiento = 1 AN"& _ "D [Rendimiento] IS NULL) OR ([Rendimiento] = @Original_Rendimiento)) AND ((@IsNu"& _ "ll_Plazo = 1 AND [Plazo] IS NULL) OR ([Plazo] = @Original_Plazo)) AND ((@IsNull_"& _ "PlazoFact = 1 AND [PlazoFact] IS NULL) OR ([PlazoFact] = @Original_PlazoFact)) A"& _ "ND ((@IsNull_Ingresos = 1 AND [Ingresos] IS NULL) OR ([Ingresos] = @Original_Ing"& _ "resos)) AND ((@IsNull_FechaDoc = 1 AND [FechaDoc] IS NULL) OR ([FechaDoc] = @Ori"& _ "ginal_FechaDoc)) AND ((@IsNull_AutEstado = 1 AND [AutEstado] IS NULL) OR ([AutEs"& _ "tado] = @Original_AutEstado)) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL)"& _ " OR ([TipoMerc] = @Original_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] I"& _ "S NULL) OR ([CodPais] = @Original_CodPais)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, DocEst, Asu"& _ "nto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper,"& _ " DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, A"& _ "utEstado, TipoMerc, CodPais FROM PIN0 WHERE (DocId = @DocId)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocEst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Asunto", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodEmpr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodCalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodECalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OFon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Coment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Just", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoOper", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MontoInv", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "MontoInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Precio", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Precio", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PlazoFact", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ingresos", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Ingresos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FechaDoc", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AutEstado", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoMerc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodPais", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocEst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocEst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Asunto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Asunto", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmpr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodEmpr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodCalRi", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodCalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodECalRi", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodECalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OFon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OFon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Coment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Coment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Just", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Just", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoOper", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoOper", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MontoInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MontoInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MontoInv", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "MontoInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Precio", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Precio", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Precio", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Precio", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Rendimiento", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PlazoFact", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PlazoFact", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Ingresos", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ingresos", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ingresos", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Ingresos", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FechaDoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FechaDoc", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AutEstado", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AutEstado", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoMerc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoMerc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodPais", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodPais", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocId", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Inversiones.My.MySettings.Default.InversionesConnectionString 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 = "SELECT DocId, CodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalR"& _ "i, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, "& _ "PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais FROM dbo.PIN0" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As InversionesDEVDataSet4.PIN0DataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As InversionesDEVDataSet4.PIN0DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As InversionesDEVDataSet4.PIN0DataTable = New InversionesDEVDataSet4.PIN0DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As InversionesDEVDataSet4.PIN0DataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As InversionesDEVDataSet4) As Integer Return Me.Adapter.Update(dataSet, "PIN0") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete( _ ByVal Original_DocId As Integer, _ ByVal Original_CodInv As String, _ ByVal Original_DocEst As String, _ ByVal Original_Asunto As String, _ ByVal Original_CodEmpr As String, _ ByVal Original_CodIF As String, _ ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _ ByVal Original_CodCalRi As String, _ ByVal Original_CodECalRi As String, _ ByVal Original_OFon As String, _ ByVal Original_Coment As String, _ ByVal Original_Just As String, _ ByVal Original_TipoOper As String, _ ByVal Original_DocBase As Global.System.Nullable(Of Integer), _ ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _ ByVal Original_Precio As Global.System.Nullable(Of Decimal), _ ByVal Original_Rendimiento As String, _ ByVal Original_Plazo As Global.System.Nullable(Of Integer), _ ByVal Original_PlazoFact As String, _ ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _ ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _ ByVal Original_AutEstado As String, _ ByVal Original_TipoMerc As String, _ ByVal Original_CodPais As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DocId,Integer) If (Original_CodInv Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CodInv,String) End If If (Original_DocEst Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_DocEst,String) End If If (Original_Asunto Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Asunto,String) End If If (Original_CodEmpr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CodEmpr,String) End If If (Original_CodIF Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CodIF,String) End If If (Original_CodEmis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CodEmis.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_CodCalRi Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CodCalRi,String) End If If (Original_CodECalRi Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CodECalRi,String) End If If (Original_OFon Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_OFon,String) End If If (Original_Coment Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Coment,String) End If If (Original_Just Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Just,String) End If If (Original_TipoOper Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_TipoOper,String) End If If (Original_DocBase.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_DocBase.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_MontoInv.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_MontoInv.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_Precio.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_Precio.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_Rendimiento Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_Rendimiento,String) End If If (Original_Plazo.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_Plazo.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_PlazoFact Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_PlazoFact,String) End If If (Original_Ingresos.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_Ingresos.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Original_FechaDoc.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_FechaDoc.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (Original_AutEstado Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_AutEstado,String) End If If (Original_TipoMerc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_TipoMerc,String) End If If (Original_CodPais Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_CodPais,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal CodInv As String, _ ByVal DocEst As String, _ ByVal Asunto As String, _ ByVal CodEmpr As String, _ ByVal CodIF As String, _ ByVal CodEmis As Global.System.Nullable(Of Integer), _ ByVal CodCalRi As String, _ ByVal CodECalRi As String, _ ByVal OFon As String, _ ByVal Coment As String, _ ByVal Just As String, _ ByVal TipoOper As String, _ ByVal DocBase As Global.System.Nullable(Of Integer), _ ByVal MontoInv As Global.System.Nullable(Of Decimal), _ ByVal Precio As Global.System.Nullable(Of Decimal), _ ByVal Rendimiento As String, _ ByVal Plazo As Global.System.Nullable(Of Integer), _ ByVal PlazoFact As String, _ ByVal Ingresos As Global.System.Nullable(Of Decimal), _ ByVal FechaDoc As Global.System.Nullable(Of Date), _ ByVal AutEstado As String, _ ByVal TipoMerc As String, _ ByVal CodPais As String) As Integer If (CodInv Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(CodInv,String) End If If (DocEst Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(DocEst,String) End If If (Asunto Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Asunto,String) End If If (CodEmpr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(CodEmpr,String) End If If (CodIF Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(CodIF,String) End If If (CodEmis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(CodEmis.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (CodCalRi Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(CodCalRi,String) End If If (CodECalRi Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(CodECalRi,String) End If If (OFon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(OFon,String) End If If (Coment Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Coment,String) End If If (Just Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Just,String) End If If (TipoOper Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(TipoOper,String) End If If (DocBase.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(DocBase.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (MontoInv.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(MontoInv.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Precio.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Precio.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Rendimiento Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Rendimiento,String) End If If (Plazo.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(Plazo.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (PlazoFact Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(PlazoFact,String) End If If (Ingresos.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(Ingresos.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (FechaDoc.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(FechaDoc.Value,Date) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (AutEstado Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(AutEstado,String) End If If (TipoMerc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(TipoMerc,String) End If If (CodPais Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(CodPais,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal CodInv As String, _ ByVal DocEst As String, _ ByVal Asunto As String, _ ByVal CodEmpr As String, _ ByVal CodIF As String, _ ByVal CodEmis As Global.System.Nullable(Of Integer), _ ByVal CodCalRi As String, _ ByVal CodECalRi As String, _ ByVal OFon As String, _ ByVal Coment As String, _ ByVal Just As String, _ ByVal TipoOper As String, _ ByVal DocBase As Global.System.Nullable(Of Integer), _ ByVal MontoInv As Global.System.Nullable(Of Decimal), _ ByVal Precio As Global.System.Nullable(Of Decimal), _ ByVal Rendimiento As String, _ ByVal Plazo As Global.System.Nullable(Of Integer), _ ByVal PlazoFact As String, _ ByVal Ingresos As Global.System.Nullable(Of Decimal), _ ByVal FechaDoc As Global.System.Nullable(Of Date), _ ByVal AutEstado As String, _ ByVal TipoMerc As String, _ ByVal CodPais As String, _ ByVal Original_DocId As Integer, _ ByVal Original_CodInv As String, _ ByVal Original_DocEst As String, _ ByVal Original_Asunto As String, _ ByVal Original_CodEmpr As String, _ ByVal Original_CodIF As String, _ ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _ ByVal Original_CodCalRi As String, _ ByVal Original_CodECalRi As String, _ ByVal Original_OFon As String, _ ByVal Original_Coment As String, _ ByVal Original_Just As String, _ ByVal Original_TipoOper As String, _ ByVal Original_DocBase As Global.System.Nullable(Of Integer), _ ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _ ByVal Original_Precio As Global.System.Nullable(Of Decimal), _ ByVal Original_Rendimiento As String, _ ByVal Original_Plazo As Global.System.Nullable(Of Integer), _ ByVal Original_PlazoFact As String, _ ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _ ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _ ByVal Original_AutEstado As String, _ ByVal Original_TipoMerc As String, _ ByVal Original_CodPais As String, _ ByVal DocId As Integer) As Integer If (CodInv Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CodInv,String) End If If (DocEst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DocEst,String) End If If (Asunto Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Asunto,String) End If If (CodEmpr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CodEmpr,String) End If If (CodIF Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CodIF,String) End If If (CodEmis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CodEmis.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (CodCalRi Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CodCalRi,String) End If If (CodECalRi Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CodECalRi,String) End If If (OFon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OFon,String) End If If (Coment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Coment,String) End If If (Just Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Just,String) End If If (TipoOper Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TipoOper,String) End If If (DocBase.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DocBase.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (MontoInv.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(MontoInv.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Precio.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Precio.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Rendimiento Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Rendimiento,String) End If If (Plazo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Plazo.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (PlazoFact Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(PlazoFact,String) End If If (Ingresos.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Ingresos.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (FechaDoc.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(FechaDoc.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (AutEstado Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(AutEstado,String) End If If (TipoMerc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(TipoMerc,String) End If If (CodPais Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(CodPais,String) End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_DocId,Integer) If (Original_CodInv Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CodInv,String) End If If (Original_DocEst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_DocEst,String) End If If (Original_Asunto Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Asunto,String) End If If (Original_CodEmpr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CodEmpr,String) End If If (Original_CodIF Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CodIF,String) End If If (Original_CodEmis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_CodEmis.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_CodCalRi Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_CodCalRi,String) End If If (Original_CodECalRi Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_CodECalRi,String) End If If (Original_OFon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_OFon,String) End If If (Original_Coment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_Coment,String) End If If (Original_Just Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_Just,String) End If If (Original_TipoOper Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_TipoOper,String) End If If (Original_DocBase.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_DocBase.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Original_MontoInv.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_MontoInv.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_Precio.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_Precio.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_Rendimiento Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_Rendimiento,String) End If If (Original_Plazo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_Plazo.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (Original_PlazoFact Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_PlazoFact,String) End If If (Original_Ingresos.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_Ingresos.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value End If If (Original_FechaDoc.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_FechaDoc.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Original_AutEstado Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_AutEstado,String) End If If (Original_TipoMerc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_TipoMerc,String) End If If (Original_CodPais Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_CodPais,String) End If Me.Adapter.UpdateCommand.Parameters(70).Value = CType(DocId,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal CodInv As String, _ ByVal DocEst As String, _ ByVal Asunto As String, _ ByVal CodEmpr As String, _ ByVal CodIF As String, _ ByVal CodEmis As Global.System.Nullable(Of Integer), _ ByVal CodCalRi As String, _ ByVal CodECalRi As String, _ ByVal OFon As String, _ ByVal Coment As String, _ ByVal Just As String, _ ByVal TipoOper As String, _ ByVal DocBase As Global.System.Nullable(Of Integer), _ ByVal MontoInv As Global.System.Nullable(Of Decimal), _ ByVal Precio As Global.System.Nullable(Of Decimal), _ ByVal Rendimiento As String, _ ByVal Plazo As Global.System.Nullable(Of Integer), _ ByVal PlazoFact As String, _ ByVal Ingresos As Global.System.Nullable(Of Decimal), _ ByVal FechaDoc As Global.System.Nullable(Of Date), _ ByVal AutEstado As String, _ ByVal TipoMerc As String, _ ByVal CodPais As String, _ ByVal Original_DocId As Integer, _ ByVal Original_CodInv As String, _ ByVal Original_DocEst As String, _ ByVal Original_Asunto As String, _ ByVal Original_CodEmpr As String, _ ByVal Original_CodIF As String, _ ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _ ByVal Original_CodCalRi As String, _ ByVal Original_CodECalRi As String, _ ByVal Original_OFon As String, _ ByVal Original_Coment As String, _ ByVal Original_Just As String, _ ByVal Original_TipoOper As String, _ ByVal Original_DocBase As Global.System.Nullable(Of Integer), _ ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _ ByVal Original_Precio As Global.System.Nullable(Of Decimal), _ ByVal Original_Rendimiento As String, _ ByVal Original_Plazo As Global.System.Nullable(Of Integer), _ ByVal Original_PlazoFact As String, _ ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _ ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _ ByVal Original_AutEstado As String, _ ByVal Original_TipoMerc As String, _ ByVal Original_CodPais As String) As Integer Return Me.Update(CodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, Original_DocId, Original_CodInv, Original_DocEst, Original_Asunto, Original_CodEmpr, Original_CodIF, Original_CodEmis, Original_CodCalRi, Original_CodECalRi, Original_OFon, Original_Coment, Original_Just, Original_TipoOper, Original_DocBase, Original_MontoInv, Original_Precio, Original_Rendimiento, Original_Plazo, Original_PlazoFact, Original_Ingresos, Original_FechaDoc, Original_AutEstado, Original_TipoMerc, Original_CodPais, Original_DocId) End Function End Class ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component Private _updateOrder As UpdateOrderOption Private _pIN0TableAdapter As PIN0TableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property PIN0TableAdapter() As PIN0TableAdapter Get Return Me._pIN0TableAdapter End Get Set Me._pIN0TableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If If ((Not (Me._pIN0TableAdapter) Is Nothing) _ AndAlso (Not (Me._pIN0TableAdapter.Connection) Is Nothing)) Then Return Me._pIN0TableAdapter.Connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._pIN0TableAdapter) Is Nothing) Then count = (count + 1) End If Return count End Get End Property ''' '''Update rows in top-down order. ''' _ Private Function UpdateUpdatedRows(ByVal dataSet As InversionesDEVDataSet4, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._pIN0TableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._pIN0TableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If Return result End Function ''' '''Insert rows in top-down order. ''' _ Private Function UpdateInsertedRows(ByVal dataSet As InversionesDEVDataSet4, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._pIN0TableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._pIN0TableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If Return result End Function ''' '''Delete rows in bottom-up order. ''' _ Private Function UpdateDeletedRows(ByVal dataSet As InversionesDEVDataSet4, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._pIN0TableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._pIN0TableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If Return result End Function ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) If (allAddedRows.Contains(row) = false) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function ''' '''Update all changes to the dataset. ''' _ Public Overridable Function UpdateAll(ByVal dataSet As InversionesDEVDataSet4) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If If (dataSet.HasChanges = false) Then Return 0 End If If ((Not (Me._pIN0TableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._pIN0TableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Todos los TableAdapters administrados por un TableAdapterManager deben usar la mi"& _ "sma cadena de conexión.") End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager no contiene información de conexión. Establezca cada propieda"& _ "d TableAdapterManager TableAdapter en una instancia TableAdapter válida.") End If Dim workConnOpened As Boolean = false If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then workConnection.Close End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then workConnection.Open workConnOpened = true End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then Throw New Global.System.ApplicationException("La transacción no puede comenzar. La conexión de datos actual no es compatible co"& _ "n las transacciones o el estado actual no permite que comience la transacción.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() Dim result As Integer = 0 Dim backupDataSet As Global.System.Data.DataSet = Nothing If Me.BackupDataSetBeforeUpdate Then backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If Try '---- Prepare for update ----------- ' If (Not (Me._pIN0TableAdapter) Is Nothing) Then revertConnections.Add(Me._pIN0TableAdapter, Me._pIN0TableAdapter.Connection) Me._pIN0TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._pIN0TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._pIN0TableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._pIN0TableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._pIN0TableAdapter.Adapter) End If End If ' '---- Perform updates ----------- ' If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) Else result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) End If result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) ' '---- Commit updates ----------- ' workTransaction.Commit If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If If (0 < allChangedRows.Count) Then Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow allChangedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If Catch ex As Global.System.Exception workTransaction.Rollback '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) dataSet.Clear dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges row.SetAdded i = (i + 1) Loop End If End If Throw ex Finally If workConnOpened Then workConnection.Close End If If (Not (Me._pIN0TableAdapter) Is Nothing) Then Me._pIN0TableAdapter.Connection = CType(revertConnections(Me._pIN0TableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._pIN0TableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) adapter.AcceptChangesDuringUpdate = true i = (i + 1) Loop End If End Try Return result End Function _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true End If If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then Return true End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then Return true End If Return false End Function ''' '''Update Order Option ''' _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum ''' '''Used to sort self-referenced table's rows ''' _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) Private _relation As Global.System.Data.DataRelation Private _childFirst As Integer _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation If childFirst Then Me._childFirst = -1 Else Me._childFirst = 1 End If End Sub _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row distance = 0 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() traversedRows(row) = row Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Loop If (distance = 0) Then traversedRows.Clear traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Loop End If Return root End Function _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 End If If (row1 Is Nothing) Then Return -1 End If If (row2 Is Nothing) Then Return 1 End If Dim distance1 As Integer = 0 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) Dim distance2 As Integer = 0 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 Else Return 1 End If End If End Function End Class End Class End Namespace