InversionesDEVDataSet.Designer.vb 233 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577
  1. '------------------------------------------------------------------------------
  2. ' <auto-generated>
  3. ' Este código fue generado por una herramienta.
  4. ' Versión de runtime:4.0.30319.42000
  5. '
  6. ' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
  7. ' se vuelve a generar el código.
  8. ' </auto-generated>
  9. '------------------------------------------------------------------------------
  10. Option Strict Off
  11. Option Explicit On
  12. '''<summary>
  13. '''Represents a strongly typed in-memory cache of data.
  14. '''</summary>
  15. <Global.System.Serializable(), _
  16. Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  17. Global.System.ComponentModel.ToolboxItem(true), _
  18. Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
  19. Global.System.Xml.Serialization.XmlRootAttribute("InversionesDEVDataSet"), _
  20. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
  21. Partial Public Class InversionesDEVDataSet
  22. Inherits Global.System.Data.DataSet
  23. Private tableINV0 As INV0DataTable
  24. Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
  25. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  26. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  27. Public Sub New()
  28. MyBase.New
  29. Me.BeginInit
  30. Me.InitClass
  31. Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  32. AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
  33. AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
  34. Me.EndInit
  35. End Sub
  36. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  37. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  38. Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  39. MyBase.New(info, context, false)
  40. If (Me.IsBinarySerialized(info, context) = true) Then
  41. Me.InitVars(false)
  42. Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  43. AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
  44. AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
  45. Return
  46. End If
  47. Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
  48. If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
  49. Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
  50. ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
  51. If (Not (ds.Tables("INV0")) Is Nothing) Then
  52. MyBase.Tables.Add(New INV0DataTable(ds.Tables("INV0")))
  53. End If
  54. Me.DataSetName = ds.DataSetName
  55. Me.Prefix = ds.Prefix
  56. Me.Namespace = ds.Namespace
  57. Me.Locale = ds.Locale
  58. Me.CaseSensitive = ds.CaseSensitive
  59. Me.EnforceConstraints = ds.EnforceConstraints
  60. Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
  61. Me.InitVars
  62. Else
  63. Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
  64. End If
  65. Me.GetSerializationData(info, context)
  66. Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  67. AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
  68. AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
  69. End Sub
  70. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  71. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  72. Global.System.ComponentModel.Browsable(false), _
  73. Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
  74. Public ReadOnly Property INV0() As INV0DataTable
  75. Get
  76. Return Me.tableINV0
  77. End Get
  78. End Property
  79. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  80. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  81. Global.System.ComponentModel.BrowsableAttribute(true), _
  82. Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
  83. Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
  84. Get
  85. Return Me._schemaSerializationMode
  86. End Get
  87. Set
  88. Me._schemaSerializationMode = value
  89. End Set
  90. End Property
  91. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  92. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  93. Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
  94. Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
  95. Get
  96. Return MyBase.Tables
  97. End Get
  98. End Property
  99. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  100. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  101. Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
  102. Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
  103. Get
  104. Return MyBase.Relations
  105. End Get
  106. End Property
  107. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  108. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  109. Protected Overrides Sub InitializeDerivedDataSet()
  110. Me.BeginInit
  111. Me.InitClass
  112. Me.EndInit
  113. End Sub
  114. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  115. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  116. Public Overrides Function Clone() As Global.System.Data.DataSet
  117. Dim cln As InversionesDEVDataSet = CType(MyBase.Clone,InversionesDEVDataSet)
  118. cln.InitVars
  119. cln.SchemaSerializationMode = Me.SchemaSerializationMode
  120. Return cln
  121. End Function
  122. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  123. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  124. Protected Overrides Function ShouldSerializeTables() As Boolean
  125. Return false
  126. End Function
  127. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  128. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  129. Protected Overrides Function ShouldSerializeRelations() As Boolean
  130. Return false
  131. End Function
  132. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  133. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  134. Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
  135. If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
  136. Me.Reset
  137. Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
  138. ds.ReadXml(reader)
  139. If (Not (ds.Tables("INV0")) Is Nothing) Then
  140. MyBase.Tables.Add(New INV0DataTable(ds.Tables("INV0")))
  141. End If
  142. Me.DataSetName = ds.DataSetName
  143. Me.Prefix = ds.Prefix
  144. Me.Namespace = ds.Namespace
  145. Me.Locale = ds.Locale
  146. Me.CaseSensitive = ds.CaseSensitive
  147. Me.EnforceConstraints = ds.EnforceConstraints
  148. Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
  149. Me.InitVars
  150. Else
  151. Me.ReadXml(reader)
  152. Me.InitVars
  153. End If
  154. End Sub
  155. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  156. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  157. Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
  158. Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  159. Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
  160. stream.Position = 0
  161. Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
  162. End Function
  163. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  164. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  165. Friend Overloads Sub InitVars()
  166. Me.InitVars(true)
  167. End Sub
  168. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  169. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  170. Friend Overloads Sub InitVars(ByVal initTable As Boolean)
  171. Me.tableINV0 = CType(MyBase.Tables("INV0"),INV0DataTable)
  172. If (initTable = true) Then
  173. If (Not (Me.tableINV0) Is Nothing) Then
  174. Me.tableINV0.InitVars
  175. End If
  176. End If
  177. End Sub
  178. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  179. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  180. Private Sub InitClass()
  181. Me.DataSetName = "InversionesDEVDataSet"
  182. Me.Prefix = ""
  183. Me.Namespace = "http://tempuri.org/InversionesDEVDataSet.xsd"
  184. Me.EnforceConstraints = true
  185. Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
  186. Me.tableINV0 = New INV0DataTable()
  187. MyBase.Tables.Add(Me.tableINV0)
  188. End Sub
  189. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  190. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  191. Private Function ShouldSerializeINV0() As Boolean
  192. Return false
  193. End Function
  194. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  195. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  196. Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
  197. If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
  198. Me.InitVars
  199. End If
  200. End Sub
  201. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  202. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  203. Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
  204. Dim ds As InversionesDEVDataSet = New InversionesDEVDataSet()
  205. Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
  206. Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
  207. Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  208. any.Namespace = ds.Namespace
  209. sequence.Items.Add(any)
  210. type.Particle = sequence
  211. Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
  212. If xs.Contains(dsSchema.TargetNamespace) Then
  213. Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  214. Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  215. Try
  216. Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
  217. dsSchema.Write(s1)
  218. Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
  219. Do While schemas.MoveNext
  220. schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
  221. s2.SetLength(0)
  222. schema.Write(s2)
  223. If (s1.Length = s2.Length) Then
  224. s1.Position = 0
  225. s2.Position = 0
  226. Do While ((s1.Position <> s1.Length) _
  227. AndAlso (s1.ReadByte = s2.ReadByte))
  228. Loop
  229. If (s1.Position = s1.Length) Then
  230. Return type
  231. End If
  232. End If
  233. Loop
  234. Finally
  235. If (Not (s1) Is Nothing) Then
  236. s1.Close
  237. End If
  238. If (Not (s2) Is Nothing) Then
  239. s2.Close
  240. End If
  241. End Try
  242. End If
  243. xs.Add(dsSchema)
  244. Return type
  245. End Function
  246. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  247. Public Delegate Sub INV0RowChangeEventHandler(ByVal sender As Object, ByVal e As INV0RowChangeEvent)
  248. '''<summary>
  249. '''Represents the strongly named DataTable class.
  250. '''</summary>
  251. <Global.System.Serializable(), _
  252. Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
  253. Partial Public Class INV0DataTable
  254. Inherits Global.System.Data.TypedTableBase(Of INV0Row)
  255. Private columnDocId As Global.System.Data.DataColumn
  256. Private columnCodInv As Global.System.Data.DataColumn
  257. Private columnDocEst As Global.System.Data.DataColumn
  258. Private columnAutEstado As Global.System.Data.DataColumn
  259. Private columnAsunto As Global.System.Data.DataColumn
  260. Private columnCodEmpr As Global.System.Data.DataColumn
  261. Private columnCodIF As Global.System.Data.DataColumn
  262. Private columnCodEmis As Global.System.Data.DataColumn
  263. Private columnCodCalRi As Global.System.Data.DataColumn
  264. Private columnCodECalRi As Global.System.Data.DataColumn
  265. Private columnOFon As Global.System.Data.DataColumn
  266. Private columnComent As Global.System.Data.DataColumn
  267. Private columnJust As Global.System.Data.DataColumn
  268. Private columnTipoOper As Global.System.Data.DataColumn
  269. Private columnDocBase As Global.System.Data.DataColumn
  270. Private columnMontoInv As Global.System.Data.DataColumn
  271. Private columnPrecio As Global.System.Data.DataColumn
  272. Private columnRendimiento As Global.System.Data.DataColumn
  273. Private columnPlazo As Global.System.Data.DataColumn
  274. Private columnPlazoFact As Global.System.Data.DataColumn
  275. Private columnIngresos As Global.System.Data.DataColumn
  276. Private columnFechaDoc As Global.System.Data.DataColumn
  277. Private columnTipoMerc As Global.System.Data.DataColumn
  278. Private columnCodPais As Global.System.Data.DataColumn
  279. Private columnNombreManIF As Global.System.Data.DataColumn
  280. Private columnCodManIF As Global.System.Data.DataColumn
  281. Private columnPeriodicidad As Global.System.Data.DataColumn
  282. Private columnTipTasa As Global.System.Data.DataColumn
  283. Private columnTipRenta As Global.System.Data.DataColumn
  284. Private columnNumManInv As Global.System.Data.DataColumn
  285. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  286. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  287. Public Sub New()
  288. MyBase.New
  289. Me.TableName = "INV0"
  290. Me.BeginInit
  291. Me.InitClass
  292. Me.EndInit
  293. End Sub
  294. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  295. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  296. Friend Sub New(ByVal table As Global.System.Data.DataTable)
  297. MyBase.New
  298. Me.TableName = table.TableName
  299. If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
  300. Me.CaseSensitive = table.CaseSensitive
  301. End If
  302. If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
  303. Me.Locale = table.Locale
  304. End If
  305. If (table.Namespace <> table.DataSet.Namespace) Then
  306. Me.Namespace = table.Namespace
  307. End If
  308. Me.Prefix = table.Prefix
  309. Me.MinimumCapacity = table.MinimumCapacity
  310. End Sub
  311. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  312. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  313. Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  314. MyBase.New(info, context)
  315. Me.InitVars
  316. End Sub
  317. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  318. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  319. Public ReadOnly Property DocIdColumn() As Global.System.Data.DataColumn
  320. Get
  321. Return Me.columnDocId
  322. End Get
  323. End Property
  324. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  325. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  326. Public ReadOnly Property CodInvColumn() As Global.System.Data.DataColumn
  327. Get
  328. Return Me.columnCodInv
  329. End Get
  330. End Property
  331. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  332. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  333. Public ReadOnly Property DocEstColumn() As Global.System.Data.DataColumn
  334. Get
  335. Return Me.columnDocEst
  336. End Get
  337. End Property
  338. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  339. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  340. Public ReadOnly Property AutEstadoColumn() As Global.System.Data.DataColumn
  341. Get
  342. Return Me.columnAutEstado
  343. End Get
  344. End Property
  345. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  346. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  347. Public ReadOnly Property AsuntoColumn() As Global.System.Data.DataColumn
  348. Get
  349. Return Me.columnAsunto
  350. End Get
  351. End Property
  352. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  353. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  354. Public ReadOnly Property CodEmprColumn() As Global.System.Data.DataColumn
  355. Get
  356. Return Me.columnCodEmpr
  357. End Get
  358. End Property
  359. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  360. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  361. Public ReadOnly Property CodIFColumn() As Global.System.Data.DataColumn
  362. Get
  363. Return Me.columnCodIF
  364. End Get
  365. End Property
  366. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  367. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  368. Public ReadOnly Property CodEmisColumn() As Global.System.Data.DataColumn
  369. Get
  370. Return Me.columnCodEmis
  371. End Get
  372. End Property
  373. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  374. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  375. Public ReadOnly Property CodCalRiColumn() As Global.System.Data.DataColumn
  376. Get
  377. Return Me.columnCodCalRi
  378. End Get
  379. End Property
  380. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  381. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  382. Public ReadOnly Property CodECalRiColumn() As Global.System.Data.DataColumn
  383. Get
  384. Return Me.columnCodECalRi
  385. End Get
  386. End Property
  387. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  388. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  389. Public ReadOnly Property OFonColumn() As Global.System.Data.DataColumn
  390. Get
  391. Return Me.columnOFon
  392. End Get
  393. End Property
  394. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  395. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  396. Public ReadOnly Property ComentColumn() As Global.System.Data.DataColumn
  397. Get
  398. Return Me.columnComent
  399. End Get
  400. End Property
  401. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  402. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  403. Public ReadOnly Property JustColumn() As Global.System.Data.DataColumn
  404. Get
  405. Return Me.columnJust
  406. End Get
  407. End Property
  408. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  409. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  410. Public ReadOnly Property TipoOperColumn() As Global.System.Data.DataColumn
  411. Get
  412. Return Me.columnTipoOper
  413. End Get
  414. End Property
  415. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  416. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  417. Public ReadOnly Property DocBaseColumn() As Global.System.Data.DataColumn
  418. Get
  419. Return Me.columnDocBase
  420. End Get
  421. End Property
  422. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  423. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  424. Public ReadOnly Property MontoInvColumn() As Global.System.Data.DataColumn
  425. Get
  426. Return Me.columnMontoInv
  427. End Get
  428. End Property
  429. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  430. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  431. Public ReadOnly Property PrecioColumn() As Global.System.Data.DataColumn
  432. Get
  433. Return Me.columnPrecio
  434. End Get
  435. End Property
  436. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  437. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  438. Public ReadOnly Property RendimientoColumn() As Global.System.Data.DataColumn
  439. Get
  440. Return Me.columnRendimiento
  441. End Get
  442. End Property
  443. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  444. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  445. Public ReadOnly Property PlazoColumn() As Global.System.Data.DataColumn
  446. Get
  447. Return Me.columnPlazo
  448. End Get
  449. End Property
  450. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  451. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  452. Public ReadOnly Property PlazoFactColumn() As Global.System.Data.DataColumn
  453. Get
  454. Return Me.columnPlazoFact
  455. End Get
  456. End Property
  457. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  458. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  459. Public ReadOnly Property IngresosColumn() As Global.System.Data.DataColumn
  460. Get
  461. Return Me.columnIngresos
  462. End Get
  463. End Property
  464. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  465. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  466. Public ReadOnly Property FechaDocColumn() As Global.System.Data.DataColumn
  467. Get
  468. Return Me.columnFechaDoc
  469. End Get
  470. End Property
  471. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  472. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  473. Public ReadOnly Property TipoMercColumn() As Global.System.Data.DataColumn
  474. Get
  475. Return Me.columnTipoMerc
  476. End Get
  477. End Property
  478. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  479. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  480. Public ReadOnly Property CodPaisColumn() As Global.System.Data.DataColumn
  481. Get
  482. Return Me.columnCodPais
  483. End Get
  484. End Property
  485. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  486. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  487. Public ReadOnly Property NombreManIFColumn() As Global.System.Data.DataColumn
  488. Get
  489. Return Me.columnNombreManIF
  490. End Get
  491. End Property
  492. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  493. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  494. Public ReadOnly Property CodManIFColumn() As Global.System.Data.DataColumn
  495. Get
  496. Return Me.columnCodManIF
  497. End Get
  498. End Property
  499. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  500. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  501. Public ReadOnly Property PeriodicidadColumn() As Global.System.Data.DataColumn
  502. Get
  503. Return Me.columnPeriodicidad
  504. End Get
  505. End Property
  506. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  507. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  508. Public ReadOnly Property TipTasaColumn() As Global.System.Data.DataColumn
  509. Get
  510. Return Me.columnTipTasa
  511. End Get
  512. End Property
  513. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  514. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  515. Public ReadOnly Property TipRentaColumn() As Global.System.Data.DataColumn
  516. Get
  517. Return Me.columnTipRenta
  518. End Get
  519. End Property
  520. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  521. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  522. Public ReadOnly Property NumManInvColumn() As Global.System.Data.DataColumn
  523. Get
  524. Return Me.columnNumManInv
  525. End Get
  526. End Property
  527. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  528. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  529. Global.System.ComponentModel.Browsable(false)> _
  530. Public ReadOnly Property Count() As Integer
  531. Get
  532. Return Me.Rows.Count
  533. End Get
  534. End Property
  535. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  536. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  537. Public Default ReadOnly Property Item(ByVal index As Integer) As INV0Row
  538. Get
  539. Return CType(Me.Rows(index),INV0Row)
  540. End Get
  541. End Property
  542. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  543. Public Event INV0RowChanging As INV0RowChangeEventHandler
  544. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  545. Public Event INV0RowChanged As INV0RowChangeEventHandler
  546. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  547. Public Event INV0RowDeleting As INV0RowChangeEventHandler
  548. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  549. Public Event INV0RowDeleted As INV0RowChangeEventHandler
  550. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  551. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  552. Public Overloads Sub AddINV0Row(ByVal row As INV0Row)
  553. Me.Rows.Add(row)
  554. End Sub
  555. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  556. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  557. Public Overloads Function AddINV0Row( _
  558. ByVal CodInv As String, _
  559. ByVal DocEst As String, _
  560. ByVal AutEstado As String, _
  561. ByVal Asunto As String, _
  562. ByVal CodEmpr As String, _
  563. ByVal CodIF As String, _
  564. ByVal CodEmis As Integer, _
  565. ByVal CodCalRi As String, _
  566. ByVal CodECalRi As String, _
  567. ByVal OFon As String, _
  568. ByVal Coment As String, _
  569. ByVal Just As String, _
  570. ByVal TipoOper As String, _
  571. ByVal DocBase As Integer, _
  572. ByVal MontoInv As Decimal, _
  573. ByVal Precio As Decimal, _
  574. ByVal Rendimiento As Decimal, _
  575. ByVal Plazo As Integer, _
  576. ByVal PlazoFact As String, _
  577. ByVal Ingresos As Decimal, _
  578. ByVal FechaDoc As Date, _
  579. ByVal TipoMerc As String, _
  580. ByVal CodPais As String, _
  581. ByVal NombreManIF As String, _
  582. ByVal CodManIF As String, _
  583. ByVal Periodicidad As String, _
  584. ByVal TipTasa As String, _
  585. ByVal TipRenta As String, _
  586. ByVal NumManInv As Integer) As INV0Row
  587. Dim rowINV0Row As INV0Row = CType(Me.NewRow,INV0Row)
  588. 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}
  589. rowINV0Row.ItemArray = columnValuesArray
  590. Me.Rows.Add(rowINV0Row)
  591. Return rowINV0Row
  592. End Function
  593. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  594. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  595. Public Function FindByDocIdCodInv(ByVal DocId As Integer, ByVal CodInv As String) As INV0Row
  596. Return CType(Me.Rows.Find(New Object() {DocId, CodInv}),INV0Row)
  597. End Function
  598. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  599. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  600. Public Overrides Function Clone() As Global.System.Data.DataTable
  601. Dim cln As INV0DataTable = CType(MyBase.Clone,INV0DataTable)
  602. cln.InitVars
  603. Return cln
  604. End Function
  605. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  606. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  607. Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
  608. Return New INV0DataTable()
  609. End Function
  610. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  611. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  612. Friend Sub InitVars()
  613. Me.columnDocId = MyBase.Columns("DocId")
  614. Me.columnCodInv = MyBase.Columns("CodInv")
  615. Me.columnDocEst = MyBase.Columns("DocEst")
  616. Me.columnAutEstado = MyBase.Columns("AutEstado")
  617. Me.columnAsunto = MyBase.Columns("Asunto")
  618. Me.columnCodEmpr = MyBase.Columns("CodEmpr")
  619. Me.columnCodIF = MyBase.Columns("CodIF")
  620. Me.columnCodEmis = MyBase.Columns("CodEmis")
  621. Me.columnCodCalRi = MyBase.Columns("CodCalRi")
  622. Me.columnCodECalRi = MyBase.Columns("CodECalRi")
  623. Me.columnOFon = MyBase.Columns("OFon")
  624. Me.columnComent = MyBase.Columns("Coment")
  625. Me.columnJust = MyBase.Columns("Just")
  626. Me.columnTipoOper = MyBase.Columns("TipoOper")
  627. Me.columnDocBase = MyBase.Columns("DocBase")
  628. Me.columnMontoInv = MyBase.Columns("MontoInv")
  629. Me.columnPrecio = MyBase.Columns("Precio")
  630. Me.columnRendimiento = MyBase.Columns("Rendimiento")
  631. Me.columnPlazo = MyBase.Columns("Plazo")
  632. Me.columnPlazoFact = MyBase.Columns("PlazoFact")
  633. Me.columnIngresos = MyBase.Columns("Ingresos")
  634. Me.columnFechaDoc = MyBase.Columns("FechaDoc")
  635. Me.columnTipoMerc = MyBase.Columns("TipoMerc")
  636. Me.columnCodPais = MyBase.Columns("CodPais")
  637. Me.columnNombreManIF = MyBase.Columns("NombreManIF")
  638. Me.columnCodManIF = MyBase.Columns("CodManIF")
  639. Me.columnPeriodicidad = MyBase.Columns("Periodicidad")
  640. Me.columnTipTasa = MyBase.Columns("TipTasa")
  641. Me.columnTipRenta = MyBase.Columns("TipRenta")
  642. Me.columnNumManInv = MyBase.Columns("NumManInv")
  643. End Sub
  644. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  645. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  646. Private Sub InitClass()
  647. Me.columnDocId = New Global.System.Data.DataColumn("DocId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  648. MyBase.Columns.Add(Me.columnDocId)
  649. Me.columnCodInv = New Global.System.Data.DataColumn("CodInv", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  650. MyBase.Columns.Add(Me.columnCodInv)
  651. Me.columnDocEst = New Global.System.Data.DataColumn("DocEst", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  652. MyBase.Columns.Add(Me.columnDocEst)
  653. Me.columnAutEstado = New Global.System.Data.DataColumn("AutEstado", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  654. MyBase.Columns.Add(Me.columnAutEstado)
  655. Me.columnAsunto = New Global.System.Data.DataColumn("Asunto", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  656. MyBase.Columns.Add(Me.columnAsunto)
  657. Me.columnCodEmpr = New Global.System.Data.DataColumn("CodEmpr", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  658. MyBase.Columns.Add(Me.columnCodEmpr)
  659. Me.columnCodIF = New Global.System.Data.DataColumn("CodIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  660. MyBase.Columns.Add(Me.columnCodIF)
  661. Me.columnCodEmis = New Global.System.Data.DataColumn("CodEmis", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  662. MyBase.Columns.Add(Me.columnCodEmis)
  663. Me.columnCodCalRi = New Global.System.Data.DataColumn("CodCalRi", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  664. MyBase.Columns.Add(Me.columnCodCalRi)
  665. Me.columnCodECalRi = New Global.System.Data.DataColumn("CodECalRi", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  666. MyBase.Columns.Add(Me.columnCodECalRi)
  667. Me.columnOFon = New Global.System.Data.DataColumn("OFon", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  668. MyBase.Columns.Add(Me.columnOFon)
  669. Me.columnComent = New Global.System.Data.DataColumn("Coment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  670. MyBase.Columns.Add(Me.columnComent)
  671. Me.columnJust = New Global.System.Data.DataColumn("Just", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  672. MyBase.Columns.Add(Me.columnJust)
  673. Me.columnTipoOper = New Global.System.Data.DataColumn("TipoOper", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  674. MyBase.Columns.Add(Me.columnTipoOper)
  675. Me.columnDocBase = New Global.System.Data.DataColumn("DocBase", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  676. MyBase.Columns.Add(Me.columnDocBase)
  677. Me.columnMontoInv = New Global.System.Data.DataColumn("MontoInv", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
  678. MyBase.Columns.Add(Me.columnMontoInv)
  679. Me.columnPrecio = New Global.System.Data.DataColumn("Precio", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
  680. MyBase.Columns.Add(Me.columnPrecio)
  681. Me.columnRendimiento = New Global.System.Data.DataColumn("Rendimiento", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
  682. MyBase.Columns.Add(Me.columnRendimiento)
  683. Me.columnPlazo = New Global.System.Data.DataColumn("Plazo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  684. MyBase.Columns.Add(Me.columnPlazo)
  685. Me.columnPlazoFact = New Global.System.Data.DataColumn("PlazoFact", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  686. MyBase.Columns.Add(Me.columnPlazoFact)
  687. Me.columnIngresos = New Global.System.Data.DataColumn("Ingresos", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
  688. MyBase.Columns.Add(Me.columnIngresos)
  689. Me.columnFechaDoc = New Global.System.Data.DataColumn("FechaDoc", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
  690. MyBase.Columns.Add(Me.columnFechaDoc)
  691. Me.columnTipoMerc = New Global.System.Data.DataColumn("TipoMerc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  692. MyBase.Columns.Add(Me.columnTipoMerc)
  693. Me.columnCodPais = New Global.System.Data.DataColumn("CodPais", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  694. MyBase.Columns.Add(Me.columnCodPais)
  695. Me.columnNombreManIF = New Global.System.Data.DataColumn("NombreManIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  696. MyBase.Columns.Add(Me.columnNombreManIF)
  697. Me.columnCodManIF = New Global.System.Data.DataColumn("CodManIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  698. MyBase.Columns.Add(Me.columnCodManIF)
  699. Me.columnPeriodicidad = New Global.System.Data.DataColumn("Periodicidad", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  700. MyBase.Columns.Add(Me.columnPeriodicidad)
  701. Me.columnTipTasa = New Global.System.Data.DataColumn("TipTasa", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  702. MyBase.Columns.Add(Me.columnTipTasa)
  703. Me.columnTipRenta = New Global.System.Data.DataColumn("TipRenta", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  704. MyBase.Columns.Add(Me.columnTipRenta)
  705. Me.columnNumManInv = New Global.System.Data.DataColumn("NumManInv", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  706. MyBase.Columns.Add(Me.columnNumManInv)
  707. Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDocId, Me.columnCodInv}, true))
  708. Me.columnDocId.AutoIncrement = true
  709. Me.columnDocId.AutoIncrementSeed = -1
  710. Me.columnDocId.AutoIncrementStep = -1
  711. Me.columnDocId.AllowDBNull = false
  712. Me.columnDocId.ReadOnly = true
  713. Me.columnCodInv.AllowDBNull = false
  714. Me.columnCodInv.MaxLength = 20
  715. Me.columnDocEst.AllowDBNull = false
  716. Me.columnDocEst.MaxLength = 1
  717. Me.columnAutEstado.MaxLength = 1
  718. Me.columnAsunto.MaxLength = 100
  719. Me.columnCodEmpr.AllowDBNull = false
  720. Me.columnCodEmpr.MaxLength = 10
  721. Me.columnCodIF.AllowDBNull = false
  722. Me.columnCodIF.MaxLength = 10
  723. Me.columnCodCalRi.MaxLength = 8
  724. Me.columnCodECalRi.MaxLength = 8
  725. Me.columnOFon.MaxLength = 10
  726. Me.columnComent.MaxLength = 100
  727. Me.columnJust.MaxLength = 100
  728. Me.columnTipoOper.MaxLength = 1
  729. Me.columnPlazoFact.MaxLength = 1
  730. Me.columnFechaDoc.AllowDBNull = false
  731. Me.columnTipoMerc.MaxLength = 4
  732. Me.columnCodPais.MaxLength = 3
  733. Me.columnNombreManIF.MaxLength = 100
  734. Me.columnCodManIF.MaxLength = 50
  735. Me.columnPeriodicidad.MaxLength = 1
  736. Me.columnTipTasa.MaxLength = 1
  737. Me.columnTipRenta.MaxLength = 1
  738. End Sub
  739. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  740. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  741. Public Function NewINV0Row() As INV0Row
  742. Return CType(Me.NewRow,INV0Row)
  743. End Function
  744. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  745. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  746. Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
  747. Return New INV0Row(builder)
  748. End Function
  749. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  750. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  751. Protected Overrides Function GetRowType() As Global.System.Type
  752. Return GetType(INV0Row)
  753. End Function
  754. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  755. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  756. Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  757. MyBase.OnRowChanged(e)
  758. If (Not (Me.INV0RowChangedEvent) Is Nothing) Then
  759. RaiseEvent INV0RowChanged(Me, New INV0RowChangeEvent(CType(e.Row,INV0Row), e.Action))
  760. End If
  761. End Sub
  762. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  763. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  764. Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  765. MyBase.OnRowChanging(e)
  766. If (Not (Me.INV0RowChangingEvent) Is Nothing) Then
  767. RaiseEvent INV0RowChanging(Me, New INV0RowChangeEvent(CType(e.Row,INV0Row), e.Action))
  768. End If
  769. End Sub
  770. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  771. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  772. Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  773. MyBase.OnRowDeleted(e)
  774. If (Not (Me.INV0RowDeletedEvent) Is Nothing) Then
  775. RaiseEvent INV0RowDeleted(Me, New INV0RowChangeEvent(CType(e.Row,INV0Row), e.Action))
  776. End If
  777. End Sub
  778. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  779. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  780. Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  781. MyBase.OnRowDeleting(e)
  782. If (Not (Me.INV0RowDeletingEvent) Is Nothing) Then
  783. RaiseEvent INV0RowDeleting(Me, New INV0RowChangeEvent(CType(e.Row,INV0Row), e.Action))
  784. End If
  785. End Sub
  786. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  787. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  788. Public Sub RemoveINV0Row(ByVal row As INV0Row)
  789. Me.Rows.Remove(row)
  790. End Sub
  791. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  792. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  793. Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
  794. Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
  795. Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
  796. Dim ds As InversionesDEVDataSet = New InversionesDEVDataSet()
  797. Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  798. any1.Namespace = "http://www.w3.org/2001/XMLSchema"
  799. any1.MinOccurs = New Decimal(0)
  800. any1.MaxOccurs = Decimal.MaxValue
  801. any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  802. sequence.Items.Add(any1)
  803. Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  804. any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
  805. any2.MinOccurs = New Decimal(1)
  806. any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  807. sequence.Items.Add(any2)
  808. Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  809. attribute1.Name = "namespace"
  810. attribute1.FixedValue = ds.Namespace
  811. type.Attributes.Add(attribute1)
  812. Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  813. attribute2.Name = "tableTypeName"
  814. attribute2.FixedValue = "INV0DataTable"
  815. type.Attributes.Add(attribute2)
  816. type.Particle = sequence
  817. Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
  818. If xs.Contains(dsSchema.TargetNamespace) Then
  819. Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  820. Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  821. Try
  822. Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
  823. dsSchema.Write(s1)
  824. Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
  825. Do While schemas.MoveNext
  826. schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
  827. s2.SetLength(0)
  828. schema.Write(s2)
  829. If (s1.Length = s2.Length) Then
  830. s1.Position = 0
  831. s2.Position = 0
  832. Do While ((s1.Position <> s1.Length) _
  833. AndAlso (s1.ReadByte = s2.ReadByte))
  834. Loop
  835. If (s1.Position = s1.Length) Then
  836. Return type
  837. End If
  838. End If
  839. Loop
  840. Finally
  841. If (Not (s1) Is Nothing) Then
  842. s1.Close
  843. End If
  844. If (Not (s2) Is Nothing) Then
  845. s2.Close
  846. End If
  847. End Try
  848. End If
  849. xs.Add(dsSchema)
  850. Return type
  851. End Function
  852. End Class
  853. '''<summary>
  854. '''Represents strongly named DataRow class.
  855. '''</summary>
  856. Partial Public Class INV0Row
  857. Inherits Global.System.Data.DataRow
  858. Private tableINV0 As INV0DataTable
  859. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  860. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  861. Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
  862. MyBase.New(rb)
  863. Me.tableINV0 = CType(Me.Table,INV0DataTable)
  864. End Sub
  865. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  866. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  867. Public Property DocId() As Integer
  868. Get
  869. Return CType(Me(Me.tableINV0.DocIdColumn),Integer)
  870. End Get
  871. Set
  872. Me(Me.tableINV0.DocIdColumn) = value
  873. End Set
  874. End Property
  875. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  876. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  877. Public Property CodInv() As String
  878. Get
  879. Return CType(Me(Me.tableINV0.CodInvColumn),String)
  880. End Get
  881. Set
  882. Me(Me.tableINV0.CodInvColumn) = value
  883. End Set
  884. End Property
  885. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  886. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  887. Public Property DocEst() As String
  888. Get
  889. Return CType(Me(Me.tableINV0.DocEstColumn),String)
  890. End Get
  891. Set
  892. Me(Me.tableINV0.DocEstColumn) = value
  893. End Set
  894. End Property
  895. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  896. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  897. Public Property AutEstado() As String
  898. Get
  899. Try
  900. Return CType(Me(Me.tableINV0.AutEstadoColumn),String)
  901. Catch e As Global.System.InvalidCastException
  902. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'AutEstado' de la tabla 'INV0' es DBNull.", e)
  903. End Try
  904. End Get
  905. Set
  906. Me(Me.tableINV0.AutEstadoColumn) = value
  907. End Set
  908. End Property
  909. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  910. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  911. Public Property Asunto() As String
  912. Get
  913. Try
  914. Return CType(Me(Me.tableINV0.AsuntoColumn),String)
  915. Catch e As Global.System.InvalidCastException
  916. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Asunto' de la tabla 'INV0' es DBNull.", e)
  917. End Try
  918. End Get
  919. Set
  920. Me(Me.tableINV0.AsuntoColumn) = value
  921. End Set
  922. End Property
  923. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  924. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  925. Public Property CodEmpr() As String
  926. Get
  927. Return CType(Me(Me.tableINV0.CodEmprColumn),String)
  928. End Get
  929. Set
  930. Me(Me.tableINV0.CodEmprColumn) = value
  931. End Set
  932. End Property
  933. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  934. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  935. Public Property CodIF() As String
  936. Get
  937. Return CType(Me(Me.tableINV0.CodIFColumn),String)
  938. End Get
  939. Set
  940. Me(Me.tableINV0.CodIFColumn) = value
  941. End Set
  942. End Property
  943. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  944. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  945. Public Property CodEmis() As Integer
  946. Get
  947. Try
  948. Return CType(Me(Me.tableINV0.CodEmisColumn),Integer)
  949. Catch e As Global.System.InvalidCastException
  950. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodEmis' de la tabla 'INV0' es DBNull.", e)
  951. End Try
  952. End Get
  953. Set
  954. Me(Me.tableINV0.CodEmisColumn) = value
  955. End Set
  956. End Property
  957. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  958. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  959. Public Property CodCalRi() As String
  960. Get
  961. Try
  962. Return CType(Me(Me.tableINV0.CodCalRiColumn),String)
  963. Catch e As Global.System.InvalidCastException
  964. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodCalRi' de la tabla 'INV0' es DBNull.", e)
  965. End Try
  966. End Get
  967. Set
  968. Me(Me.tableINV0.CodCalRiColumn) = value
  969. End Set
  970. End Property
  971. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  972. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  973. Public Property CodECalRi() As String
  974. Get
  975. Try
  976. Return CType(Me(Me.tableINV0.CodECalRiColumn),String)
  977. Catch e As Global.System.InvalidCastException
  978. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodECalRi' de la tabla 'INV0' es DBNull.", e)
  979. End Try
  980. End Get
  981. Set
  982. Me(Me.tableINV0.CodECalRiColumn) = value
  983. End Set
  984. End Property
  985. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  986. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  987. Public Property OFon() As String
  988. Get
  989. Try
  990. Return CType(Me(Me.tableINV0.OFonColumn),String)
  991. Catch e As Global.System.InvalidCastException
  992. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'OFon' de la tabla 'INV0' es DBNull.", e)
  993. End Try
  994. End Get
  995. Set
  996. Me(Me.tableINV0.OFonColumn) = value
  997. End Set
  998. End Property
  999. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1000. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1001. Public Property Coment() As String
  1002. Get
  1003. Try
  1004. Return CType(Me(Me.tableINV0.ComentColumn),String)
  1005. Catch e As Global.System.InvalidCastException
  1006. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Coment' de la tabla 'INV0' es DBNull.", e)
  1007. End Try
  1008. End Get
  1009. Set
  1010. Me(Me.tableINV0.ComentColumn) = value
  1011. End Set
  1012. End Property
  1013. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1014. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1015. Public Property Just() As String
  1016. Get
  1017. Try
  1018. Return CType(Me(Me.tableINV0.JustColumn),String)
  1019. Catch e As Global.System.InvalidCastException
  1020. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Just' de la tabla 'INV0' es DBNull.", e)
  1021. End Try
  1022. End Get
  1023. Set
  1024. Me(Me.tableINV0.JustColumn) = value
  1025. End Set
  1026. End Property
  1027. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1028. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1029. Public Property TipoOper() As String
  1030. Get
  1031. Try
  1032. Return CType(Me(Me.tableINV0.TipoOperColumn),String)
  1033. Catch e As Global.System.InvalidCastException
  1034. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoOper' de la tabla 'INV0' es DBNull.", e)
  1035. End Try
  1036. End Get
  1037. Set
  1038. Me(Me.tableINV0.TipoOperColumn) = value
  1039. End Set
  1040. End Property
  1041. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1042. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1043. Public Property DocBase() As Integer
  1044. Get
  1045. Try
  1046. Return CType(Me(Me.tableINV0.DocBaseColumn),Integer)
  1047. Catch e As Global.System.InvalidCastException
  1048. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'DocBase' de la tabla 'INV0' es DBNull.", e)
  1049. End Try
  1050. End Get
  1051. Set
  1052. Me(Me.tableINV0.DocBaseColumn) = value
  1053. End Set
  1054. End Property
  1055. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1056. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1057. Public Property MontoInv() As Decimal
  1058. Get
  1059. Try
  1060. Return CType(Me(Me.tableINV0.MontoInvColumn),Decimal)
  1061. Catch e As Global.System.InvalidCastException
  1062. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'MontoInv' de la tabla 'INV0' es DBNull.", e)
  1063. End Try
  1064. End Get
  1065. Set
  1066. Me(Me.tableINV0.MontoInvColumn) = value
  1067. End Set
  1068. End Property
  1069. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1070. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1071. Public Property Precio() As Decimal
  1072. Get
  1073. Try
  1074. Return CType(Me(Me.tableINV0.PrecioColumn),Decimal)
  1075. Catch e As Global.System.InvalidCastException
  1076. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Precio' de la tabla 'INV0' es DBNull.", e)
  1077. End Try
  1078. End Get
  1079. Set
  1080. Me(Me.tableINV0.PrecioColumn) = value
  1081. End Set
  1082. End Property
  1083. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1084. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1085. Public Property Rendimiento() As Decimal
  1086. Get
  1087. Try
  1088. Return CType(Me(Me.tableINV0.RendimientoColumn),Decimal)
  1089. Catch e As Global.System.InvalidCastException
  1090. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Rendimiento' de la tabla 'INV0' es DBNull.", e)
  1091. End Try
  1092. End Get
  1093. Set
  1094. Me(Me.tableINV0.RendimientoColumn) = value
  1095. End Set
  1096. End Property
  1097. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1098. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1099. Public Property Plazo() As Integer
  1100. Get
  1101. Try
  1102. Return CType(Me(Me.tableINV0.PlazoColumn),Integer)
  1103. Catch e As Global.System.InvalidCastException
  1104. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Plazo' de la tabla 'INV0' es DBNull.", e)
  1105. End Try
  1106. End Get
  1107. Set
  1108. Me(Me.tableINV0.PlazoColumn) = value
  1109. End Set
  1110. End Property
  1111. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1112. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1113. Public Property PlazoFact() As String
  1114. Get
  1115. Try
  1116. Return CType(Me(Me.tableINV0.PlazoFactColumn),String)
  1117. Catch e As Global.System.InvalidCastException
  1118. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'PlazoFact' de la tabla 'INV0' es DBNull.", e)
  1119. End Try
  1120. End Get
  1121. Set
  1122. Me(Me.tableINV0.PlazoFactColumn) = value
  1123. End Set
  1124. End Property
  1125. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1126. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1127. Public Property Ingresos() As Decimal
  1128. Get
  1129. Try
  1130. Return CType(Me(Me.tableINV0.IngresosColumn),Decimal)
  1131. Catch e As Global.System.InvalidCastException
  1132. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Ingresos' de la tabla 'INV0' es DBNull.", e)
  1133. End Try
  1134. End Get
  1135. Set
  1136. Me(Me.tableINV0.IngresosColumn) = value
  1137. End Set
  1138. End Property
  1139. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1140. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1141. Public Property FechaDoc() As Date
  1142. Get
  1143. Return CType(Me(Me.tableINV0.FechaDocColumn),Date)
  1144. End Get
  1145. Set
  1146. Me(Me.tableINV0.FechaDocColumn) = value
  1147. End Set
  1148. End Property
  1149. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1150. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1151. Public Property TipoMerc() As String
  1152. Get
  1153. Try
  1154. Return CType(Me(Me.tableINV0.TipoMercColumn),String)
  1155. Catch e As Global.System.InvalidCastException
  1156. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoMerc' de la tabla 'INV0' es DBNull.", e)
  1157. End Try
  1158. End Get
  1159. Set
  1160. Me(Me.tableINV0.TipoMercColumn) = value
  1161. End Set
  1162. End Property
  1163. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1164. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1165. Public Property CodPais() As String
  1166. Get
  1167. Try
  1168. Return CType(Me(Me.tableINV0.CodPaisColumn),String)
  1169. Catch e As Global.System.InvalidCastException
  1170. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodPais' de la tabla 'INV0' es DBNull.", e)
  1171. End Try
  1172. End Get
  1173. Set
  1174. Me(Me.tableINV0.CodPaisColumn) = value
  1175. End Set
  1176. End Property
  1177. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1178. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1179. Public Property NombreManIF() As String
  1180. Get
  1181. Try
  1182. Return CType(Me(Me.tableINV0.NombreManIFColumn),String)
  1183. Catch e As Global.System.InvalidCastException
  1184. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'NombreManIF' de la tabla 'INV0' es DBNull.", e)
  1185. End Try
  1186. End Get
  1187. Set
  1188. Me(Me.tableINV0.NombreManIFColumn) = value
  1189. End Set
  1190. End Property
  1191. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1192. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1193. Public Property CodManIF() As String
  1194. Get
  1195. Try
  1196. Return CType(Me(Me.tableINV0.CodManIFColumn),String)
  1197. Catch e As Global.System.InvalidCastException
  1198. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodManIF' de la tabla 'INV0' es DBNull.", e)
  1199. End Try
  1200. End Get
  1201. Set
  1202. Me(Me.tableINV0.CodManIFColumn) = value
  1203. End Set
  1204. End Property
  1205. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1206. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1207. Public Property Periodicidad() As String
  1208. Get
  1209. Try
  1210. Return CType(Me(Me.tableINV0.PeriodicidadColumn),String)
  1211. Catch e As Global.System.InvalidCastException
  1212. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Periodicidad' de la tabla 'INV0' es DBNull.", e)
  1213. End Try
  1214. End Get
  1215. Set
  1216. Me(Me.tableINV0.PeriodicidadColumn) = value
  1217. End Set
  1218. End Property
  1219. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1220. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1221. Public Property TipTasa() As String
  1222. Get
  1223. Try
  1224. Return CType(Me(Me.tableINV0.TipTasaColumn),String)
  1225. Catch e As Global.System.InvalidCastException
  1226. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipTasa' de la tabla 'INV0' es DBNull.", e)
  1227. End Try
  1228. End Get
  1229. Set
  1230. Me(Me.tableINV0.TipTasaColumn) = value
  1231. End Set
  1232. End Property
  1233. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1234. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1235. Public Property TipRenta() As String
  1236. Get
  1237. Try
  1238. Return CType(Me(Me.tableINV0.TipRentaColumn),String)
  1239. Catch e As Global.System.InvalidCastException
  1240. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipRenta' de la tabla 'INV0' es DBNull.", e)
  1241. End Try
  1242. End Get
  1243. Set
  1244. Me(Me.tableINV0.TipRentaColumn) = value
  1245. End Set
  1246. End Property
  1247. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1248. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1249. Public Property NumManInv() As Integer
  1250. Get
  1251. Try
  1252. Return CType(Me(Me.tableINV0.NumManInvColumn),Integer)
  1253. Catch e As Global.System.InvalidCastException
  1254. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'NumManInv' de la tabla 'INV0' es DBNull.", e)
  1255. End Try
  1256. End Get
  1257. Set
  1258. Me(Me.tableINV0.NumManInvColumn) = value
  1259. End Set
  1260. End Property
  1261. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1262. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1263. Public Function IsAutEstadoNull() As Boolean
  1264. Return Me.IsNull(Me.tableINV0.AutEstadoColumn)
  1265. End Function
  1266. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1267. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1268. Public Sub SetAutEstadoNull()
  1269. Me(Me.tableINV0.AutEstadoColumn) = Global.System.Convert.DBNull
  1270. End Sub
  1271. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1272. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1273. Public Function IsAsuntoNull() As Boolean
  1274. Return Me.IsNull(Me.tableINV0.AsuntoColumn)
  1275. End Function
  1276. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1277. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1278. Public Sub SetAsuntoNull()
  1279. Me(Me.tableINV0.AsuntoColumn) = Global.System.Convert.DBNull
  1280. End Sub
  1281. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1282. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1283. Public Function IsCodEmisNull() As Boolean
  1284. Return Me.IsNull(Me.tableINV0.CodEmisColumn)
  1285. End Function
  1286. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1287. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1288. Public Sub SetCodEmisNull()
  1289. Me(Me.tableINV0.CodEmisColumn) = Global.System.Convert.DBNull
  1290. End Sub
  1291. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1292. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1293. Public Function IsCodCalRiNull() As Boolean
  1294. Return Me.IsNull(Me.tableINV0.CodCalRiColumn)
  1295. End Function
  1296. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1297. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1298. Public Sub SetCodCalRiNull()
  1299. Me(Me.tableINV0.CodCalRiColumn) = Global.System.Convert.DBNull
  1300. End Sub
  1301. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1302. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1303. Public Function IsCodECalRiNull() As Boolean
  1304. Return Me.IsNull(Me.tableINV0.CodECalRiColumn)
  1305. End Function
  1306. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1307. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1308. Public Sub SetCodECalRiNull()
  1309. Me(Me.tableINV0.CodECalRiColumn) = Global.System.Convert.DBNull
  1310. End Sub
  1311. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1312. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1313. Public Function IsOFonNull() As Boolean
  1314. Return Me.IsNull(Me.tableINV0.OFonColumn)
  1315. End Function
  1316. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1317. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1318. Public Sub SetOFonNull()
  1319. Me(Me.tableINV0.OFonColumn) = Global.System.Convert.DBNull
  1320. End Sub
  1321. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1322. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1323. Public Function IsComentNull() As Boolean
  1324. Return Me.IsNull(Me.tableINV0.ComentColumn)
  1325. End Function
  1326. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1327. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1328. Public Sub SetComentNull()
  1329. Me(Me.tableINV0.ComentColumn) = Global.System.Convert.DBNull
  1330. End Sub
  1331. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1332. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1333. Public Function IsJustNull() As Boolean
  1334. Return Me.IsNull(Me.tableINV0.JustColumn)
  1335. End Function
  1336. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1337. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1338. Public Sub SetJustNull()
  1339. Me(Me.tableINV0.JustColumn) = Global.System.Convert.DBNull
  1340. End Sub
  1341. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1342. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1343. Public Function IsTipoOperNull() As Boolean
  1344. Return Me.IsNull(Me.tableINV0.TipoOperColumn)
  1345. End Function
  1346. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1347. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1348. Public Sub SetTipoOperNull()
  1349. Me(Me.tableINV0.TipoOperColumn) = Global.System.Convert.DBNull
  1350. End Sub
  1351. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1352. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1353. Public Function IsDocBaseNull() As Boolean
  1354. Return Me.IsNull(Me.tableINV0.DocBaseColumn)
  1355. End Function
  1356. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1357. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1358. Public Sub SetDocBaseNull()
  1359. Me(Me.tableINV0.DocBaseColumn) = Global.System.Convert.DBNull
  1360. End Sub
  1361. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1362. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1363. Public Function IsMontoInvNull() As Boolean
  1364. Return Me.IsNull(Me.tableINV0.MontoInvColumn)
  1365. End Function
  1366. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1367. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1368. Public Sub SetMontoInvNull()
  1369. Me(Me.tableINV0.MontoInvColumn) = Global.System.Convert.DBNull
  1370. End Sub
  1371. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1372. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1373. Public Function IsPrecioNull() As Boolean
  1374. Return Me.IsNull(Me.tableINV0.PrecioColumn)
  1375. End Function
  1376. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1377. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1378. Public Sub SetPrecioNull()
  1379. Me(Me.tableINV0.PrecioColumn) = Global.System.Convert.DBNull
  1380. End Sub
  1381. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1382. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1383. Public Function IsRendimientoNull() As Boolean
  1384. Return Me.IsNull(Me.tableINV0.RendimientoColumn)
  1385. End Function
  1386. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1387. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1388. Public Sub SetRendimientoNull()
  1389. Me(Me.tableINV0.RendimientoColumn) = Global.System.Convert.DBNull
  1390. End Sub
  1391. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1392. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1393. Public Function IsPlazoNull() As Boolean
  1394. Return Me.IsNull(Me.tableINV0.PlazoColumn)
  1395. End Function
  1396. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1397. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1398. Public Sub SetPlazoNull()
  1399. Me(Me.tableINV0.PlazoColumn) = Global.System.Convert.DBNull
  1400. End Sub
  1401. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1402. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1403. Public Function IsPlazoFactNull() As Boolean
  1404. Return Me.IsNull(Me.tableINV0.PlazoFactColumn)
  1405. End Function
  1406. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1407. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1408. Public Sub SetPlazoFactNull()
  1409. Me(Me.tableINV0.PlazoFactColumn) = Global.System.Convert.DBNull
  1410. End Sub
  1411. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1412. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1413. Public Function IsIngresosNull() As Boolean
  1414. Return Me.IsNull(Me.tableINV0.IngresosColumn)
  1415. End Function
  1416. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1417. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1418. Public Sub SetIngresosNull()
  1419. Me(Me.tableINV0.IngresosColumn) = Global.System.Convert.DBNull
  1420. End Sub
  1421. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1422. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1423. Public Function IsTipoMercNull() As Boolean
  1424. Return Me.IsNull(Me.tableINV0.TipoMercColumn)
  1425. End Function
  1426. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1427. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1428. Public Sub SetTipoMercNull()
  1429. Me(Me.tableINV0.TipoMercColumn) = Global.System.Convert.DBNull
  1430. End Sub
  1431. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1432. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1433. Public Function IsCodPaisNull() As Boolean
  1434. Return Me.IsNull(Me.tableINV0.CodPaisColumn)
  1435. End Function
  1436. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1437. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1438. Public Sub SetCodPaisNull()
  1439. Me(Me.tableINV0.CodPaisColumn) = Global.System.Convert.DBNull
  1440. End Sub
  1441. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1442. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1443. Public Function IsNombreManIFNull() As Boolean
  1444. Return Me.IsNull(Me.tableINV0.NombreManIFColumn)
  1445. End Function
  1446. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1447. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1448. Public Sub SetNombreManIFNull()
  1449. Me(Me.tableINV0.NombreManIFColumn) = Global.System.Convert.DBNull
  1450. End Sub
  1451. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1452. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1453. Public Function IsCodManIFNull() As Boolean
  1454. Return Me.IsNull(Me.tableINV0.CodManIFColumn)
  1455. End Function
  1456. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1457. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1458. Public Sub SetCodManIFNull()
  1459. Me(Me.tableINV0.CodManIFColumn) = Global.System.Convert.DBNull
  1460. End Sub
  1461. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1462. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1463. Public Function IsPeriodicidadNull() As Boolean
  1464. Return Me.IsNull(Me.tableINV0.PeriodicidadColumn)
  1465. End Function
  1466. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1467. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1468. Public Sub SetPeriodicidadNull()
  1469. Me(Me.tableINV0.PeriodicidadColumn) = Global.System.Convert.DBNull
  1470. End Sub
  1471. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1472. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1473. Public Function IsTipTasaNull() As Boolean
  1474. Return Me.IsNull(Me.tableINV0.TipTasaColumn)
  1475. End Function
  1476. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1477. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1478. Public Sub SetTipTasaNull()
  1479. Me(Me.tableINV0.TipTasaColumn) = Global.System.Convert.DBNull
  1480. End Sub
  1481. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1482. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1483. Public Function IsTipRentaNull() As Boolean
  1484. Return Me.IsNull(Me.tableINV0.TipRentaColumn)
  1485. End Function
  1486. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1487. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1488. Public Sub SetTipRentaNull()
  1489. Me(Me.tableINV0.TipRentaColumn) = Global.System.Convert.DBNull
  1490. End Sub
  1491. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1492. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1493. Public Function IsNumManInvNull() As Boolean
  1494. Return Me.IsNull(Me.tableINV0.NumManInvColumn)
  1495. End Function
  1496. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1497. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1498. Public Sub SetNumManInvNull()
  1499. Me(Me.tableINV0.NumManInvColumn) = Global.System.Convert.DBNull
  1500. End Sub
  1501. End Class
  1502. '''<summary>
  1503. '''Row event argument class
  1504. '''</summary>
  1505. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1506. Public Class INV0RowChangeEvent
  1507. Inherits Global.System.EventArgs
  1508. Private eventRow As INV0Row
  1509. Private eventAction As Global.System.Data.DataRowAction
  1510. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1511. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1512. Public Sub New(ByVal row As INV0Row, ByVal action As Global.System.Data.DataRowAction)
  1513. MyBase.New
  1514. Me.eventRow = row
  1515. Me.eventAction = action
  1516. End Sub
  1517. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1518. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1519. Public ReadOnly Property Row() As INV0Row
  1520. Get
  1521. Return Me.eventRow
  1522. End Get
  1523. End Property
  1524. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1525. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1526. Public ReadOnly Property Action() As Global.System.Data.DataRowAction
  1527. Get
  1528. Return Me.eventAction
  1529. End Get
  1530. End Property
  1531. End Class
  1532. End Class
  1533. Namespace InversionesDEVDataSetTableAdapters
  1534. '''<summary>
  1535. '''Represents the connection and commands used to retrieve and save data.
  1536. '''</summary>
  1537. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  1538. Global.System.ComponentModel.ToolboxItem(true), _
  1539. Global.System.ComponentModel.DataObjectAttribute(true), _
  1540. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
  1541. ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  1542. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1543. Partial Public Class INV0TableAdapter
  1544. Inherits Global.System.ComponentModel.Component
  1545. Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
  1546. Private _connection As Global.System.Data.SqlClient.SqlConnection
  1547. Private _transaction As Global.System.Data.SqlClient.SqlTransaction
  1548. Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
  1549. Private _clearBeforeFill As Boolean
  1550. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1551. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1552. Public Sub New()
  1553. MyBase.New
  1554. Me.ClearBeforeFill = true
  1555. End Sub
  1556. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1557. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1558. Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
  1559. Get
  1560. If (Me._adapter Is Nothing) Then
  1561. Me.InitAdapter
  1562. End If
  1563. Return Me._adapter
  1564. End Get
  1565. End Property
  1566. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1567. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1568. Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
  1569. Get
  1570. If (Me._connection Is Nothing) Then
  1571. Me.InitConnection
  1572. End If
  1573. Return Me._connection
  1574. End Get
  1575. Set
  1576. Me._connection = value
  1577. If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
  1578. Me.Adapter.InsertCommand.Connection = value
  1579. End If
  1580. If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
  1581. Me.Adapter.DeleteCommand.Connection = value
  1582. End If
  1583. If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
  1584. Me.Adapter.UpdateCommand.Connection = value
  1585. End If
  1586. Dim i As Integer = 0
  1587. Do While (i < Me.CommandCollection.Length)
  1588. If (Not (Me.CommandCollection(i)) Is Nothing) Then
  1589. CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
  1590. End If
  1591. i = (i + 1)
  1592. Loop
  1593. End Set
  1594. End Property
  1595. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1596. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1597. Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
  1598. Get
  1599. Return Me._transaction
  1600. End Get
  1601. Set
  1602. Me._transaction = value
  1603. Dim i As Integer = 0
  1604. Do While (i < Me.CommandCollection.Length)
  1605. Me.CommandCollection(i).Transaction = Me._transaction
  1606. i = (i + 1)
  1607. Loop
  1608. If ((Not (Me.Adapter) Is Nothing) _
  1609. AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
  1610. Me.Adapter.DeleteCommand.Transaction = Me._transaction
  1611. End If
  1612. If ((Not (Me.Adapter) Is Nothing) _
  1613. AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
  1614. Me.Adapter.InsertCommand.Transaction = Me._transaction
  1615. End If
  1616. If ((Not (Me.Adapter) Is Nothing) _
  1617. AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
  1618. Me.Adapter.UpdateCommand.Transaction = Me._transaction
  1619. End If
  1620. End Set
  1621. End Property
  1622. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1623. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1624. Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
  1625. Get
  1626. If (Me._commandCollection Is Nothing) Then
  1627. Me.InitCommandCollection
  1628. End If
  1629. Return Me._commandCollection
  1630. End Get
  1631. End Property
  1632. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1633. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1634. Public Property ClearBeforeFill() As Boolean
  1635. Get
  1636. Return Me._clearBeforeFill
  1637. End Get
  1638. Set
  1639. Me._clearBeforeFill = value
  1640. End Set
  1641. End Property
  1642. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1643. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1644. Private Sub InitAdapter()
  1645. Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
  1646. Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
  1647. tableMapping.SourceTable = "Table"
  1648. tableMapping.DataSetTable = "INV0"
  1649. tableMapping.ColumnMappings.Add("DocId", "DocId")
  1650. tableMapping.ColumnMappings.Add("CodInv", "CodInv")
  1651. tableMapping.ColumnMappings.Add("DocEst", "DocEst")
  1652. tableMapping.ColumnMappings.Add("AutEstado", "AutEstado")
  1653. tableMapping.ColumnMappings.Add("Asunto", "Asunto")
  1654. tableMapping.ColumnMappings.Add("CodEmpr", "CodEmpr")
  1655. tableMapping.ColumnMappings.Add("CodIF", "CodIF")
  1656. tableMapping.ColumnMappings.Add("CodEmis", "CodEmis")
  1657. tableMapping.ColumnMappings.Add("CodCalRi", "CodCalRi")
  1658. tableMapping.ColumnMappings.Add("CodECalRi", "CodECalRi")
  1659. tableMapping.ColumnMappings.Add("OFon", "OFon")
  1660. tableMapping.ColumnMappings.Add("Coment", "Coment")
  1661. tableMapping.ColumnMappings.Add("Just", "Just")
  1662. tableMapping.ColumnMappings.Add("TipoOper", "TipoOper")
  1663. tableMapping.ColumnMappings.Add("DocBase", "DocBase")
  1664. tableMapping.ColumnMappings.Add("MontoInv", "MontoInv")
  1665. tableMapping.ColumnMappings.Add("Precio", "Precio")
  1666. tableMapping.ColumnMappings.Add("Rendimiento", "Rendimiento")
  1667. tableMapping.ColumnMappings.Add("Plazo", "Plazo")
  1668. tableMapping.ColumnMappings.Add("PlazoFact", "PlazoFact")
  1669. tableMapping.ColumnMappings.Add("Ingresos", "Ingresos")
  1670. tableMapping.ColumnMappings.Add("FechaDoc", "FechaDoc")
  1671. tableMapping.ColumnMappings.Add("TipoMerc", "TipoMerc")
  1672. tableMapping.ColumnMappings.Add("CodPais", "CodPais")
  1673. tableMapping.ColumnMappings.Add("NombreManIF", "NombreManIF")
  1674. tableMapping.ColumnMappings.Add("CodManIF", "CodManIF")
  1675. tableMapping.ColumnMappings.Add("Periodicidad", "Periodicidad")
  1676. tableMapping.ColumnMappings.Add("TipTasa", "TipTasa")
  1677. tableMapping.ColumnMappings.Add("TipRenta", "TipRenta")
  1678. tableMapping.ColumnMappings.Add("NumManInv", "NumManInv")
  1679. Me._adapter.TableMappings.Add(tableMapping)
  1680. Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
  1681. Me._adapter.DeleteCommand.Connection = Me.Connection
  1682. Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[INV0] WHERE (([DocId] = @Original_DocId) AND ([CodInv] = @Orig"& _
  1683. "inal_CodInv) AND ([DocEst] = @Original_DocEst) AND ((@IsNull_AutEstado = 1 AND ["& _
  1684. "AutEstado] IS NULL) OR ([AutEstado] = @Original_AutEstado)) AND ((@IsNull_Asunto"& _
  1685. " = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_Asunto)) AND ([CodEmpr] = @O"& _
  1686. "riginal_CodEmpr) AND ([CodIF] = @Original_CodIF) AND ((@IsNull_CodEmis = 1 AND ["& _
  1687. "CodEmis] IS NULL) OR ([CodEmis] = @Original_CodEmis)) AND ((@IsNull_CodCalRi = 1"& _
  1688. " AND [CodCalRi] IS NULL) OR ([CodCalRi] = @Original_CodCalRi)) AND ((@IsNull_Cod"& _
  1689. "ECalRi = 1 AND [CodECalRi] IS NULL) OR ([CodECalRi] = @Original_CodECalRi)) AND "& _
  1690. "((@IsNull_OFon = 1 AND [OFon] IS NULL) OR ([OFon] = @Original_OFon)) AND ((@IsNu"& _
  1691. "ll_Coment = 1 AND [Coment] IS NULL) OR ([Coment] = @Original_Coment)) AND ((@IsN"& _
  1692. "ull_Just = 1 AND [Just] IS NULL) OR ([Just] = @Original_Just)) AND ((@IsNull_Tip"& _
  1693. "oOper = 1 AND [TipoOper] IS NULL) OR ([TipoOper] = @Original_TipoOper)) AND ((@I"& _
  1694. "sNull_DocBase = 1 AND [DocBase] IS NULL) OR ([DocBase] = @Original_DocBase)) AND"& _
  1695. " ((@IsNull_MontoInv = 1 AND [MontoInv] IS NULL) OR ([MontoInv] = @Original_Monto"& _
  1696. "Inv)) AND ((@IsNull_Precio = 1 AND [Precio] IS NULL) OR ([Precio] = @Original_Pr"& _
  1697. "ecio)) AND ((@IsNull_Rendimiento = 1 AND [Rendimiento] IS NULL) OR ([Rendimiento"& _
  1698. "] = @Original_Rendimiento)) AND ((@IsNull_Plazo = 1 AND [Plazo] IS NULL) OR ([Pl"& _
  1699. "azo] = @Original_Plazo)) AND ((@IsNull_PlazoFact = 1 AND [PlazoFact] IS NULL) OR"& _
  1700. " ([PlazoFact] = @Original_PlazoFact)) AND ((@IsNull_Ingresos = 1 AND [Ingresos] "& _
  1701. "IS NULL) OR ([Ingresos] = @Original_Ingresos)) AND ([FechaDoc] = @Original_Fecha"& _
  1702. "Doc) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL) OR ([TipoMerc] = @Origin"& _
  1703. "al_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] IS NULL) OR ([CodPais] = @"& _
  1704. "Original_CodPais)) AND ((@IsNull_NombreManIF = 1 AND [NombreManIF] IS NULL) OR ("& _
  1705. "[NombreManIF] = @Original_NombreManIF)) AND ((@IsNull_CodManIF = 1 AND [CodManIF"& _
  1706. "] IS NULL) OR ([CodManIF] = @Original_CodManIF)) AND ((@IsNull_Periodicidad = 1 "& _
  1707. "AND [Periodicidad] IS NULL) OR ([Periodicidad] = @Original_Periodicidad)) AND (("& _
  1708. "@IsNull_TipTasa = 1 AND [TipTasa] IS NULL) OR ([TipTasa] = @Original_TipTasa)) A"& _
  1709. "ND ((@IsNull_TipRenta = 1 AND [TipRenta] IS NULL) OR ([TipRenta] = @Original_Tip"& _
  1710. "Renta)) AND ((@IsNull_NumManInv = 1 AND [NumManInv] IS NULL) OR ([NumManInv] = @"& _
  1711. "Original_NumManInv)))"
  1712. Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
  1713. 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, "", "", ""))
  1714. 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, "", "", ""))
  1715. 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, "", "", ""))
  1716. 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, "", "", ""))
  1717. 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, "", "", ""))
  1718. 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, "", "", ""))
  1719. 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, "", "", ""))
  1720. 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, "", "", ""))
  1721. 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, "", "", ""))
  1722. 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, "", "", ""))
  1723. 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, "", "", ""))
  1724. 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, "", "", ""))
  1725. 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, "", "", ""))
  1726. 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, "", "", ""))
  1727. 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, "", "", ""))
  1728. 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, "", "", ""))
  1729. 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, "", "", ""))
  1730. 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, "", "", ""))
  1731. 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, "", "", ""))
  1732. 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, "", "", ""))
  1733. 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, "", "", ""))
  1734. 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, "", "", ""))
  1735. 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, "", "", ""))
  1736. 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, "", "", ""))
  1737. 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, "", "", ""))
  1738. 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, "", "", ""))
  1739. 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, "", "", ""))
  1740. 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, "", "", ""))
  1741. 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, "", "", ""))
  1742. 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, "", "", ""))
  1743. 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, "", "", ""))
  1744. 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, "", "", ""))
  1745. 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, "", "", ""))
  1746. 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, "", "", ""))
  1747. 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, "", "", ""))
  1748. 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, "", "", ""))
  1749. 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, "", "", ""))
  1750. 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, "", "", ""))
  1751. 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, "", "", ""))
  1752. 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, "", "", ""))
  1753. 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, "", "", ""))
  1754. 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, "", "", ""))
  1755. 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, "", "", ""))
  1756. 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, "", "", ""))
  1757. 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, "", "", ""))
  1758. 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, "", "", ""))
  1759. 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, "", "", ""))
  1760. 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, "", "", ""))
  1761. 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, "", "", ""))
  1762. 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, "", "", ""))
  1763. 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, "", "", ""))
  1764. 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, "", "", ""))
  1765. 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, "", "", ""))
  1766. 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, "", "", ""))
  1767. Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
  1768. Me._adapter.InsertCommand.Connection = Me.Connection
  1769. Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[INV0] ([CodInv], [DocEst], [AutEstado], [Asunto], [CodEmpr], ["& _
  1770. "CodIF], [CodEmis], [CodCalRi], [CodECalRi], [OFon], [Coment], [Just], [TipoOper]"& _
  1771. ", [DocBase], [MontoInv], [Precio], [Rendimiento], [Plazo], [PlazoFact], [Ingreso"& _
  1772. "s], [FechaDoc], [TipoMerc], [CodPais], [NombreManIF], [CodManIF], [Periodicidad]"& _
  1773. ", [TipTasa], [TipRenta], [NumManInv]) VALUES (@CodInv, @DocEst, @AutEstado, @Asu"& _
  1774. "nto, @CodEmpr, @CodIF, @CodEmis, @CodCalRi, @CodECalRi, @OFon, @Coment, @Just, @"& _
  1775. "TipoOper, @DocBase, @MontoInv, @Precio, @Rendimiento, @Plazo, @PlazoFact, @Ingre"& _
  1776. "sos, @FechaDoc, @TipoMerc, @CodPais, @NombreManIF, @CodManIF, @Periodicidad, @Ti"& _
  1777. "pTasa, @TipRenta, @NumManInv);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, DocEst, AutEstado, Asunto,"& _
  1778. " CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, Doc"& _
  1779. "Base, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, TipoM"& _
  1780. "erc, CodPais, NombreManIF, CodManIF, Periodicidad, TipTasa, TipRenta, NumManInv "& _
  1781. "FROM INV0 WHERE (CodInv = @CodInv) AND (DocId = SCOPE_IDENTITY())"
  1782. Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
  1783. 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, "", "", ""))
  1784. 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, "", "", ""))
  1785. 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, "", "", ""))
  1786. 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, "", "", ""))
  1787. 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, "", "", ""))
  1788. 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, "", "", ""))
  1789. 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, "", "", ""))
  1790. 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, "", "", ""))
  1791. 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, "", "", ""))
  1792. 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, "", "", ""))
  1793. 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, "", "", ""))
  1794. 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, "", "", ""))
  1795. 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, "", "", ""))
  1796. 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, "", "", ""))
  1797. 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, "", "", ""))
  1798. 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, "", "", ""))
  1799. 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, "", "", ""))
  1800. 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, "", "", ""))
  1801. 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, "", "", ""))
  1802. 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, "", "", ""))
  1803. 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, "", "", ""))
  1804. 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, "", "", ""))
  1805. 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, "", "", ""))
  1806. 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, "", "", ""))
  1807. 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, "", "", ""))
  1808. 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, "", "", ""))
  1809. 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, "", "", ""))
  1810. 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, "", "", ""))
  1811. 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, "", "", ""))
  1812. Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
  1813. Me._adapter.UpdateCommand.Connection = Me.Connection
  1814. Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[INV0] SET [CodInv] = @CodInv, [DocEst] = @DocEst, [AutEstado] = @Au"& _
  1815. "tEstado, [Asunto] = @Asunto, [CodEmpr] = @CodEmpr, [CodIF] = @CodIF, [CodEmis] ="& _
  1816. " @CodEmis, [CodCalRi] = @CodCalRi, [CodECalRi] = @CodECalRi, [OFon] = @OFon, [Co"& _
  1817. "ment] = @Coment, [Just] = @Just, [TipoOper] = @TipoOper, [DocBase] = @DocBase, ["& _
  1818. "MontoInv] = @MontoInv, [Precio] = @Precio, [Rendimiento] = @Rendimiento, [Plazo]"& _
  1819. " = @Plazo, [PlazoFact] = @PlazoFact, [Ingresos] = @Ingresos, [FechaDoc] = @Fecha"& _
  1820. "Doc, [TipoMerc] = @TipoMerc, [CodPais] = @CodPais, [NombreManIF] = @NombreManIF,"& _
  1821. " [CodManIF] = @CodManIF, [Periodicidad] = @Periodicidad, [TipTasa] = @TipTasa, ["& _
  1822. "TipRenta] = @TipRenta, [NumManInv] = @NumManInv WHERE (([DocId] = @Original_DocI"& _
  1823. "d) AND ([CodInv] = @Original_CodInv) AND ([DocEst] = @Original_DocEst) AND ((@Is"& _
  1824. "Null_AutEstado = 1 AND [AutEstado] IS NULL) OR ([AutEstado] = @Original_AutEstad"& _
  1825. "o)) AND ((@IsNull_Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_Asun"& _
  1826. "to)) AND ([CodEmpr] = @Original_CodEmpr) AND ([CodIF] = @Original_CodIF) AND ((@"& _
  1827. "IsNull_CodEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis] = @Original_CodEmis)) AN"& _
  1828. "D ((@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL) OR ([CodCalRi] = @Original_CodC"& _
  1829. "alRi)) AND ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS NULL) OR ([CodECalRi] = @O"& _
  1830. "riginal_CodECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] IS NULL) OR ([OFon] = @Ori"& _
  1831. "ginal_OFon)) AND ((@IsNull_Coment = 1 AND [Coment] IS NULL) OR ([Coment] = @Orig"& _
  1832. "inal_Coment)) AND ((@IsNull_Just = 1 AND [Just] IS NULL) OR ([Just] = @Original_"& _
  1833. "Just)) AND ((@IsNull_TipoOper = 1 AND [TipoOper] IS NULL) OR ([TipoOper] = @Orig"& _
  1834. "inal_TipoOper)) AND ((@IsNull_DocBase = 1 AND [DocBase] IS NULL) OR ([DocBase] ="& _
  1835. " @Original_DocBase)) AND ((@IsNull_MontoInv = 1 AND [MontoInv] IS NULL) OR ([Mon"& _
  1836. "toInv] = @Original_MontoInv)) AND ((@IsNull_Precio = 1 AND [Precio] IS NULL) OR "& _
  1837. "([Precio] = @Original_Precio)) AND ((@IsNull_Rendimiento = 1 AND [Rendimiento] I"& _
  1838. "S NULL) OR ([Rendimiento] = @Original_Rendimiento)) AND ((@IsNull_Plazo = 1 AND "& _
  1839. "[Plazo] IS NULL) OR ([Plazo] = @Original_Plazo)) AND ((@IsNull_PlazoFact = 1 AND"& _
  1840. " [PlazoFact] IS NULL) OR ([PlazoFact] = @Original_PlazoFact)) AND ((@IsNull_Ingr"& _
  1841. "esos = 1 AND [Ingresos] IS NULL) OR ([Ingresos] = @Original_Ingresos)) AND ([Fec"& _
  1842. "haDoc] = @Original_FechaDoc) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL) "& _
  1843. "OR ([TipoMerc] = @Original_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] IS"& _
  1844. " NULL) OR ([CodPais] = @Original_CodPais)) AND ((@IsNull_NombreManIF = 1 AND [No"& _
  1845. "mbreManIF] IS NULL) OR ([NombreManIF] = @Original_NombreManIF)) AND ((@IsNull_Co"& _
  1846. "dManIF = 1 AND [CodManIF] IS NULL) OR ([CodManIF] = @Original_CodManIF)) AND ((@"& _
  1847. "IsNull_Periodicidad = 1 AND [Periodicidad] IS NULL) OR ([Periodicidad] = @Origin"& _
  1848. "al_Periodicidad)) AND ((@IsNull_TipTasa = 1 AND [TipTasa] IS NULL) OR ([TipTasa]"& _
  1849. " = @Original_TipTasa)) AND ((@IsNull_TipRenta = 1 AND [TipRenta] IS NULL) OR ([T"& _
  1850. "ipRenta] = @Original_TipRenta)) AND ((@IsNull_NumManInv = 1 AND [NumManInv] IS N"& _
  1851. "ULL) OR ([NumManInv] = @Original_NumManInv)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, DocEst, Au"& _
  1852. "tEstado, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Jus"& _
  1853. "t, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos,"& _
  1854. " FechaDoc, TipoMerc, CodPais, NombreManIF, CodManIF, Periodicidad, TipTasa, TipR"& _
  1855. "enta, NumManInv FROM INV0 WHERE (CodInv = @CodInv) AND (DocId = @DocId)"
  1856. Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
  1857. 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, "", "", ""))
  1858. 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, "", "", ""))
  1859. 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, "", "", ""))
  1860. 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, "", "", ""))
  1861. 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, "", "", ""))
  1862. 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, "", "", ""))
  1863. 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, "", "", ""))
  1864. 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, "", "", ""))
  1865. 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, "", "", ""))
  1866. 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, "", "", ""))
  1867. 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, "", "", ""))
  1868. 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, "", "", ""))
  1869. 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, "", "", ""))
  1870. 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, "", "", ""))
  1871. 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, "", "", ""))
  1872. 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, "", "", ""))
  1873. 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, "", "", ""))
  1874. 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, "", "", ""))
  1875. 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, "", "", ""))
  1876. 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, "", "", ""))
  1877. 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, "", "", ""))
  1878. 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, "", "", ""))
  1879. 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, "", "", ""))
  1880. 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, "", "", ""))
  1881. 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, "", "", ""))
  1882. 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, "", "", ""))
  1883. 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, "", "", ""))
  1884. 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, "", "", ""))
  1885. 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, "", "", ""))
  1886. 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, "", "", ""))
  1887. 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, "", "", ""))
  1888. 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, "", "", ""))
  1889. 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, "", "", ""))
  1890. 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, "", "", ""))
  1891. 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, "", "", ""))
  1892. 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, "", "", ""))
  1893. 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, "", "", ""))
  1894. 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, "", "", ""))
  1895. 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, "", "", ""))
  1896. 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, "", "", ""))
  1897. 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, "", "", ""))
  1898. 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, "", "", ""))
  1899. 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, "", "", ""))
  1900. 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, "", "", ""))
  1901. 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, "", "", ""))
  1902. 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, "", "", ""))
  1903. 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, "", "", ""))
  1904. 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, "", "", ""))
  1905. 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, "", "", ""))
  1906. 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, "", "", ""))
  1907. 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, "", "", ""))
  1908. 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, "", "", ""))
  1909. 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, "", "", ""))
  1910. 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, "", "", ""))
  1911. 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, "", "", ""))
  1912. 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, "", "", ""))
  1913. 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, "", "", ""))
  1914. 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, "", "", ""))
  1915. 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, "", "", ""))
  1916. 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, "", "", ""))
  1917. 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, "", "", ""))
  1918. 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, "", "", ""))
  1919. 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, "", "", ""))
  1920. 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, "", "", ""))
  1921. 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, "", "", ""))
  1922. 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, "", "", ""))
  1923. 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, "", "", ""))
  1924. 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, "", "", ""))
  1925. 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, "", "", ""))
  1926. 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, "", "", ""))
  1927. 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, "", "", ""))
  1928. 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, "", "", ""))
  1929. 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, "", "", ""))
  1930. 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, "", "", ""))
  1931. 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, "", "", ""))
  1932. 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, "", "", ""))
  1933. 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, "", "", ""))
  1934. 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, "", "", ""))
  1935. 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, "", "", ""))
  1936. 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, "", "", ""))
  1937. 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, "", "", ""))
  1938. 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, "", "", ""))
  1939. 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, "", "", ""))
  1940. 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, "", "", ""))
  1941. End Sub
  1942. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1943. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1944. Private Sub InitConnection()
  1945. Me._connection = New Global.System.Data.SqlClient.SqlConnection()
  1946. Me._connection.ConnectionString = Global.Inversiones.My.MySettings.Default.InversionesConnectionString
  1947. End Sub
  1948. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1949. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1950. Private Sub InitCommandCollection()
  1951. Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
  1952. Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
  1953. Me._commandCollection(0).Connection = Me.Connection
  1954. Me._commandCollection(0).CommandText = "SELECT DocId, CodInv, DocEst, AutEstado, Asunto, CodEmpr, CodIF, CodEmis, CodCalR"& _
  1955. "i, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimien"& _
  1956. "to, Plazo, PlazoFact, Ingresos, FechaDoc, TipoMerc, CodPais, NombreManIF, CodMan"& _
  1957. "IF, Periodicidad, TipTasa, TipRenta, NumManInv FROM dbo.INV0"
  1958. Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
  1959. End Sub
  1960. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1961. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  1962. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1963. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
  1964. Public Overloads Overridable Function Fill(ByVal dataTable As InversionesDEVDataSet.INV0DataTable) As Integer
  1965. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  1966. If (Me.ClearBeforeFill = true) Then
  1967. dataTable.Clear
  1968. End If
  1969. Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
  1970. Return returnValue
  1971. End Function
  1972. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1973. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  1974. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1975. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
  1976. Public Overloads Overridable Function GetData() As InversionesDEVDataSet.INV0DataTable
  1977. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  1978. Dim dataTable As InversionesDEVDataSet.INV0DataTable = New InversionesDEVDataSet.INV0DataTable()
  1979. Me.Adapter.Fill(dataTable)
  1980. Return dataTable
  1981. End Function
  1982. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1983. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  1984. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1985. Public Overloads Overridable Function Update(ByVal dataTable As InversionesDEVDataSet.INV0DataTable) As Integer
  1986. Return Me.Adapter.Update(dataTable)
  1987. End Function
  1988. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1989. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  1990. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1991. Public Overloads Overridable Function Update(ByVal dataSet As InversionesDEVDataSet) As Integer
  1992. Return Me.Adapter.Update(dataSet, "INV0")
  1993. End Function
  1994. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1995. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  1996. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1997. Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
  1998. Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
  1999. End Function
  2000. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2001. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2002. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2003. Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
  2004. Return Me.Adapter.Update(dataRows)
  2005. End Function
  2006. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2007. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2008. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2009. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
  2010. Public Overloads Overridable Function Delete( _
  2011. ByVal Original_DocId As Integer, _
  2012. ByVal Original_CodInv As String, _
  2013. ByVal Original_DocEst As String, _
  2014. ByVal Original_AutEstado As String, _
  2015. ByVal Original_Asunto As String, _
  2016. ByVal Original_CodEmpr As String, _
  2017. ByVal Original_CodIF As String, _
  2018. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  2019. ByVal Original_CodCalRi As String, _
  2020. ByVal Original_CodECalRi As String, _
  2021. ByVal Original_OFon As String, _
  2022. ByVal Original_Coment As String, _
  2023. ByVal Original_Just As String, _
  2024. ByVal Original_TipoOper As String, _
  2025. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  2026. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  2027. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  2028. ByVal Original_Rendimiento As Global.System.Nullable(Of Decimal), _
  2029. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  2030. ByVal Original_PlazoFact As String, _
  2031. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  2032. ByVal Original_FechaDoc As Date, _
  2033. ByVal Original_TipoMerc As String, _
  2034. ByVal Original_CodPais As String, _
  2035. ByVal Original_NombreManIF As String, _
  2036. ByVal Original_CodManIF As String, _
  2037. ByVal Original_Periodicidad As String, _
  2038. ByVal Original_TipTasa As String, _
  2039. ByVal Original_TipRenta As String, _
  2040. ByVal Original_NumManInv As Global.System.Nullable(Of Integer)) As Integer
  2041. Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DocId,Integer)
  2042. If (Original_CodInv Is Nothing) Then
  2043. Throw New Global.System.ArgumentNullException("Original_CodInv")
  2044. Else
  2045. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CodInv,String)
  2046. End If
  2047. If (Original_DocEst Is Nothing) Then
  2048. Throw New Global.System.ArgumentNullException("Original_DocEst")
  2049. Else
  2050. Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DocEst,String)
  2051. End If
  2052. If (Original_AutEstado Is Nothing) Then
  2053. Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
  2054. Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
  2055. Else
  2056. Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
  2057. Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_AutEstado,String)
  2058. End If
  2059. If (Original_Asunto Is Nothing) Then
  2060. Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
  2061. Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
  2062. Else
  2063. Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
  2064. Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Asunto,String)
  2065. End If
  2066. If (Original_CodEmpr Is Nothing) Then
  2067. Throw New Global.System.ArgumentNullException("Original_CodEmpr")
  2068. Else
  2069. Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CodEmpr,String)
  2070. End If
  2071. If (Original_CodIF Is Nothing) Then
  2072. Throw New Global.System.ArgumentNullException("Original_CodIF")
  2073. Else
  2074. Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CodIF,String)
  2075. End If
  2076. If (Original_CodEmis.HasValue = true) Then
  2077. Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
  2078. Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CodEmis.Value,Integer)
  2079. Else
  2080. Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
  2081. Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
  2082. End If
  2083. If (Original_CodCalRi Is Nothing) Then
  2084. Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
  2085. Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
  2086. Else
  2087. Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
  2088. Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CodCalRi,String)
  2089. End If
  2090. If (Original_CodECalRi Is Nothing) Then
  2091. Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
  2092. Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
  2093. Else
  2094. Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
  2095. Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CodECalRi,String)
  2096. End If
  2097. If (Original_OFon Is Nothing) Then
  2098. Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
  2099. Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
  2100. Else
  2101. Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
  2102. Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_OFon,String)
  2103. End If
  2104. If (Original_Coment Is Nothing) Then
  2105. Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
  2106. Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
  2107. Else
  2108. Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
  2109. Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Coment,String)
  2110. End If
  2111. If (Original_Just Is Nothing) Then
  2112. Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
  2113. Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
  2114. Else
  2115. Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
  2116. Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Just,String)
  2117. End If
  2118. If (Original_TipoOper Is Nothing) Then
  2119. Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object)
  2120. Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value
  2121. Else
  2122. Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object)
  2123. Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_TipoOper,String)
  2124. End If
  2125. If (Original_DocBase.HasValue = true) Then
  2126. Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object)
  2127. Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_DocBase.Value,Integer)
  2128. Else
  2129. Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object)
  2130. Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value
  2131. End If
  2132. If (Original_MontoInv.HasValue = true) Then
  2133. Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object)
  2134. Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_MontoInv.Value,Decimal)
  2135. Else
  2136. Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object)
  2137. Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value
  2138. End If
  2139. If (Original_Precio.HasValue = true) Then
  2140. Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
  2141. Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_Precio.Value,Decimal)
  2142. Else
  2143. Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object)
  2144. Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value
  2145. End If
  2146. If (Original_Rendimiento.HasValue = true) Then
  2147. Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
  2148. Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_Rendimiento.Value,Decimal)
  2149. Else
  2150. Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object)
  2151. Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value
  2152. End If
  2153. If (Original_Plazo.HasValue = true) Then
  2154. Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
  2155. Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_Plazo.Value,Integer)
  2156. Else
  2157. Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
  2158. Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
  2159. End If
  2160. If (Original_PlazoFact Is Nothing) Then
  2161. Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object)
  2162. Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value
  2163. Else
  2164. Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object)
  2165. Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_PlazoFact,String)
  2166. End If
  2167. If (Original_Ingresos.HasValue = true) Then
  2168. Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object)
  2169. Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_Ingresos.Value,Decimal)
  2170. Else
  2171. Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object)
  2172. Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value
  2173. End If
  2174. Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_FechaDoc,Date)
  2175. If (Original_TipoMerc Is Nothing) Then
  2176. Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object)
  2177. Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value
  2178. Else
  2179. Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object)
  2180. Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_TipoMerc,String)
  2181. End If
  2182. If (Original_CodPais Is Nothing) Then
  2183. Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object)
  2184. Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value
  2185. Else
  2186. Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object)
  2187. Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_CodPais,String)
  2188. End If
  2189. If (Original_NombreManIF Is Nothing) Then
  2190. Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object)
  2191. Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value
  2192. Else
  2193. Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object)
  2194. Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_NombreManIF,String)
  2195. End If
  2196. If (Original_CodManIF Is Nothing) Then
  2197. Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object)
  2198. Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value
  2199. Else
  2200. Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object)
  2201. Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_CodManIF,String)
  2202. End If
  2203. If (Original_Periodicidad Is Nothing) Then
  2204. Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object)
  2205. Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value
  2206. Else
  2207. Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object)
  2208. Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_Periodicidad,String)
  2209. End If
  2210. If (Original_TipTasa Is Nothing) Then
  2211. Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object)
  2212. Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value
  2213. Else
  2214. Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object)
  2215. Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_TipTasa,String)
  2216. End If
  2217. If (Original_TipRenta Is Nothing) Then
  2218. Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object)
  2219. Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value
  2220. Else
  2221. Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object)
  2222. Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_TipRenta,String)
  2223. End If
  2224. If (Original_NumManInv.HasValue = true) Then
  2225. Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object)
  2226. Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_NumManInv.Value,Integer)
  2227. Else
  2228. Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object)
  2229. Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value
  2230. End If
  2231. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
  2232. If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2233. <> Global.System.Data.ConnectionState.Open) Then
  2234. Me.Adapter.DeleteCommand.Connection.Open
  2235. End If
  2236. Try
  2237. Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
  2238. Return returnValue
  2239. Finally
  2240. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2241. Me.Adapter.DeleteCommand.Connection.Close
  2242. End If
  2243. End Try
  2244. End Function
  2245. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2246. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2247. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2248. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
  2249. Public Overloads Overridable Function Insert( _
  2250. ByVal CodInv As String, _
  2251. ByVal DocEst As String, _
  2252. ByVal AutEstado As String, _
  2253. ByVal Asunto As String, _
  2254. ByVal CodEmpr As String, _
  2255. ByVal CodIF As String, _
  2256. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2257. ByVal CodCalRi As String, _
  2258. ByVal CodECalRi As String, _
  2259. ByVal OFon As String, _
  2260. ByVal Coment As String, _
  2261. ByVal Just As String, _
  2262. ByVal TipoOper As String, _
  2263. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2264. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2265. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2266. ByVal Rendimiento As Global.System.Nullable(Of Decimal), _
  2267. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2268. ByVal PlazoFact As String, _
  2269. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2270. ByVal FechaDoc As Date, _
  2271. ByVal TipoMerc As String, _
  2272. ByVal CodPais As String, _
  2273. ByVal NombreManIF As String, _
  2274. ByVal CodManIF As String, _
  2275. ByVal Periodicidad As String, _
  2276. ByVal TipTasa As String, _
  2277. ByVal TipRenta As String, _
  2278. ByVal NumManInv As Global.System.Nullable(Of Integer)) As Integer
  2279. If (CodInv Is Nothing) Then
  2280. Throw New Global.System.ArgumentNullException("CodInv")
  2281. Else
  2282. Me.Adapter.InsertCommand.Parameters(0).Value = CType(CodInv,String)
  2283. End If
  2284. If (DocEst Is Nothing) Then
  2285. Throw New Global.System.ArgumentNullException("DocEst")
  2286. Else
  2287. Me.Adapter.InsertCommand.Parameters(1).Value = CType(DocEst,String)
  2288. End If
  2289. If (AutEstado Is Nothing) Then
  2290. Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
  2291. Else
  2292. Me.Adapter.InsertCommand.Parameters(2).Value = CType(AutEstado,String)
  2293. End If
  2294. If (Asunto Is Nothing) Then
  2295. Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
  2296. Else
  2297. Me.Adapter.InsertCommand.Parameters(3).Value = CType(Asunto,String)
  2298. End If
  2299. If (CodEmpr Is Nothing) Then
  2300. Throw New Global.System.ArgumentNullException("CodEmpr")
  2301. Else
  2302. Me.Adapter.InsertCommand.Parameters(4).Value = CType(CodEmpr,String)
  2303. End If
  2304. If (CodIF Is Nothing) Then
  2305. Throw New Global.System.ArgumentNullException("CodIF")
  2306. Else
  2307. Me.Adapter.InsertCommand.Parameters(5).Value = CType(CodIF,String)
  2308. End If
  2309. If (CodEmis.HasValue = true) Then
  2310. Me.Adapter.InsertCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
  2311. Else
  2312. Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
  2313. End If
  2314. If (CodCalRi Is Nothing) Then
  2315. Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
  2316. Else
  2317. Me.Adapter.InsertCommand.Parameters(7).Value = CType(CodCalRi,String)
  2318. End If
  2319. If (CodECalRi Is Nothing) Then
  2320. Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
  2321. Else
  2322. Me.Adapter.InsertCommand.Parameters(8).Value = CType(CodECalRi,String)
  2323. End If
  2324. If (OFon Is Nothing) Then
  2325. Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
  2326. Else
  2327. Me.Adapter.InsertCommand.Parameters(9).Value = CType(OFon,String)
  2328. End If
  2329. If (Coment Is Nothing) Then
  2330. Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
  2331. Else
  2332. Me.Adapter.InsertCommand.Parameters(10).Value = CType(Coment,String)
  2333. End If
  2334. If (Just Is Nothing) Then
  2335. Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
  2336. Else
  2337. Me.Adapter.InsertCommand.Parameters(11).Value = CType(Just,String)
  2338. End If
  2339. If (TipoOper Is Nothing) Then
  2340. Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
  2341. Else
  2342. Me.Adapter.InsertCommand.Parameters(12).Value = CType(TipoOper,String)
  2343. End If
  2344. If (DocBase.HasValue = true) Then
  2345. Me.Adapter.InsertCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
  2346. Else
  2347. Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
  2348. End If
  2349. If (MontoInv.HasValue = true) Then
  2350. Me.Adapter.InsertCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
  2351. Else
  2352. Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
  2353. End If
  2354. If (Precio.HasValue = true) Then
  2355. Me.Adapter.InsertCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
  2356. Else
  2357. Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
  2358. End If
  2359. If (Rendimiento.HasValue = true) Then
  2360. Me.Adapter.InsertCommand.Parameters(16).Value = CType(Rendimiento.Value,Decimal)
  2361. Else
  2362. Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value
  2363. End If
  2364. If (Plazo.HasValue = true) Then
  2365. Me.Adapter.InsertCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
  2366. Else
  2367. Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value
  2368. End If
  2369. If (PlazoFact Is Nothing) Then
  2370. Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value
  2371. Else
  2372. Me.Adapter.InsertCommand.Parameters(18).Value = CType(PlazoFact,String)
  2373. End If
  2374. If (Ingresos.HasValue = true) Then
  2375. Me.Adapter.InsertCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
  2376. Else
  2377. Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value
  2378. End If
  2379. Me.Adapter.InsertCommand.Parameters(20).Value = CType(FechaDoc,Date)
  2380. If (TipoMerc Is Nothing) Then
  2381. Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value
  2382. Else
  2383. Me.Adapter.InsertCommand.Parameters(21).Value = CType(TipoMerc,String)
  2384. End If
  2385. If (CodPais Is Nothing) Then
  2386. Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value
  2387. Else
  2388. Me.Adapter.InsertCommand.Parameters(22).Value = CType(CodPais,String)
  2389. End If
  2390. If (NombreManIF Is Nothing) Then
  2391. Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value
  2392. Else
  2393. Me.Adapter.InsertCommand.Parameters(23).Value = CType(NombreManIF,String)
  2394. End If
  2395. If (CodManIF Is Nothing) Then
  2396. Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value
  2397. Else
  2398. Me.Adapter.InsertCommand.Parameters(24).Value = CType(CodManIF,String)
  2399. End If
  2400. If (Periodicidad Is Nothing) Then
  2401. Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value
  2402. Else
  2403. Me.Adapter.InsertCommand.Parameters(25).Value = CType(Periodicidad,String)
  2404. End If
  2405. If (TipTasa Is Nothing) Then
  2406. Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value
  2407. Else
  2408. Me.Adapter.InsertCommand.Parameters(26).Value = CType(TipTasa,String)
  2409. End If
  2410. If (TipRenta Is Nothing) Then
  2411. Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value
  2412. Else
  2413. Me.Adapter.InsertCommand.Parameters(27).Value = CType(TipRenta,String)
  2414. End If
  2415. If (NumManInv.HasValue = true) Then
  2416. Me.Adapter.InsertCommand.Parameters(28).Value = CType(NumManInv.Value,Integer)
  2417. Else
  2418. Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value
  2419. End If
  2420. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
  2421. If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2422. <> Global.System.Data.ConnectionState.Open) Then
  2423. Me.Adapter.InsertCommand.Connection.Open
  2424. End If
  2425. Try
  2426. Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
  2427. Return returnValue
  2428. Finally
  2429. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2430. Me.Adapter.InsertCommand.Connection.Close
  2431. End If
  2432. End Try
  2433. End Function
  2434. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2435. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2436. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2437. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2438. Public Overloads Overridable Function Update( _
  2439. ByVal CodInv As String, _
  2440. ByVal DocEst As String, _
  2441. ByVal AutEstado As String, _
  2442. ByVal Asunto As String, _
  2443. ByVal CodEmpr As String, _
  2444. ByVal CodIF As String, _
  2445. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2446. ByVal CodCalRi As String, _
  2447. ByVal CodECalRi As String, _
  2448. ByVal OFon As String, _
  2449. ByVal Coment As String, _
  2450. ByVal Just As String, _
  2451. ByVal TipoOper As String, _
  2452. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2453. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2454. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2455. ByVal Rendimiento As Global.System.Nullable(Of Decimal), _
  2456. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2457. ByVal PlazoFact As String, _
  2458. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2459. ByVal FechaDoc As Date, _
  2460. ByVal TipoMerc As String, _
  2461. ByVal CodPais As String, _
  2462. ByVal NombreManIF As String, _
  2463. ByVal CodManIF As String, _
  2464. ByVal Periodicidad As String, _
  2465. ByVal TipTasa As String, _
  2466. ByVal TipRenta As String, _
  2467. ByVal NumManInv As Global.System.Nullable(Of Integer), _
  2468. ByVal Original_DocId As Integer, _
  2469. ByVal Original_CodInv As String, _
  2470. ByVal Original_DocEst As String, _
  2471. ByVal Original_AutEstado As String, _
  2472. ByVal Original_Asunto As String, _
  2473. ByVal Original_CodEmpr As String, _
  2474. ByVal Original_CodIF As String, _
  2475. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  2476. ByVal Original_CodCalRi As String, _
  2477. ByVal Original_CodECalRi As String, _
  2478. ByVal Original_OFon As String, _
  2479. ByVal Original_Coment As String, _
  2480. ByVal Original_Just As String, _
  2481. ByVal Original_TipoOper As String, _
  2482. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  2483. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  2484. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  2485. ByVal Original_Rendimiento As Global.System.Nullable(Of Decimal), _
  2486. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  2487. ByVal Original_PlazoFact As String, _
  2488. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  2489. ByVal Original_FechaDoc As Date, _
  2490. ByVal Original_TipoMerc As String, _
  2491. ByVal Original_CodPais As String, _
  2492. ByVal Original_NombreManIF As String, _
  2493. ByVal Original_CodManIF As String, _
  2494. ByVal Original_Periodicidad As String, _
  2495. ByVal Original_TipTasa As String, _
  2496. ByVal Original_TipRenta As String, _
  2497. ByVal Original_NumManInv As Global.System.Nullable(Of Integer), _
  2498. ByVal DocId As Integer) As Integer
  2499. If (CodInv Is Nothing) Then
  2500. Throw New Global.System.ArgumentNullException("CodInv")
  2501. Else
  2502. Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CodInv,String)
  2503. End If
  2504. If (DocEst Is Nothing) Then
  2505. Throw New Global.System.ArgumentNullException("DocEst")
  2506. Else
  2507. Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DocEst,String)
  2508. End If
  2509. If (AutEstado Is Nothing) Then
  2510. Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
  2511. Else
  2512. Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AutEstado,String)
  2513. End If
  2514. If (Asunto Is Nothing) Then
  2515. Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
  2516. Else
  2517. Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Asunto,String)
  2518. End If
  2519. If (CodEmpr Is Nothing) Then
  2520. Throw New Global.System.ArgumentNullException("CodEmpr")
  2521. Else
  2522. Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CodEmpr,String)
  2523. End If
  2524. If (CodIF Is Nothing) Then
  2525. Throw New Global.System.ArgumentNullException("CodIF")
  2526. Else
  2527. Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CodIF,String)
  2528. End If
  2529. If (CodEmis.HasValue = true) Then
  2530. Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
  2531. Else
  2532. Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
  2533. End If
  2534. If (CodCalRi Is Nothing) Then
  2535. Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
  2536. Else
  2537. Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CodCalRi,String)
  2538. End If
  2539. If (CodECalRi Is Nothing) Then
  2540. Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
  2541. Else
  2542. Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CodECalRi,String)
  2543. End If
  2544. If (OFon Is Nothing) Then
  2545. Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
  2546. Else
  2547. Me.Adapter.UpdateCommand.Parameters(9).Value = CType(OFon,String)
  2548. End If
  2549. If (Coment Is Nothing) Then
  2550. Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
  2551. Else
  2552. Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Coment,String)
  2553. End If
  2554. If (Just Is Nothing) Then
  2555. Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
  2556. Else
  2557. Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Just,String)
  2558. End If
  2559. If (TipoOper Is Nothing) Then
  2560. Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
  2561. Else
  2562. Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TipoOper,String)
  2563. End If
  2564. If (DocBase.HasValue = true) Then
  2565. Me.Adapter.UpdateCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
  2566. Else
  2567. Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
  2568. End If
  2569. If (MontoInv.HasValue = true) Then
  2570. Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
  2571. Else
  2572. Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
  2573. End If
  2574. If (Precio.HasValue = true) Then
  2575. Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
  2576. Else
  2577. Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
  2578. End If
  2579. If (Rendimiento.HasValue = true) Then
  2580. Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Rendimiento.Value,Decimal)
  2581. Else
  2582. Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
  2583. End If
  2584. If (Plazo.HasValue = true) Then
  2585. Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
  2586. Else
  2587. Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
  2588. End If
  2589. If (PlazoFact Is Nothing) Then
  2590. Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
  2591. Else
  2592. Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PlazoFact,String)
  2593. End If
  2594. If (Ingresos.HasValue = true) Then
  2595. Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
  2596. Else
  2597. Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
  2598. End If
  2599. Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FechaDoc,Date)
  2600. If (TipoMerc Is Nothing) Then
  2601. Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
  2602. Else
  2603. Me.Adapter.UpdateCommand.Parameters(21).Value = CType(TipoMerc,String)
  2604. End If
  2605. If (CodPais Is Nothing) Then
  2606. Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
  2607. Else
  2608. Me.Adapter.UpdateCommand.Parameters(22).Value = CType(CodPais,String)
  2609. End If
  2610. If (NombreManIF Is Nothing) Then
  2611. Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
  2612. Else
  2613. Me.Adapter.UpdateCommand.Parameters(23).Value = CType(NombreManIF,String)
  2614. End If
  2615. If (CodManIF Is Nothing) Then
  2616. Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
  2617. Else
  2618. Me.Adapter.UpdateCommand.Parameters(24).Value = CType(CodManIF,String)
  2619. End If
  2620. If (Periodicidad Is Nothing) Then
  2621. Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
  2622. Else
  2623. Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Periodicidad,String)
  2624. End If
  2625. If (TipTasa Is Nothing) Then
  2626. Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
  2627. Else
  2628. Me.Adapter.UpdateCommand.Parameters(26).Value = CType(TipTasa,String)
  2629. End If
  2630. If (TipRenta Is Nothing) Then
  2631. Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
  2632. Else
  2633. Me.Adapter.UpdateCommand.Parameters(27).Value = CType(TipRenta,String)
  2634. End If
  2635. If (NumManInv.HasValue = true) Then
  2636. Me.Adapter.UpdateCommand.Parameters(28).Value = CType(NumManInv.Value,Integer)
  2637. Else
  2638. Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
  2639. End If
  2640. Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_DocId,Integer)
  2641. If (Original_CodInv Is Nothing) Then
  2642. Throw New Global.System.ArgumentNullException("Original_CodInv")
  2643. Else
  2644. Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_CodInv,String)
  2645. End If
  2646. If (Original_DocEst Is Nothing) Then
  2647. Throw New Global.System.ArgumentNullException("Original_DocEst")
  2648. Else
  2649. Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_DocEst,String)
  2650. End If
  2651. If (Original_AutEstado Is Nothing) Then
  2652. Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object)
  2653. Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value
  2654. Else
  2655. Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object)
  2656. Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_AutEstado,String)
  2657. End If
  2658. If (Original_Asunto Is Nothing) Then
  2659. Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
  2660. Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
  2661. Else
  2662. Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
  2663. Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_Asunto,String)
  2664. End If
  2665. If (Original_CodEmpr Is Nothing) Then
  2666. Throw New Global.System.ArgumentNullException("Original_CodEmpr")
  2667. Else
  2668. Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_CodEmpr,String)
  2669. End If
  2670. If (Original_CodIF Is Nothing) Then
  2671. Throw New Global.System.ArgumentNullException("Original_CodIF")
  2672. Else
  2673. Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_CodIF,String)
  2674. End If
  2675. If (Original_CodEmis.HasValue = true) Then
  2676. Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object)
  2677. Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_CodEmis.Value,Integer)
  2678. Else
  2679. Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object)
  2680. Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value
  2681. End If
  2682. If (Original_CodCalRi Is Nothing) Then
  2683. Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object)
  2684. Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value
  2685. Else
  2686. Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object)
  2687. Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_CodCalRi,String)
  2688. End If
  2689. If (Original_CodECalRi Is Nothing) Then
  2690. Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object)
  2691. Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value
  2692. Else
  2693. Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object)
  2694. Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_CodECalRi,String)
  2695. End If
  2696. If (Original_OFon Is Nothing) Then
  2697. Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object)
  2698. Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value
  2699. Else
  2700. Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object)
  2701. Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_OFon,String)
  2702. End If
  2703. If (Original_Coment Is Nothing) Then
  2704. Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object)
  2705. Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value
  2706. Else
  2707. Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object)
  2708. Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_Coment,String)
  2709. End If
  2710. If (Original_Just Is Nothing) Then
  2711. Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object)
  2712. Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value
  2713. Else
  2714. Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object)
  2715. Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_Just,String)
  2716. End If
  2717. If (Original_TipoOper Is Nothing) Then
  2718. Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
  2719. Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
  2720. Else
  2721. Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
  2722. Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_TipoOper,String)
  2723. End If
  2724. If (Original_DocBase.HasValue = true) Then
  2725. Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object)
  2726. Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_DocBase.Value,Integer)
  2727. Else
  2728. Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object)
  2729. Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value
  2730. End If
  2731. If (Original_MontoInv.HasValue = true) Then
  2732. Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object)
  2733. Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_MontoInv.Value,Decimal)
  2734. Else
  2735. Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object)
  2736. Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value
  2737. End If
  2738. If (Original_Precio.HasValue = true) Then
  2739. Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object)
  2740. Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_Precio.Value,Decimal)
  2741. Else
  2742. Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object)
  2743. Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value
  2744. End If
  2745. If (Original_Rendimiento.HasValue = true) Then
  2746. Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object)
  2747. Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_Rendimiento.Value,Decimal)
  2748. Else
  2749. Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object)
  2750. Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value
  2751. End If
  2752. If (Original_Plazo.HasValue = true) Then
  2753. Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object)
  2754. Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_Plazo.Value,Integer)
  2755. Else
  2756. Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object)
  2757. Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value
  2758. End If
  2759. If (Original_PlazoFact Is Nothing) Then
  2760. Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object)
  2761. Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value
  2762. Else
  2763. Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object)
  2764. Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_PlazoFact,String)
  2765. End If
  2766. If (Original_Ingresos.HasValue = true) Then
  2767. Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object)
  2768. Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_Ingresos.Value,Decimal)
  2769. Else
  2770. Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object)
  2771. Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value
  2772. End If
  2773. Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_FechaDoc,Date)
  2774. If (Original_TipoMerc Is Nothing) Then
  2775. Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object)
  2776. Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value
  2777. Else
  2778. Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object)
  2779. Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_TipoMerc,String)
  2780. End If
  2781. If (Original_CodPais Is Nothing) Then
  2782. Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object)
  2783. Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value
  2784. Else
  2785. Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object)
  2786. Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_CodPais,String)
  2787. End If
  2788. If (Original_NombreManIF Is Nothing) Then
  2789. Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object)
  2790. Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value
  2791. Else
  2792. Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object)
  2793. Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_NombreManIF,String)
  2794. End If
  2795. If (Original_CodManIF Is Nothing) Then
  2796. Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object)
  2797. Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value
  2798. Else
  2799. Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object)
  2800. Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_CodManIF,String)
  2801. End If
  2802. If (Original_Periodicidad Is Nothing) Then
  2803. Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object)
  2804. Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value
  2805. Else
  2806. Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object)
  2807. Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_Periodicidad,String)
  2808. End If
  2809. If (Original_TipTasa Is Nothing) Then
  2810. Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object)
  2811. Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value
  2812. Else
  2813. Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object)
  2814. Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_TipTasa,String)
  2815. End If
  2816. If (Original_TipRenta Is Nothing) Then
  2817. Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object)
  2818. Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value
  2819. Else
  2820. Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object)
  2821. Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_TipRenta,String)
  2822. End If
  2823. If (Original_NumManInv.HasValue = true) Then
  2824. Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object)
  2825. Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_NumManInv.Value,Integer)
  2826. Else
  2827. Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object)
  2828. Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value
  2829. End If
  2830. Me.Adapter.UpdateCommand.Parameters(83).Value = CType(DocId,Integer)
  2831. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
  2832. If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2833. <> Global.System.Data.ConnectionState.Open) Then
  2834. Me.Adapter.UpdateCommand.Connection.Open
  2835. End If
  2836. Try
  2837. Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
  2838. Return returnValue
  2839. Finally
  2840. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2841. Me.Adapter.UpdateCommand.Connection.Close
  2842. End If
  2843. End Try
  2844. End Function
  2845. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2846. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2847. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2848. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2849. Public Overloads Overridable Function Update( _
  2850. ByVal DocEst As String, _
  2851. ByVal AutEstado As String, _
  2852. ByVal Asunto As String, _
  2853. ByVal CodEmpr As String, _
  2854. ByVal CodIF As String, _
  2855. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2856. ByVal CodCalRi As String, _
  2857. ByVal CodECalRi As String, _
  2858. ByVal OFon As String, _
  2859. ByVal Coment As String, _
  2860. ByVal Just As String, _
  2861. ByVal TipoOper As String, _
  2862. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2863. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2864. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2865. ByVal Rendimiento As Global.System.Nullable(Of Decimal), _
  2866. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2867. ByVal PlazoFact As String, _
  2868. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2869. ByVal FechaDoc As Date, _
  2870. ByVal TipoMerc As String, _
  2871. ByVal CodPais As String, _
  2872. ByVal NombreManIF As String, _
  2873. ByVal CodManIF As String, _
  2874. ByVal Periodicidad As String, _
  2875. ByVal TipTasa As String, _
  2876. ByVal TipRenta As String, _
  2877. ByVal NumManInv As Global.System.Nullable(Of Integer), _
  2878. ByVal Original_DocId As Integer, _
  2879. ByVal Original_CodInv As String, _
  2880. ByVal Original_DocEst As String, _
  2881. ByVal Original_AutEstado As String, _
  2882. ByVal Original_Asunto As String, _
  2883. ByVal Original_CodEmpr As String, _
  2884. ByVal Original_CodIF As String, _
  2885. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  2886. ByVal Original_CodCalRi As String, _
  2887. ByVal Original_CodECalRi As String, _
  2888. ByVal Original_OFon As String, _
  2889. ByVal Original_Coment As String, _
  2890. ByVal Original_Just As String, _
  2891. ByVal Original_TipoOper As String, _
  2892. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  2893. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  2894. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  2895. ByVal Original_Rendimiento As Global.System.Nullable(Of Decimal), _
  2896. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  2897. ByVal Original_PlazoFact As String, _
  2898. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  2899. ByVal Original_FechaDoc As Date, _
  2900. ByVal Original_TipoMerc As String, _
  2901. ByVal Original_CodPais As String, _
  2902. ByVal Original_NombreManIF As String, _
  2903. ByVal Original_CodManIF As String, _
  2904. ByVal Original_Periodicidad As String, _
  2905. ByVal Original_TipTasa As String, _
  2906. ByVal Original_TipRenta As String, _
  2907. ByVal Original_NumManInv As Global.System.Nullable(Of Integer)) As Integer
  2908. 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)
  2909. End Function
  2910. End Class
  2911. '''<summary>
  2912. '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
  2913. '''</summary>
  2914. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  2915. Global.System.ComponentModel.ToolboxItem(true), _
  2916. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
  2917. "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  2918. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
  2919. Partial Public Class TableAdapterManager
  2920. Inherits Global.System.ComponentModel.Component
  2921. Private _updateOrder As UpdateOrderOption
  2922. Private _iNV0TableAdapter As INV0TableAdapter
  2923. Private _backupDataSetBeforeUpdate As Boolean
  2924. Private _connection As Global.System.Data.IDbConnection
  2925. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2926. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  2927. Public Property UpdateOrder() As UpdateOrderOption
  2928. Get
  2929. Return Me._updateOrder
  2930. End Get
  2931. Set
  2932. Me._updateOrder = value
  2933. End Set
  2934. End Property
  2935. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2936. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2937. Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
  2938. "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
  2939. "a", "System.Drawing.Design.UITypeEditor")> _
  2940. Public Property INV0TableAdapter() As INV0TableAdapter
  2941. Get
  2942. Return Me._iNV0TableAdapter
  2943. End Get
  2944. Set
  2945. Me._iNV0TableAdapter = value
  2946. End Set
  2947. End Property
  2948. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2949. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  2950. Public Property BackupDataSetBeforeUpdate() As Boolean
  2951. Get
  2952. Return Me._backupDataSetBeforeUpdate
  2953. End Get
  2954. Set
  2955. Me._backupDataSetBeforeUpdate = value
  2956. End Set
  2957. End Property
  2958. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2959. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2960. Global.System.ComponentModel.Browsable(false)> _
  2961. Public Property Connection() As Global.System.Data.IDbConnection
  2962. Get
  2963. If (Not (Me._connection) Is Nothing) Then
  2964. Return Me._connection
  2965. End If
  2966. If ((Not (Me._iNV0TableAdapter) Is Nothing) _
  2967. AndAlso (Not (Me._iNV0TableAdapter.Connection) Is Nothing)) Then
  2968. Return Me._iNV0TableAdapter.Connection
  2969. End If
  2970. Return Nothing
  2971. End Get
  2972. Set
  2973. Me._connection = value
  2974. End Set
  2975. End Property
  2976. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2977. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2978. Global.System.ComponentModel.Browsable(false)> _
  2979. Public ReadOnly Property TableAdapterInstanceCount() As Integer
  2980. Get
  2981. Dim count As Integer = 0
  2982. If (Not (Me._iNV0TableAdapter) Is Nothing) Then
  2983. count = (count + 1)
  2984. End If
  2985. Return count
  2986. End Get
  2987. End Property
  2988. '''<summary>
  2989. '''Update rows in top-down order.
  2990. '''</summary>
  2991. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2992. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  2993. 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
  2994. Dim result As Integer = 0
  2995. If (Not (Me._iNV0TableAdapter) Is Nothing) Then
  2996. Dim updatedRows() As Global.System.Data.DataRow = dataSet.INV0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
  2997. updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
  2998. If ((Not (updatedRows) Is Nothing) _
  2999. AndAlso (0 < updatedRows.Length)) Then
  3000. result = (result + Me._iNV0TableAdapter.Update(updatedRows))
  3001. allChangedRows.AddRange(updatedRows)
  3002. End If
  3003. End If
  3004. Return result
  3005. End Function
  3006. '''<summary>
  3007. '''Insert rows in top-down order.
  3008. '''</summary>
  3009. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3010. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3011. Private Function UpdateInsertedRows(ByVal dataSet As InversionesDEVDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  3012. Dim result As Integer = 0
  3013. If (Not (Me._iNV0TableAdapter) Is Nothing) Then
  3014. Dim addedRows() As Global.System.Data.DataRow = dataSet.INV0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
  3015. If ((Not (addedRows) Is Nothing) _
  3016. AndAlso (0 < addedRows.Length)) Then
  3017. result = (result + Me._iNV0TableAdapter.Update(addedRows))
  3018. allAddedRows.AddRange(addedRows)
  3019. End If
  3020. End If
  3021. Return result
  3022. End Function
  3023. '''<summary>
  3024. '''Delete rows in bottom-up order.
  3025. '''</summary>
  3026. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3027. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3028. Private Function UpdateDeletedRows(ByVal dataSet As InversionesDEVDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  3029. Dim result As Integer = 0
  3030. If (Not (Me._iNV0TableAdapter) Is Nothing) Then
  3031. Dim deletedRows() As Global.System.Data.DataRow = dataSet.INV0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
  3032. If ((Not (deletedRows) Is Nothing) _
  3033. AndAlso (0 < deletedRows.Length)) Then
  3034. result = (result + Me._iNV0TableAdapter.Update(deletedRows))
  3035. allChangedRows.AddRange(deletedRows)
  3036. End If
  3037. End If
  3038. Return result
  3039. End Function
  3040. '''<summary>
  3041. '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
  3042. '''</summary>
  3043. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3044. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3045. 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()
  3046. If ((updatedRows Is Nothing) _
  3047. OrElse (updatedRows.Length < 1)) Then
  3048. Return updatedRows
  3049. End If
  3050. If ((allAddedRows Is Nothing) _
  3051. OrElse (allAddedRows.Count < 1)) Then
  3052. Return updatedRows
  3053. End If
  3054. Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3055. Dim i As Integer = 0
  3056. Do While (i < updatedRows.Length)
  3057. Dim row As Global.System.Data.DataRow = updatedRows(i)
  3058. If (allAddedRows.Contains(row) = false) Then
  3059. realUpdatedRows.Add(row)
  3060. End If
  3061. i = (i + 1)
  3062. Loop
  3063. Return realUpdatedRows.ToArray
  3064. End Function
  3065. '''<summary>
  3066. '''Update all changes to the dataset.
  3067. '''</summary>
  3068. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3069. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3070. Public Overridable Function UpdateAll(ByVal dataSet As InversionesDEVDataSet) As Integer
  3071. If (dataSet Is Nothing) Then
  3072. Throw New Global.System.ArgumentNullException("dataSet")
  3073. End If
  3074. If (dataSet.HasChanges = false) Then
  3075. Return 0
  3076. End If
  3077. If ((Not (Me._iNV0TableAdapter) Is Nothing) _
  3078. AndAlso (Me.MatchTableAdapterConnection(Me._iNV0TableAdapter.Connection) = false)) Then
  3079. Throw New Global.System.ArgumentException("Todos los TableAdapters administrados por un TableAdapterManager deben usar la mi"& _
  3080. "sma cadena de conexión.")
  3081. End If
  3082. Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
  3083. If (workConnection Is Nothing) Then
  3084. Throw New Global.System.ApplicationException("TableAdapterManager no contiene información de conexión. Establezca cada propieda"& _
  3085. "d TableAdapterManager TableAdapter en una instancia TableAdapter válida.")
  3086. End If
  3087. Dim workConnOpened As Boolean = false
  3088. If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
  3089. = Global.System.Data.ConnectionState.Broken) Then
  3090. workConnection.Close
  3091. End If
  3092. If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
  3093. workConnection.Open
  3094. workConnOpened = true
  3095. End If
  3096. Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
  3097. If (workTransaction Is Nothing) Then
  3098. Throw New Global.System.ApplicationException("La transacción no puede comenzar. La conexión de datos actual no es compatible co"& _
  3099. "n las transacciones o el estado actual no permite que comience la transacción.")
  3100. End If
  3101. Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3102. Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3103. 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)()
  3104. 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)()
  3105. Dim result As Integer = 0
  3106. Dim backupDataSet As Global.System.Data.DataSet = Nothing
  3107. If Me.BackupDataSetBeforeUpdate Then
  3108. backupDataSet = New Global.System.Data.DataSet()
  3109. backupDataSet.Merge(dataSet)
  3110. End If
  3111. Try
  3112. '---- Prepare for update -----------
  3113. '
  3114. If (Not (Me._iNV0TableAdapter) Is Nothing) Then
  3115. revertConnections.Add(Me._iNV0TableAdapter, Me._iNV0TableAdapter.Connection)
  3116. Me._iNV0TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
  3117. Me._iNV0TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
  3118. If Me._iNV0TableAdapter.Adapter.AcceptChangesDuringUpdate Then
  3119. Me._iNV0TableAdapter.Adapter.AcceptChangesDuringUpdate = false
  3120. adaptersWithAcceptChangesDuringUpdate.Add(Me._iNV0TableAdapter.Adapter)
  3121. End If
  3122. End If
  3123. '
  3124. '---- Perform updates -----------
  3125. '
  3126. If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
  3127. result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
  3128. result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
  3129. Else
  3130. result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
  3131. result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
  3132. End If
  3133. result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
  3134. '
  3135. '---- Commit updates -----------
  3136. '
  3137. workTransaction.Commit
  3138. If (0 < allAddedRows.Count) Then
  3139. Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
  3140. allAddedRows.CopyTo(rows)
  3141. Dim i As Integer = 0
  3142. Do While (i < rows.Length)
  3143. Dim row As Global.System.Data.DataRow = rows(i)
  3144. row.AcceptChanges
  3145. i = (i + 1)
  3146. Loop
  3147. End If
  3148. If (0 < allChangedRows.Count) Then
  3149. Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
  3150. allChangedRows.CopyTo(rows)
  3151. Dim i As Integer = 0
  3152. Do While (i < rows.Length)
  3153. Dim row As Global.System.Data.DataRow = rows(i)
  3154. row.AcceptChanges
  3155. i = (i + 1)
  3156. Loop
  3157. End If
  3158. Catch ex As Global.System.Exception
  3159. workTransaction.Rollback
  3160. '---- Restore the dataset -----------
  3161. If Me.BackupDataSetBeforeUpdate Then
  3162. Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
  3163. dataSet.Clear
  3164. dataSet.Merge(backupDataSet)
  3165. Else
  3166. If (0 < allAddedRows.Count) Then
  3167. Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
  3168. allAddedRows.CopyTo(rows)
  3169. Dim i As Integer = 0
  3170. Do While (i < rows.Length)
  3171. Dim row As Global.System.Data.DataRow = rows(i)
  3172. row.AcceptChanges
  3173. row.SetAdded
  3174. i = (i + 1)
  3175. Loop
  3176. End If
  3177. End If
  3178. Throw ex
  3179. Finally
  3180. If workConnOpened Then
  3181. workConnection.Close
  3182. End If
  3183. If (Not (Me._iNV0TableAdapter) Is Nothing) Then
  3184. Me._iNV0TableAdapter.Connection = CType(revertConnections(Me._iNV0TableAdapter),Global.System.Data.SqlClient.SqlConnection)
  3185. Me._iNV0TableAdapter.Transaction = Nothing
  3186. End If
  3187. If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
  3188. Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
  3189. adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
  3190. Dim i As Integer = 0
  3191. Do While (i < adapters.Length)
  3192. Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
  3193. adapter.AcceptChangesDuringUpdate = true
  3194. i = (i + 1)
  3195. Loop
  3196. End If
  3197. End Try
  3198. Return result
  3199. End Function
  3200. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3201. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3202. Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
  3203. Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
  3204. End Sub
  3205. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3206. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3207. Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
  3208. If (Not (Me._connection) Is Nothing) Then
  3209. Return true
  3210. End If
  3211. If ((Me.Connection Is Nothing) _
  3212. OrElse (inputConnection Is Nothing)) Then
  3213. Return true
  3214. End If
  3215. If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
  3216. Return true
  3217. End If
  3218. Return false
  3219. End Function
  3220. '''<summary>
  3221. '''Update Order Option
  3222. '''</summary>
  3223. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3224. Public Enum UpdateOrderOption
  3225. InsertUpdateDelete = 0
  3226. UpdateInsertDelete = 1
  3227. End Enum
  3228. '''<summary>
  3229. '''Used to sort self-referenced table's rows
  3230. '''</summary>
  3231. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3232. Private Class SelfReferenceComparer
  3233. Inherits Object
  3234. Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
  3235. Private _relation As Global.System.Data.DataRelation
  3236. Private _childFirst As Integer
  3237. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3238. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3239. Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
  3240. MyBase.New
  3241. Me._relation = relation
  3242. If childFirst Then
  3243. Me._childFirst = -1
  3244. Else
  3245. Me._childFirst = 1
  3246. End If
  3247. End Sub
  3248. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3249. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3250. Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
  3251. Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
  3252. Dim root As Global.System.Data.DataRow = row
  3253. distance = 0
  3254. 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)()
  3255. traversedRows(row) = row
  3256. Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
  3257. Do While ((Not (parent) Is Nothing) _
  3258. AndAlso (traversedRows.ContainsKey(parent) = false))
  3259. distance = (distance + 1)
  3260. root = parent
  3261. traversedRows(parent) = parent
  3262. parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
  3263. Loop
  3264. If (distance = 0) Then
  3265. traversedRows.Clear
  3266. traversedRows(row) = row
  3267. parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
  3268. Do While ((Not (parent) Is Nothing) _
  3269. AndAlso (traversedRows.ContainsKey(parent) = false))
  3270. distance = (distance + 1)
  3271. root = parent
  3272. traversedRows(parent) = parent
  3273. parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
  3274. Loop
  3275. End If
  3276. Return root
  3277. End Function
  3278. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3279. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3280. 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
  3281. If Object.ReferenceEquals(row1, row2) Then
  3282. Return 0
  3283. End If
  3284. If (row1 Is Nothing) Then
  3285. Return -1
  3286. End If
  3287. If (row2 Is Nothing) Then
  3288. Return 1
  3289. End If
  3290. Dim distance1 As Integer = 0
  3291. Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
  3292. Dim distance2 As Integer = 0
  3293. Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
  3294. If Object.ReferenceEquals(root1, root2) Then
  3295. Return (Me._childFirst * distance1.CompareTo(distance2))
  3296. Else
  3297. Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
  3298. AndAlso (Not (root2.Table) Is Nothing)))
  3299. If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
  3300. Return -1
  3301. Else
  3302. Return 1
  3303. End If
  3304. End If
  3305. End Function
  3306. End Class
  3307. End Class
  3308. End Namespace