| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577 |
- '------------------------------------------------------------------------------
- ' <auto-generated>
- ' 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.
- ' </auto-generated>
- '------------------------------------------------------------------------------
- Option Strict Off
- Option Explicit On
- '''<summary>
- '''Represents a strongly typed in-memory cache of data.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
- Global.System.Xml.Serialization.XmlRootAttribute("InversionesDEVDataSet"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
- Partial Public Class InversionesDEVDataSet
- Inherits Global.System.Data.DataSet
-
- Private tableINV0 As INV0DataTable
-
- Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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("INV0")) Is Nothing) Then
- MyBase.Tables.Add(New INV0DataTable(ds.Tables("INV0")))
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property INV0() As INV0DataTable
- Get
- Return Me.tableINV0
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.BrowsableAttribute(true), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
- Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
- Get
- Return Me._schemaSerializationMode
- End Get
- Set
- Me._schemaSerializationMode = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
- Get
- Return MyBase.Tables
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
- Get
- Return MyBase.Relations
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub InitializeDerivedDataSet()
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataSet
- Dim cln As InversionesDEVDataSet = CType(MyBase.Clone,InversionesDEVDataSet)
- cln.InitVars
- cln.SchemaSerializationMode = Me.SchemaSerializationMode
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function ShouldSerializeTables() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function ShouldSerializeRelations() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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("INV0")) Is Nothing) Then
- MyBase.Tables.Add(New INV0DataTable(ds.Tables("INV0")))
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Overloads Sub InitVars()
- Me.InitVars(true)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Overloads Sub InitVars(ByVal initTable As Boolean)
- Me.tableINV0 = CType(MyBase.Tables("INV0"),INV0DataTable)
- If (initTable = true) Then
- If (Not (Me.tableINV0) Is Nothing) Then
- Me.tableINV0.InitVars
- End If
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitClass()
- Me.DataSetName = "InversionesDEVDataSet"
- Me.Prefix = ""
- Me.Namespace = "http://tempuri.org/InversionesDEVDataSet.xsd"
- Me.EnforceConstraints = true
- Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
- Me.tableINV0 = New INV0DataTable()
- MyBase.Tables.Add(Me.tableINV0)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeINV0() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim ds As InversionesDEVDataSet = New InversionesDEVDataSet()
- 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
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub INV0RowChangeEventHandler(ByVal sender As Object, ByVal e As INV0RowChangeEvent)
-
- '''<summary>
- '''Represents the strongly named DataTable class.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class INV0DataTable
- Inherits Global.System.Data.TypedTableBase(Of INV0Row)
-
- Private columnDocId As Global.System.Data.DataColumn
-
- Private columnCodInv As Global.System.Data.DataColumn
-
- Private columnDocEst As Global.System.Data.DataColumn
-
- Private columnAutEstado 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 columnTipoMerc As Global.System.Data.DataColumn
-
- Private columnCodPais As Global.System.Data.DataColumn
-
- Private columnNombreManIF As Global.System.Data.DataColumn
-
- Private columnCodManIF As Global.System.Data.DataColumn
-
- Private columnPeriodicidad As Global.System.Data.DataColumn
-
- Private columnTipTasa As Global.System.Data.DataColumn
-
- Private columnTipRenta As Global.System.Data.DataColumn
-
- Private columnNumManInv As Global.System.Data.DataColumn
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.TableName = "INV0"
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property DocIdColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDocId
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodInvColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodInv
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property DocEstColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDocEst
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property AutEstadoColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnAutEstado
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property AsuntoColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnAsunto
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodEmprColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodEmpr
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodIFColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodIF
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodEmisColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodEmis
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodCalRiColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodCalRi
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodECalRiColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodECalRi
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property OFonColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnOFon
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property ComentColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnComent
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property JustColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnJust
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TipoOperColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTipoOper
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property DocBaseColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDocBase
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property MontoInvColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnMontoInv
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property PrecioColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPrecio
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property RendimientoColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnRendimiento
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property PlazoColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPlazo
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property PlazoFactColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPlazoFact
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property IngresosColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnIngresos
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property FechaDocColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnFechaDoc
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TipoMercColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTipoMerc
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodPaisColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodPais
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property NombreManIFColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnNombreManIF
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodManIFColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodManIF
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property PeriodicidadColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPeriodicidad
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TipTasaColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTipTasa
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TipRentaColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTipRenta
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property NumManInvColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnNumManInv
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property Count() As Integer
- Get
- Return Me.Rows.Count
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As INV0Row
- Get
- Return CType(Me.Rows(index),INV0Row)
- End Get
- End Property
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event INV0RowChanging As INV0RowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event INV0RowChanged As INV0RowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event INV0RowDeleting As INV0RowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event INV0RowDeleted As INV0RowChangeEventHandler
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overloads Sub AddINV0Row(ByVal row As INV0Row)
- Me.Rows.Add(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overloads Function AddINV0Row( _
- ByVal CodInv As String, _
- ByVal DocEst As String, _
- ByVal AutEstado 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 Decimal, _
- ByVal Plazo As Integer, _
- ByVal PlazoFact As String, _
- ByVal Ingresos As Decimal, _
- ByVal FechaDoc As Date, _
- ByVal TipoMerc As String, _
- ByVal CodPais As String, _
- ByVal NombreManIF As String, _
- ByVal CodManIF As String, _
- ByVal Periodicidad As String, _
- ByVal TipTasa As String, _
- ByVal TipRenta As String, _
- ByVal NumManInv As Integer) As INV0Row
- Dim rowINV0Row As INV0Row = CType(Me.NewRow,INV0Row)
- Dim columnValuesArray() As Object = New Object() {Nothing, CodInv, DocEst, AutEstado, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, TipoMerc, CodPais, NombreManIF, CodManIF, Periodicidad, TipTasa, TipRenta, NumManInv}
- rowINV0Row.ItemArray = columnValuesArray
- Me.Rows.Add(rowINV0Row)
- Return rowINV0Row
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function FindByDocIdCodInv(ByVal DocId As Integer, ByVal CodInv As String) As INV0Row
- Return CType(Me.Rows.Find(New Object() {DocId, CodInv}),INV0Row)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As INV0DataTable = CType(MyBase.Clone,INV0DataTable)
- cln.InitVars
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New INV0DataTable()
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub InitVars()
- Me.columnDocId = MyBase.Columns("DocId")
- Me.columnCodInv = MyBase.Columns("CodInv")
- Me.columnDocEst = MyBase.Columns("DocEst")
- Me.columnAutEstado = MyBase.Columns("AutEstado")
- 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.columnTipoMerc = MyBase.Columns("TipoMerc")
- Me.columnCodPais = MyBase.Columns("CodPais")
- Me.columnNombreManIF = MyBase.Columns("NombreManIF")
- Me.columnCodManIF = MyBase.Columns("CodManIF")
- Me.columnPeriodicidad = MyBase.Columns("Periodicidad")
- Me.columnTipTasa = MyBase.Columns("TipTasa")
- Me.columnTipRenta = MyBase.Columns("TipRenta")
- Me.columnNumManInv = MyBase.Columns("NumManInv")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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.columnAutEstado = New Global.System.Data.DataColumn("AutEstado", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnAutEstado)
- 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(Decimal), 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.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.columnNombreManIF = New Global.System.Data.DataColumn("NombreManIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnNombreManIF)
- Me.columnCodManIF = New Global.System.Data.DataColumn("CodManIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCodManIF)
- Me.columnPeriodicidad = New Global.System.Data.DataColumn("Periodicidad", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnPeriodicidad)
- Me.columnTipTasa = New Global.System.Data.DataColumn("TipTasa", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTipTasa)
- Me.columnTipRenta = New Global.System.Data.DataColumn("TipRenta", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTipRenta)
- Me.columnNumManInv = New Global.System.Data.DataColumn("NumManInv", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnNumManInv)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDocId, Me.columnCodInv}, true))
- Me.columnDocId.AutoIncrement = true
- Me.columnDocId.AutoIncrementSeed = -1
- Me.columnDocId.AutoIncrementStep = -1
- Me.columnDocId.AllowDBNull = false
- Me.columnDocId.ReadOnly = true
- Me.columnCodInv.AllowDBNull = false
- Me.columnCodInv.MaxLength = 20
- Me.columnDocEst.AllowDBNull = false
- Me.columnDocEst.MaxLength = 1
- Me.columnAutEstado.MaxLength = 1
- Me.columnAsunto.MaxLength = 100
- Me.columnCodEmpr.AllowDBNull = false
- Me.columnCodEmpr.MaxLength = 10
- Me.columnCodIF.AllowDBNull = false
- 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.columnPlazoFact.MaxLength = 1
- Me.columnFechaDoc.AllowDBNull = false
- Me.columnTipoMerc.MaxLength = 4
- Me.columnCodPais.MaxLength = 3
- Me.columnNombreManIF.MaxLength = 100
- Me.columnCodManIF.MaxLength = 50
- Me.columnPeriodicidad.MaxLength = 1
- Me.columnTipTasa.MaxLength = 1
- Me.columnTipRenta.MaxLength = 1
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function NewINV0Row() As INV0Row
- Return CType(Me.NewRow,INV0Row)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New INV0Row(builder)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(INV0Row)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.INV0RowChangedEvent) Is Nothing) Then
- RaiseEvent INV0RowChanged(Me, New INV0RowChangeEvent(CType(e.Row,INV0Row), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.INV0RowChangingEvent) Is Nothing) Then
- RaiseEvent INV0RowChanging(Me, New INV0RowChangeEvent(CType(e.Row,INV0Row), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.INV0RowDeletedEvent) Is Nothing) Then
- RaiseEvent INV0RowDeleted(Me, New INV0RowChangeEvent(CType(e.Row,INV0Row), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.INV0RowDeletingEvent) Is Nothing) Then
- RaiseEvent INV0RowDeleting(Me, New INV0RowChangeEvent(CType(e.Row,INV0Row), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub RemoveINV0Row(ByVal row As INV0Row)
- Me.Rows.Remove(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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 InversionesDEVDataSet = New InversionesDEVDataSet()
- 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 = "INV0DataTable"
- 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
-
- '''<summary>
- '''Represents strongly named DataRow class.
- '''</summary>
- Partial Public Class INV0Row
- Inherits Global.System.Data.DataRow
-
- Private tableINV0 As INV0DataTable
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
- MyBase.New(rb)
- Me.tableINV0 = CType(Me.Table,INV0DataTable)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property DocId() As Integer
- Get
- Return CType(Me(Me.tableINV0.DocIdColumn),Integer)
- End Get
- Set
- Me(Me.tableINV0.DocIdColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodInv() As String
- Get
- Return CType(Me(Me.tableINV0.CodInvColumn),String)
- End Get
- Set
- Me(Me.tableINV0.CodInvColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property DocEst() As String
- Get
- Return CType(Me(Me.tableINV0.DocEstColumn),String)
- End Get
- Set
- Me(Me.tableINV0.DocEstColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property AutEstado() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.AutEstadoColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'AutEstado' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.AutEstadoColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Asunto() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.AsuntoColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Asunto' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.AsuntoColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodEmpr() As String
- Get
- Return CType(Me(Me.tableINV0.CodEmprColumn),String)
- End Get
- Set
- Me(Me.tableINV0.CodEmprColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodIF() As String
- Get
- Return CType(Me(Me.tableINV0.CodIFColumn),String)
- End Get
- Set
- Me(Me.tableINV0.CodIFColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodEmis() As Integer
- Get
- Try
- Return CType(Me(Me.tableINV0.CodEmisColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodEmis' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.CodEmisColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodCalRi() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.CodCalRiColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodCalRi' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.CodCalRiColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodECalRi() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.CodECalRiColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodECalRi' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.CodECalRiColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property OFon() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.OFonColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'OFon' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.OFonColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Coment() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.ComentColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Coment' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.ComentColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Just() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.JustColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Just' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.JustColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property TipoOper() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.TipoOperColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoOper' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.TipoOperColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property DocBase() As Integer
- Get
- Try
- Return CType(Me(Me.tableINV0.DocBaseColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'DocBase' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.DocBaseColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property MontoInv() As Decimal
- Get
- Try
- Return CType(Me(Me.tableINV0.MontoInvColumn),Decimal)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'MontoInv' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.MontoInvColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Precio() As Decimal
- Get
- Try
- Return CType(Me(Me.tableINV0.PrecioColumn),Decimal)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Precio' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.PrecioColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Rendimiento() As Decimal
- Get
- Try
- Return CType(Me(Me.tableINV0.RendimientoColumn),Decimal)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Rendimiento' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.RendimientoColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Plazo() As Integer
- Get
- Try
- Return CType(Me(Me.tableINV0.PlazoColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Plazo' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.PlazoColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property PlazoFact() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.PlazoFactColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'PlazoFact' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.PlazoFactColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Ingresos() As Decimal
- Get
- Try
- Return CType(Me(Me.tableINV0.IngresosColumn),Decimal)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Ingresos' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.IngresosColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property FechaDoc() As Date
- Get
- Return CType(Me(Me.tableINV0.FechaDocColumn),Date)
- End Get
- Set
- Me(Me.tableINV0.FechaDocColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property TipoMerc() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.TipoMercColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoMerc' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.TipoMercColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodPais() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.CodPaisColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodPais' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.CodPaisColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property NombreManIF() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.NombreManIFColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'NombreManIF' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.NombreManIFColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodManIF() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.CodManIFColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodManIF' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.CodManIFColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Periodicidad() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.PeriodicidadColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Periodicidad' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.PeriodicidadColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property TipTasa() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.TipTasaColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipTasa' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.TipTasaColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property TipRenta() As String
- Get
- Try
- Return CType(Me(Me.tableINV0.TipRentaColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipRenta' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.TipRentaColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property NumManInv() As Integer
- Get
- Try
- Return CType(Me(Me.tableINV0.NumManInvColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'NumManInv' de la tabla 'INV0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableINV0.NumManInvColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsAutEstadoNull() As Boolean
- Return Me.IsNull(Me.tableINV0.AutEstadoColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetAutEstadoNull()
- Me(Me.tableINV0.AutEstadoColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsAsuntoNull() As Boolean
- Return Me.IsNull(Me.tableINV0.AsuntoColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetAsuntoNull()
- Me(Me.tableINV0.AsuntoColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodEmisNull() As Boolean
- Return Me.IsNull(Me.tableINV0.CodEmisColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodEmisNull()
- Me(Me.tableINV0.CodEmisColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodCalRiNull() As Boolean
- Return Me.IsNull(Me.tableINV0.CodCalRiColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodCalRiNull()
- Me(Me.tableINV0.CodCalRiColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodECalRiNull() As Boolean
- Return Me.IsNull(Me.tableINV0.CodECalRiColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodECalRiNull()
- Me(Me.tableINV0.CodECalRiColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsOFonNull() As Boolean
- Return Me.IsNull(Me.tableINV0.OFonColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetOFonNull()
- Me(Me.tableINV0.OFonColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsComentNull() As Boolean
- Return Me.IsNull(Me.tableINV0.ComentColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetComentNull()
- Me(Me.tableINV0.ComentColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsJustNull() As Boolean
- Return Me.IsNull(Me.tableINV0.JustColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetJustNull()
- Me(Me.tableINV0.JustColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsTipoOperNull() As Boolean
- Return Me.IsNull(Me.tableINV0.TipoOperColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetTipoOperNull()
- Me(Me.tableINV0.TipoOperColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsDocBaseNull() As Boolean
- Return Me.IsNull(Me.tableINV0.DocBaseColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetDocBaseNull()
- Me(Me.tableINV0.DocBaseColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsMontoInvNull() As Boolean
- Return Me.IsNull(Me.tableINV0.MontoInvColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetMontoInvNull()
- Me(Me.tableINV0.MontoInvColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsPrecioNull() As Boolean
- Return Me.IsNull(Me.tableINV0.PrecioColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetPrecioNull()
- Me(Me.tableINV0.PrecioColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsRendimientoNull() As Boolean
- Return Me.IsNull(Me.tableINV0.RendimientoColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetRendimientoNull()
- Me(Me.tableINV0.RendimientoColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsPlazoNull() As Boolean
- Return Me.IsNull(Me.tableINV0.PlazoColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetPlazoNull()
- Me(Me.tableINV0.PlazoColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsPlazoFactNull() As Boolean
- Return Me.IsNull(Me.tableINV0.PlazoFactColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetPlazoFactNull()
- Me(Me.tableINV0.PlazoFactColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsIngresosNull() As Boolean
- Return Me.IsNull(Me.tableINV0.IngresosColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetIngresosNull()
- Me(Me.tableINV0.IngresosColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsTipoMercNull() As Boolean
- Return Me.IsNull(Me.tableINV0.TipoMercColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetTipoMercNull()
- Me(Me.tableINV0.TipoMercColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodPaisNull() As Boolean
- Return Me.IsNull(Me.tableINV0.CodPaisColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodPaisNull()
- Me(Me.tableINV0.CodPaisColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsNombreManIFNull() As Boolean
- Return Me.IsNull(Me.tableINV0.NombreManIFColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetNombreManIFNull()
- Me(Me.tableINV0.NombreManIFColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodManIFNull() As Boolean
- Return Me.IsNull(Me.tableINV0.CodManIFColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodManIFNull()
- Me(Me.tableINV0.CodManIFColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsPeriodicidadNull() As Boolean
- Return Me.IsNull(Me.tableINV0.PeriodicidadColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetPeriodicidadNull()
- Me(Me.tableINV0.PeriodicidadColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsTipTasaNull() As Boolean
- Return Me.IsNull(Me.tableINV0.TipTasaColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetTipTasaNull()
- Me(Me.tableINV0.TipTasaColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsTipRentaNull() As Boolean
- Return Me.IsNull(Me.tableINV0.TipRentaColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetTipRentaNull()
- Me(Me.tableINV0.TipRentaColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsNumManInvNull() As Boolean
- Return Me.IsNull(Me.tableINV0.NumManInvColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetNumManInvNull()
- Me(Me.tableINV0.NumManInvColumn) = Global.System.Convert.DBNull
- End Sub
- End Class
-
- '''<summary>
- '''Row event argument class
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Class INV0RowChangeEvent
- Inherits Global.System.EventArgs
-
- Private eventRow As INV0Row
-
- Private eventAction As Global.System.Data.DataRowAction
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New(ByVal row As INV0Row, ByVal action As Global.System.Data.DataRowAction)
- MyBase.New
- Me.eventRow = row
- Me.eventAction = action
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property Row() As INV0Row
- Get
- Return Me.eventRow
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property Action() As Global.System.Data.DataRowAction
- Get
- Return Me.eventAction
- End Get
- End Property
- End Class
- End Class
- Namespace InversionesDEVDataSetTableAdapters
-
- '''<summary>
- '''Represents the connection and commands used to retrieve and save data.
- '''</summary>
- <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.ComponentModel.DataObjectAttribute(true), _
- Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
- ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Partial Public Class INV0TableAdapter
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.ClearBeforeFill = true
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property ClearBeforeFill() As Boolean
- Get
- Return Me._clearBeforeFill
- End Get
- Set
- Me._clearBeforeFill = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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 = "INV0"
- tableMapping.ColumnMappings.Add("DocId", "DocId")
- tableMapping.ColumnMappings.Add("CodInv", "CodInv")
- tableMapping.ColumnMappings.Add("DocEst", "DocEst")
- tableMapping.ColumnMappings.Add("AutEstado", "AutEstado")
- 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("TipoMerc", "TipoMerc")
- tableMapping.ColumnMappings.Add("CodPais", "CodPais")
- tableMapping.ColumnMappings.Add("NombreManIF", "NombreManIF")
- tableMapping.ColumnMappings.Add("CodManIF", "CodManIF")
- tableMapping.ColumnMappings.Add("Periodicidad", "Periodicidad")
- tableMapping.ColumnMappings.Add("TipTasa", "TipTasa")
- tableMapping.ColumnMappings.Add("TipRenta", "TipRenta")
- tableMapping.ColumnMappings.Add("NumManInv", "NumManInv")
- 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].[INV0] WHERE (([DocId] = @Original_DocId) AND ([CodInv] = @Orig"& _
- "inal_CodInv) AND ([DocEst] = @Original_DocEst) AND ((@IsNull_AutEstado = 1 AND ["& _
- "AutEstado] IS NULL) OR ([AutEstado] = @Original_AutEstado)) AND ((@IsNull_Asunto"& _
- " = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_Asunto)) AND ([CodEmpr] = @O"& _
- "riginal_CodEmpr) AND ([CodIF] = @Original_CodIF) AND ((@IsNull_CodEmis = 1 AND ["& _
- "CodEmis] IS NULL) OR ([CodEmis] = @Original_CodEmis)) AND ((@IsNull_CodCalRi = 1"& _
- " AND [CodCalRi] IS NULL) OR ([CodCalRi] = @Original_CodCalRi)) AND ((@IsNull_Cod"& _
- "ECalRi = 1 AND [CodECalRi] IS NULL) OR ([CodECalRi] = @Original_CodECalRi)) AND "& _
- "((@IsNull_OFon = 1 AND [OFon] IS NULL) OR ([OFon] = @Original_OFon)) AND ((@IsNu"& _
- "ll_Coment = 1 AND [Coment] IS NULL) OR ([Coment] = @Original_Coment)) AND ((@IsN"& _
- "ull_Just = 1 AND [Just] IS NULL) OR ([Just] = @Original_Just)) AND ((@IsNull_Tip"& _
- "oOper = 1 AND [TipoOper] IS NULL) OR ([TipoOper] = @Original_TipoOper)) AND ((@I"& _
- "sNull_DocBase = 1 AND [DocBase] IS NULL) OR ([DocBase] = @Original_DocBase)) AND"& _
- " ((@IsNull_MontoInv = 1 AND [MontoInv] IS NULL) OR ([MontoInv] = @Original_Monto"& _
- "Inv)) AND ((@IsNull_Precio = 1 AND [Precio] IS NULL) OR ([Precio] = @Original_Pr"& _
- "ecio)) AND ((@IsNull_Rendimiento = 1 AND [Rendimiento] IS NULL) OR ([Rendimiento"& _
- "] = @Original_Rendimiento)) AND ((@IsNull_Plazo = 1 AND [Plazo] IS NULL) OR ([Pl"& _
- "azo] = @Original_Plazo)) AND ((@IsNull_PlazoFact = 1 AND [PlazoFact] IS NULL) OR"& _
- " ([PlazoFact] = @Original_PlazoFact)) AND ((@IsNull_Ingresos = 1 AND [Ingresos] "& _
- "IS NULL) OR ([Ingresos] = @Original_Ingresos)) AND ([FechaDoc] = @Original_Fecha"& _
- "Doc) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL) OR ([TipoMerc] = @Origin"& _
- "al_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] IS NULL) OR ([CodPais] = @"& _
- "Original_CodPais)) AND ((@IsNull_NombreManIF = 1 AND [NombreManIF] IS NULL) OR ("& _
- "[NombreManIF] = @Original_NombreManIF)) AND ((@IsNull_CodManIF = 1 AND [CodManIF"& _
- "] IS NULL) OR ([CodManIF] = @Original_CodManIF)) AND ((@IsNull_Periodicidad = 1 "& _
- "AND [Periodicidad] IS NULL) OR ([Periodicidad] = @Original_Periodicidad)) AND (("& _
- "@IsNull_TipTasa = 1 AND [TipTasa] IS NULL) OR ([TipTasa] = @Original_TipTasa)) A"& _
- "ND ((@IsNull_TipRenta = 1 AND [TipRenta] IS NULL) OR ([TipRenta] = @Original_Tip"& _
- "Renta)) AND ((@IsNull_NumManInv = 1 AND [NumManInv] IS NULL) OR ([NumManInv] = @"& _
- "Original_NumManInv)))"
- 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("@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("@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_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_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("@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("@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.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "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("@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_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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NombreManIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NombreManIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManIF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodManIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodManIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodManIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodManIF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Periodicidad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Periodicidad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipTasa", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipTasa", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipTasa", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipTasa", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipRenta", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipRenta", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipRenta", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NumManInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumManInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NumManInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumManInv", 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].[INV0] ([CodInv], [DocEst], [AutEstado], [Asunto], [CodEmpr], ["& _
- "CodIF], [CodEmis], [CodCalRi], [CodECalRi], [OFon], [Coment], [Just], [TipoOper]"& _
- ", [DocBase], [MontoInv], [Precio], [Rendimiento], [Plazo], [PlazoFact], [Ingreso"& _
- "s], [FechaDoc], [TipoMerc], [CodPais], [NombreManIF], [CodManIF], [Periodicidad]"& _
- ", [TipTasa], [TipRenta], [NumManInv]) VALUES (@CodInv, @DocEst, @AutEstado, @Asu"& _
- "nto, @CodEmpr, @CodIF, @CodEmis, @CodCalRi, @CodECalRi, @OFon, @Coment, @Just, @"& _
- "TipoOper, @DocBase, @MontoInv, @Precio, @Rendimiento, @Plazo, @PlazoFact, @Ingre"& _
- "sos, @FechaDoc, @TipoMerc, @CodPais, @NombreManIF, @CodManIF, @Periodicidad, @Ti"& _
- "pTasa, @TipRenta, @NumManInv);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, DocEst, AutEstado, Asunto,"& _
- " CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, Doc"& _
- "Base, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, TipoM"& _
- "erc, CodPais, NombreManIF, CodManIF, Periodicidad, TipTasa, TipRenta, NumManInv "& _
- "FROM INV0 WHERE (CodInv = @CodInv) AND (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("@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("@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.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "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("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NombreManIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManIF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodManIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodManIF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Periodicidad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipTasa", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipTasa", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipRenta", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NumManInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumManInv", 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].[INV0] SET [CodInv] = @CodInv, [DocEst] = @DocEst, [AutEstado] = @Au"& _
- "tEstado, [Asunto] = @Asunto, [CodEmpr] = @CodEmpr, [CodIF] = @CodIF, [CodEmis] ="& _
- " @CodEmis, [CodCalRi] = @CodCalRi, [CodECalRi] = @CodECalRi, [OFon] = @OFon, [Co"& _
- "ment] = @Coment, [Just] = @Just, [TipoOper] = @TipoOper, [DocBase] = @DocBase, ["& _
- "MontoInv] = @MontoInv, [Precio] = @Precio, [Rendimiento] = @Rendimiento, [Plazo]"& _
- " = @Plazo, [PlazoFact] = @PlazoFact, [Ingresos] = @Ingresos, [FechaDoc] = @Fecha"& _
- "Doc, [TipoMerc] = @TipoMerc, [CodPais] = @CodPais, [NombreManIF] = @NombreManIF,"& _
- " [CodManIF] = @CodManIF, [Periodicidad] = @Periodicidad, [TipTasa] = @TipTasa, ["& _
- "TipRenta] = @TipRenta, [NumManInv] = @NumManInv WHERE (([DocId] = @Original_DocI"& _
- "d) AND ([CodInv] = @Original_CodInv) AND ([DocEst] = @Original_DocEst) AND ((@Is"& _
- "Null_AutEstado = 1 AND [AutEstado] IS NULL) OR ([AutEstado] = @Original_AutEstad"& _
- "o)) AND ((@IsNull_Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_Asun"& _
- "to)) AND ([CodEmpr] = @Original_CodEmpr) AND ([CodIF] = @Original_CodIF) AND ((@"& _
- "IsNull_CodEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis] = @Original_CodEmis)) AN"& _
- "D ((@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL) OR ([CodCalRi] = @Original_CodC"& _
- "alRi)) AND ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS NULL) OR ([CodECalRi] = @O"& _
- "riginal_CodECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] IS NULL) OR ([OFon] = @Ori"& _
- "ginal_OFon)) AND ((@IsNull_Coment = 1 AND [Coment] IS NULL) OR ([Coment] = @Orig"& _
- "inal_Coment)) AND ((@IsNull_Just = 1 AND [Just] IS NULL) OR ([Just] = @Original_"& _
- "Just)) AND ((@IsNull_TipoOper = 1 AND [TipoOper] IS NULL) OR ([TipoOper] = @Orig"& _
- "inal_TipoOper)) AND ((@IsNull_DocBase = 1 AND [DocBase] IS NULL) OR ([DocBase] ="& _
- " @Original_DocBase)) AND ((@IsNull_MontoInv = 1 AND [MontoInv] IS NULL) OR ([Mon"& _
- "toInv] = @Original_MontoInv)) AND ((@IsNull_Precio = 1 AND [Precio] IS NULL) OR "& _
- "([Precio] = @Original_Precio)) AND ((@IsNull_Rendimiento = 1 AND [Rendimiento] I"& _
- "S NULL) OR ([Rendimiento] = @Original_Rendimiento)) AND ((@IsNull_Plazo = 1 AND "& _
- "[Plazo] IS NULL) OR ([Plazo] = @Original_Plazo)) AND ((@IsNull_PlazoFact = 1 AND"& _
- " [PlazoFact] IS NULL) OR ([PlazoFact] = @Original_PlazoFact)) AND ((@IsNull_Ingr"& _
- "esos = 1 AND [Ingresos] IS NULL) OR ([Ingresos] = @Original_Ingresos)) AND ([Fec"& _
- "haDoc] = @Original_FechaDoc) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL) "& _
- "OR ([TipoMerc] = @Original_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] IS"& _
- " NULL) OR ([CodPais] = @Original_CodPais)) AND ((@IsNull_NombreManIF = 1 AND [No"& _
- "mbreManIF] IS NULL) OR ([NombreManIF] = @Original_NombreManIF)) AND ((@IsNull_Co"& _
- "dManIF = 1 AND [CodManIF] IS NULL) OR ([CodManIF] = @Original_CodManIF)) AND ((@"& _
- "IsNull_Periodicidad = 1 AND [Periodicidad] IS NULL) OR ([Periodicidad] = @Origin"& _
- "al_Periodicidad)) AND ((@IsNull_TipTasa = 1 AND [TipTasa] IS NULL) OR ([TipTasa]"& _
- " = @Original_TipTasa)) AND ((@IsNull_TipRenta = 1 AND [TipRenta] IS NULL) OR ([T"& _
- "ipRenta] = @Original_TipRenta)) AND ((@IsNull_NumManInv = 1 AND [NumManInv] IS N"& _
- "ULL) OR ([NumManInv] = @Original_NumManInv)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, DocEst, Au"& _
- "tEstado, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Jus"& _
- "t, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos,"& _
- " FechaDoc, TipoMerc, CodPais, NombreManIF, CodManIF, Periodicidad, TipTasa, TipR"& _
- "enta, NumManInv FROM INV0 WHERE (CodInv = @CodInv) AND (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("@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("@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.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "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("@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("@NombreManIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManIF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodManIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodManIF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Periodicidad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipTasa", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipTasa", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipRenta", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NumManInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumManInv", 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("@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("@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_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_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("@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("@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.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "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("@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_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("@IsNull_NombreManIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NombreManIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManIF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodManIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodManIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodManIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodManIF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Periodicidad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Periodicidad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipTasa", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipTasa", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipTasa", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipTasa", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipRenta", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipRenta", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipRenta", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NumManInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumManInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NumManInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumManInv", 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitConnection()
- Me._connection = New Global.System.Data.SqlClient.SqlConnection()
- Me._connection.ConnectionString = Global.Inversiones.My.MySettings.Default.InversionesConnectionString
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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, AutEstado, Asunto, CodEmpr, CodIF, CodEmis, CodCalR"& _
- "i, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimien"& _
- "to, Plazo, PlazoFact, Ingresos, FechaDoc, TipoMerc, CodPais, NombreManIF, CodMan"& _
- "IF, Periodicidad, TipTasa, TipRenta, NumManInv FROM dbo.INV0"
- Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
- Public Overloads Overridable Function Fill(ByVal dataTable As InversionesDEVDataSet.INV0DataTable) 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
- Public Overloads Overridable Function GetData() As InversionesDEVDataSet.INV0DataTable
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- Dim dataTable As InversionesDEVDataSet.INV0DataTable = New InversionesDEVDataSet.INV0DataTable()
- Me.Adapter.Fill(dataTable)
- Return dataTable
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataTable As InversionesDEVDataSet.INV0DataTable) As Integer
- Return Me.Adapter.Update(dataTable)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataSet As InversionesDEVDataSet) As Integer
- Return Me.Adapter.Update(dataSet, "INV0")
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(dataRows)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
- Public Overloads Overridable Function Delete( _
- ByVal Original_DocId As Integer, _
- ByVal Original_CodInv As String, _
- ByVal Original_DocEst As String, _
- ByVal Original_AutEstado 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 Global.System.Nullable(Of Decimal), _
- 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 Date, _
- ByVal Original_TipoMerc As String, _
- ByVal Original_CodPais As String, _
- ByVal Original_NombreManIF As String, _
- ByVal Original_CodManIF As String, _
- ByVal Original_Periodicidad As String, _
- ByVal Original_TipTasa As String, _
- ByVal Original_TipRenta As String, _
- ByVal Original_NumManInv As Global.System.Nullable(Of Integer)) As Integer
- Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DocId,Integer)
- If (Original_CodInv Is Nothing) Then
- Throw New Global.System.ArgumentNullException("Original_CodInv")
- Else
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CodInv,String)
- End If
- If (Original_DocEst Is Nothing) Then
- Throw New Global.System.ArgumentNullException("Original_DocEst")
- Else
- Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DocEst,String)
- End If
- If (Original_AutEstado 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_AutEstado,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
- Throw New Global.System.ArgumentNullException("Original_CodEmpr")
- Else
- Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CodEmpr,String)
- End If
- If (Original_CodIF Is Nothing) Then
- Throw New Global.System.ArgumentNullException("Original_CodIF")
- Else
- Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CodIF,String)
- End If
- If (Original_CodEmis.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CodEmis.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
- End If
- If (Original_CodCalRi Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CodCalRi,String)
- End If
- If (Original_CodECalRi 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_CodECalRi,String)
- End If
- If (Original_OFon 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_OFon,String)
- End If
- If (Original_Coment 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_Coment,String)
- End If
- If (Original_Just 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_Just,String)
- End If
- If (Original_TipoOper 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_TipoOper,String)
- End If
- If (Original_DocBase.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_DocBase.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value
- End If
- If (Original_MontoInv.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_MontoInv.Value,Decimal)
- Else
- Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value
- End If
- If (Original_Precio.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_Precio.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_Rendimiento.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_Rendimiento.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_Plazo.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_Plazo.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
- End If
- If (Original_PlazoFact Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_PlazoFact,String)
- End If
- If (Original_Ingresos.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_Ingresos.Value,Decimal)
- Else
- Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value
- End If
- Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_FechaDoc,Date)
- If (Original_TipoMerc Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_TipoMerc,String)
- End If
- If (Original_CodPais Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_CodPais,String)
- End If
- If (Original_NombreManIF Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_NombreManIF,String)
- End If
- If (Original_CodManIF Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_CodManIF,String)
- End If
- If (Original_Periodicidad Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_Periodicidad,String)
- End If
- If (Original_TipTasa Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_TipTasa,String)
- End If
- If (Original_TipRenta Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_TipRenta,String)
- End If
- If (Original_NumManInv.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_NumManInv.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- Public Overloads Overridable Function Insert( _
- ByVal CodInv As String, _
- ByVal DocEst As String, _
- ByVal AutEstado 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 Global.System.Nullable(Of Decimal), _
- ByVal Plazo As Global.System.Nullable(Of Integer), _
- ByVal PlazoFact As String, _
- ByVal Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal FechaDoc As Date, _
- ByVal TipoMerc As String, _
- ByVal CodPais As String, _
- ByVal NombreManIF As String, _
- ByVal CodManIF As String, _
- ByVal Periodicidad As String, _
- ByVal TipTasa As String, _
- ByVal TipRenta As String, _
- ByVal NumManInv As Global.System.Nullable(Of Integer)) As Integer
- If (CodInv Is Nothing) Then
- Throw New Global.System.ArgumentNullException("CodInv")
- Else
- Me.Adapter.InsertCommand.Parameters(0).Value = CType(CodInv,String)
- End If
- If (DocEst Is Nothing) Then
- Throw New Global.System.ArgumentNullException("DocEst")
- Else
- Me.Adapter.InsertCommand.Parameters(1).Value = CType(DocEst,String)
- End If
- If (AutEstado Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(2).Value = CType(AutEstado,String)
- End If
- If (Asunto Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(3).Value = CType(Asunto,String)
- End If
- If (CodEmpr Is Nothing) Then
- Throw New Global.System.ArgumentNullException("CodEmpr")
- Else
- Me.Adapter.InsertCommand.Parameters(4).Value = CType(CodEmpr,String)
- End If
- If (CodIF Is Nothing) Then
- Throw New Global.System.ArgumentNullException("CodIF")
- Else
- Me.Adapter.InsertCommand.Parameters(5).Value = CType(CodIF,String)
- End If
- If (CodEmis.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
- End If
- If (CodCalRi Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(7).Value = CType(CodCalRi,String)
- End If
- If (CodECalRi Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(8).Value = CType(CodECalRi,String)
- End If
- If (OFon Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(9).Value = CType(OFon,String)
- End If
- If (Coment Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(10).Value = CType(Coment,String)
- End If
- If (Just Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(11).Value = CType(Just,String)
- End If
- If (TipoOper Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(12).Value = CType(TipoOper,String)
- End If
- If (DocBase.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
- End If
- If (MontoInv.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
- Else
- Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
- End If
- If (Precio.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
- Else
- Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
- End If
- If (Rendimiento.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(16).Value = CType(Rendimiento.Value,Decimal)
- Else
- Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value
- End If
- If (Plazo.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value
- End If
- If (PlazoFact Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(18).Value = CType(PlazoFact,String)
- End If
- If (Ingresos.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
- Else
- Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value
- End If
- Me.Adapter.InsertCommand.Parameters(20).Value = CType(FechaDoc,Date)
- 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
- If (NombreManIF Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(23).Value = CType(NombreManIF,String)
- End If
- If (CodManIF Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(24).Value = CType(CodManIF,String)
- End If
- If (Periodicidad Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(25).Value = CType(Periodicidad,String)
- End If
- If (TipTasa Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(26).Value = CType(TipTasa,String)
- End If
- If (TipRenta Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(27).Value = CType(TipRenta,String)
- End If
- If (NumManInv.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(28).Value = CType(NumManInv.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update( _
- ByVal CodInv As String, _
- ByVal DocEst As String, _
- ByVal AutEstado 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 Global.System.Nullable(Of Decimal), _
- ByVal Plazo As Global.System.Nullable(Of Integer), _
- ByVal PlazoFact As String, _
- ByVal Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal FechaDoc As Date, _
- ByVal TipoMerc As String, _
- ByVal CodPais As String, _
- ByVal NombreManIF As String, _
- ByVal CodManIF As String, _
- ByVal Periodicidad As String, _
- ByVal TipTasa As String, _
- ByVal TipRenta As String, _
- ByVal NumManInv As Global.System.Nullable(Of Integer), _
- ByVal Original_DocId As Integer, _
- ByVal Original_CodInv As String, _
- ByVal Original_DocEst As String, _
- ByVal Original_AutEstado 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 Global.System.Nullable(Of Decimal), _
- 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 Date, _
- ByVal Original_TipoMerc As String, _
- ByVal Original_CodPais As String, _
- ByVal Original_NombreManIF As String, _
- ByVal Original_CodManIF As String, _
- ByVal Original_Periodicidad As String, _
- ByVal Original_TipTasa As String, _
- ByVal Original_TipRenta As String, _
- ByVal Original_NumManInv As Global.System.Nullable(Of Integer), _
- ByVal DocId As Integer) As Integer
- If (CodInv Is Nothing) Then
- Throw New Global.System.ArgumentNullException("CodInv")
- Else
- Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CodInv,String)
- End If
- If (DocEst Is Nothing) Then
- Throw New Global.System.ArgumentNullException("DocEst")
- Else
- Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DocEst,String)
- End If
- If (AutEstado Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AutEstado,String)
- End If
- If (Asunto Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Asunto,String)
- End If
- If (CodEmpr Is Nothing) Then
- Throw New Global.System.ArgumentNullException("CodEmpr")
- Else
- Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CodEmpr,String)
- End If
- If (CodIF Is Nothing) Then
- Throw New Global.System.ArgumentNullException("CodIF")
- Else
- Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CodIF,String)
- End If
- If (CodEmis.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
- End If
- If (CodCalRi Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CodCalRi,String)
- End If
- If (CodECalRi Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CodECalRi,String)
- End If
- If (OFon Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(9).Value = CType(OFon,String)
- End If
- If (Coment Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Coment,String)
- End If
- If (Just Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Just,String)
- End If
- If (TipoOper Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TipoOper,String)
- End If
- If (DocBase.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
- End If
- If (MontoInv.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
- End If
- If (Precio.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
- End If
- If (Rendimiento.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Rendimiento.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
- End If
- If (Plazo.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
- End If
- If (PlazoFact Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PlazoFact,String)
- End If
- If (Ingresos.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
- End If
- Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FechaDoc,Date)
- 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
- If (NombreManIF Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(23).Value = CType(NombreManIF,String)
- End If
- If (CodManIF Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(24).Value = CType(CodManIF,String)
- End If
- If (Periodicidad Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Periodicidad,String)
- End If
- If (TipTasa Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(26).Value = CType(TipTasa,String)
- End If
- If (TipRenta Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(27).Value = CType(TipRenta,String)
- End If
- If (NumManInv.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(28).Value = CType(NumManInv.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
- End If
- Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_DocId,Integer)
- If (Original_CodInv Is Nothing) Then
- Throw New Global.System.ArgumentNullException("Original_CodInv")
- Else
- Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_CodInv,String)
- End If
- If (Original_DocEst Is Nothing) Then
- Throw New Global.System.ArgumentNullException("Original_DocEst")
- Else
- Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_DocEst,String)
- End If
- If (Original_AutEstado 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_AutEstado,String)
- End If
- If (Original_Asunto Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_Asunto,String)
- End If
- If (Original_CodEmpr Is Nothing) Then
- Throw New Global.System.ArgumentNullException("Original_CodEmpr")
- Else
- Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_CodEmpr,String)
- End If
- If (Original_CodIF Is Nothing) Then
- Throw New Global.System.ArgumentNullException("Original_CodIF")
- Else
- Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_CodIF,String)
- End If
- If (Original_CodEmis.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_CodEmis.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value
- End If
- If (Original_CodCalRi 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_CodCalRi,String)
- End If
- If (Original_CodECalRi 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_CodECalRi,String)
- End If
- If (Original_OFon 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_OFon,String)
- End If
- If (Original_Coment 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_Coment,String)
- End If
- If (Original_Just Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_Just,String)
- End If
- If (Original_TipoOper Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_TipoOper,String)
- End If
- If (Original_DocBase.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_DocBase.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value
- End If
- If (Original_MontoInv.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_MontoInv.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value
- End If
- If (Original_Precio.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_Precio.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value
- End If
- If (Original_Rendimiento.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_Rendimiento.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value
- End If
- If (Original_Plazo.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_Plazo.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value
- End If
- If (Original_PlazoFact Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_PlazoFact,String)
- End If
- If (Original_Ingresos.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_Ingresos.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value
- End If
- Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_FechaDoc,Date)
- If (Original_TipoMerc Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_TipoMerc,String)
- End If
- If (Original_CodPais Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_CodPais,String)
- End If
- If (Original_NombreManIF Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_NombreManIF,String)
- End If
- If (Original_CodManIF Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_CodManIF,String)
- End If
- If (Original_Periodicidad Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_Periodicidad,String)
- End If
- If (Original_TipTasa Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_TipTasa,String)
- End If
- If (Original_TipRenta Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_TipRenta,String)
- End If
- If (Original_NumManInv.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_NumManInv.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value
- End If
- Me.Adapter.UpdateCommand.Parameters(83).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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update( _
- ByVal DocEst As String, _
- ByVal AutEstado 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 Global.System.Nullable(Of Decimal), _
- ByVal Plazo As Global.System.Nullable(Of Integer), _
- ByVal PlazoFact As String, _
- ByVal Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal FechaDoc As Date, _
- ByVal TipoMerc As String, _
- ByVal CodPais As String, _
- ByVal NombreManIF As String, _
- ByVal CodManIF As String, _
- ByVal Periodicidad As String, _
- ByVal TipTasa As String, _
- ByVal TipRenta As String, _
- ByVal NumManInv As Global.System.Nullable(Of Integer), _
- ByVal Original_DocId As Integer, _
- ByVal Original_CodInv As String, _
- ByVal Original_DocEst As String, _
- ByVal Original_AutEstado 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 Global.System.Nullable(Of Decimal), _
- 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 Date, _
- ByVal Original_TipoMerc As String, _
- ByVal Original_CodPais As String, _
- ByVal Original_NombreManIF As String, _
- ByVal Original_CodManIF As String, _
- ByVal Original_Periodicidad As String, _
- ByVal Original_TipTasa As String, _
- ByVal Original_TipRenta As String, _
- ByVal Original_NumManInv As Global.System.Nullable(Of Integer)) As Integer
- Return Me.Update(Original_CodInv, DocEst, AutEstado, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, TipoMerc, CodPais, NombreManIF, CodManIF, Periodicidad, TipTasa, TipRenta, NumManInv, Original_DocId, Original_CodInv, Original_DocEst, Original_AutEstado, 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_TipoMerc, Original_CodPais, Original_NombreManIF, Original_CodManIF, Original_Periodicidad, Original_TipTasa, Original_TipRenta, Original_NumManInv, Original_DocId)
- End Function
- End Class
-
- '''<summary>
- '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
- '''</summary>
- <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
- "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
- Partial Public Class TableAdapterManager
- Inherits Global.System.ComponentModel.Component
-
- Private _updateOrder As UpdateOrderOption
-
- Private _iNV0TableAdapter As INV0TableAdapter
-
- Private _backupDataSetBeforeUpdate As Boolean
-
- Private _connection As Global.System.Data.IDbConnection
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property UpdateOrder() As UpdateOrderOption
- Get
- Return Me._updateOrder
- End Get
- Set
- Me._updateOrder = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
- "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
- "a", "System.Drawing.Design.UITypeEditor")> _
- Public Property INV0TableAdapter() As INV0TableAdapter
- Get
- Return Me._iNV0TableAdapter
- End Get
- Set
- Me._iNV0TableAdapter = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property BackupDataSetBeforeUpdate() As Boolean
- Get
- Return Me._backupDataSetBeforeUpdate
- End Get
- Set
- Me._backupDataSetBeforeUpdate = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public Property Connection() As Global.System.Data.IDbConnection
- Get
- If (Not (Me._connection) Is Nothing) Then
- Return Me._connection
- End If
- If ((Not (Me._iNV0TableAdapter) Is Nothing) _
- AndAlso (Not (Me._iNV0TableAdapter.Connection) Is Nothing)) Then
- Return Me._iNV0TableAdapter.Connection
- End If
- Return Nothing
- End Get
- Set
- Me._connection = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property TableAdapterInstanceCount() As Integer
- Get
- Dim count As Integer = 0
- If (Not (Me._iNV0TableAdapter) Is Nothing) Then
- count = (count + 1)
- End If
- Return count
- End Get
- End Property
-
- '''<summary>
- '''Update rows in top-down order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function UpdateUpdatedRows(ByVal dataSet As InversionesDEVDataSet, 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._iNV0TableAdapter) Is Nothing) Then
- Dim updatedRows() As Global.System.Data.DataRow = dataSet.INV0.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._iNV0TableAdapter.Update(updatedRows))
- allChangedRows.AddRange(updatedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Insert rows in top-down order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function UpdateInsertedRows(ByVal dataSet As InversionesDEVDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
- Dim result As Integer = 0
- If (Not (Me._iNV0TableAdapter) Is Nothing) Then
- Dim addedRows() As Global.System.Data.DataRow = dataSet.INV0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
- If ((Not (addedRows) Is Nothing) _
- AndAlso (0 < addedRows.Length)) Then
- result = (result + Me._iNV0TableAdapter.Update(addedRows))
- allAddedRows.AddRange(addedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Delete rows in bottom-up order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function UpdateDeletedRows(ByVal dataSet As InversionesDEVDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
- Dim result As Integer = 0
- If (Not (Me._iNV0TableAdapter) Is Nothing) Then
- Dim deletedRows() As Global.System.Data.DataRow = dataSet.INV0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
- If ((Not (deletedRows) Is Nothing) _
- AndAlso (0 < deletedRows.Length)) Then
- result = (result + Me._iNV0TableAdapter.Update(deletedRows))
- allChangedRows.AddRange(deletedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- '''<summary>
- '''Update all changes to the dataset.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overridable Function UpdateAll(ByVal dataSet As InversionesDEVDataSet) 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._iNV0TableAdapter) Is Nothing) _
- AndAlso (Me.MatchTableAdapterConnection(Me._iNV0TableAdapter.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._iNV0TableAdapter) Is Nothing) Then
- revertConnections.Add(Me._iNV0TableAdapter, Me._iNV0TableAdapter.Connection)
- Me._iNV0TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
- Me._iNV0TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
- If Me._iNV0TableAdapter.Adapter.AcceptChangesDuringUpdate Then
- Me._iNV0TableAdapter.Adapter.AcceptChangesDuringUpdate = false
- adaptersWithAcceptChangesDuringUpdate.Add(Me._iNV0TableAdapter.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._iNV0TableAdapter) Is Nothing) Then
- Me._iNV0TableAdapter.Connection = CType(revertConnections(Me._iNV0TableAdapter),Global.System.Data.SqlClient.SqlConnection)
- Me._iNV0TableAdapter.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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- '''<summary>
- '''Update Order Option
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Enum UpdateOrderOption
-
- InsertUpdateDelete = 0
-
- UpdateInsertDelete = 1
- End Enum
-
- '''<summary>
- '''Used to sort self-referenced table's rows
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- 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
|