InversionesDEVDataSet7.Designer.vb 243 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708
  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("InversionesDEVDataSet7"), _
  20. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
  21. Partial Public Class InversionesDEVDataSet7
  22. Inherits Global.System.Data.DataSet
  23. Private tablePIN0 As PIN0DataTable
  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("PIN0")) Is Nothing) Then
  52. MyBase.Tables.Add(New PIN0DataTable(ds.Tables("PIN0")))
  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 PIN0() As PIN0DataTable
  75. Get
  76. Return Me.tablePIN0
  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 InversionesDEVDataSet7 = CType(MyBase.Clone,InversionesDEVDataSet7)
  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("PIN0")) Is Nothing) Then
  140. MyBase.Tables.Add(New PIN0DataTable(ds.Tables("PIN0")))
  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.tablePIN0 = CType(MyBase.Tables("PIN0"),PIN0DataTable)
  172. If (initTable = true) Then
  173. If (Not (Me.tablePIN0) Is Nothing) Then
  174. Me.tablePIN0.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 = "InversionesDEVDataSet7"
  182. Me.Prefix = ""
  183. Me.Namespace = "http://tempuri.org/InversionesDEVDataSet7.xsd"
  184. Me.EnforceConstraints = true
  185. Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
  186. Me.tablePIN0 = New PIN0DataTable()
  187. MyBase.Tables.Add(Me.tablePIN0)
  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 ShouldSerializePIN0() 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 InversionesDEVDataSet7 = New InversionesDEVDataSet7()
  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 PIN0RowChangeEventHandler(ByVal sender As Object, ByVal e As PIN0RowChangeEvent)
  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 PIN0DataTable
  254. Inherits Global.System.Data.TypedTableBase(Of PIN0Row)
  255. Private columnDocId As Global.System.Data.DataColumn
  256. Private columnCodInv As Global.System.Data.DataColumn
  257. Private columnVCodInv As Global.System.Data.DataColumn
  258. Private columnDocEst 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 columnAutEstado As Global.System.Data.DataColumn
  278. Private columnTipoMerc As Global.System.Data.DataColumn
  279. Private columnCodPais As Global.System.Data.DataColumn
  280. Private columnTipoRenta As Global.System.Data.DataColumn
  281. Private columnTipoTasa As Global.System.Data.DataColumn
  282. Private columnPeriodicidad As Global.System.Data.DataColumn
  283. Private columnNombreManual As Global.System.Data.DataColumn
  284. Private columnEstadoProc 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 = "PIN0"
  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 VCodInvColumn() As Global.System.Data.DataColumn
  334. Get
  335. Return Me.columnVCodInv
  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 DocEstColumn() As Global.System.Data.DataColumn
  341. Get
  342. Return Me.columnDocEst
  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 AutEstadoColumn() As Global.System.Data.DataColumn
  474. Get
  475. Return Me.columnAutEstado
  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 TipoMercColumn() As Global.System.Data.DataColumn
  481. Get
  482. Return Me.columnTipoMerc
  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 CodPaisColumn() As Global.System.Data.DataColumn
  488. Get
  489. Return Me.columnCodPais
  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 TipoRentaColumn() As Global.System.Data.DataColumn
  495. Get
  496. Return Me.columnTipoRenta
  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 TipoTasaColumn() As Global.System.Data.DataColumn
  502. Get
  503. Return Me.columnTipoTasa
  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 PeriodicidadColumn() As Global.System.Data.DataColumn
  509. Get
  510. Return Me.columnPeriodicidad
  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 NombreManualColumn() As Global.System.Data.DataColumn
  516. Get
  517. Return Me.columnNombreManual
  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 EstadoProcColumn() As Global.System.Data.DataColumn
  523. Get
  524. Return Me.columnEstadoProc
  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 PIN0Row
  538. Get
  539. Return CType(Me.Rows(index),PIN0Row)
  540. End Get
  541. End Property
  542. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  543. Public Event PIN0RowChanging As PIN0RowChangeEventHandler
  544. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  545. Public Event PIN0RowChanged As PIN0RowChangeEventHandler
  546. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  547. Public Event PIN0RowDeleting As PIN0RowChangeEventHandler
  548. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  549. Public Event PIN0RowDeleted As PIN0RowChangeEventHandler
  550. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  551. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  552. Public Overloads Sub AddPIN0Row(ByVal row As PIN0Row)
  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 AddPIN0Row( _
  558. ByVal CodInv As String, _
  559. ByVal VCodInv As String, _
  560. ByVal DocEst 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 String, _
  575. ByVal Plazo As Integer, _
  576. ByVal PlazoFact As String, _
  577. ByVal Ingresos As Decimal, _
  578. ByVal FechaDoc As Date, _
  579. ByVal AutEstado As String, _
  580. ByVal TipoMerc As String, _
  581. ByVal CodPais As String, _
  582. ByVal TipoRenta As String, _
  583. ByVal TipoTasa As String, _
  584. ByVal Periodicidad As String, _
  585. ByVal NombreManual As String, _
  586. ByVal EstadoProc As String) As PIN0Row
  587. Dim rowPIN0Row As PIN0Row = CType(Me.NewRow,PIN0Row)
  588. Dim columnValuesArray() As Object = New Object() {Nothing, CodInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Periodicidad, NombreManual, EstadoProc}
  589. rowPIN0Row.ItemArray = columnValuesArray
  590. Me.Rows.Add(rowPIN0Row)
  591. Return rowPIN0Row
  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 FindByDocId(ByVal DocId As Integer) As PIN0Row
  596. Return CType(Me.Rows.Find(New Object() {DocId}),PIN0Row)
  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 PIN0DataTable = CType(MyBase.Clone,PIN0DataTable)
  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 PIN0DataTable()
  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.columnVCodInv = MyBase.Columns("VCodInv")
  616. Me.columnDocEst = MyBase.Columns("DocEst")
  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.columnAutEstado = MyBase.Columns("AutEstado")
  636. Me.columnTipoMerc = MyBase.Columns("TipoMerc")
  637. Me.columnCodPais = MyBase.Columns("CodPais")
  638. Me.columnTipoRenta = MyBase.Columns("TipoRenta")
  639. Me.columnTipoTasa = MyBase.Columns("TipoTasa")
  640. Me.columnPeriodicidad = MyBase.Columns("Periodicidad")
  641. Me.columnNombreManual = MyBase.Columns("NombreManual")
  642. Me.columnEstadoProc = MyBase.Columns("EstadoProc")
  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.columnVCodInv = New Global.System.Data.DataColumn("VCodInv", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  652. MyBase.Columns.Add(Me.columnVCodInv)
  653. Me.columnDocEst = New Global.System.Data.DataColumn("DocEst", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  654. MyBase.Columns.Add(Me.columnDocEst)
  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(String), 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.columnAutEstado = New Global.System.Data.DataColumn("AutEstado", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  692. MyBase.Columns.Add(Me.columnAutEstado)
  693. Me.columnTipoMerc = New Global.System.Data.DataColumn("TipoMerc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  694. MyBase.Columns.Add(Me.columnTipoMerc)
  695. Me.columnCodPais = New Global.System.Data.DataColumn("CodPais", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  696. MyBase.Columns.Add(Me.columnCodPais)
  697. Me.columnTipoRenta = New Global.System.Data.DataColumn("TipoRenta", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  698. MyBase.Columns.Add(Me.columnTipoRenta)
  699. Me.columnTipoTasa = New Global.System.Data.DataColumn("TipoTasa", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  700. MyBase.Columns.Add(Me.columnTipoTasa)
  701. Me.columnPeriodicidad = New Global.System.Data.DataColumn("Periodicidad", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  702. MyBase.Columns.Add(Me.columnPeriodicidad)
  703. Me.columnNombreManual = New Global.System.Data.DataColumn("NombreManual", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  704. MyBase.Columns.Add(Me.columnNombreManual)
  705. Me.columnEstadoProc = New Global.System.Data.DataColumn("EstadoProc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  706. MyBase.Columns.Add(Me.columnEstadoProc)
  707. Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDocId}, 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.columnDocId.Unique = true
  714. Me.columnCodInv.MaxLength = 20
  715. Me.columnVCodInv.MaxLength = 20
  716. Me.columnDocEst.MaxLength = 1
  717. Me.columnAsunto.MaxLength = 100
  718. Me.columnCodEmpr.MaxLength = 10
  719. Me.columnCodIF.MaxLength = 10
  720. Me.columnCodCalRi.MaxLength = 8
  721. Me.columnCodECalRi.MaxLength = 8
  722. Me.columnOFon.MaxLength = 10
  723. Me.columnComent.MaxLength = 100
  724. Me.columnJust.MaxLength = 100
  725. Me.columnTipoOper.MaxLength = 1
  726. Me.columnRendimiento.MaxLength = 20
  727. Me.columnPlazoFact.MaxLength = 1
  728. Me.columnAutEstado.MaxLength = 1
  729. Me.columnTipoMerc.MaxLength = 3
  730. Me.columnCodPais.MaxLength = 3
  731. Me.columnTipoRenta.MaxLength = 5
  732. Me.columnTipoTasa.MaxLength = 5
  733. Me.columnPeriodicidad.MaxLength = 5
  734. Me.columnNombreManual.MaxLength = 50
  735. Me.columnEstadoProc.MaxLength = 5
  736. End Sub
  737. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  738. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  739. Public Function NewPIN0Row() As PIN0Row
  740. Return CType(Me.NewRow,PIN0Row)
  741. End Function
  742. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  743. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  744. Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
  745. Return New PIN0Row(builder)
  746. End Function
  747. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  748. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  749. Protected Overrides Function GetRowType() As Global.System.Type
  750. Return GetType(PIN0Row)
  751. End Function
  752. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  753. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  754. Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  755. MyBase.OnRowChanged(e)
  756. If (Not (Me.PIN0RowChangedEvent) Is Nothing) Then
  757. RaiseEvent PIN0RowChanged(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action))
  758. End If
  759. End Sub
  760. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  761. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  762. Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  763. MyBase.OnRowChanging(e)
  764. If (Not (Me.PIN0RowChangingEvent) Is Nothing) Then
  765. RaiseEvent PIN0RowChanging(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action))
  766. End If
  767. End Sub
  768. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  769. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  770. Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  771. MyBase.OnRowDeleted(e)
  772. If (Not (Me.PIN0RowDeletedEvent) Is Nothing) Then
  773. RaiseEvent PIN0RowDeleted(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action))
  774. End If
  775. End Sub
  776. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  777. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  778. Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  779. MyBase.OnRowDeleting(e)
  780. If (Not (Me.PIN0RowDeletingEvent) Is Nothing) Then
  781. RaiseEvent PIN0RowDeleting(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action))
  782. End If
  783. End Sub
  784. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  785. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  786. Public Sub RemovePIN0Row(ByVal row As PIN0Row)
  787. Me.Rows.Remove(row)
  788. End Sub
  789. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  790. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  791. Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
  792. Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
  793. Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
  794. Dim ds As InversionesDEVDataSet7 = New InversionesDEVDataSet7()
  795. Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  796. any1.Namespace = "http://www.w3.org/2001/XMLSchema"
  797. any1.MinOccurs = New Decimal(0)
  798. any1.MaxOccurs = Decimal.MaxValue
  799. any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  800. sequence.Items.Add(any1)
  801. Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  802. any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
  803. any2.MinOccurs = New Decimal(1)
  804. any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  805. sequence.Items.Add(any2)
  806. Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  807. attribute1.Name = "namespace"
  808. attribute1.FixedValue = ds.Namespace
  809. type.Attributes.Add(attribute1)
  810. Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  811. attribute2.Name = "tableTypeName"
  812. attribute2.FixedValue = "PIN0DataTable"
  813. type.Attributes.Add(attribute2)
  814. type.Particle = sequence
  815. Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
  816. If xs.Contains(dsSchema.TargetNamespace) Then
  817. Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  818. Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  819. Try
  820. Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
  821. dsSchema.Write(s1)
  822. Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
  823. Do While schemas.MoveNext
  824. schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
  825. s2.SetLength(0)
  826. schema.Write(s2)
  827. If (s1.Length = s2.Length) Then
  828. s1.Position = 0
  829. s2.Position = 0
  830. Do While ((s1.Position <> s1.Length) _
  831. AndAlso (s1.ReadByte = s2.ReadByte))
  832. Loop
  833. If (s1.Position = s1.Length) Then
  834. Return type
  835. End If
  836. End If
  837. Loop
  838. Finally
  839. If (Not (s1) Is Nothing) Then
  840. s1.Close
  841. End If
  842. If (Not (s2) Is Nothing) Then
  843. s2.Close
  844. End If
  845. End Try
  846. End If
  847. xs.Add(dsSchema)
  848. Return type
  849. End Function
  850. End Class
  851. '''<summary>
  852. '''Represents strongly named DataRow class.
  853. '''</summary>
  854. Partial Public Class PIN0Row
  855. Inherits Global.System.Data.DataRow
  856. Private tablePIN0 As PIN0DataTable
  857. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  858. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  859. Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
  860. MyBase.New(rb)
  861. Me.tablePIN0 = CType(Me.Table,PIN0DataTable)
  862. End Sub
  863. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  864. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  865. Public Property DocId() As Integer
  866. Get
  867. Return CType(Me(Me.tablePIN0.DocIdColumn),Integer)
  868. End Get
  869. Set
  870. Me(Me.tablePIN0.DocIdColumn) = value
  871. End Set
  872. End Property
  873. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  874. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  875. Public Property CodInv() As String
  876. Get
  877. Try
  878. Return CType(Me(Me.tablePIN0.CodInvColumn),String)
  879. Catch e As Global.System.InvalidCastException
  880. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodInv' de la tabla 'PIN0' es DBNull.", e)
  881. End Try
  882. End Get
  883. Set
  884. Me(Me.tablePIN0.CodInvColumn) = value
  885. End Set
  886. End Property
  887. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  888. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  889. Public Property VCodInv() As String
  890. Get
  891. Try
  892. Return CType(Me(Me.tablePIN0.VCodInvColumn),String)
  893. Catch e As Global.System.InvalidCastException
  894. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'VCodInv' de la tabla 'PIN0' es DBNull.", e)
  895. End Try
  896. End Get
  897. Set
  898. Me(Me.tablePIN0.VCodInvColumn) = value
  899. End Set
  900. End Property
  901. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  902. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  903. Public Property DocEst() As String
  904. Get
  905. Try
  906. Return CType(Me(Me.tablePIN0.DocEstColumn),String)
  907. Catch e As Global.System.InvalidCastException
  908. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'DocEst' de la tabla 'PIN0' es DBNull.", e)
  909. End Try
  910. End Get
  911. Set
  912. Me(Me.tablePIN0.DocEstColumn) = value
  913. End Set
  914. End Property
  915. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  916. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  917. Public Property Asunto() As String
  918. Get
  919. Try
  920. Return CType(Me(Me.tablePIN0.AsuntoColumn),String)
  921. Catch e As Global.System.InvalidCastException
  922. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Asunto' de la tabla 'PIN0' es DBNull.", e)
  923. End Try
  924. End Get
  925. Set
  926. Me(Me.tablePIN0.AsuntoColumn) = value
  927. End Set
  928. End Property
  929. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  930. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  931. Public Property CodEmpr() As String
  932. Get
  933. Try
  934. Return CType(Me(Me.tablePIN0.CodEmprColumn),String)
  935. Catch e As Global.System.InvalidCastException
  936. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodEmpr' de la tabla 'PIN0' es DBNull.", e)
  937. End Try
  938. End Get
  939. Set
  940. Me(Me.tablePIN0.CodEmprColumn) = 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 CodIF() As String
  946. Get
  947. Try
  948. Return CType(Me(Me.tablePIN0.CodIFColumn),String)
  949. Catch e As Global.System.InvalidCastException
  950. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodIF' de la tabla 'PIN0' es DBNull.", e)
  951. End Try
  952. End Get
  953. Set
  954. Me(Me.tablePIN0.CodIFColumn) = 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 CodEmis() As Integer
  960. Get
  961. Try
  962. Return CType(Me(Me.tablePIN0.CodEmisColumn),Integer)
  963. Catch e As Global.System.InvalidCastException
  964. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodEmis' de la tabla 'PIN0' es DBNull.", e)
  965. End Try
  966. End Get
  967. Set
  968. Me(Me.tablePIN0.CodEmisColumn) = 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 CodCalRi() As String
  974. Get
  975. Try
  976. Return CType(Me(Me.tablePIN0.CodCalRiColumn),String)
  977. Catch e As Global.System.InvalidCastException
  978. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodCalRi' de la tabla 'PIN0' es DBNull.", e)
  979. End Try
  980. End Get
  981. Set
  982. Me(Me.tablePIN0.CodCalRiColumn) = 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 CodECalRi() As String
  988. Get
  989. Try
  990. Return CType(Me(Me.tablePIN0.CodECalRiColumn),String)
  991. Catch e As Global.System.InvalidCastException
  992. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodECalRi' de la tabla 'PIN0' es DBNull.", e)
  993. End Try
  994. End Get
  995. Set
  996. Me(Me.tablePIN0.CodECalRiColumn) = 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 OFon() As String
  1002. Get
  1003. Try
  1004. Return CType(Me(Me.tablePIN0.OFonColumn),String)
  1005. Catch e As Global.System.InvalidCastException
  1006. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'OFon' de la tabla 'PIN0' es DBNull.", e)
  1007. End Try
  1008. End Get
  1009. Set
  1010. Me(Me.tablePIN0.OFonColumn) = 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 Coment() As String
  1016. Get
  1017. Try
  1018. Return CType(Me(Me.tablePIN0.ComentColumn),String)
  1019. Catch e As Global.System.InvalidCastException
  1020. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Coment' de la tabla 'PIN0' es DBNull.", e)
  1021. End Try
  1022. End Get
  1023. Set
  1024. Me(Me.tablePIN0.ComentColumn) = 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 Just() As String
  1030. Get
  1031. Try
  1032. Return CType(Me(Me.tablePIN0.JustColumn),String)
  1033. Catch e As Global.System.InvalidCastException
  1034. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Just' de la tabla 'PIN0' es DBNull.", e)
  1035. End Try
  1036. End Get
  1037. Set
  1038. Me(Me.tablePIN0.JustColumn) = 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 TipoOper() As String
  1044. Get
  1045. Try
  1046. Return CType(Me(Me.tablePIN0.TipoOperColumn),String)
  1047. Catch e As Global.System.InvalidCastException
  1048. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoOper' de la tabla 'PIN0' es DBNull.", e)
  1049. End Try
  1050. End Get
  1051. Set
  1052. Me(Me.tablePIN0.TipoOperColumn) = 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 DocBase() As Integer
  1058. Get
  1059. Try
  1060. Return CType(Me(Me.tablePIN0.DocBaseColumn),Integer)
  1061. Catch e As Global.System.InvalidCastException
  1062. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'DocBase' de la tabla 'PIN0' es DBNull.", e)
  1063. End Try
  1064. End Get
  1065. Set
  1066. Me(Me.tablePIN0.DocBaseColumn) = 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 MontoInv() As Decimal
  1072. Get
  1073. Try
  1074. Return CType(Me(Me.tablePIN0.MontoInvColumn),Decimal)
  1075. Catch e As Global.System.InvalidCastException
  1076. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'MontoInv' de la tabla 'PIN0' es DBNull.", e)
  1077. End Try
  1078. End Get
  1079. Set
  1080. Me(Me.tablePIN0.MontoInvColumn) = 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 Precio() As Decimal
  1086. Get
  1087. Try
  1088. Return CType(Me(Me.tablePIN0.PrecioColumn),Decimal)
  1089. Catch e As Global.System.InvalidCastException
  1090. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Precio' de la tabla 'PIN0' es DBNull.", e)
  1091. End Try
  1092. End Get
  1093. Set
  1094. Me(Me.tablePIN0.PrecioColumn) = 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 Rendimiento() As String
  1100. Get
  1101. Try
  1102. Return CType(Me(Me.tablePIN0.RendimientoColumn),String)
  1103. Catch e As Global.System.InvalidCastException
  1104. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Rendimiento' de la tabla 'PIN0' es DBNull.", e)
  1105. End Try
  1106. End Get
  1107. Set
  1108. Me(Me.tablePIN0.RendimientoColumn) = 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 Plazo() As Integer
  1114. Get
  1115. Try
  1116. Return CType(Me(Me.tablePIN0.PlazoColumn),Integer)
  1117. Catch e As Global.System.InvalidCastException
  1118. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Plazo' de la tabla 'PIN0' es DBNull.", e)
  1119. End Try
  1120. End Get
  1121. Set
  1122. Me(Me.tablePIN0.PlazoColumn) = 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 PlazoFact() As String
  1128. Get
  1129. Try
  1130. Return CType(Me(Me.tablePIN0.PlazoFactColumn),String)
  1131. Catch e As Global.System.InvalidCastException
  1132. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'PlazoFact' de la tabla 'PIN0' es DBNull.", e)
  1133. End Try
  1134. End Get
  1135. Set
  1136. Me(Me.tablePIN0.PlazoFactColumn) = 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 Ingresos() As Decimal
  1142. Get
  1143. Try
  1144. Return CType(Me(Me.tablePIN0.IngresosColumn),Decimal)
  1145. Catch e As Global.System.InvalidCastException
  1146. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Ingresos' de la tabla 'PIN0' es DBNull.", e)
  1147. End Try
  1148. End Get
  1149. Set
  1150. Me(Me.tablePIN0.IngresosColumn) = value
  1151. End Set
  1152. End Property
  1153. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1154. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1155. Public Property FechaDoc() As Date
  1156. Get
  1157. Try
  1158. Return CType(Me(Me.tablePIN0.FechaDocColumn),Date)
  1159. Catch e As Global.System.InvalidCastException
  1160. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'FechaDoc' de la tabla 'PIN0' es DBNull.", e)
  1161. End Try
  1162. End Get
  1163. Set
  1164. Me(Me.tablePIN0.FechaDocColumn) = value
  1165. End Set
  1166. End Property
  1167. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1168. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1169. Public Property AutEstado() As String
  1170. Get
  1171. Try
  1172. Return CType(Me(Me.tablePIN0.AutEstadoColumn),String)
  1173. Catch e As Global.System.InvalidCastException
  1174. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'AutEstado' de la tabla 'PIN0' es DBNull.", e)
  1175. End Try
  1176. End Get
  1177. Set
  1178. Me(Me.tablePIN0.AutEstadoColumn) = value
  1179. End Set
  1180. End Property
  1181. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1182. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1183. Public Property TipoMerc() As String
  1184. Get
  1185. Try
  1186. Return CType(Me(Me.tablePIN0.TipoMercColumn),String)
  1187. Catch e As Global.System.InvalidCastException
  1188. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoMerc' de la tabla 'PIN0' es DBNull.", e)
  1189. End Try
  1190. End Get
  1191. Set
  1192. Me(Me.tablePIN0.TipoMercColumn) = value
  1193. End Set
  1194. End Property
  1195. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1196. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1197. Public Property CodPais() As String
  1198. Get
  1199. Try
  1200. Return CType(Me(Me.tablePIN0.CodPaisColumn),String)
  1201. Catch e As Global.System.InvalidCastException
  1202. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodPais' de la tabla 'PIN0' es DBNull.", e)
  1203. End Try
  1204. End Get
  1205. Set
  1206. Me(Me.tablePIN0.CodPaisColumn) = value
  1207. End Set
  1208. End Property
  1209. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1210. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1211. Public Property TipoRenta() As String
  1212. Get
  1213. Try
  1214. Return CType(Me(Me.tablePIN0.TipoRentaColumn),String)
  1215. Catch e As Global.System.InvalidCastException
  1216. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoRenta' de la tabla 'PIN0' es DBNull.", e)
  1217. End Try
  1218. End Get
  1219. Set
  1220. Me(Me.tablePIN0.TipoRentaColumn) = value
  1221. End Set
  1222. End Property
  1223. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1224. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1225. Public Property TipoTasa() As String
  1226. Get
  1227. Try
  1228. Return CType(Me(Me.tablePIN0.TipoTasaColumn),String)
  1229. Catch e As Global.System.InvalidCastException
  1230. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoTasa' de la tabla 'PIN0' es DBNull.", e)
  1231. End Try
  1232. End Get
  1233. Set
  1234. Me(Me.tablePIN0.TipoTasaColumn) = value
  1235. End Set
  1236. End Property
  1237. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1238. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1239. Public Property Periodicidad() As String
  1240. Get
  1241. Try
  1242. Return CType(Me(Me.tablePIN0.PeriodicidadColumn),String)
  1243. Catch e As Global.System.InvalidCastException
  1244. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Periodicidad' de la tabla 'PIN0' es DBNull.", e)
  1245. End Try
  1246. End Get
  1247. Set
  1248. Me(Me.tablePIN0.PeriodicidadColumn) = value
  1249. End Set
  1250. End Property
  1251. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1252. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1253. Public Property NombreManual() As String
  1254. Get
  1255. Try
  1256. Return CType(Me(Me.tablePIN0.NombreManualColumn),String)
  1257. Catch e As Global.System.InvalidCastException
  1258. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'NombreManual' de la tabla 'PIN0' es DBNull.", e)
  1259. End Try
  1260. End Get
  1261. Set
  1262. Me(Me.tablePIN0.NombreManualColumn) = value
  1263. End Set
  1264. End Property
  1265. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1266. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1267. Public Property EstadoProc() As String
  1268. Get
  1269. Try
  1270. Return CType(Me(Me.tablePIN0.EstadoProcColumn),String)
  1271. Catch e As Global.System.InvalidCastException
  1272. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'EstadoProc' de la tabla 'PIN0' es DBNull.", e)
  1273. End Try
  1274. End Get
  1275. Set
  1276. Me(Me.tablePIN0.EstadoProcColumn) = value
  1277. End Set
  1278. End Property
  1279. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1280. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1281. Public Function IsCodInvNull() As Boolean
  1282. Return Me.IsNull(Me.tablePIN0.CodInvColumn)
  1283. End Function
  1284. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1285. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1286. Public Sub SetCodInvNull()
  1287. Me(Me.tablePIN0.CodInvColumn) = Global.System.Convert.DBNull
  1288. End Sub
  1289. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1290. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1291. Public Function IsVCodInvNull() As Boolean
  1292. Return Me.IsNull(Me.tablePIN0.VCodInvColumn)
  1293. End Function
  1294. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1295. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1296. Public Sub SetVCodInvNull()
  1297. Me(Me.tablePIN0.VCodInvColumn) = Global.System.Convert.DBNull
  1298. End Sub
  1299. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1300. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1301. Public Function IsDocEstNull() As Boolean
  1302. Return Me.IsNull(Me.tablePIN0.DocEstColumn)
  1303. End Function
  1304. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1305. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1306. Public Sub SetDocEstNull()
  1307. Me(Me.tablePIN0.DocEstColumn) = Global.System.Convert.DBNull
  1308. End Sub
  1309. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1310. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1311. Public Function IsAsuntoNull() As Boolean
  1312. Return Me.IsNull(Me.tablePIN0.AsuntoColumn)
  1313. End Function
  1314. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1315. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1316. Public Sub SetAsuntoNull()
  1317. Me(Me.tablePIN0.AsuntoColumn) = Global.System.Convert.DBNull
  1318. End Sub
  1319. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1320. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1321. Public Function IsCodEmprNull() As Boolean
  1322. Return Me.IsNull(Me.tablePIN0.CodEmprColumn)
  1323. End Function
  1324. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1325. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1326. Public Sub SetCodEmprNull()
  1327. Me(Me.tablePIN0.CodEmprColumn) = Global.System.Convert.DBNull
  1328. End Sub
  1329. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1330. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1331. Public Function IsCodIFNull() As Boolean
  1332. Return Me.IsNull(Me.tablePIN0.CodIFColumn)
  1333. End Function
  1334. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1335. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1336. Public Sub SetCodIFNull()
  1337. Me(Me.tablePIN0.CodIFColumn) = Global.System.Convert.DBNull
  1338. End Sub
  1339. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1340. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1341. Public Function IsCodEmisNull() As Boolean
  1342. Return Me.IsNull(Me.tablePIN0.CodEmisColumn)
  1343. End Function
  1344. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1345. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1346. Public Sub SetCodEmisNull()
  1347. Me(Me.tablePIN0.CodEmisColumn) = Global.System.Convert.DBNull
  1348. End Sub
  1349. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1350. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1351. Public Function IsCodCalRiNull() As Boolean
  1352. Return Me.IsNull(Me.tablePIN0.CodCalRiColumn)
  1353. End Function
  1354. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1355. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1356. Public Sub SetCodCalRiNull()
  1357. Me(Me.tablePIN0.CodCalRiColumn) = Global.System.Convert.DBNull
  1358. End Sub
  1359. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1360. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1361. Public Function IsCodECalRiNull() As Boolean
  1362. Return Me.IsNull(Me.tablePIN0.CodECalRiColumn)
  1363. End Function
  1364. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1365. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1366. Public Sub SetCodECalRiNull()
  1367. Me(Me.tablePIN0.CodECalRiColumn) = Global.System.Convert.DBNull
  1368. End Sub
  1369. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1370. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1371. Public Function IsOFonNull() As Boolean
  1372. Return Me.IsNull(Me.tablePIN0.OFonColumn)
  1373. End Function
  1374. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1375. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1376. Public Sub SetOFonNull()
  1377. Me(Me.tablePIN0.OFonColumn) = Global.System.Convert.DBNull
  1378. End Sub
  1379. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1380. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1381. Public Function IsComentNull() As Boolean
  1382. Return Me.IsNull(Me.tablePIN0.ComentColumn)
  1383. End Function
  1384. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1385. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1386. Public Sub SetComentNull()
  1387. Me(Me.tablePIN0.ComentColumn) = Global.System.Convert.DBNull
  1388. End Sub
  1389. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1390. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1391. Public Function IsJustNull() As Boolean
  1392. Return Me.IsNull(Me.tablePIN0.JustColumn)
  1393. End Function
  1394. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1395. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1396. Public Sub SetJustNull()
  1397. Me(Me.tablePIN0.JustColumn) = Global.System.Convert.DBNull
  1398. End Sub
  1399. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1400. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1401. Public Function IsTipoOperNull() As Boolean
  1402. Return Me.IsNull(Me.tablePIN0.TipoOperColumn)
  1403. End Function
  1404. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1405. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1406. Public Sub SetTipoOperNull()
  1407. Me(Me.tablePIN0.TipoOperColumn) = Global.System.Convert.DBNull
  1408. End Sub
  1409. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1410. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1411. Public Function IsDocBaseNull() As Boolean
  1412. Return Me.IsNull(Me.tablePIN0.DocBaseColumn)
  1413. End Function
  1414. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1415. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1416. Public Sub SetDocBaseNull()
  1417. Me(Me.tablePIN0.DocBaseColumn) = Global.System.Convert.DBNull
  1418. End Sub
  1419. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1420. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1421. Public Function IsMontoInvNull() As Boolean
  1422. Return Me.IsNull(Me.tablePIN0.MontoInvColumn)
  1423. End Function
  1424. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1425. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1426. Public Sub SetMontoInvNull()
  1427. Me(Me.tablePIN0.MontoInvColumn) = Global.System.Convert.DBNull
  1428. End Sub
  1429. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1430. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1431. Public Function IsPrecioNull() As Boolean
  1432. Return Me.IsNull(Me.tablePIN0.PrecioColumn)
  1433. End Function
  1434. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1435. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1436. Public Sub SetPrecioNull()
  1437. Me(Me.tablePIN0.PrecioColumn) = Global.System.Convert.DBNull
  1438. End Sub
  1439. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1440. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1441. Public Function IsRendimientoNull() As Boolean
  1442. Return Me.IsNull(Me.tablePIN0.RendimientoColumn)
  1443. End Function
  1444. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1445. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1446. Public Sub SetRendimientoNull()
  1447. Me(Me.tablePIN0.RendimientoColumn) = Global.System.Convert.DBNull
  1448. End Sub
  1449. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1450. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1451. Public Function IsPlazoNull() As Boolean
  1452. Return Me.IsNull(Me.tablePIN0.PlazoColumn)
  1453. End Function
  1454. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1455. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1456. Public Sub SetPlazoNull()
  1457. Me(Me.tablePIN0.PlazoColumn) = Global.System.Convert.DBNull
  1458. End Sub
  1459. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1460. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1461. Public Function IsPlazoFactNull() As Boolean
  1462. Return Me.IsNull(Me.tablePIN0.PlazoFactColumn)
  1463. End Function
  1464. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1465. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1466. Public Sub SetPlazoFactNull()
  1467. Me(Me.tablePIN0.PlazoFactColumn) = Global.System.Convert.DBNull
  1468. End Sub
  1469. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1470. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1471. Public Function IsIngresosNull() As Boolean
  1472. Return Me.IsNull(Me.tablePIN0.IngresosColumn)
  1473. End Function
  1474. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1475. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1476. Public Sub SetIngresosNull()
  1477. Me(Me.tablePIN0.IngresosColumn) = Global.System.Convert.DBNull
  1478. End Sub
  1479. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1480. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1481. Public Function IsFechaDocNull() As Boolean
  1482. Return Me.IsNull(Me.tablePIN0.FechaDocColumn)
  1483. End Function
  1484. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1485. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1486. Public Sub SetFechaDocNull()
  1487. Me(Me.tablePIN0.FechaDocColumn) = Global.System.Convert.DBNull
  1488. End Sub
  1489. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1490. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1491. Public Function IsAutEstadoNull() As Boolean
  1492. Return Me.IsNull(Me.tablePIN0.AutEstadoColumn)
  1493. End Function
  1494. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1495. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1496. Public Sub SetAutEstadoNull()
  1497. Me(Me.tablePIN0.AutEstadoColumn) = Global.System.Convert.DBNull
  1498. End Sub
  1499. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1500. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1501. Public Function IsTipoMercNull() As Boolean
  1502. Return Me.IsNull(Me.tablePIN0.TipoMercColumn)
  1503. End Function
  1504. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1505. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1506. Public Sub SetTipoMercNull()
  1507. Me(Me.tablePIN0.TipoMercColumn) = Global.System.Convert.DBNull
  1508. End Sub
  1509. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1510. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1511. Public Function IsCodPaisNull() As Boolean
  1512. Return Me.IsNull(Me.tablePIN0.CodPaisColumn)
  1513. End Function
  1514. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1515. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1516. Public Sub SetCodPaisNull()
  1517. Me(Me.tablePIN0.CodPaisColumn) = Global.System.Convert.DBNull
  1518. End Sub
  1519. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1520. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1521. Public Function IsTipoRentaNull() As Boolean
  1522. Return Me.IsNull(Me.tablePIN0.TipoRentaColumn)
  1523. End Function
  1524. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1525. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1526. Public Sub SetTipoRentaNull()
  1527. Me(Me.tablePIN0.TipoRentaColumn) = Global.System.Convert.DBNull
  1528. End Sub
  1529. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1530. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1531. Public Function IsTipoTasaNull() As Boolean
  1532. Return Me.IsNull(Me.tablePIN0.TipoTasaColumn)
  1533. End Function
  1534. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1535. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1536. Public Sub SetTipoTasaNull()
  1537. Me(Me.tablePIN0.TipoTasaColumn) = Global.System.Convert.DBNull
  1538. End Sub
  1539. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1540. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1541. Public Function IsPeriodicidadNull() As Boolean
  1542. Return Me.IsNull(Me.tablePIN0.PeriodicidadColumn)
  1543. End Function
  1544. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1545. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1546. Public Sub SetPeriodicidadNull()
  1547. Me(Me.tablePIN0.PeriodicidadColumn) = Global.System.Convert.DBNull
  1548. End Sub
  1549. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1550. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1551. Public Function IsNombreManualNull() As Boolean
  1552. Return Me.IsNull(Me.tablePIN0.NombreManualColumn)
  1553. End Function
  1554. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1555. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1556. Public Sub SetNombreManualNull()
  1557. Me(Me.tablePIN0.NombreManualColumn) = Global.System.Convert.DBNull
  1558. End Sub
  1559. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1560. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1561. Public Function IsEstadoProcNull() As Boolean
  1562. Return Me.IsNull(Me.tablePIN0.EstadoProcColumn)
  1563. End Function
  1564. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1565. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1566. Public Sub SetEstadoProcNull()
  1567. Me(Me.tablePIN0.EstadoProcColumn) = Global.System.Convert.DBNull
  1568. End Sub
  1569. End Class
  1570. '''<summary>
  1571. '''Row event argument class
  1572. '''</summary>
  1573. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1574. Public Class PIN0RowChangeEvent
  1575. Inherits Global.System.EventArgs
  1576. Private eventRow As PIN0Row
  1577. Private eventAction As Global.System.Data.DataRowAction
  1578. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1579. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1580. Public Sub New(ByVal row As PIN0Row, ByVal action As Global.System.Data.DataRowAction)
  1581. MyBase.New
  1582. Me.eventRow = row
  1583. Me.eventAction = action
  1584. End Sub
  1585. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1586. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1587. Public ReadOnly Property Row() As PIN0Row
  1588. Get
  1589. Return Me.eventRow
  1590. End Get
  1591. End Property
  1592. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1593. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1594. Public ReadOnly Property Action() As Global.System.Data.DataRowAction
  1595. Get
  1596. Return Me.eventAction
  1597. End Get
  1598. End Property
  1599. End Class
  1600. End Class
  1601. Namespace InversionesDEVDataSet7TableAdapters
  1602. '''<summary>
  1603. '''Represents the connection and commands used to retrieve and save data.
  1604. '''</summary>
  1605. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  1606. Global.System.ComponentModel.ToolboxItem(true), _
  1607. Global.System.ComponentModel.DataObjectAttribute(true), _
  1608. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
  1609. ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  1610. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1611. Partial Public Class PIN0TableAdapter
  1612. Inherits Global.System.ComponentModel.Component
  1613. Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
  1614. Private _connection As Global.System.Data.SqlClient.SqlConnection
  1615. Private _transaction As Global.System.Data.SqlClient.SqlTransaction
  1616. Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
  1617. Private _clearBeforeFill As Boolean
  1618. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1619. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1620. Public Sub New()
  1621. MyBase.New
  1622. Me.ClearBeforeFill = true
  1623. End Sub
  1624. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1625. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1626. Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
  1627. Get
  1628. If (Me._adapter Is Nothing) Then
  1629. Me.InitAdapter
  1630. End If
  1631. Return Me._adapter
  1632. End Get
  1633. End Property
  1634. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1635. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1636. Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
  1637. Get
  1638. If (Me._connection Is Nothing) Then
  1639. Me.InitConnection
  1640. End If
  1641. Return Me._connection
  1642. End Get
  1643. Set
  1644. Me._connection = value
  1645. If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
  1646. Me.Adapter.InsertCommand.Connection = value
  1647. End If
  1648. If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
  1649. Me.Adapter.DeleteCommand.Connection = value
  1650. End If
  1651. If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
  1652. Me.Adapter.UpdateCommand.Connection = value
  1653. End If
  1654. Dim i As Integer = 0
  1655. Do While (i < Me.CommandCollection.Length)
  1656. If (Not (Me.CommandCollection(i)) Is Nothing) Then
  1657. CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
  1658. End If
  1659. i = (i + 1)
  1660. Loop
  1661. End Set
  1662. End Property
  1663. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1664. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1665. Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
  1666. Get
  1667. Return Me._transaction
  1668. End Get
  1669. Set
  1670. Me._transaction = value
  1671. Dim i As Integer = 0
  1672. Do While (i < Me.CommandCollection.Length)
  1673. Me.CommandCollection(i).Transaction = Me._transaction
  1674. i = (i + 1)
  1675. Loop
  1676. If ((Not (Me.Adapter) Is Nothing) _
  1677. AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
  1678. Me.Adapter.DeleteCommand.Transaction = Me._transaction
  1679. End If
  1680. If ((Not (Me.Adapter) Is Nothing) _
  1681. AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
  1682. Me.Adapter.InsertCommand.Transaction = Me._transaction
  1683. End If
  1684. If ((Not (Me.Adapter) Is Nothing) _
  1685. AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
  1686. Me.Adapter.UpdateCommand.Transaction = Me._transaction
  1687. End If
  1688. End Set
  1689. End Property
  1690. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1691. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1692. Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
  1693. Get
  1694. If (Me._commandCollection Is Nothing) Then
  1695. Me.InitCommandCollection
  1696. End If
  1697. Return Me._commandCollection
  1698. End Get
  1699. End Property
  1700. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1701. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1702. Public Property ClearBeforeFill() As Boolean
  1703. Get
  1704. Return Me._clearBeforeFill
  1705. End Get
  1706. Set
  1707. Me._clearBeforeFill = value
  1708. End Set
  1709. End Property
  1710. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1711. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  1712. Private Sub InitAdapter()
  1713. Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
  1714. Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
  1715. tableMapping.SourceTable = "Table"
  1716. tableMapping.DataSetTable = "PIN0"
  1717. tableMapping.ColumnMappings.Add("DocId", "DocId")
  1718. tableMapping.ColumnMappings.Add("CodInv", "CodInv")
  1719. tableMapping.ColumnMappings.Add("VCodInv", "VCodInv")
  1720. tableMapping.ColumnMappings.Add("DocEst", "DocEst")
  1721. tableMapping.ColumnMappings.Add("Asunto", "Asunto")
  1722. tableMapping.ColumnMappings.Add("CodEmpr", "CodEmpr")
  1723. tableMapping.ColumnMappings.Add("CodIF", "CodIF")
  1724. tableMapping.ColumnMappings.Add("CodEmis", "CodEmis")
  1725. tableMapping.ColumnMappings.Add("CodCalRi", "CodCalRi")
  1726. tableMapping.ColumnMappings.Add("CodECalRi", "CodECalRi")
  1727. tableMapping.ColumnMappings.Add("OFon", "OFon")
  1728. tableMapping.ColumnMappings.Add("Coment", "Coment")
  1729. tableMapping.ColumnMappings.Add("Just", "Just")
  1730. tableMapping.ColumnMappings.Add("TipoOper", "TipoOper")
  1731. tableMapping.ColumnMappings.Add("DocBase", "DocBase")
  1732. tableMapping.ColumnMappings.Add("MontoInv", "MontoInv")
  1733. tableMapping.ColumnMappings.Add("Precio", "Precio")
  1734. tableMapping.ColumnMappings.Add("Rendimiento", "Rendimiento")
  1735. tableMapping.ColumnMappings.Add("Plazo", "Plazo")
  1736. tableMapping.ColumnMappings.Add("PlazoFact", "PlazoFact")
  1737. tableMapping.ColumnMappings.Add("Ingresos", "Ingresos")
  1738. tableMapping.ColumnMappings.Add("FechaDoc", "FechaDoc")
  1739. tableMapping.ColumnMappings.Add("AutEstado", "AutEstado")
  1740. tableMapping.ColumnMappings.Add("TipoMerc", "TipoMerc")
  1741. tableMapping.ColumnMappings.Add("CodPais", "CodPais")
  1742. tableMapping.ColumnMappings.Add("TipoRenta", "TipoRenta")
  1743. tableMapping.ColumnMappings.Add("TipoTasa", "TipoTasa")
  1744. tableMapping.ColumnMappings.Add("Periodicidad", "Periodicidad")
  1745. tableMapping.ColumnMappings.Add("NombreManual", "NombreManual")
  1746. tableMapping.ColumnMappings.Add("EstadoProc", "EstadoProc")
  1747. Me._adapter.TableMappings.Add(tableMapping)
  1748. Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
  1749. Me._adapter.DeleteCommand.Connection = Me.Connection
  1750. Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[PIN0] WHERE (([DocId] = @Original_DocId) AND ((@IsNull_CodInv "& _
  1751. "= 1 AND [CodInv] IS NULL) OR ([CodInv] = @Original_CodInv)) AND ((@IsNull_VCodIn"& _
  1752. "v = 1 AND [VCodInv] IS NULL) OR ([VCodInv] = @Original_VCodInv)) AND ((@IsNull_D"& _
  1753. "ocEst = 1 AND [DocEst] IS NULL) OR ([DocEst] = @Original_DocEst)) AND ((@IsNull_"& _
  1754. "Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_Asunto)) AND ((@IsNull"& _
  1755. "_CodEmpr = 1 AND [CodEmpr] IS NULL) OR ([CodEmpr] = @Original_CodEmpr)) AND ((@I"& _
  1756. "sNull_CodIF = 1 AND [CodIF] IS NULL) OR ([CodIF] = @Original_CodIF)) AND ((@IsNu"& _
  1757. "ll_CodEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis] = @Original_CodEmis)) AND (("& _
  1758. "@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL) OR ([CodCalRi] = @Original_CodCalRi"& _
  1759. ")) AND ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS NULL) OR ([CodECalRi] = @Origi"& _
  1760. "nal_CodECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] IS NULL) OR ([OFon] = @Origina"& _
  1761. "l_OFon)) AND ((@IsNull_Coment = 1 AND [Coment] IS NULL) OR ([Coment] = @Original"& _
  1762. "_Coment)) AND ((@IsNull_Just = 1 AND [Just] IS NULL) OR ([Just] = @Original_Just"& _
  1763. ")) AND ((@IsNull_TipoOper = 1 AND [TipoOper] IS NULL) OR ([TipoOper] = @Original"& _
  1764. "_TipoOper)) AND ((@IsNull_DocBase = 1 AND [DocBase] IS NULL) OR ([DocBase] = @Or"& _
  1765. "iginal_DocBase)) AND ((@IsNull_MontoInv = 1 AND [MontoInv] IS NULL) OR ([MontoIn"& _
  1766. "v] = @Original_MontoInv)) AND ((@IsNull_Precio = 1 AND [Precio] IS NULL) OR ([Pr"& _
  1767. "ecio] = @Original_Precio)) AND ((@IsNull_Rendimiento = 1 AND [Rendimiento] IS NU"& _
  1768. "LL) OR ([Rendimiento] = @Original_Rendimiento)) AND ((@IsNull_Plazo = 1 AND [Pla"& _
  1769. "zo] IS NULL) OR ([Plazo] = @Original_Plazo)) AND ((@IsNull_PlazoFact = 1 AND [Pl"& _
  1770. "azoFact] IS NULL) OR ([PlazoFact] = @Original_PlazoFact)) AND ((@IsNull_Ingresos"& _
  1771. " = 1 AND [Ingresos] IS NULL) OR ([Ingresos] = @Original_Ingresos)) AND ((@IsNull"& _
  1772. "_FechaDoc = 1 AND [FechaDoc] IS NULL) OR ([FechaDoc] = @Original_FechaDoc)) AND "& _
  1773. "((@IsNull_AutEstado = 1 AND [AutEstado] IS NULL) OR ([AutEstado] = @Original_Aut"& _
  1774. "Estado)) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL) OR ([TipoMerc] = @Or"& _
  1775. "iginal_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] IS NULL) OR ([CodPais]"& _
  1776. " = @Original_CodPais)) AND ((@IsNull_TipoRenta = 1 AND [TipoRenta] IS NULL) OR ("& _
  1777. "[TipoRenta] = @Original_TipoRenta)) AND ((@IsNull_TipoTasa = 1 AND [TipoTasa] IS"& _
  1778. " NULL) OR ([TipoTasa] = @Original_TipoTasa)) AND ((@IsNull_Periodicidad = 1 AND "& _
  1779. "[Periodicidad] IS NULL) OR ([Periodicidad] = @Original_Periodicidad)) AND ((@IsN"& _
  1780. "ull_NombreManual = 1 AND [NombreManual] IS NULL) OR ([NombreManual] = @Original_"& _
  1781. "NombreManual)) AND ((@IsNull_EstadoProc = 1 AND [EstadoProc] IS NULL) OR ([Estad"& _
  1782. "oProc] = @Original_EstadoProc)))"
  1783. Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
  1784. 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, "", "", ""))
  1785. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1786. 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, "", "", ""))
  1787. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VCodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1788. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VCodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1789. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocEst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1790. 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, "", "", ""))
  1791. 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, "", "", ""))
  1792. 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, "", "", ""))
  1793. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmpr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1794. 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, "", "", ""))
  1795. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1796. 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, "", "", ""))
  1797. 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, "", "", ""))
  1798. 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, "", "", ""))
  1799. 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, "", "", ""))
  1800. 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, "", "", ""))
  1801. 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, "", "", ""))
  1802. 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, "", "", ""))
  1803. 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, "", "", ""))
  1804. 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, "", "", ""))
  1805. 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, "", "", ""))
  1806. 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, "", "", ""))
  1807. 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, "", "", ""))
  1808. 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, "", "", ""))
  1809. 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, "", "", ""))
  1810. 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, "", "", ""))
  1811. 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, "", "", ""))
  1812. 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, "", "", ""))
  1813. 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, "", "", ""))
  1814. 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, "", "", ""))
  1815. 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, "", "", ""))
  1816. 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, "", "", ""))
  1817. 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, "", "", ""))
  1818. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1819. 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, "", "", ""))
  1820. 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, "", "", ""))
  1821. 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, "", "", ""))
  1822. 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, "", "", ""))
  1823. 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, "", "", ""))
  1824. 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, "", "", ""))
  1825. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FechaDoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1826. 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, "", "", ""))
  1827. 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, "", "", ""))
  1828. 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, "", "", ""))
  1829. 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, "", "", ""))
  1830. 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, "", "", ""))
  1831. 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, "", "", ""))
  1832. 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, "", "", ""))
  1833. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoRenta", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoRenta", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1834. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoRenta", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1835. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoTasa", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoTasa", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1836. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoTasa", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoTasa", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1837. 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, "", "", ""))
  1838. 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, "", "", ""))
  1839. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NombreManual", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1840. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NombreManual", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1841. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EstadoProc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1842. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstadoProc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1843. Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
  1844. Me._adapter.InsertCommand.Connection = Me.Connection
  1845. Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[PIN0] ([CodInv], [VCodInv], [DocEst], [Asunto], [CodEmpr], [Co"& _
  1846. "dIF], [CodEmis], [CodCalRi], [CodECalRi], [OFon], [Coment], [Just], [TipoOper], "& _
  1847. "[DocBase], [MontoInv], [Precio], [Rendimiento], [Plazo], [PlazoFact], [Ingresos]"& _
  1848. ", [FechaDoc], [AutEstado], [TipoMerc], [CodPais], [TipoRenta], [TipoTasa], [Peri"& _
  1849. "odicidad], [NombreManual], [EstadoProc]) VALUES (@CodInv, @VCodInv, @DocEst, @As"& _
  1850. "unto, @CodEmpr, @CodIF, @CodEmis, @CodCalRi, @CodECalRi, @OFon, @Coment, @Just, "& _
  1851. "@TipoOper, @DocBase, @MontoInv, @Precio, @Rendimiento, @Plazo, @PlazoFact, @Ingr"& _
  1852. "esos, @FechaDoc, @AutEstado, @TipoMerc, @CodPais, @TipoRenta, @TipoTasa, @Period"& _
  1853. "icidad, @NombreManual, @EstadoProc);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, VCodInv, DocEst, Asu"& _
  1854. "nto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper,"& _
  1855. " DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, A"& _
  1856. "utEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Periodicidad, NombreManual, Es"& _
  1857. "tadoProc FROM PIN0 WHERE (DocId = SCOPE_IDENTITY())"
  1858. Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
  1859. 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, "", "", ""))
  1860. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VCodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1861. 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, "", "", ""))
  1862. 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, "", "", ""))
  1863. 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, "", "", ""))
  1864. 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, "", "", ""))
  1865. 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, "", "", ""))
  1866. 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, "", "", ""))
  1867. 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, "", "", ""))
  1868. 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, "", "", ""))
  1869. 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, "", "", ""))
  1870. 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, "", "", ""))
  1871. 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, "", "", ""))
  1872. 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, "", "", ""))
  1873. 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, "", "", ""))
  1874. 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, "", "", ""))
  1875. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1876. 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, "", "", ""))
  1877. 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, "", "", ""))
  1878. 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, "", "", ""))
  1879. 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, "", "", ""))
  1880. 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, "", "", ""))
  1881. 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, "", "", ""))
  1882. 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, "", "", ""))
  1883. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoRenta", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1884. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoTasa", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoTasa", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1885. 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, "", "", ""))
  1886. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NombreManual", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1887. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstadoProc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1888. Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
  1889. Me._adapter.UpdateCommand.Connection = Me.Connection
  1890. Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[PIN0] SET [CodInv] = @CodInv, [VCodInv] = @VCodInv, [DocEst] = @Doc"& _
  1891. "Est, [Asunto] = @Asunto, [CodEmpr] = @CodEmpr, [CodIF] = @CodIF, [CodEmis] = @Co"& _
  1892. "dEmis, [CodCalRi] = @CodCalRi, [CodECalRi] = @CodECalRi, [OFon] = @OFon, [Coment"& _
  1893. "] = @Coment, [Just] = @Just, [TipoOper] = @TipoOper, [DocBase] = @DocBase, [Mont"& _
  1894. "oInv] = @MontoInv, [Precio] = @Precio, [Rendimiento] = @Rendimiento, [Plazo] = @"& _
  1895. "Plazo, [PlazoFact] = @PlazoFact, [Ingresos] = @Ingresos, [FechaDoc] = @FechaDoc,"& _
  1896. " [AutEstado] = @AutEstado, [TipoMerc] = @TipoMerc, [CodPais] = @CodPais, [TipoRe"& _
  1897. "nta] = @TipoRenta, [TipoTasa] = @TipoTasa, [Periodicidad] = @Periodicidad, [Nomb"& _
  1898. "reManual] = @NombreManual, [EstadoProc] = @EstadoProc WHERE (([DocId] = @Origina"& _
  1899. "l_DocId) AND ((@IsNull_CodInv = 1 AND [CodInv] IS NULL) OR ([CodInv] = @Original"& _
  1900. "_CodInv)) AND ((@IsNull_VCodInv = 1 AND [VCodInv] IS NULL) OR ([VCodInv] = @Orig"& _
  1901. "inal_VCodInv)) AND ((@IsNull_DocEst = 1 AND [DocEst] IS NULL) OR ([DocEst] = @Or"& _
  1902. "iginal_DocEst)) AND ((@IsNull_Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto] = @O"& _
  1903. "riginal_Asunto)) AND ((@IsNull_CodEmpr = 1 AND [CodEmpr] IS NULL) OR ([CodEmpr] "& _
  1904. "= @Original_CodEmpr)) AND ((@IsNull_CodIF = 1 AND [CodIF] IS NULL) OR ([CodIF] ="& _
  1905. " @Original_CodIF)) AND ((@IsNull_CodEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis"& _
  1906. "] = @Original_CodEmis)) AND ((@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL) OR (["& _
  1907. "CodCalRi] = @Original_CodCalRi)) AND ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS "& _
  1908. "NULL) OR ([CodECalRi] = @Original_CodECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] "& _
  1909. "IS NULL) OR ([OFon] = @Original_OFon)) AND ((@IsNull_Coment = 1 AND [Coment] IS "& _
  1910. "NULL) OR ([Coment] = @Original_Coment)) AND ((@IsNull_Just = 1 AND [Just] IS NUL"& _
  1911. "L) OR ([Just] = @Original_Just)) AND ((@IsNull_TipoOper = 1 AND [TipoOper] IS NU"& _
  1912. "LL) OR ([TipoOper] = @Original_TipoOper)) AND ((@IsNull_DocBase = 1 AND [DocBase"& _
  1913. "] IS NULL) OR ([DocBase] = @Original_DocBase)) AND ((@IsNull_MontoInv = 1 AND [M"& _
  1914. "ontoInv] IS NULL) OR ([MontoInv] = @Original_MontoInv)) AND ((@IsNull_Precio = 1"& _
  1915. " AND [Precio] IS NULL) OR ([Precio] = @Original_Precio)) AND ((@IsNull_Rendimien"& _
  1916. "to = 1 AND [Rendimiento] IS NULL) OR ([Rendimiento] = @Original_Rendimiento)) AN"& _
  1917. "D ((@IsNull_Plazo = 1 AND [Plazo] IS NULL) OR ([Plazo] = @Original_Plazo)) AND ("& _
  1918. "(@IsNull_PlazoFact = 1 AND [PlazoFact] IS NULL) OR ([PlazoFact] = @Original_Plaz"& _
  1919. "oFact)) AND ((@IsNull_Ingresos = 1 AND [Ingresos] IS NULL) OR ([Ingresos] = @Ori"& _
  1920. "ginal_Ingresos)) AND ((@IsNull_FechaDoc = 1 AND [FechaDoc] IS NULL) OR ([FechaDo"& _
  1921. "c] = @Original_FechaDoc)) AND ((@IsNull_AutEstado = 1 AND [AutEstado] IS NULL) O"& _
  1922. "R ([AutEstado] = @Original_AutEstado)) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc]"& _
  1923. " IS NULL) OR ([TipoMerc] = @Original_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [C"& _
  1924. "odPais] IS NULL) OR ([CodPais] = @Original_CodPais)) AND ((@IsNull_TipoRenta = 1"& _
  1925. " AND [TipoRenta] IS NULL) OR ([TipoRenta] = @Original_TipoRenta)) AND ((@IsNull_"& _
  1926. "TipoTasa = 1 AND [TipoTasa] IS NULL) OR ([TipoTasa] = @Original_TipoTasa)) AND ("& _
  1927. "(@IsNull_Periodicidad = 1 AND [Periodicidad] IS NULL) OR ([Periodicidad] = @Orig"& _
  1928. "inal_Periodicidad)) AND ((@IsNull_NombreManual = 1 AND [NombreManual] IS NULL) O"& _
  1929. "R ([NombreManual] = @Original_NombreManual)) AND ((@IsNull_EstadoProc = 1 AND [E"& _
  1930. "stadoProc] IS NULL) OR ([EstadoProc] = @Original_EstadoProc)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, C"& _
  1931. "odInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OF"& _
  1932. "on, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, Plazo"& _
  1933. "Fact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Per"& _
  1934. "iodicidad, NombreManual, EstadoProc FROM PIN0 WHERE (DocId = @DocId)"
  1935. Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
  1936. 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, "", "", ""))
  1937. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VCodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1938. 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, "", "", ""))
  1939. 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, "", "", ""))
  1940. 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, "", "", ""))
  1941. 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, "", "", ""))
  1942. 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, "", "", ""))
  1943. 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, "", "", ""))
  1944. 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, "", "", ""))
  1945. 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, "", "", ""))
  1946. 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, "", "", ""))
  1947. 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, "", "", ""))
  1948. 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, "", "", ""))
  1949. 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, "", "", ""))
  1950. 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, "", "", ""))
  1951. 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, "", "", ""))
  1952. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1953. 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, "", "", ""))
  1954. 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, "", "", ""))
  1955. 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, "", "", ""))
  1956. 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, "", "", ""))
  1957. 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, "", "", ""))
  1958. 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, "", "", ""))
  1959. 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, "", "", ""))
  1960. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoRenta", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1961. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoTasa", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoTasa", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1962. 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, "", "", ""))
  1963. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NombreManual", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1964. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstadoProc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1965. 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, "", "", ""))
  1966. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1967. 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, "", "", ""))
  1968. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VCodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1969. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VCodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1970. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocEst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1971. 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, "", "", ""))
  1972. 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, "", "", ""))
  1973. 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, "", "", ""))
  1974. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmpr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1975. 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, "", "", ""))
  1976. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1977. 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, "", "", ""))
  1978. 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, "", "", ""))
  1979. 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, "", "", ""))
  1980. 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, "", "", ""))
  1981. 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, "", "", ""))
  1982. 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, "", "", ""))
  1983. 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, "", "", ""))
  1984. 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, "", "", ""))
  1985. 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, "", "", ""))
  1986. 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, "", "", ""))
  1987. 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, "", "", ""))
  1988. 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, "", "", ""))
  1989. 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, "", "", ""))
  1990. 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, "", "", ""))
  1991. 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, "", "", ""))
  1992. 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, "", "", ""))
  1993. 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, "", "", ""))
  1994. 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, "", "", ""))
  1995. 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, "", "", ""))
  1996. 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, "", "", ""))
  1997. 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, "", "", ""))
  1998. 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, "", "", ""))
  1999. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2000. 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, "", "", ""))
  2001. 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, "", "", ""))
  2002. 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, "", "", ""))
  2003. 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, "", "", ""))
  2004. 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, "", "", ""))
  2005. 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, "", "", ""))
  2006. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FechaDoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  2007. 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, "", "", ""))
  2008. 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, "", "", ""))
  2009. 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, "", "", ""))
  2010. 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, "", "", ""))
  2011. 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, "", "", ""))
  2012. 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, "", "", ""))
  2013. 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, "", "", ""))
  2014. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoRenta", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoRenta", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  2015. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoRenta", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2016. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoTasa", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoTasa", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  2017. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoTasa", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoTasa", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2018. 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, "", "", ""))
  2019. 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, "", "", ""))
  2020. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NombreManual", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  2021. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NombreManual", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2022. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EstadoProc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  2023. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstadoProc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2024. 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, "", "", ""))
  2025. End Sub
  2026. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2027. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  2028. Private Sub InitConnection()
  2029. Me._connection = New Global.System.Data.SqlClient.SqlConnection()
  2030. Me._connection.ConnectionString = Global.Inversiones.My.MySettings.Default.InversionesConnectionString
  2031. End Sub
  2032. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2033. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  2034. Private Sub InitCommandCollection()
  2035. Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
  2036. Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
  2037. Me._commandCollection(0).Connection = Me.Connection
  2038. Me._commandCollection(0).CommandText = "SELECT DocId, CodInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi,"& _
  2039. " CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento"& _
  2040. ", Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta,"& _
  2041. " TipoTasa, Periodicidad, NombreManual, EstadoProc FROM dbo.PIN0"
  2042. Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
  2043. End Sub
  2044. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2045. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2046. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2047. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
  2048. Public Overloads Overridable Function Fill(ByVal dataTable As InversionesDEVDataSet7.PIN0DataTable) As Integer
  2049. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  2050. If (Me.ClearBeforeFill = true) Then
  2051. dataTable.Clear
  2052. End If
  2053. Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
  2054. Return returnValue
  2055. End Function
  2056. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2057. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2058. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2059. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
  2060. Public Overloads Overridable Function GetData() As InversionesDEVDataSet7.PIN0DataTable
  2061. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  2062. Dim dataTable As InversionesDEVDataSet7.PIN0DataTable = New InversionesDEVDataSet7.PIN0DataTable()
  2063. Me.Adapter.Fill(dataTable)
  2064. Return dataTable
  2065. End Function
  2066. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2067. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2068. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2069. Public Overloads Overridable Function Update(ByVal dataTable As InversionesDEVDataSet7.PIN0DataTable) As Integer
  2070. Return Me.Adapter.Update(dataTable)
  2071. End Function
  2072. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2073. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2074. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2075. Public Overloads Overridable Function Update(ByVal dataSet As InversionesDEVDataSet7) As Integer
  2076. Return Me.Adapter.Update(dataSet, "PIN0")
  2077. End Function
  2078. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2079. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2080. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2081. Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
  2082. Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
  2083. End Function
  2084. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2085. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2086. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2087. Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
  2088. Return Me.Adapter.Update(dataRows)
  2089. End Function
  2090. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2091. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2092. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2093. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
  2094. Public Overloads Overridable Function Delete( _
  2095. ByVal Original_DocId As Integer, _
  2096. ByVal Original_CodInv As String, _
  2097. ByVal Original_VCodInv As String, _
  2098. ByVal Original_DocEst As String, _
  2099. ByVal Original_Asunto As String, _
  2100. ByVal Original_CodEmpr As String, _
  2101. ByVal Original_CodIF As String, _
  2102. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  2103. ByVal Original_CodCalRi As String, _
  2104. ByVal Original_CodECalRi As String, _
  2105. ByVal Original_OFon As String, _
  2106. ByVal Original_Coment As String, _
  2107. ByVal Original_Just As String, _
  2108. ByVal Original_TipoOper As String, _
  2109. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  2110. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  2111. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  2112. ByVal Original_Rendimiento As String, _
  2113. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  2114. ByVal Original_PlazoFact As String, _
  2115. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  2116. ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
  2117. ByVal Original_AutEstado As String, _
  2118. ByVal Original_TipoMerc As String, _
  2119. ByVal Original_CodPais As String, _
  2120. ByVal Original_TipoRenta As String, _
  2121. ByVal Original_TipoTasa As String, _
  2122. ByVal Original_Periodicidad As String, _
  2123. ByVal Original_NombreManual As String, _
  2124. ByVal Original_EstadoProc As String) As Integer
  2125. Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DocId,Integer)
  2126. If (Original_CodInv Is Nothing) Then
  2127. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
  2128. Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
  2129. Else
  2130. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
  2131. Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CodInv,String)
  2132. End If
  2133. If (Original_VCodInv Is Nothing) Then
  2134. Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
  2135. Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
  2136. Else
  2137. Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
  2138. Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_VCodInv,String)
  2139. End If
  2140. If (Original_DocEst Is Nothing) Then
  2141. Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
  2142. Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
  2143. Else
  2144. Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
  2145. Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_DocEst,String)
  2146. End If
  2147. If (Original_Asunto Is Nothing) Then
  2148. Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
  2149. Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
  2150. Else
  2151. Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
  2152. Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Asunto,String)
  2153. End If
  2154. If (Original_CodEmpr Is Nothing) Then
  2155. Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
  2156. Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
  2157. Else
  2158. Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
  2159. Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CodEmpr,String)
  2160. End If
  2161. If (Original_CodIF Is Nothing) Then
  2162. Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
  2163. Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
  2164. Else
  2165. Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
  2166. Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CodIF,String)
  2167. End If
  2168. If (Original_CodEmis.HasValue = true) Then
  2169. Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
  2170. Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CodEmis.Value,Integer)
  2171. Else
  2172. Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
  2173. Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
  2174. End If
  2175. If (Original_CodCalRi Is Nothing) Then
  2176. Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
  2177. Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
  2178. Else
  2179. Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
  2180. Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CodCalRi,String)
  2181. End If
  2182. If (Original_CodECalRi Is Nothing) Then
  2183. Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
  2184. Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
  2185. Else
  2186. Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
  2187. Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CodECalRi,String)
  2188. End If
  2189. If (Original_OFon Is Nothing) Then
  2190. Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
  2191. Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
  2192. Else
  2193. Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
  2194. Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_OFon,String)
  2195. End If
  2196. If (Original_Coment Is Nothing) Then
  2197. Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object)
  2198. Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value
  2199. Else
  2200. Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object)
  2201. Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Coment,String)
  2202. End If
  2203. If (Original_Just Is Nothing) Then
  2204. Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object)
  2205. Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value
  2206. Else
  2207. Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object)
  2208. Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_Just,String)
  2209. End If
  2210. If (Original_TipoOper Is Nothing) Then
  2211. Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object)
  2212. Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value
  2213. Else
  2214. Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object)
  2215. Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_TipoOper,String)
  2216. End If
  2217. If (Original_DocBase.HasValue = true) Then
  2218. Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
  2219. Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_DocBase.Value,Integer)
  2220. Else
  2221. Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object)
  2222. Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value
  2223. End If
  2224. If (Original_MontoInv.HasValue = true) Then
  2225. Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
  2226. Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_MontoInv.Value,Decimal)
  2227. Else
  2228. Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object)
  2229. Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value
  2230. End If
  2231. If (Original_Precio.HasValue = true) Then
  2232. Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
  2233. Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_Precio.Value,Decimal)
  2234. Else
  2235. Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
  2236. Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
  2237. End If
  2238. If (Original_Rendimiento Is Nothing) Then
  2239. Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object)
  2240. Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value
  2241. Else
  2242. Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object)
  2243. Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_Rendimiento,String)
  2244. End If
  2245. If (Original_Plazo.HasValue = true) Then
  2246. Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object)
  2247. Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_Plazo.Value,Integer)
  2248. Else
  2249. Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object)
  2250. Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value
  2251. End If
  2252. If (Original_PlazoFact Is Nothing) Then
  2253. Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object)
  2254. Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value
  2255. Else
  2256. Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object)
  2257. Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_PlazoFact,String)
  2258. End If
  2259. If (Original_Ingresos.HasValue = true) Then
  2260. Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object)
  2261. Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_Ingresos.Value,Decimal)
  2262. Else
  2263. Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object)
  2264. Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value
  2265. End If
  2266. If (Original_FechaDoc.HasValue = true) Then
  2267. Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object)
  2268. Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_FechaDoc.Value,Date)
  2269. Else
  2270. Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object)
  2271. Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value
  2272. End If
  2273. If (Original_AutEstado Is Nothing) Then
  2274. Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object)
  2275. Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value
  2276. Else
  2277. Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object)
  2278. Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_AutEstado,String)
  2279. End If
  2280. If (Original_TipoMerc Is Nothing) Then
  2281. Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object)
  2282. Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value
  2283. Else
  2284. Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object)
  2285. Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_TipoMerc,String)
  2286. End If
  2287. If (Original_CodPais Is Nothing) Then
  2288. Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object)
  2289. Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value
  2290. Else
  2291. Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object)
  2292. Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_CodPais,String)
  2293. End If
  2294. If (Original_TipoRenta Is Nothing) Then
  2295. Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object)
  2296. Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value
  2297. Else
  2298. Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object)
  2299. Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_TipoRenta,String)
  2300. End If
  2301. If (Original_TipoTasa Is Nothing) Then
  2302. Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object)
  2303. Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value
  2304. Else
  2305. Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object)
  2306. Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_TipoTasa,String)
  2307. End If
  2308. If (Original_Periodicidad Is Nothing) Then
  2309. Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object)
  2310. Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value
  2311. Else
  2312. Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object)
  2313. Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_Periodicidad,String)
  2314. End If
  2315. If (Original_NombreManual Is Nothing) Then
  2316. Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object)
  2317. Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value
  2318. Else
  2319. Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object)
  2320. Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_NombreManual,String)
  2321. End If
  2322. If (Original_EstadoProc Is Nothing) Then
  2323. Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object)
  2324. Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value
  2325. Else
  2326. Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object)
  2327. Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_EstadoProc,String)
  2328. End If
  2329. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
  2330. If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2331. <> Global.System.Data.ConnectionState.Open) Then
  2332. Me.Adapter.DeleteCommand.Connection.Open
  2333. End If
  2334. Try
  2335. Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
  2336. Return returnValue
  2337. Finally
  2338. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2339. Me.Adapter.DeleteCommand.Connection.Close
  2340. End If
  2341. End Try
  2342. End Function
  2343. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2344. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2345. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2346. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
  2347. Public Overloads Overridable Function Insert( _
  2348. ByVal CodInv As String, _
  2349. ByVal VCodInv As String, _
  2350. ByVal DocEst As String, _
  2351. ByVal Asunto As String, _
  2352. ByVal CodEmpr As String, _
  2353. ByVal CodIF As String, _
  2354. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2355. ByVal CodCalRi As String, _
  2356. ByVal CodECalRi As String, _
  2357. ByVal OFon As String, _
  2358. ByVal Coment As String, _
  2359. ByVal Just As String, _
  2360. ByVal TipoOper As String, _
  2361. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2362. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2363. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2364. ByVal Rendimiento As String, _
  2365. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2366. ByVal PlazoFact As String, _
  2367. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2368. ByVal FechaDoc As Global.System.Nullable(Of Date), _
  2369. ByVal AutEstado As String, _
  2370. ByVal TipoMerc As String, _
  2371. ByVal CodPais As String, _
  2372. ByVal TipoRenta As String, _
  2373. ByVal TipoTasa As String, _
  2374. ByVal Periodicidad As String, _
  2375. ByVal NombreManual As String, _
  2376. ByVal EstadoProc As String) As Integer
  2377. If (CodInv Is Nothing) Then
  2378. Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
  2379. Else
  2380. Me.Adapter.InsertCommand.Parameters(0).Value = CType(CodInv,String)
  2381. End If
  2382. If (VCodInv Is Nothing) Then
  2383. Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
  2384. Else
  2385. Me.Adapter.InsertCommand.Parameters(1).Value = CType(VCodInv,String)
  2386. End If
  2387. If (DocEst Is Nothing) Then
  2388. Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
  2389. Else
  2390. Me.Adapter.InsertCommand.Parameters(2).Value = CType(DocEst,String)
  2391. End If
  2392. If (Asunto Is Nothing) Then
  2393. Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
  2394. Else
  2395. Me.Adapter.InsertCommand.Parameters(3).Value = CType(Asunto,String)
  2396. End If
  2397. If (CodEmpr Is Nothing) Then
  2398. Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
  2399. Else
  2400. Me.Adapter.InsertCommand.Parameters(4).Value = CType(CodEmpr,String)
  2401. End If
  2402. If (CodIF Is Nothing) Then
  2403. Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
  2404. Else
  2405. Me.Adapter.InsertCommand.Parameters(5).Value = CType(CodIF,String)
  2406. End If
  2407. If (CodEmis.HasValue = true) Then
  2408. Me.Adapter.InsertCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
  2409. Else
  2410. Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
  2411. End If
  2412. If (CodCalRi Is Nothing) Then
  2413. Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
  2414. Else
  2415. Me.Adapter.InsertCommand.Parameters(7).Value = CType(CodCalRi,String)
  2416. End If
  2417. If (CodECalRi Is Nothing) Then
  2418. Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
  2419. Else
  2420. Me.Adapter.InsertCommand.Parameters(8).Value = CType(CodECalRi,String)
  2421. End If
  2422. If (OFon Is Nothing) Then
  2423. Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
  2424. Else
  2425. Me.Adapter.InsertCommand.Parameters(9).Value = CType(OFon,String)
  2426. End If
  2427. If (Coment Is Nothing) Then
  2428. Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
  2429. Else
  2430. Me.Adapter.InsertCommand.Parameters(10).Value = CType(Coment,String)
  2431. End If
  2432. If (Just Is Nothing) Then
  2433. Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
  2434. Else
  2435. Me.Adapter.InsertCommand.Parameters(11).Value = CType(Just,String)
  2436. End If
  2437. If (TipoOper Is Nothing) Then
  2438. Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
  2439. Else
  2440. Me.Adapter.InsertCommand.Parameters(12).Value = CType(TipoOper,String)
  2441. End If
  2442. If (DocBase.HasValue = true) Then
  2443. Me.Adapter.InsertCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
  2444. Else
  2445. Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
  2446. End If
  2447. If (MontoInv.HasValue = true) Then
  2448. Me.Adapter.InsertCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
  2449. Else
  2450. Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
  2451. End If
  2452. If (Precio.HasValue = true) Then
  2453. Me.Adapter.InsertCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
  2454. Else
  2455. Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
  2456. End If
  2457. If (Rendimiento Is Nothing) Then
  2458. Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value
  2459. Else
  2460. Me.Adapter.InsertCommand.Parameters(16).Value = CType(Rendimiento,String)
  2461. End If
  2462. If (Plazo.HasValue = true) Then
  2463. Me.Adapter.InsertCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
  2464. Else
  2465. Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value
  2466. End If
  2467. If (PlazoFact Is Nothing) Then
  2468. Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value
  2469. Else
  2470. Me.Adapter.InsertCommand.Parameters(18).Value = CType(PlazoFact,String)
  2471. End If
  2472. If (Ingresos.HasValue = true) Then
  2473. Me.Adapter.InsertCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
  2474. Else
  2475. Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value
  2476. End If
  2477. If (FechaDoc.HasValue = true) Then
  2478. Me.Adapter.InsertCommand.Parameters(20).Value = CType(FechaDoc.Value,Date)
  2479. Else
  2480. Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value
  2481. End If
  2482. If (AutEstado Is Nothing) Then
  2483. Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value
  2484. Else
  2485. Me.Adapter.InsertCommand.Parameters(21).Value = CType(AutEstado,String)
  2486. End If
  2487. If (TipoMerc Is Nothing) Then
  2488. Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value
  2489. Else
  2490. Me.Adapter.InsertCommand.Parameters(22).Value = CType(TipoMerc,String)
  2491. End If
  2492. If (CodPais Is Nothing) Then
  2493. Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value
  2494. Else
  2495. Me.Adapter.InsertCommand.Parameters(23).Value = CType(CodPais,String)
  2496. End If
  2497. If (TipoRenta Is Nothing) Then
  2498. Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value
  2499. Else
  2500. Me.Adapter.InsertCommand.Parameters(24).Value = CType(TipoRenta,String)
  2501. End If
  2502. If (TipoTasa Is Nothing) Then
  2503. Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value
  2504. Else
  2505. Me.Adapter.InsertCommand.Parameters(25).Value = CType(TipoTasa,String)
  2506. End If
  2507. If (Periodicidad Is Nothing) Then
  2508. Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value
  2509. Else
  2510. Me.Adapter.InsertCommand.Parameters(26).Value = CType(Periodicidad,String)
  2511. End If
  2512. If (NombreManual Is Nothing) Then
  2513. Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value
  2514. Else
  2515. Me.Adapter.InsertCommand.Parameters(27).Value = CType(NombreManual,String)
  2516. End If
  2517. If (EstadoProc Is Nothing) Then
  2518. Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value
  2519. Else
  2520. Me.Adapter.InsertCommand.Parameters(28).Value = CType(EstadoProc,String)
  2521. End If
  2522. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
  2523. If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2524. <> Global.System.Data.ConnectionState.Open) Then
  2525. Me.Adapter.InsertCommand.Connection.Open
  2526. End If
  2527. Try
  2528. Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
  2529. Return returnValue
  2530. Finally
  2531. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2532. Me.Adapter.InsertCommand.Connection.Close
  2533. End If
  2534. End Try
  2535. End Function
  2536. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2537. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2538. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2539. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2540. Public Overloads Overridable Function Update( _
  2541. ByVal CodInv As String, _
  2542. ByVal VCodInv As String, _
  2543. ByVal DocEst As String, _
  2544. ByVal Asunto As String, _
  2545. ByVal CodEmpr As String, _
  2546. ByVal CodIF As String, _
  2547. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2548. ByVal CodCalRi As String, _
  2549. ByVal CodECalRi As String, _
  2550. ByVal OFon As String, _
  2551. ByVal Coment As String, _
  2552. ByVal Just As String, _
  2553. ByVal TipoOper As String, _
  2554. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2555. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2556. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2557. ByVal Rendimiento As String, _
  2558. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2559. ByVal PlazoFact As String, _
  2560. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2561. ByVal FechaDoc As Global.System.Nullable(Of Date), _
  2562. ByVal AutEstado As String, _
  2563. ByVal TipoMerc As String, _
  2564. ByVal CodPais As String, _
  2565. ByVal TipoRenta As String, _
  2566. ByVal TipoTasa As String, _
  2567. ByVal Periodicidad As String, _
  2568. ByVal NombreManual As String, _
  2569. ByVal EstadoProc As String, _
  2570. ByVal Original_DocId As Integer, _
  2571. ByVal Original_CodInv As String, _
  2572. ByVal Original_VCodInv As String, _
  2573. ByVal Original_DocEst As String, _
  2574. ByVal Original_Asunto As String, _
  2575. ByVal Original_CodEmpr As String, _
  2576. ByVal Original_CodIF As String, _
  2577. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  2578. ByVal Original_CodCalRi As String, _
  2579. ByVal Original_CodECalRi As String, _
  2580. ByVal Original_OFon As String, _
  2581. ByVal Original_Coment As String, _
  2582. ByVal Original_Just As String, _
  2583. ByVal Original_TipoOper As String, _
  2584. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  2585. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  2586. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  2587. ByVal Original_Rendimiento As String, _
  2588. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  2589. ByVal Original_PlazoFact As String, _
  2590. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  2591. ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
  2592. ByVal Original_AutEstado As String, _
  2593. ByVal Original_TipoMerc As String, _
  2594. ByVal Original_CodPais As String, _
  2595. ByVal Original_TipoRenta As String, _
  2596. ByVal Original_TipoTasa As String, _
  2597. ByVal Original_Periodicidad As String, _
  2598. ByVal Original_NombreManual As String, _
  2599. ByVal Original_EstadoProc As String, _
  2600. ByVal DocId As Integer) As Integer
  2601. If (CodInv Is Nothing) Then
  2602. Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
  2603. Else
  2604. Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CodInv,String)
  2605. End If
  2606. If (VCodInv Is Nothing) Then
  2607. Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
  2608. Else
  2609. Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VCodInv,String)
  2610. End If
  2611. If (DocEst Is Nothing) Then
  2612. Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
  2613. Else
  2614. Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DocEst,String)
  2615. End If
  2616. If (Asunto Is Nothing) Then
  2617. Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
  2618. Else
  2619. Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Asunto,String)
  2620. End If
  2621. If (CodEmpr Is Nothing) Then
  2622. Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
  2623. Else
  2624. Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CodEmpr,String)
  2625. End If
  2626. If (CodIF Is Nothing) Then
  2627. Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
  2628. Else
  2629. Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CodIF,String)
  2630. End If
  2631. If (CodEmis.HasValue = true) Then
  2632. Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
  2633. Else
  2634. Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
  2635. End If
  2636. If (CodCalRi Is Nothing) Then
  2637. Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
  2638. Else
  2639. Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CodCalRi,String)
  2640. End If
  2641. If (CodECalRi Is Nothing) Then
  2642. Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
  2643. Else
  2644. Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CodECalRi,String)
  2645. End If
  2646. If (OFon Is Nothing) Then
  2647. Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
  2648. Else
  2649. Me.Adapter.UpdateCommand.Parameters(9).Value = CType(OFon,String)
  2650. End If
  2651. If (Coment Is Nothing) Then
  2652. Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
  2653. Else
  2654. Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Coment,String)
  2655. End If
  2656. If (Just Is Nothing) Then
  2657. Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
  2658. Else
  2659. Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Just,String)
  2660. End If
  2661. If (TipoOper Is Nothing) Then
  2662. Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
  2663. Else
  2664. Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TipoOper,String)
  2665. End If
  2666. If (DocBase.HasValue = true) Then
  2667. Me.Adapter.UpdateCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
  2668. Else
  2669. Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
  2670. End If
  2671. If (MontoInv.HasValue = true) Then
  2672. Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
  2673. Else
  2674. Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
  2675. End If
  2676. If (Precio.HasValue = true) Then
  2677. Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
  2678. Else
  2679. Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
  2680. End If
  2681. If (Rendimiento Is Nothing) Then
  2682. Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
  2683. Else
  2684. Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Rendimiento,String)
  2685. End If
  2686. If (Plazo.HasValue = true) Then
  2687. Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
  2688. Else
  2689. Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
  2690. End If
  2691. If (PlazoFact Is Nothing) Then
  2692. Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
  2693. Else
  2694. Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PlazoFact,String)
  2695. End If
  2696. If (Ingresos.HasValue = true) Then
  2697. Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
  2698. Else
  2699. Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
  2700. End If
  2701. If (FechaDoc.HasValue = true) Then
  2702. Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FechaDoc.Value,Date)
  2703. Else
  2704. Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
  2705. End If
  2706. If (AutEstado Is Nothing) Then
  2707. Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
  2708. Else
  2709. Me.Adapter.UpdateCommand.Parameters(21).Value = CType(AutEstado,String)
  2710. End If
  2711. If (TipoMerc Is Nothing) Then
  2712. Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
  2713. Else
  2714. Me.Adapter.UpdateCommand.Parameters(22).Value = CType(TipoMerc,String)
  2715. End If
  2716. If (CodPais Is Nothing) Then
  2717. Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
  2718. Else
  2719. Me.Adapter.UpdateCommand.Parameters(23).Value = CType(CodPais,String)
  2720. End If
  2721. If (TipoRenta Is Nothing) Then
  2722. Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
  2723. Else
  2724. Me.Adapter.UpdateCommand.Parameters(24).Value = CType(TipoRenta,String)
  2725. End If
  2726. If (TipoTasa Is Nothing) Then
  2727. Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
  2728. Else
  2729. Me.Adapter.UpdateCommand.Parameters(25).Value = CType(TipoTasa,String)
  2730. End If
  2731. If (Periodicidad Is Nothing) Then
  2732. Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
  2733. Else
  2734. Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Periodicidad,String)
  2735. End If
  2736. If (NombreManual Is Nothing) Then
  2737. Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
  2738. Else
  2739. Me.Adapter.UpdateCommand.Parameters(27).Value = CType(NombreManual,String)
  2740. End If
  2741. If (EstadoProc Is Nothing) Then
  2742. Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
  2743. Else
  2744. Me.Adapter.UpdateCommand.Parameters(28).Value = CType(EstadoProc,String)
  2745. End If
  2746. Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_DocId,Integer)
  2747. If (Original_CodInv Is Nothing) Then
  2748. Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
  2749. Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
  2750. Else
  2751. Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
  2752. Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CodInv,String)
  2753. End If
  2754. If (Original_VCodInv Is Nothing) Then
  2755. Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object)
  2756. Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value
  2757. Else
  2758. Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object)
  2759. Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_VCodInv,String)
  2760. End If
  2761. If (Original_DocEst Is Nothing) Then
  2762. Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
  2763. Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
  2764. Else
  2765. Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
  2766. Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_DocEst,String)
  2767. End If
  2768. If (Original_Asunto Is Nothing) Then
  2769. Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object)
  2770. Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value
  2771. Else
  2772. Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object)
  2773. Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_Asunto,String)
  2774. End If
  2775. If (Original_CodEmpr Is Nothing) Then
  2776. Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object)
  2777. Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value
  2778. Else
  2779. Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object)
  2780. Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_CodEmpr,String)
  2781. End If
  2782. If (Original_CodIF Is Nothing) Then
  2783. Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object)
  2784. Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value
  2785. Else
  2786. Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object)
  2787. Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_CodIF,String)
  2788. End If
  2789. If (Original_CodEmis.HasValue = true) Then
  2790. Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object)
  2791. Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_CodEmis.Value,Integer)
  2792. Else
  2793. Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object)
  2794. Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value
  2795. End If
  2796. If (Original_CodCalRi Is Nothing) Then
  2797. Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object)
  2798. Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value
  2799. Else
  2800. Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object)
  2801. Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_CodCalRi,String)
  2802. End If
  2803. If (Original_CodECalRi Is Nothing) Then
  2804. Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object)
  2805. Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value
  2806. Else
  2807. Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object)
  2808. Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_CodECalRi,String)
  2809. End If
  2810. If (Original_OFon Is Nothing) Then
  2811. Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object)
  2812. Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value
  2813. Else
  2814. Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object)
  2815. Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_OFon,String)
  2816. End If
  2817. If (Original_Coment Is Nothing) Then
  2818. Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
  2819. Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
  2820. Else
  2821. Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
  2822. Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_Coment,String)
  2823. End If
  2824. If (Original_Just Is Nothing) Then
  2825. Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object)
  2826. Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value
  2827. Else
  2828. Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object)
  2829. Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_Just,String)
  2830. End If
  2831. If (Original_TipoOper Is Nothing) Then
  2832. Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object)
  2833. Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value
  2834. Else
  2835. Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object)
  2836. Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_TipoOper,String)
  2837. End If
  2838. If (Original_DocBase.HasValue = true) Then
  2839. Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object)
  2840. Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_DocBase.Value,Integer)
  2841. Else
  2842. Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object)
  2843. Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value
  2844. End If
  2845. If (Original_MontoInv.HasValue = true) Then
  2846. Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object)
  2847. Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_MontoInv.Value,Decimal)
  2848. Else
  2849. Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object)
  2850. Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value
  2851. End If
  2852. If (Original_Precio.HasValue = true) Then
  2853. Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object)
  2854. Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_Precio.Value,Decimal)
  2855. Else
  2856. Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object)
  2857. Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value
  2858. End If
  2859. If (Original_Rendimiento Is Nothing) Then
  2860. Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object)
  2861. Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value
  2862. Else
  2863. Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object)
  2864. Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_Rendimiento,String)
  2865. End If
  2866. If (Original_Plazo.HasValue = true) Then
  2867. Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object)
  2868. Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_Plazo.Value,Integer)
  2869. Else
  2870. Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object)
  2871. Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value
  2872. End If
  2873. If (Original_PlazoFact Is Nothing) Then
  2874. Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object)
  2875. Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value
  2876. Else
  2877. Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object)
  2878. Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_PlazoFact,String)
  2879. End If
  2880. If (Original_Ingresos.HasValue = true) Then
  2881. Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object)
  2882. Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_Ingresos.Value,Decimal)
  2883. Else
  2884. Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object)
  2885. Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value
  2886. End If
  2887. If (Original_FechaDoc.HasValue = true) Then
  2888. Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object)
  2889. Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_FechaDoc.Value,Date)
  2890. Else
  2891. Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object)
  2892. Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value
  2893. End If
  2894. If (Original_AutEstado Is Nothing) Then
  2895. Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object)
  2896. Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value
  2897. Else
  2898. Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object)
  2899. Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_AutEstado,String)
  2900. End If
  2901. If (Original_TipoMerc Is Nothing) Then
  2902. Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object)
  2903. Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value
  2904. Else
  2905. Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object)
  2906. Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_TipoMerc,String)
  2907. End If
  2908. If (Original_CodPais Is Nothing) Then
  2909. Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object)
  2910. Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value
  2911. Else
  2912. Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object)
  2913. Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_CodPais,String)
  2914. End If
  2915. If (Original_TipoRenta Is Nothing) Then
  2916. Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object)
  2917. Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value
  2918. Else
  2919. Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object)
  2920. Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_TipoRenta,String)
  2921. End If
  2922. If (Original_TipoTasa Is Nothing) Then
  2923. Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object)
  2924. Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value
  2925. Else
  2926. Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object)
  2927. Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_TipoTasa,String)
  2928. End If
  2929. If (Original_Periodicidad Is Nothing) Then
  2930. Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object)
  2931. Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value
  2932. Else
  2933. Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object)
  2934. Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_Periodicidad,String)
  2935. End If
  2936. If (Original_NombreManual Is Nothing) Then
  2937. Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object)
  2938. Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value
  2939. Else
  2940. Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object)
  2941. Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_NombreManual,String)
  2942. End If
  2943. If (Original_EstadoProc Is Nothing) Then
  2944. Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object)
  2945. Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value
  2946. Else
  2947. Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object)
  2948. Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_EstadoProc,String)
  2949. End If
  2950. Me.Adapter.UpdateCommand.Parameters(88).Value = CType(DocId,Integer)
  2951. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
  2952. If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2953. <> Global.System.Data.ConnectionState.Open) Then
  2954. Me.Adapter.UpdateCommand.Connection.Open
  2955. End If
  2956. Try
  2957. Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
  2958. Return returnValue
  2959. Finally
  2960. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2961. Me.Adapter.UpdateCommand.Connection.Close
  2962. End If
  2963. End Try
  2964. End Function
  2965. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2966. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2967. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2968. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2969. Public Overloads Overridable Function Update( _
  2970. ByVal CodInv As String, _
  2971. ByVal VCodInv As String, _
  2972. ByVal DocEst As String, _
  2973. ByVal Asunto As String, _
  2974. ByVal CodEmpr As String, _
  2975. ByVal CodIF As String, _
  2976. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2977. ByVal CodCalRi As String, _
  2978. ByVal CodECalRi As String, _
  2979. ByVal OFon As String, _
  2980. ByVal Coment As String, _
  2981. ByVal Just As String, _
  2982. ByVal TipoOper As String, _
  2983. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2984. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2985. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2986. ByVal Rendimiento As String, _
  2987. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2988. ByVal PlazoFact As String, _
  2989. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2990. ByVal FechaDoc As Global.System.Nullable(Of Date), _
  2991. ByVal AutEstado As String, _
  2992. ByVal TipoMerc As String, _
  2993. ByVal CodPais As String, _
  2994. ByVal TipoRenta As String, _
  2995. ByVal TipoTasa As String, _
  2996. ByVal Periodicidad As String, _
  2997. ByVal NombreManual As String, _
  2998. ByVal EstadoProc As String, _
  2999. ByVal Original_DocId As Integer, _
  3000. ByVal Original_CodInv As String, _
  3001. ByVal Original_VCodInv As String, _
  3002. ByVal Original_DocEst As String, _
  3003. ByVal Original_Asunto As String, _
  3004. ByVal Original_CodEmpr As String, _
  3005. ByVal Original_CodIF As String, _
  3006. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  3007. ByVal Original_CodCalRi As String, _
  3008. ByVal Original_CodECalRi As String, _
  3009. ByVal Original_OFon As String, _
  3010. ByVal Original_Coment As String, _
  3011. ByVal Original_Just As String, _
  3012. ByVal Original_TipoOper As String, _
  3013. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  3014. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  3015. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  3016. ByVal Original_Rendimiento As String, _
  3017. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  3018. ByVal Original_PlazoFact As String, _
  3019. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  3020. ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
  3021. ByVal Original_AutEstado As String, _
  3022. ByVal Original_TipoMerc As String, _
  3023. ByVal Original_CodPais As String, _
  3024. ByVal Original_TipoRenta As String, _
  3025. ByVal Original_TipoTasa As String, _
  3026. ByVal Original_Periodicidad As String, _
  3027. ByVal Original_NombreManual As String, _
  3028. ByVal Original_EstadoProc As String) As Integer
  3029. Return Me.Update(CodInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Periodicidad, NombreManual, EstadoProc, Original_DocId, Original_CodInv, Original_VCodInv, Original_DocEst, Original_Asunto, Original_CodEmpr, Original_CodIF, Original_CodEmis, Original_CodCalRi, Original_CodECalRi, Original_OFon, Original_Coment, Original_Just, Original_TipoOper, Original_DocBase, Original_MontoInv, Original_Precio, Original_Rendimiento, Original_Plazo, Original_PlazoFact, Original_Ingresos, Original_FechaDoc, Original_AutEstado, Original_TipoMerc, Original_CodPais, Original_TipoRenta, Original_TipoTasa, Original_Periodicidad, Original_NombreManual, Original_EstadoProc, Original_DocId)
  3030. End Function
  3031. End Class
  3032. '''<summary>
  3033. '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
  3034. '''</summary>
  3035. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  3036. Global.System.ComponentModel.ToolboxItem(true), _
  3037. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
  3038. "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  3039. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
  3040. Partial Public Class TableAdapterManager
  3041. Inherits Global.System.ComponentModel.Component
  3042. Private _updateOrder As UpdateOrderOption
  3043. Private _pIN0TableAdapter As PIN0TableAdapter
  3044. Private _backupDataSetBeforeUpdate As Boolean
  3045. Private _connection As Global.System.Data.IDbConnection
  3046. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3047. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3048. Public Property UpdateOrder() As UpdateOrderOption
  3049. Get
  3050. Return Me._updateOrder
  3051. End Get
  3052. Set
  3053. Me._updateOrder = value
  3054. End Set
  3055. End Property
  3056. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3057. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  3058. Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
  3059. "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
  3060. "a", "System.Drawing.Design.UITypeEditor")> _
  3061. Public Property PIN0TableAdapter() As PIN0TableAdapter
  3062. Get
  3063. Return Me._pIN0TableAdapter
  3064. End Get
  3065. Set
  3066. Me._pIN0TableAdapter = value
  3067. End Set
  3068. End Property
  3069. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3070. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3071. Public Property BackupDataSetBeforeUpdate() As Boolean
  3072. Get
  3073. Return Me._backupDataSetBeforeUpdate
  3074. End Get
  3075. Set
  3076. Me._backupDataSetBeforeUpdate = value
  3077. End Set
  3078. End Property
  3079. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3080. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  3081. Global.System.ComponentModel.Browsable(false)> _
  3082. Public Property Connection() As Global.System.Data.IDbConnection
  3083. Get
  3084. If (Not (Me._connection) Is Nothing) Then
  3085. Return Me._connection
  3086. End If
  3087. If ((Not (Me._pIN0TableAdapter) Is Nothing) _
  3088. AndAlso (Not (Me._pIN0TableAdapter.Connection) Is Nothing)) Then
  3089. Return Me._pIN0TableAdapter.Connection
  3090. End If
  3091. Return Nothing
  3092. End Get
  3093. Set
  3094. Me._connection = value
  3095. End Set
  3096. End Property
  3097. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3098. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  3099. Global.System.ComponentModel.Browsable(false)> _
  3100. Public ReadOnly Property TableAdapterInstanceCount() As Integer
  3101. Get
  3102. Dim count As Integer = 0
  3103. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3104. count = (count + 1)
  3105. End If
  3106. Return count
  3107. End Get
  3108. End Property
  3109. '''<summary>
  3110. '''Update rows in top-down order.
  3111. '''</summary>
  3112. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3113. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3114. Private Function UpdateUpdatedRows(ByVal dataSet As InversionesDEVDataSet7, 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
  3115. Dim result As Integer = 0
  3116. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3117. Dim updatedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
  3118. updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
  3119. If ((Not (updatedRows) Is Nothing) _
  3120. AndAlso (0 < updatedRows.Length)) Then
  3121. result = (result + Me._pIN0TableAdapter.Update(updatedRows))
  3122. allChangedRows.AddRange(updatedRows)
  3123. End If
  3124. End If
  3125. Return result
  3126. End Function
  3127. '''<summary>
  3128. '''Insert rows in top-down order.
  3129. '''</summary>
  3130. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3131. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3132. Private Function UpdateInsertedRows(ByVal dataSet As InversionesDEVDataSet7, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  3133. Dim result As Integer = 0
  3134. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3135. Dim addedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
  3136. If ((Not (addedRows) Is Nothing) _
  3137. AndAlso (0 < addedRows.Length)) Then
  3138. result = (result + Me._pIN0TableAdapter.Update(addedRows))
  3139. allAddedRows.AddRange(addedRows)
  3140. End If
  3141. End If
  3142. Return result
  3143. End Function
  3144. '''<summary>
  3145. '''Delete rows in bottom-up order.
  3146. '''</summary>
  3147. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3148. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3149. Private Function UpdateDeletedRows(ByVal dataSet As InversionesDEVDataSet7, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  3150. Dim result As Integer = 0
  3151. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3152. Dim deletedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
  3153. If ((Not (deletedRows) Is Nothing) _
  3154. AndAlso (0 < deletedRows.Length)) Then
  3155. result = (result + Me._pIN0TableAdapter.Update(deletedRows))
  3156. allChangedRows.AddRange(deletedRows)
  3157. End If
  3158. End If
  3159. Return result
  3160. End Function
  3161. '''<summary>
  3162. '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
  3163. '''</summary>
  3164. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3165. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3166. 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()
  3167. If ((updatedRows Is Nothing) _
  3168. OrElse (updatedRows.Length < 1)) Then
  3169. Return updatedRows
  3170. End If
  3171. If ((allAddedRows Is Nothing) _
  3172. OrElse (allAddedRows.Count < 1)) Then
  3173. Return updatedRows
  3174. End If
  3175. Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3176. Dim i As Integer = 0
  3177. Do While (i < updatedRows.Length)
  3178. Dim row As Global.System.Data.DataRow = updatedRows(i)
  3179. If (allAddedRows.Contains(row) = false) Then
  3180. realUpdatedRows.Add(row)
  3181. End If
  3182. i = (i + 1)
  3183. Loop
  3184. Return realUpdatedRows.ToArray
  3185. End Function
  3186. '''<summary>
  3187. '''Update all changes to the dataset.
  3188. '''</summary>
  3189. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3190. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3191. Public Overridable Function UpdateAll(ByVal dataSet As InversionesDEVDataSet7) As Integer
  3192. If (dataSet Is Nothing) Then
  3193. Throw New Global.System.ArgumentNullException("dataSet")
  3194. End If
  3195. If (dataSet.HasChanges = false) Then
  3196. Return 0
  3197. End If
  3198. If ((Not (Me._pIN0TableAdapter) Is Nothing) _
  3199. AndAlso (Me.MatchTableAdapterConnection(Me._pIN0TableAdapter.Connection) = false)) Then
  3200. Throw New Global.System.ArgumentException("Todos los TableAdapters administrados por un TableAdapterManager deben usar la mi"& _
  3201. "sma cadena de conexión.")
  3202. End If
  3203. Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
  3204. If (workConnection Is Nothing) Then
  3205. Throw New Global.System.ApplicationException("TableAdapterManager no contiene información de conexión. Establezca cada propieda"& _
  3206. "d TableAdapterManager TableAdapter en una instancia TableAdapter válida.")
  3207. End If
  3208. Dim workConnOpened As Boolean = false
  3209. If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
  3210. = Global.System.Data.ConnectionState.Broken) Then
  3211. workConnection.Close
  3212. End If
  3213. If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
  3214. workConnection.Open
  3215. workConnOpened = true
  3216. End If
  3217. Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
  3218. If (workTransaction Is Nothing) Then
  3219. Throw New Global.System.ApplicationException("La transacción no puede comenzar. La conexión de datos actual no es compatible co"& _
  3220. "n las transacciones o el estado actual no permite que comience la transacción.")
  3221. End If
  3222. Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3223. Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3224. 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)()
  3225. 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)()
  3226. Dim result As Integer = 0
  3227. Dim backupDataSet As Global.System.Data.DataSet = Nothing
  3228. If Me.BackupDataSetBeforeUpdate Then
  3229. backupDataSet = New Global.System.Data.DataSet()
  3230. backupDataSet.Merge(dataSet)
  3231. End If
  3232. Try
  3233. '---- Prepare for update -----------
  3234. '
  3235. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3236. revertConnections.Add(Me._pIN0TableAdapter, Me._pIN0TableAdapter.Connection)
  3237. Me._pIN0TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
  3238. Me._pIN0TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
  3239. If Me._pIN0TableAdapter.Adapter.AcceptChangesDuringUpdate Then
  3240. Me._pIN0TableAdapter.Adapter.AcceptChangesDuringUpdate = false
  3241. adaptersWithAcceptChangesDuringUpdate.Add(Me._pIN0TableAdapter.Adapter)
  3242. End If
  3243. End If
  3244. '
  3245. '---- Perform updates -----------
  3246. '
  3247. If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
  3248. result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
  3249. result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
  3250. Else
  3251. result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
  3252. result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
  3253. End If
  3254. result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
  3255. '
  3256. '---- Commit updates -----------
  3257. '
  3258. workTransaction.Commit
  3259. If (0 < allAddedRows.Count) Then
  3260. Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
  3261. allAddedRows.CopyTo(rows)
  3262. Dim i As Integer = 0
  3263. Do While (i < rows.Length)
  3264. Dim row As Global.System.Data.DataRow = rows(i)
  3265. row.AcceptChanges
  3266. i = (i + 1)
  3267. Loop
  3268. End If
  3269. If (0 < allChangedRows.Count) Then
  3270. Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
  3271. allChangedRows.CopyTo(rows)
  3272. Dim i As Integer = 0
  3273. Do While (i < rows.Length)
  3274. Dim row As Global.System.Data.DataRow = rows(i)
  3275. row.AcceptChanges
  3276. i = (i + 1)
  3277. Loop
  3278. End If
  3279. Catch ex As Global.System.Exception
  3280. workTransaction.Rollback
  3281. '---- Restore the dataset -----------
  3282. If Me.BackupDataSetBeforeUpdate Then
  3283. Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
  3284. dataSet.Clear
  3285. dataSet.Merge(backupDataSet)
  3286. Else
  3287. If (0 < allAddedRows.Count) Then
  3288. Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
  3289. allAddedRows.CopyTo(rows)
  3290. Dim i As Integer = 0
  3291. Do While (i < rows.Length)
  3292. Dim row As Global.System.Data.DataRow = rows(i)
  3293. row.AcceptChanges
  3294. row.SetAdded
  3295. i = (i + 1)
  3296. Loop
  3297. End If
  3298. End If
  3299. Throw ex
  3300. Finally
  3301. If workConnOpened Then
  3302. workConnection.Close
  3303. End If
  3304. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3305. Me._pIN0TableAdapter.Connection = CType(revertConnections(Me._pIN0TableAdapter),Global.System.Data.SqlClient.SqlConnection)
  3306. Me._pIN0TableAdapter.Transaction = Nothing
  3307. End If
  3308. If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
  3309. Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
  3310. adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
  3311. Dim i As Integer = 0
  3312. Do While (i < adapters.Length)
  3313. Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
  3314. adapter.AcceptChangesDuringUpdate = true
  3315. i = (i + 1)
  3316. Loop
  3317. End If
  3318. End Try
  3319. Return result
  3320. End Function
  3321. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3322. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3323. Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
  3324. Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
  3325. End Sub
  3326. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3327. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3328. Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
  3329. If (Not (Me._connection) Is Nothing) Then
  3330. Return true
  3331. End If
  3332. If ((Me.Connection Is Nothing) _
  3333. OrElse (inputConnection Is Nothing)) Then
  3334. Return true
  3335. End If
  3336. If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
  3337. Return true
  3338. End If
  3339. Return false
  3340. End Function
  3341. '''<summary>
  3342. '''Update Order Option
  3343. '''</summary>
  3344. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3345. Public Enum UpdateOrderOption
  3346. InsertUpdateDelete = 0
  3347. UpdateInsertDelete = 1
  3348. End Enum
  3349. '''<summary>
  3350. '''Used to sort self-referenced table's rows
  3351. '''</summary>
  3352. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3353. Private Class SelfReferenceComparer
  3354. Inherits Object
  3355. Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
  3356. Private _relation As Global.System.Data.DataRelation
  3357. Private _childFirst As Integer
  3358. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3359. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3360. Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
  3361. MyBase.New
  3362. Me._relation = relation
  3363. If childFirst Then
  3364. Me._childFirst = -1
  3365. Else
  3366. Me._childFirst = 1
  3367. End If
  3368. End Sub
  3369. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3370. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3371. Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
  3372. Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
  3373. Dim root As Global.System.Data.DataRow = row
  3374. distance = 0
  3375. 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)()
  3376. traversedRows(row) = row
  3377. Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
  3378. Do While ((Not (parent) Is Nothing) _
  3379. AndAlso (traversedRows.ContainsKey(parent) = false))
  3380. distance = (distance + 1)
  3381. root = parent
  3382. traversedRows(parent) = parent
  3383. parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
  3384. Loop
  3385. If (distance = 0) Then
  3386. traversedRows.Clear
  3387. traversedRows(row) = row
  3388. parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
  3389. Do While ((Not (parent) Is Nothing) _
  3390. AndAlso (traversedRows.ContainsKey(parent) = false))
  3391. distance = (distance + 1)
  3392. root = parent
  3393. traversedRows(parent) = parent
  3394. parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
  3395. Loop
  3396. End If
  3397. Return root
  3398. End Function
  3399. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3400. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3401. 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
  3402. If Object.ReferenceEquals(row1, row2) Then
  3403. Return 0
  3404. End If
  3405. If (row1 Is Nothing) Then
  3406. Return -1
  3407. End If
  3408. If (row2 Is Nothing) Then
  3409. Return 1
  3410. End If
  3411. Dim distance1 As Integer = 0
  3412. Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
  3413. Dim distance2 As Integer = 0
  3414. Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
  3415. If Object.ReferenceEquals(root1, root2) Then
  3416. Return (Me._childFirst * distance1.CompareTo(distance2))
  3417. Else
  3418. Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
  3419. AndAlso (Not (root2.Table) Is Nothing)))
  3420. If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
  3421. Return -1
  3422. Else
  3423. Return 1
  3424. End If
  3425. End If
  3426. End Function
  3427. End Class
  3428. End Class
  3429. End Namespace