InversionesDEVDataSet5.Designer.vb 243 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710
  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("InversionesDEVDataSet5"), _
  20. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
  21. Partial Public Class InversionesDEVDataSet5
  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 InversionesDEVDataSet5 = CType(MyBase.Clone,InversionesDEVDataSet5)
  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 = "InversionesDEVDataSet5"
  182. Me.Prefix = ""
  183. Me.Namespace = "http://tempuri.org/InversionesDEVDataSet5.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 InversionesDEVDataSet5 = New InversionesDEVDataSet5()
  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 columnEstadoProceso 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 EstadoProcesoColumn() As Global.System.Data.DataColumn
  523. Get
  524. Return Me.columnEstadoProceso
  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 EstadoProceso 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, EstadoProceso}
  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.columnEstadoProceso = MyBase.Columns("EstadoProceso")
  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.columnEstadoProceso = New Global.System.Data.DataColumn("EstadoProceso", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  706. MyBase.Columns.Add(Me.columnEstadoProceso)
  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.columnEstadoProceso.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 InversionesDEVDataSet5 = New InversionesDEVDataSet5()
  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 EstadoProceso() As String
  1268. Get
  1269. Try
  1270. Return CType(Me(Me.tablePIN0.EstadoProcesoColumn),String)
  1271. Catch e As Global.System.InvalidCastException
  1272. Throw New Global.System.Data.StrongTypingException("El valor de la columna 'EstadoProceso' de la tabla 'PIN0' es DBNull.", e)
  1273. End Try
  1274. End Get
  1275. Set
  1276. Me(Me.tablePIN0.EstadoProcesoColumn) = 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 IsEstadoProcesoNull() As Boolean
  1562. Return Me.IsNull(Me.tablePIN0.EstadoProcesoColumn)
  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 SetEstadoProcesoNull()
  1567. Me(Me.tablePIN0.EstadoProcesoColumn) = 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 InversionesDEVDataSet5TableAdapters
  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", "EstadoProceso")
  1747. tableMapping.ColumnMappings.Add("EstadoProceso", "EstadoProceso")
  1748. Me._adapter.TableMappings.Add(tableMapping)
  1749. Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
  1750. Me._adapter.DeleteCommand.Connection = Me.Connection
  1751. Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[PIN0] WHERE (([DocId] = @Original_DocId) AND ((@IsNull_CodInv "& _
  1752. "= 1 AND [CodInv] IS NULL) OR ([CodInv] = @Original_CodInv)) AND ((@IsNull_VCodIn"& _
  1753. "v = 1 AND [VCodInv] IS NULL) OR ([VCodInv] = @Original_VCodInv)) AND ((@IsNull_D"& _
  1754. "ocEst = 1 AND [DocEst] IS NULL) OR ([DocEst] = @Original_DocEst)) AND ((@IsNull_"& _
  1755. "Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_Asunto)) AND ((@IsNull"& _
  1756. "_CodEmpr = 1 AND [CodEmpr] IS NULL) OR ([CodEmpr] = @Original_CodEmpr)) AND ((@I"& _
  1757. "sNull_CodIF = 1 AND [CodIF] IS NULL) OR ([CodIF] = @Original_CodIF)) AND ((@IsNu"& _
  1758. "ll_CodEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis] = @Original_CodEmis)) AND (("& _
  1759. "@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL) OR ([CodCalRi] = @Original_CodCalRi"& _
  1760. ")) AND ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS NULL) OR ([CodECalRi] = @Origi"& _
  1761. "nal_CodECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] IS NULL) OR ([OFon] = @Origina"& _
  1762. "l_OFon)) AND ((@IsNull_Coment = 1 AND [Coment] IS NULL) OR ([Coment] = @Original"& _
  1763. "_Coment)) AND ((@IsNull_Just = 1 AND [Just] IS NULL) OR ([Just] = @Original_Just"& _
  1764. ")) AND ((@IsNull_TipoOper = 1 AND [TipoOper] IS NULL) OR ([TipoOper] = @Original"& _
  1765. "_TipoOper)) AND ((@IsNull_DocBase = 1 AND [DocBase] IS NULL) OR ([DocBase] = @Or"& _
  1766. "iginal_DocBase)) AND ((@IsNull_MontoInv = 1 AND [MontoInv] IS NULL) OR ([MontoIn"& _
  1767. "v] = @Original_MontoInv)) AND ((@IsNull_Precio = 1 AND [Precio] IS NULL) OR ([Pr"& _
  1768. "ecio] = @Original_Precio)) AND ((@IsNull_Rendimiento = 1 AND [Rendimiento] IS NU"& _
  1769. "LL) OR ([Rendimiento] = @Original_Rendimiento)) AND ((@IsNull_Plazo = 1 AND [Pla"& _
  1770. "zo] IS NULL) OR ([Plazo] = @Original_Plazo)) AND ((@IsNull_PlazoFact = 1 AND [Pl"& _
  1771. "azoFact] IS NULL) OR ([PlazoFact] = @Original_PlazoFact)) AND ((@IsNull_Ingresos"& _
  1772. " = 1 AND [Ingresos] IS NULL) OR ([Ingresos] = @Original_Ingresos)) AND ((@IsNull"& _
  1773. "_FechaDoc = 1 AND [FechaDoc] IS NULL) OR ([FechaDoc] = @Original_FechaDoc)) AND "& _
  1774. "((@IsNull_AutEstado = 1 AND [AutEstado] IS NULL) OR ([AutEstado] = @Original_Aut"& _
  1775. "Estado)) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL) OR ([TipoMerc] = @Or"& _
  1776. "iginal_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] IS NULL) OR ([CodPais]"& _
  1777. " = @Original_CodPais)) AND ((@IsNull_TipoRenta = 1 AND [TipoRenta] IS NULL) OR ("& _
  1778. "[TipoRenta] = @Original_TipoRenta)) AND ((@IsNull_TipoTasa = 1 AND [TipoTasa] IS"& _
  1779. " NULL) OR ([TipoTasa] = @Original_TipoTasa)) AND ((@IsNull_Periodicidad = 1 AND "& _
  1780. "[Periodicidad] IS NULL) OR ([Periodicidad] = @Original_Periodicidad)) AND ((@IsN"& _
  1781. "ull_NombreManual = 1 AND [NombreManual] IS NULL) OR ([NombreManual] = @Original_"& _
  1782. "NombreManual)) AND ((@IsNull_EstadoProceso = 1 AND [EstadoProceso] IS NULL) OR ("& _
  1783. "[EstadoProceso] = @Original_EstadoProceso)))"
  1784. Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
  1785. 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, "", "", ""))
  1786. 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, "", "", ""))
  1787. 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, "", "", ""))
  1788. 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, "", "", ""))
  1789. 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, "", "", ""))
  1790. 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, "", "", ""))
  1791. 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, "", "", ""))
  1792. 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, "", "", ""))
  1793. 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, "", "", ""))
  1794. 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, "", "", ""))
  1795. 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, "", "", ""))
  1796. 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, "", "", ""))
  1797. 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, "", "", ""))
  1798. 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, "", "", ""))
  1799. 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, "", "", ""))
  1800. 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, "", "", ""))
  1801. 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, "", "", ""))
  1802. 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, "", "", ""))
  1803. 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, "", "", ""))
  1804. 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, "", "", ""))
  1805. 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, "", "", ""))
  1806. 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, "", "", ""))
  1807. 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, "", "", ""))
  1808. 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, "", "", ""))
  1809. 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, "", "", ""))
  1810. 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, "", "", ""))
  1811. 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, "", "", ""))
  1812. 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, "", "", ""))
  1813. 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, "", "", ""))
  1814. 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, "", "", ""))
  1815. 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, "", "", ""))
  1816. 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, "", "", ""))
  1817. 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, "", "", ""))
  1818. 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, "", "", ""))
  1819. 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, "", "", ""))
  1820. 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, "", "", ""))
  1821. 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, "", "", ""))
  1822. 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, "", "", ""))
  1823. 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, "", "", ""))
  1824. 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, "", "", ""))
  1825. 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, "", "", ""))
  1826. 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, "", "", ""))
  1827. 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, "", "", ""))
  1828. 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, "", "", ""))
  1829. 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, "", "", ""))
  1830. 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, "", "", ""))
  1831. 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, "", "", ""))
  1832. 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, "", "", ""))
  1833. 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, "", "", ""))
  1834. 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, "", "", ""))
  1835. 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, "", "", ""))
  1836. 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, "", "", ""))
  1837. 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, "", "", ""))
  1838. 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, "", "", ""))
  1839. 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, "", "", ""))
  1840. 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, "", "", ""))
  1841. 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, "", "", ""))
  1842. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EstadoProceso", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProceso", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1843. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstadoProceso", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProceso", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1844. Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
  1845. Me._adapter.InsertCommand.Connection = Me.Connection
  1846. Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[PIN0] ([CodInv], [VCodInv], [DocEst], [Asunto], [CodEmpr], [Co"& _
  1847. "dIF], [CodEmis], [CodCalRi], [CodECalRi], [OFon], [Coment], [Just], [TipoOper], "& _
  1848. "[DocBase], [MontoInv], [Precio], [Rendimiento], [Plazo], [PlazoFact], [Ingresos]"& _
  1849. ", [FechaDoc], [AutEstado], [TipoMerc], [CodPais], [TipoRenta], [TipoTasa], [Peri"& _
  1850. "odicidad], [NombreManual], [EstadoProceso]) VALUES (@CodInv, @VCodInv, @DocEst, "& _
  1851. "@Asunto, @CodEmpr, @CodIF, @CodEmis, @CodCalRi, @CodECalRi, @OFon, @Coment, @Jus"& _
  1852. "t, @TipoOper, @DocBase, @MontoInv, @Precio, @Rendimiento, @Plazo, @PlazoFact, @I"& _
  1853. "ngresos, @FechaDoc, @AutEstado, @TipoMerc, @CodPais, @TipoRenta, @TipoTasa, @Per"& _
  1854. "iodicidad, @NombreManual, @EstadoProceso);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, VCodInv, DocEs"& _
  1855. "t, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, Tip"& _
  1856. "oOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, Fecha"& _
  1857. "Doc, AutEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Periodicidad, NombreManu"& _
  1858. "al, EstadoProceso FROM PIN0 WHERE (DocId = SCOPE_IDENTITY())"
  1859. Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
  1860. 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, "", "", ""))
  1861. 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, "", "", ""))
  1862. 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, "", "", ""))
  1863. 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, "", "", ""))
  1864. 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, "", "", ""))
  1865. 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, "", "", ""))
  1866. 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, "", "", ""))
  1867. 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, "", "", ""))
  1868. 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, "", "", ""))
  1869. 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, "", "", ""))
  1870. 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, "", "", ""))
  1871. 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, "", "", ""))
  1872. 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, "", "", ""))
  1873. 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, "", "", ""))
  1874. 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, "", "", ""))
  1875. 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, "", "", ""))
  1876. 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, "", "", ""))
  1877. 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, "", "", ""))
  1878. 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, "", "", ""))
  1879. 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, "", "", ""))
  1880. 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, "", "", ""))
  1881. 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, "", "", ""))
  1882. 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, "", "", ""))
  1883. 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, "", "", ""))
  1884. 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, "", "", ""))
  1885. 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, "", "", ""))
  1886. 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, "", "", ""))
  1887. 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, "", "", ""))
  1888. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstadoProceso", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProceso", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1889. Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
  1890. Me._adapter.UpdateCommand.Connection = Me.Connection
  1891. Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[PIN0] SET [CodInv] = @CodInv, [VCodInv] = @VCodInv, [DocEst] = @Doc"& _
  1892. "Est, [Asunto] = @Asunto, [CodEmpr] = @CodEmpr, [CodIF] = @CodIF, [CodEmis] = @Co"& _
  1893. "dEmis, [CodCalRi] = @CodCalRi, [CodECalRi] = @CodECalRi, [OFon] = @OFon, [Coment"& _
  1894. "] = @Coment, [Just] = @Just, [TipoOper] = @TipoOper, [DocBase] = @DocBase, [Mont"& _
  1895. "oInv] = @MontoInv, [Precio] = @Precio, [Rendimiento] = @Rendimiento, [Plazo] = @"& _
  1896. "Plazo, [PlazoFact] = @PlazoFact, [Ingresos] = @Ingresos, [FechaDoc] = @FechaDoc,"& _
  1897. " [AutEstado] = @AutEstado, [TipoMerc] = @TipoMerc, [CodPais] = @CodPais, [TipoRe"& _
  1898. "nta] = @TipoRenta, [TipoTasa] = @TipoTasa, [Periodicidad] = @Periodicidad, [Nomb"& _
  1899. "reManual] = @NombreManual, [EstadoProceso] = @EstadoProceso WHERE (([DocId] = @O"& _
  1900. "riginal_DocId) AND ((@IsNull_CodInv = 1 AND [CodInv] IS NULL) OR ([CodInv] = @Or"& _
  1901. "iginal_CodInv)) AND ((@IsNull_VCodInv = 1 AND [VCodInv] IS NULL) OR ([VCodInv] ="& _
  1902. " @Original_VCodInv)) AND ((@IsNull_DocEst = 1 AND [DocEst] IS NULL) OR ([DocEst]"& _
  1903. " = @Original_DocEst)) AND ((@IsNull_Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto"& _
  1904. "] = @Original_Asunto)) AND ((@IsNull_CodEmpr = 1 AND [CodEmpr] IS NULL) OR ([Cod"& _
  1905. "Empr] = @Original_CodEmpr)) AND ((@IsNull_CodIF = 1 AND [CodIF] IS NULL) OR ([Co"& _
  1906. "dIF] = @Original_CodIF)) AND ((@IsNull_CodEmis = 1 AND [CodEmis] IS NULL) OR ([C"& _
  1907. "odEmis] = @Original_CodEmis)) AND ((@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL)"& _
  1908. " OR ([CodCalRi] = @Original_CodCalRi)) AND ((@IsNull_CodECalRi = 1 AND [CodECalR"& _
  1909. "i] IS NULL) OR ([CodECalRi] = @Original_CodECalRi)) AND ((@IsNull_OFon = 1 AND ["& _
  1910. "OFon] IS NULL) OR ([OFon] = @Original_OFon)) AND ((@IsNull_Coment = 1 AND [Comen"& _
  1911. "t] IS NULL) OR ([Coment] = @Original_Coment)) AND ((@IsNull_Just = 1 AND [Just] "& _
  1912. "IS NULL) OR ([Just] = @Original_Just)) AND ((@IsNull_TipoOper = 1 AND [TipoOper]"& _
  1913. " IS NULL) OR ([TipoOper] = @Original_TipoOper)) AND ((@IsNull_DocBase = 1 AND [D"& _
  1914. "ocBase] IS NULL) OR ([DocBase] = @Original_DocBase)) AND ((@IsNull_MontoInv = 1 "& _
  1915. "AND [MontoInv] IS NULL) OR ([MontoInv] = @Original_MontoInv)) AND ((@IsNull_Prec"& _
  1916. "io = 1 AND [Precio] IS NULL) OR ([Precio] = @Original_Precio)) AND ((@IsNull_Ren"& _
  1917. "dimiento = 1 AND [Rendimiento] IS NULL) OR ([Rendimiento] = @Original_Rendimient"& _
  1918. "o)) AND ((@IsNull_Plazo = 1 AND [Plazo] IS NULL) OR ([Plazo] = @Original_Plazo))"& _
  1919. " AND ((@IsNull_PlazoFact = 1 AND [PlazoFact] IS NULL) OR ([PlazoFact] = @Origina"& _
  1920. "l_PlazoFact)) AND ((@IsNull_Ingresos = 1 AND [Ingresos] IS NULL) OR ([Ingresos] "& _
  1921. "= @Original_Ingresos)) AND ((@IsNull_FechaDoc = 1 AND [FechaDoc] IS NULL) OR ([F"& _
  1922. "echaDoc] = @Original_FechaDoc)) AND ((@IsNull_AutEstado = 1 AND [AutEstado] IS N"& _
  1923. "ULL) OR ([AutEstado] = @Original_AutEstado)) AND ((@IsNull_TipoMerc = 1 AND [Tip"& _
  1924. "oMerc] IS NULL) OR ([TipoMerc] = @Original_TipoMerc)) AND ((@IsNull_CodPais = 1 "& _
  1925. "AND [CodPais] IS NULL) OR ([CodPais] = @Original_CodPais)) AND ((@IsNull_TipoRen"& _
  1926. "ta = 1 AND [TipoRenta] IS NULL) OR ([TipoRenta] = @Original_TipoRenta)) AND ((@I"& _
  1927. "sNull_TipoTasa = 1 AND [TipoTasa] IS NULL) OR ([TipoTasa] = @Original_TipoTasa))"& _
  1928. " AND ((@IsNull_Periodicidad = 1 AND [Periodicidad] IS NULL) OR ([Periodicidad] ="& _
  1929. " @Original_Periodicidad)) AND ((@IsNull_NombreManual = 1 AND [NombreManual] IS N"& _
  1930. "ULL) OR ([NombreManual] = @Original_NombreManual)) AND ((@IsNull_EstadoProceso ="& _
  1931. " 1 AND [EstadoProceso] IS NULL) OR ([EstadoProceso] = @Original_EstadoProceso)))"& _
  1932. ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCa"& _
  1933. "lRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimi"& _
  1934. "ento, Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRe"& _
  1935. "nta, TipoTasa, Periodicidad, NombreManual, EstadoProceso FROM PIN0 WHERE (DocId "& _
  1936. "= @DocId)"
  1937. Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
  1938. 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, "", "", ""))
  1939. 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, "", "", ""))
  1940. 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, "", "", ""))
  1941. 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, "", "", ""))
  1942. 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, "", "", ""))
  1943. 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, "", "", ""))
  1944. 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, "", "", ""))
  1945. 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, "", "", ""))
  1946. 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, "", "", ""))
  1947. 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, "", "", ""))
  1948. 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, "", "", ""))
  1949. 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, "", "", ""))
  1950. 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, "", "", ""))
  1951. 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, "", "", ""))
  1952. 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, "", "", ""))
  1953. 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, "", "", ""))
  1954. 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, "", "", ""))
  1955. 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, "", "", ""))
  1956. 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, "", "", ""))
  1957. 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, "", "", ""))
  1958. 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, "", "", ""))
  1959. 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, "", "", ""))
  1960. 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, "", "", ""))
  1961. 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, "", "", ""))
  1962. 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, "", "", ""))
  1963. 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, "", "", ""))
  1964. 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, "", "", ""))
  1965. 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, "", "", ""))
  1966. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstadoProceso", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProceso", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1967. 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, "", "", ""))
  1968. 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, "", "", ""))
  1969. 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, "", "", ""))
  1970. 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, "", "", ""))
  1971. 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, "", "", ""))
  1972. 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, "", "", ""))
  1973. 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, "", "", ""))
  1974. 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, "", "", ""))
  1975. 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, "", "", ""))
  1976. 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, "", "", ""))
  1977. 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, "", "", ""))
  1978. 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, "", "", ""))
  1979. 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, "", "", ""))
  1980. 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, "", "", ""))
  1981. 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, "", "", ""))
  1982. 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, "", "", ""))
  1983. 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, "", "", ""))
  1984. 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, "", "", ""))
  1985. 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, "", "", ""))
  1986. 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, "", "", ""))
  1987. 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, "", "", ""))
  1988. 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, "", "", ""))
  1989. 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, "", "", ""))
  1990. 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, "", "", ""))
  1991. 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, "", "", ""))
  1992. 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, "", "", ""))
  1993. 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, "", "", ""))
  1994. 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, "", "", ""))
  1995. 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, "", "", ""))
  1996. 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, "", "", ""))
  1997. 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, "", "", ""))
  1998. 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, "", "", ""))
  1999. 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, "", "", ""))
  2000. 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, "", "", ""))
  2001. 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, "", "", ""))
  2002. 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, "", "", ""))
  2003. 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, "", "", ""))
  2004. 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, "", "", ""))
  2005. 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, "", "", ""))
  2006. 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, "", "", ""))
  2007. 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, "", "", ""))
  2008. 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, "", "", ""))
  2009. 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, "", "", ""))
  2010. 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, "", "", ""))
  2011. 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, "", "", ""))
  2012. 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, "", "", ""))
  2013. 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, "", "", ""))
  2014. 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, "", "", ""))
  2015. 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, "", "", ""))
  2016. 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, "", "", ""))
  2017. 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, "", "", ""))
  2018. 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, "", "", ""))
  2019. 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, "", "", ""))
  2020. 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, "", "", ""))
  2021. 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, "", "", ""))
  2022. 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, "", "", ""))
  2023. 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, "", "", ""))
  2024. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EstadoProceso", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProceso", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  2025. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstadoProceso", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProceso", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2026. 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, "", "", ""))
  2027. End Sub
  2028. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2029. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  2030. Private Sub InitConnection()
  2031. Me._connection = New Global.System.Data.SqlClient.SqlConnection()
  2032. Me._connection.ConnectionString = Global.Inversiones.My.MySettings.Default.InversionesConnectionString
  2033. End Sub
  2034. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2035. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  2036. Private Sub InitCommandCollection()
  2037. Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
  2038. Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
  2039. Me._commandCollection(0).Connection = Me.Connection
  2040. Me._commandCollection(0).CommandText = "SELECT DocId, CodInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi,"& _
  2041. " CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento"& _
  2042. ", Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta,"& _
  2043. " TipoTasa, Periodicidad, NombreManual, EstadoProceso FROM dbo.PIN0"
  2044. Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
  2045. End Sub
  2046. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2047. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2048. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2049. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
  2050. Public Overloads Overridable Function Fill(ByVal dataTable As InversionesDEVDataSet5.PIN0DataTable) As Integer
  2051. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  2052. If (Me.ClearBeforeFill = true) Then
  2053. dataTable.Clear
  2054. End If
  2055. Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
  2056. Return returnValue
  2057. End Function
  2058. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2059. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2060. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2061. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
  2062. Public Overloads Overridable Function GetData() As InversionesDEVDataSet5.PIN0DataTable
  2063. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  2064. Dim dataTable As InversionesDEVDataSet5.PIN0DataTable = New InversionesDEVDataSet5.PIN0DataTable()
  2065. Me.Adapter.Fill(dataTable)
  2066. Return dataTable
  2067. End Function
  2068. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2069. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2070. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2071. Public Overloads Overridable Function Update(ByVal dataTable As InversionesDEVDataSet5.PIN0DataTable) As Integer
  2072. Return Me.Adapter.Update(dataTable)
  2073. End Function
  2074. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2075. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2076. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2077. Public Overloads Overridable Function Update(ByVal dataSet As InversionesDEVDataSet5) As Integer
  2078. Return Me.Adapter.Update(dataSet, "PIN0")
  2079. End Function
  2080. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2081. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2082. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2083. Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
  2084. Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
  2085. End Function
  2086. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2087. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2088. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2089. Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
  2090. Return Me.Adapter.Update(dataRows)
  2091. End Function
  2092. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2093. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2094. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2095. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
  2096. Public Overloads Overridable Function Delete( _
  2097. ByVal Original_DocId As Integer, _
  2098. ByVal Original_CodInv As String, _
  2099. ByVal Original_VCodInv As String, _
  2100. ByVal Original_DocEst As String, _
  2101. ByVal Original_Asunto As String, _
  2102. ByVal Original_CodEmpr As String, _
  2103. ByVal Original_CodIF As String, _
  2104. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  2105. ByVal Original_CodCalRi As String, _
  2106. ByVal Original_CodECalRi As String, _
  2107. ByVal Original_OFon As String, _
  2108. ByVal Original_Coment As String, _
  2109. ByVal Original_Just As String, _
  2110. ByVal Original_TipoOper As String, _
  2111. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  2112. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  2113. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  2114. ByVal Original_Rendimiento As String, _
  2115. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  2116. ByVal Original_PlazoFact As String, _
  2117. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  2118. ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
  2119. ByVal Original_AutEstado As String, _
  2120. ByVal Original_TipoMerc As String, _
  2121. ByVal Original_CodPais As String, _
  2122. ByVal Original_TipoRenta As String, _
  2123. ByVal Original_TipoTasa As String, _
  2124. ByVal Original_Periodicidad As String, _
  2125. ByVal Original_NombreManual As String, _
  2126. ByVal Original_EstadoProceso As String) As Integer
  2127. Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DocId,Integer)
  2128. If (Original_CodInv Is Nothing) Then
  2129. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
  2130. Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
  2131. Else
  2132. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
  2133. Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CodInv,String)
  2134. End If
  2135. If (Original_VCodInv Is Nothing) Then
  2136. Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
  2137. Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
  2138. Else
  2139. Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
  2140. Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_VCodInv,String)
  2141. End If
  2142. If (Original_DocEst Is Nothing) Then
  2143. Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
  2144. Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
  2145. Else
  2146. Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
  2147. Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_DocEst,String)
  2148. End If
  2149. If (Original_Asunto Is Nothing) Then
  2150. Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
  2151. Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
  2152. Else
  2153. Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
  2154. Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Asunto,String)
  2155. End If
  2156. If (Original_CodEmpr Is Nothing) Then
  2157. Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
  2158. Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
  2159. Else
  2160. Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
  2161. Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CodEmpr,String)
  2162. End If
  2163. If (Original_CodIF Is Nothing) Then
  2164. Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
  2165. Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
  2166. Else
  2167. Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
  2168. Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CodIF,String)
  2169. End If
  2170. If (Original_CodEmis.HasValue = true) Then
  2171. Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
  2172. Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CodEmis.Value,Integer)
  2173. Else
  2174. Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
  2175. Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
  2176. End If
  2177. If (Original_CodCalRi Is Nothing) Then
  2178. Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
  2179. Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
  2180. Else
  2181. Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
  2182. Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CodCalRi,String)
  2183. End If
  2184. If (Original_CodECalRi Is Nothing) Then
  2185. Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
  2186. Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
  2187. Else
  2188. Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
  2189. Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CodECalRi,String)
  2190. End If
  2191. If (Original_OFon Is Nothing) Then
  2192. Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
  2193. Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
  2194. Else
  2195. Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
  2196. Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_OFon,String)
  2197. End If
  2198. If (Original_Coment Is Nothing) Then
  2199. Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object)
  2200. Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value
  2201. Else
  2202. Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object)
  2203. Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Coment,String)
  2204. End If
  2205. If (Original_Just Is Nothing) Then
  2206. Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object)
  2207. Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value
  2208. Else
  2209. Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object)
  2210. Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_Just,String)
  2211. End If
  2212. If (Original_TipoOper Is Nothing) Then
  2213. Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object)
  2214. Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value
  2215. Else
  2216. Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object)
  2217. Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_TipoOper,String)
  2218. End If
  2219. If (Original_DocBase.HasValue = true) Then
  2220. Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
  2221. Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_DocBase.Value,Integer)
  2222. Else
  2223. Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object)
  2224. Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value
  2225. End If
  2226. If (Original_MontoInv.HasValue = true) Then
  2227. Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
  2228. Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_MontoInv.Value,Decimal)
  2229. Else
  2230. Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object)
  2231. Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value
  2232. End If
  2233. If (Original_Precio.HasValue = true) Then
  2234. Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
  2235. Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_Precio.Value,Decimal)
  2236. Else
  2237. Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
  2238. Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
  2239. End If
  2240. If (Original_Rendimiento Is Nothing) Then
  2241. Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object)
  2242. Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value
  2243. Else
  2244. Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object)
  2245. Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_Rendimiento,String)
  2246. End If
  2247. If (Original_Plazo.HasValue = true) Then
  2248. Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object)
  2249. Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_Plazo.Value,Integer)
  2250. Else
  2251. Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object)
  2252. Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value
  2253. End If
  2254. If (Original_PlazoFact Is Nothing) Then
  2255. Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object)
  2256. Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value
  2257. Else
  2258. Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object)
  2259. Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_PlazoFact,String)
  2260. End If
  2261. If (Original_Ingresos.HasValue = true) Then
  2262. Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object)
  2263. Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_Ingresos.Value,Decimal)
  2264. Else
  2265. Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object)
  2266. Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value
  2267. End If
  2268. If (Original_FechaDoc.HasValue = true) Then
  2269. Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object)
  2270. Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_FechaDoc.Value,Date)
  2271. Else
  2272. Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object)
  2273. Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value
  2274. End If
  2275. If (Original_AutEstado Is Nothing) Then
  2276. Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object)
  2277. Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value
  2278. Else
  2279. Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object)
  2280. Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_AutEstado,String)
  2281. End If
  2282. If (Original_TipoMerc Is Nothing) Then
  2283. Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object)
  2284. Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value
  2285. Else
  2286. Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object)
  2287. Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_TipoMerc,String)
  2288. End If
  2289. If (Original_CodPais Is Nothing) Then
  2290. Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object)
  2291. Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value
  2292. Else
  2293. Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object)
  2294. Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_CodPais,String)
  2295. End If
  2296. If (Original_TipoRenta Is Nothing) Then
  2297. Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object)
  2298. Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value
  2299. Else
  2300. Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object)
  2301. Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_TipoRenta,String)
  2302. End If
  2303. If (Original_TipoTasa Is Nothing) Then
  2304. Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object)
  2305. Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value
  2306. Else
  2307. Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object)
  2308. Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_TipoTasa,String)
  2309. End If
  2310. If (Original_Periodicidad Is Nothing) Then
  2311. Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object)
  2312. Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value
  2313. Else
  2314. Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object)
  2315. Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_Periodicidad,String)
  2316. End If
  2317. If (Original_NombreManual Is Nothing) Then
  2318. Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object)
  2319. Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value
  2320. Else
  2321. Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object)
  2322. Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_NombreManual,String)
  2323. End If
  2324. If (Original_EstadoProceso Is Nothing) Then
  2325. Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object)
  2326. Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value
  2327. Else
  2328. Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object)
  2329. Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_EstadoProceso,String)
  2330. End If
  2331. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
  2332. If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2333. <> Global.System.Data.ConnectionState.Open) Then
  2334. Me.Adapter.DeleteCommand.Connection.Open
  2335. End If
  2336. Try
  2337. Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
  2338. Return returnValue
  2339. Finally
  2340. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2341. Me.Adapter.DeleteCommand.Connection.Close
  2342. End If
  2343. End Try
  2344. End Function
  2345. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2346. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2347. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2348. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
  2349. Public Overloads Overridable Function Insert( _
  2350. ByVal CodInv As String, _
  2351. ByVal VCodInv As String, _
  2352. ByVal DocEst As String, _
  2353. ByVal Asunto As String, _
  2354. ByVal CodEmpr As String, _
  2355. ByVal CodIF As String, _
  2356. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2357. ByVal CodCalRi As String, _
  2358. ByVal CodECalRi As String, _
  2359. ByVal OFon As String, _
  2360. ByVal Coment As String, _
  2361. ByVal Just As String, _
  2362. ByVal TipoOper As String, _
  2363. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2364. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2365. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2366. ByVal Rendimiento As String, _
  2367. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2368. ByVal PlazoFact As String, _
  2369. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2370. ByVal FechaDoc As Global.System.Nullable(Of Date), _
  2371. ByVal AutEstado As String, _
  2372. ByVal TipoMerc As String, _
  2373. ByVal CodPais As String, _
  2374. ByVal TipoRenta As String, _
  2375. ByVal TipoTasa As String, _
  2376. ByVal Periodicidad As String, _
  2377. ByVal NombreManual As String, _
  2378. ByVal EstadoProceso As String) As Integer
  2379. If (CodInv Is Nothing) Then
  2380. Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
  2381. Else
  2382. Me.Adapter.InsertCommand.Parameters(0).Value = CType(CodInv,String)
  2383. End If
  2384. If (VCodInv Is Nothing) Then
  2385. Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
  2386. Else
  2387. Me.Adapter.InsertCommand.Parameters(1).Value = CType(VCodInv,String)
  2388. End If
  2389. If (DocEst Is Nothing) Then
  2390. Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
  2391. Else
  2392. Me.Adapter.InsertCommand.Parameters(2).Value = CType(DocEst,String)
  2393. End If
  2394. If (Asunto Is Nothing) Then
  2395. Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
  2396. Else
  2397. Me.Adapter.InsertCommand.Parameters(3).Value = CType(Asunto,String)
  2398. End If
  2399. If (CodEmpr Is Nothing) Then
  2400. Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
  2401. Else
  2402. Me.Adapter.InsertCommand.Parameters(4).Value = CType(CodEmpr,String)
  2403. End If
  2404. If (CodIF Is Nothing) Then
  2405. Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
  2406. Else
  2407. Me.Adapter.InsertCommand.Parameters(5).Value = CType(CodIF,String)
  2408. End If
  2409. If (CodEmis.HasValue = true) Then
  2410. Me.Adapter.InsertCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
  2411. Else
  2412. Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
  2413. End If
  2414. If (CodCalRi Is Nothing) Then
  2415. Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
  2416. Else
  2417. Me.Adapter.InsertCommand.Parameters(7).Value = CType(CodCalRi,String)
  2418. End If
  2419. If (CodECalRi Is Nothing) Then
  2420. Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
  2421. Else
  2422. Me.Adapter.InsertCommand.Parameters(8).Value = CType(CodECalRi,String)
  2423. End If
  2424. If (OFon Is Nothing) Then
  2425. Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
  2426. Else
  2427. Me.Adapter.InsertCommand.Parameters(9).Value = CType(OFon,String)
  2428. End If
  2429. If (Coment Is Nothing) Then
  2430. Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
  2431. Else
  2432. Me.Adapter.InsertCommand.Parameters(10).Value = CType(Coment,String)
  2433. End If
  2434. If (Just Is Nothing) Then
  2435. Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
  2436. Else
  2437. Me.Adapter.InsertCommand.Parameters(11).Value = CType(Just,String)
  2438. End If
  2439. If (TipoOper Is Nothing) Then
  2440. Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
  2441. Else
  2442. Me.Adapter.InsertCommand.Parameters(12).Value = CType(TipoOper,String)
  2443. End If
  2444. If (DocBase.HasValue = true) Then
  2445. Me.Adapter.InsertCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
  2446. Else
  2447. Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
  2448. End If
  2449. If (MontoInv.HasValue = true) Then
  2450. Me.Adapter.InsertCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
  2451. Else
  2452. Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
  2453. End If
  2454. If (Precio.HasValue = true) Then
  2455. Me.Adapter.InsertCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
  2456. Else
  2457. Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
  2458. End If
  2459. If (Rendimiento Is Nothing) Then
  2460. Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value
  2461. Else
  2462. Me.Adapter.InsertCommand.Parameters(16).Value = CType(Rendimiento,String)
  2463. End If
  2464. If (Plazo.HasValue = true) Then
  2465. Me.Adapter.InsertCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
  2466. Else
  2467. Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value
  2468. End If
  2469. If (PlazoFact Is Nothing) Then
  2470. Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value
  2471. Else
  2472. Me.Adapter.InsertCommand.Parameters(18).Value = CType(PlazoFact,String)
  2473. End If
  2474. If (Ingresos.HasValue = true) Then
  2475. Me.Adapter.InsertCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
  2476. Else
  2477. Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value
  2478. End If
  2479. If (FechaDoc.HasValue = true) Then
  2480. Me.Adapter.InsertCommand.Parameters(20).Value = CType(FechaDoc.Value,Date)
  2481. Else
  2482. Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value
  2483. End If
  2484. If (AutEstado Is Nothing) Then
  2485. Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value
  2486. Else
  2487. Me.Adapter.InsertCommand.Parameters(21).Value = CType(AutEstado,String)
  2488. End If
  2489. If (TipoMerc Is Nothing) Then
  2490. Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value
  2491. Else
  2492. Me.Adapter.InsertCommand.Parameters(22).Value = CType(TipoMerc,String)
  2493. End If
  2494. If (CodPais Is Nothing) Then
  2495. Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value
  2496. Else
  2497. Me.Adapter.InsertCommand.Parameters(23).Value = CType(CodPais,String)
  2498. End If
  2499. If (TipoRenta Is Nothing) Then
  2500. Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value
  2501. Else
  2502. Me.Adapter.InsertCommand.Parameters(24).Value = CType(TipoRenta,String)
  2503. End If
  2504. If (TipoTasa Is Nothing) Then
  2505. Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value
  2506. Else
  2507. Me.Adapter.InsertCommand.Parameters(25).Value = CType(TipoTasa,String)
  2508. End If
  2509. If (Periodicidad Is Nothing) Then
  2510. Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value
  2511. Else
  2512. Me.Adapter.InsertCommand.Parameters(26).Value = CType(Periodicidad,String)
  2513. End If
  2514. If (NombreManual Is Nothing) Then
  2515. Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value
  2516. Else
  2517. Me.Adapter.InsertCommand.Parameters(27).Value = CType(NombreManual,String)
  2518. End If
  2519. If (EstadoProceso Is Nothing) Then
  2520. Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value
  2521. Else
  2522. Me.Adapter.InsertCommand.Parameters(28).Value = CType(EstadoProceso,String)
  2523. End If
  2524. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
  2525. If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2526. <> Global.System.Data.ConnectionState.Open) Then
  2527. Me.Adapter.InsertCommand.Connection.Open
  2528. End If
  2529. Try
  2530. Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
  2531. Return returnValue
  2532. Finally
  2533. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2534. Me.Adapter.InsertCommand.Connection.Close
  2535. End If
  2536. End Try
  2537. End Function
  2538. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2539. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2540. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2541. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2542. Public Overloads Overridable Function Update( _
  2543. ByVal CodInv As String, _
  2544. ByVal VCodInv As String, _
  2545. ByVal DocEst As String, _
  2546. ByVal Asunto As String, _
  2547. ByVal CodEmpr As String, _
  2548. ByVal CodIF As String, _
  2549. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2550. ByVal CodCalRi As String, _
  2551. ByVal CodECalRi As String, _
  2552. ByVal OFon As String, _
  2553. ByVal Coment As String, _
  2554. ByVal Just As String, _
  2555. ByVal TipoOper As String, _
  2556. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2557. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2558. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2559. ByVal Rendimiento As String, _
  2560. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2561. ByVal PlazoFact As String, _
  2562. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2563. ByVal FechaDoc As Global.System.Nullable(Of Date), _
  2564. ByVal AutEstado As String, _
  2565. ByVal TipoMerc As String, _
  2566. ByVal CodPais As String, _
  2567. ByVal TipoRenta As String, _
  2568. ByVal TipoTasa As String, _
  2569. ByVal Periodicidad As String, _
  2570. ByVal NombreManual As String, _
  2571. ByVal EstadoProceso As String, _
  2572. ByVal Original_DocId As Integer, _
  2573. ByVal Original_CodInv As String, _
  2574. ByVal Original_VCodInv As String, _
  2575. ByVal Original_DocEst As String, _
  2576. ByVal Original_Asunto As String, _
  2577. ByVal Original_CodEmpr As String, _
  2578. ByVal Original_CodIF As String, _
  2579. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  2580. ByVal Original_CodCalRi As String, _
  2581. ByVal Original_CodECalRi As String, _
  2582. ByVal Original_OFon As String, _
  2583. ByVal Original_Coment As String, _
  2584. ByVal Original_Just As String, _
  2585. ByVal Original_TipoOper As String, _
  2586. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  2587. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  2588. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  2589. ByVal Original_Rendimiento As String, _
  2590. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  2591. ByVal Original_PlazoFact As String, _
  2592. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  2593. ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
  2594. ByVal Original_AutEstado As String, _
  2595. ByVal Original_TipoMerc As String, _
  2596. ByVal Original_CodPais As String, _
  2597. ByVal Original_TipoRenta As String, _
  2598. ByVal Original_TipoTasa As String, _
  2599. ByVal Original_Periodicidad As String, _
  2600. ByVal Original_NombreManual As String, _
  2601. ByVal Original_EstadoProceso As String, _
  2602. ByVal DocId As Integer) As Integer
  2603. If (CodInv Is Nothing) Then
  2604. Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
  2605. Else
  2606. Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CodInv,String)
  2607. End If
  2608. If (VCodInv Is Nothing) Then
  2609. Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
  2610. Else
  2611. Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VCodInv,String)
  2612. End If
  2613. If (DocEst Is Nothing) Then
  2614. Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
  2615. Else
  2616. Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DocEst,String)
  2617. End If
  2618. If (Asunto Is Nothing) Then
  2619. Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
  2620. Else
  2621. Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Asunto,String)
  2622. End If
  2623. If (CodEmpr Is Nothing) Then
  2624. Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
  2625. Else
  2626. Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CodEmpr,String)
  2627. End If
  2628. If (CodIF Is Nothing) Then
  2629. Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
  2630. Else
  2631. Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CodIF,String)
  2632. End If
  2633. If (CodEmis.HasValue = true) Then
  2634. Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
  2635. Else
  2636. Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
  2637. End If
  2638. If (CodCalRi Is Nothing) Then
  2639. Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
  2640. Else
  2641. Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CodCalRi,String)
  2642. End If
  2643. If (CodECalRi Is Nothing) Then
  2644. Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
  2645. Else
  2646. Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CodECalRi,String)
  2647. End If
  2648. If (OFon Is Nothing) Then
  2649. Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
  2650. Else
  2651. Me.Adapter.UpdateCommand.Parameters(9).Value = CType(OFon,String)
  2652. End If
  2653. If (Coment Is Nothing) Then
  2654. Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
  2655. Else
  2656. Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Coment,String)
  2657. End If
  2658. If (Just Is Nothing) Then
  2659. Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
  2660. Else
  2661. Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Just,String)
  2662. End If
  2663. If (TipoOper Is Nothing) Then
  2664. Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
  2665. Else
  2666. Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TipoOper,String)
  2667. End If
  2668. If (DocBase.HasValue = true) Then
  2669. Me.Adapter.UpdateCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
  2670. Else
  2671. Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
  2672. End If
  2673. If (MontoInv.HasValue = true) Then
  2674. Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
  2675. Else
  2676. Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
  2677. End If
  2678. If (Precio.HasValue = true) Then
  2679. Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
  2680. Else
  2681. Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
  2682. End If
  2683. If (Rendimiento Is Nothing) Then
  2684. Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
  2685. Else
  2686. Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Rendimiento,String)
  2687. End If
  2688. If (Plazo.HasValue = true) Then
  2689. Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
  2690. Else
  2691. Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
  2692. End If
  2693. If (PlazoFact Is Nothing) Then
  2694. Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
  2695. Else
  2696. Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PlazoFact,String)
  2697. End If
  2698. If (Ingresos.HasValue = true) Then
  2699. Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
  2700. Else
  2701. Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
  2702. End If
  2703. If (FechaDoc.HasValue = true) Then
  2704. Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FechaDoc.Value,Date)
  2705. Else
  2706. Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
  2707. End If
  2708. If (AutEstado Is Nothing) Then
  2709. Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
  2710. Else
  2711. Me.Adapter.UpdateCommand.Parameters(21).Value = CType(AutEstado,String)
  2712. End If
  2713. If (TipoMerc Is Nothing) Then
  2714. Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
  2715. Else
  2716. Me.Adapter.UpdateCommand.Parameters(22).Value = CType(TipoMerc,String)
  2717. End If
  2718. If (CodPais Is Nothing) Then
  2719. Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
  2720. Else
  2721. Me.Adapter.UpdateCommand.Parameters(23).Value = CType(CodPais,String)
  2722. End If
  2723. If (TipoRenta Is Nothing) Then
  2724. Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
  2725. Else
  2726. Me.Adapter.UpdateCommand.Parameters(24).Value = CType(TipoRenta,String)
  2727. End If
  2728. If (TipoTasa Is Nothing) Then
  2729. Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
  2730. Else
  2731. Me.Adapter.UpdateCommand.Parameters(25).Value = CType(TipoTasa,String)
  2732. End If
  2733. If (Periodicidad Is Nothing) Then
  2734. Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
  2735. Else
  2736. Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Periodicidad,String)
  2737. End If
  2738. If (NombreManual Is Nothing) Then
  2739. Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
  2740. Else
  2741. Me.Adapter.UpdateCommand.Parameters(27).Value = CType(NombreManual,String)
  2742. End If
  2743. If (EstadoProceso Is Nothing) Then
  2744. Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
  2745. Else
  2746. Me.Adapter.UpdateCommand.Parameters(28).Value = CType(EstadoProceso,String)
  2747. End If
  2748. Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_DocId,Integer)
  2749. If (Original_CodInv Is Nothing) Then
  2750. Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
  2751. Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
  2752. Else
  2753. Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
  2754. Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CodInv,String)
  2755. End If
  2756. If (Original_VCodInv Is Nothing) Then
  2757. Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object)
  2758. Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value
  2759. Else
  2760. Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object)
  2761. Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_VCodInv,String)
  2762. End If
  2763. If (Original_DocEst Is Nothing) Then
  2764. Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
  2765. Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
  2766. Else
  2767. Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
  2768. Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_DocEst,String)
  2769. End If
  2770. If (Original_Asunto Is Nothing) Then
  2771. Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object)
  2772. Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value
  2773. Else
  2774. Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object)
  2775. Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_Asunto,String)
  2776. End If
  2777. If (Original_CodEmpr Is Nothing) Then
  2778. Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object)
  2779. Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value
  2780. Else
  2781. Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object)
  2782. Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_CodEmpr,String)
  2783. End If
  2784. If (Original_CodIF Is Nothing) Then
  2785. Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object)
  2786. Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value
  2787. Else
  2788. Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object)
  2789. Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_CodIF,String)
  2790. End If
  2791. If (Original_CodEmis.HasValue = true) Then
  2792. Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object)
  2793. Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_CodEmis.Value,Integer)
  2794. Else
  2795. Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object)
  2796. Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value
  2797. End If
  2798. If (Original_CodCalRi Is Nothing) Then
  2799. Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object)
  2800. Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value
  2801. Else
  2802. Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object)
  2803. Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_CodCalRi,String)
  2804. End If
  2805. If (Original_CodECalRi Is Nothing) Then
  2806. Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object)
  2807. Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value
  2808. Else
  2809. Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object)
  2810. Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_CodECalRi,String)
  2811. End If
  2812. If (Original_OFon Is Nothing) Then
  2813. Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object)
  2814. Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value
  2815. Else
  2816. Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object)
  2817. Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_OFon,String)
  2818. End If
  2819. If (Original_Coment Is Nothing) Then
  2820. Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
  2821. Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
  2822. Else
  2823. Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
  2824. Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_Coment,String)
  2825. End If
  2826. If (Original_Just Is Nothing) Then
  2827. Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object)
  2828. Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value
  2829. Else
  2830. Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object)
  2831. Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_Just,String)
  2832. End If
  2833. If (Original_TipoOper Is Nothing) Then
  2834. Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object)
  2835. Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value
  2836. Else
  2837. Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object)
  2838. Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_TipoOper,String)
  2839. End If
  2840. If (Original_DocBase.HasValue = true) Then
  2841. Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object)
  2842. Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_DocBase.Value,Integer)
  2843. Else
  2844. Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object)
  2845. Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value
  2846. End If
  2847. If (Original_MontoInv.HasValue = true) Then
  2848. Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object)
  2849. Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_MontoInv.Value,Decimal)
  2850. Else
  2851. Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object)
  2852. Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value
  2853. End If
  2854. If (Original_Precio.HasValue = true) Then
  2855. Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object)
  2856. Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_Precio.Value,Decimal)
  2857. Else
  2858. Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object)
  2859. Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value
  2860. End If
  2861. If (Original_Rendimiento Is Nothing) Then
  2862. Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object)
  2863. Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value
  2864. Else
  2865. Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object)
  2866. Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_Rendimiento,String)
  2867. End If
  2868. If (Original_Plazo.HasValue = true) Then
  2869. Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object)
  2870. Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_Plazo.Value,Integer)
  2871. Else
  2872. Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object)
  2873. Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value
  2874. End If
  2875. If (Original_PlazoFact Is Nothing) Then
  2876. Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object)
  2877. Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value
  2878. Else
  2879. Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object)
  2880. Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_PlazoFact,String)
  2881. End If
  2882. If (Original_Ingresos.HasValue = true) Then
  2883. Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object)
  2884. Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_Ingresos.Value,Decimal)
  2885. Else
  2886. Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object)
  2887. Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value
  2888. End If
  2889. If (Original_FechaDoc.HasValue = true) Then
  2890. Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object)
  2891. Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_FechaDoc.Value,Date)
  2892. Else
  2893. Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object)
  2894. Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value
  2895. End If
  2896. If (Original_AutEstado Is Nothing) Then
  2897. Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object)
  2898. Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value
  2899. Else
  2900. Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object)
  2901. Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_AutEstado,String)
  2902. End If
  2903. If (Original_TipoMerc Is Nothing) Then
  2904. Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object)
  2905. Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value
  2906. Else
  2907. Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object)
  2908. Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_TipoMerc,String)
  2909. End If
  2910. If (Original_CodPais Is Nothing) Then
  2911. Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object)
  2912. Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value
  2913. Else
  2914. Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object)
  2915. Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_CodPais,String)
  2916. End If
  2917. If (Original_TipoRenta Is Nothing) Then
  2918. Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object)
  2919. Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value
  2920. Else
  2921. Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object)
  2922. Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_TipoRenta,String)
  2923. End If
  2924. If (Original_TipoTasa Is Nothing) Then
  2925. Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object)
  2926. Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value
  2927. Else
  2928. Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object)
  2929. Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_TipoTasa,String)
  2930. End If
  2931. If (Original_Periodicidad Is Nothing) Then
  2932. Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object)
  2933. Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value
  2934. Else
  2935. Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object)
  2936. Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_Periodicidad,String)
  2937. End If
  2938. If (Original_NombreManual Is Nothing) Then
  2939. Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object)
  2940. Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value
  2941. Else
  2942. Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object)
  2943. Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_NombreManual,String)
  2944. End If
  2945. If (Original_EstadoProceso Is Nothing) Then
  2946. Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object)
  2947. Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value
  2948. Else
  2949. Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object)
  2950. Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_EstadoProceso,String)
  2951. End If
  2952. Me.Adapter.UpdateCommand.Parameters(88).Value = CType(DocId,Integer)
  2953. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
  2954. If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2955. <> Global.System.Data.ConnectionState.Open) Then
  2956. Me.Adapter.UpdateCommand.Connection.Open
  2957. End If
  2958. Try
  2959. Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
  2960. Return returnValue
  2961. Finally
  2962. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2963. Me.Adapter.UpdateCommand.Connection.Close
  2964. End If
  2965. End Try
  2966. End Function
  2967. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2968. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  2969. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2970. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2971. Public Overloads Overridable Function Update( _
  2972. ByVal CodInv As String, _
  2973. ByVal VCodInv As String, _
  2974. ByVal DocEst As String, _
  2975. ByVal Asunto As String, _
  2976. ByVal CodEmpr As String, _
  2977. ByVal CodIF As String, _
  2978. ByVal CodEmis As Global.System.Nullable(Of Integer), _
  2979. ByVal CodCalRi As String, _
  2980. ByVal CodECalRi As String, _
  2981. ByVal OFon As String, _
  2982. ByVal Coment As String, _
  2983. ByVal Just As String, _
  2984. ByVal TipoOper As String, _
  2985. ByVal DocBase As Global.System.Nullable(Of Integer), _
  2986. ByVal MontoInv As Global.System.Nullable(Of Decimal), _
  2987. ByVal Precio As Global.System.Nullable(Of Decimal), _
  2988. ByVal Rendimiento As String, _
  2989. ByVal Plazo As Global.System.Nullable(Of Integer), _
  2990. ByVal PlazoFact As String, _
  2991. ByVal Ingresos As Global.System.Nullable(Of Decimal), _
  2992. ByVal FechaDoc As Global.System.Nullable(Of Date), _
  2993. ByVal AutEstado As String, _
  2994. ByVal TipoMerc As String, _
  2995. ByVal CodPais As String, _
  2996. ByVal TipoRenta As String, _
  2997. ByVal TipoTasa As String, _
  2998. ByVal Periodicidad As String, _
  2999. ByVal NombreManual As String, _
  3000. ByVal EstadoProceso As String, _
  3001. ByVal Original_DocId As Integer, _
  3002. ByVal Original_CodInv As String, _
  3003. ByVal Original_VCodInv As String, _
  3004. ByVal Original_DocEst As String, _
  3005. ByVal Original_Asunto As String, _
  3006. ByVal Original_CodEmpr As String, _
  3007. ByVal Original_CodIF As String, _
  3008. ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
  3009. ByVal Original_CodCalRi As String, _
  3010. ByVal Original_CodECalRi As String, _
  3011. ByVal Original_OFon As String, _
  3012. ByVal Original_Coment As String, _
  3013. ByVal Original_Just As String, _
  3014. ByVal Original_TipoOper As String, _
  3015. ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
  3016. ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
  3017. ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
  3018. ByVal Original_Rendimiento As String, _
  3019. ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
  3020. ByVal Original_PlazoFact As String, _
  3021. ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
  3022. ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
  3023. ByVal Original_AutEstado As String, _
  3024. ByVal Original_TipoMerc As String, _
  3025. ByVal Original_CodPais As String, _
  3026. ByVal Original_TipoRenta As String, _
  3027. ByVal Original_TipoTasa As String, _
  3028. ByVal Original_Periodicidad As String, _
  3029. ByVal Original_NombreManual As String, _
  3030. ByVal Original_EstadoProceso As String) As Integer
  3031. 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, EstadoProceso, 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_EstadoProceso, Original_DocId)
  3032. End Function
  3033. End Class
  3034. '''<summary>
  3035. '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
  3036. '''</summary>
  3037. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  3038. Global.System.ComponentModel.ToolboxItem(true), _
  3039. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
  3040. "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  3041. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
  3042. Partial Public Class TableAdapterManager
  3043. Inherits Global.System.ComponentModel.Component
  3044. Private _updateOrder As UpdateOrderOption
  3045. Private _pIN0TableAdapter As PIN0TableAdapter
  3046. Private _backupDataSetBeforeUpdate As Boolean
  3047. Private _connection As Global.System.Data.IDbConnection
  3048. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3049. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3050. Public Property UpdateOrder() As UpdateOrderOption
  3051. Get
  3052. Return Me._updateOrder
  3053. End Get
  3054. Set
  3055. Me._updateOrder = value
  3056. End Set
  3057. End Property
  3058. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3059. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  3060. Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
  3061. "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
  3062. "a", "System.Drawing.Design.UITypeEditor")> _
  3063. Public Property PIN0TableAdapter() As PIN0TableAdapter
  3064. Get
  3065. Return Me._pIN0TableAdapter
  3066. End Get
  3067. Set
  3068. Me._pIN0TableAdapter = value
  3069. End Set
  3070. End Property
  3071. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3072. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3073. Public Property BackupDataSetBeforeUpdate() As Boolean
  3074. Get
  3075. Return Me._backupDataSetBeforeUpdate
  3076. End Get
  3077. Set
  3078. Me._backupDataSetBeforeUpdate = value
  3079. End Set
  3080. End Property
  3081. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3082. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  3083. Global.System.ComponentModel.Browsable(false)> _
  3084. Public Property Connection() As Global.System.Data.IDbConnection
  3085. Get
  3086. If (Not (Me._connection) Is Nothing) Then
  3087. Return Me._connection
  3088. End If
  3089. If ((Not (Me._pIN0TableAdapter) Is Nothing) _
  3090. AndAlso (Not (Me._pIN0TableAdapter.Connection) Is Nothing)) Then
  3091. Return Me._pIN0TableAdapter.Connection
  3092. End If
  3093. Return Nothing
  3094. End Get
  3095. Set
  3096. Me._connection = value
  3097. End Set
  3098. End Property
  3099. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3100. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
  3101. Global.System.ComponentModel.Browsable(false)> _
  3102. Public ReadOnly Property TableAdapterInstanceCount() As Integer
  3103. Get
  3104. Dim count As Integer = 0
  3105. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3106. count = (count + 1)
  3107. End If
  3108. Return count
  3109. End Get
  3110. End Property
  3111. '''<summary>
  3112. '''Update rows in top-down order.
  3113. '''</summary>
  3114. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3115. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3116. Private Function UpdateUpdatedRows(ByVal dataSet As InversionesDEVDataSet5, 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
  3117. Dim result As Integer = 0
  3118. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3119. Dim updatedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
  3120. updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
  3121. If ((Not (updatedRows) Is Nothing) _
  3122. AndAlso (0 < updatedRows.Length)) Then
  3123. result = (result + Me._pIN0TableAdapter.Update(updatedRows))
  3124. allChangedRows.AddRange(updatedRows)
  3125. End If
  3126. End If
  3127. Return result
  3128. End Function
  3129. '''<summary>
  3130. '''Insert rows in top-down order.
  3131. '''</summary>
  3132. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3133. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3134. Private Function UpdateInsertedRows(ByVal dataSet As InversionesDEVDataSet5, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  3135. Dim result As Integer = 0
  3136. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3137. Dim addedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
  3138. If ((Not (addedRows) Is Nothing) _
  3139. AndAlso (0 < addedRows.Length)) Then
  3140. result = (result + Me._pIN0TableAdapter.Update(addedRows))
  3141. allAddedRows.AddRange(addedRows)
  3142. End If
  3143. End If
  3144. Return result
  3145. End Function
  3146. '''<summary>
  3147. '''Delete rows in bottom-up order.
  3148. '''</summary>
  3149. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3150. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3151. Private Function UpdateDeletedRows(ByVal dataSet As InversionesDEVDataSet5, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  3152. Dim result As Integer = 0
  3153. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3154. Dim deletedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
  3155. If ((Not (deletedRows) Is Nothing) _
  3156. AndAlso (0 < deletedRows.Length)) Then
  3157. result = (result + Me._pIN0TableAdapter.Update(deletedRows))
  3158. allChangedRows.AddRange(deletedRows)
  3159. End If
  3160. End If
  3161. Return result
  3162. End Function
  3163. '''<summary>
  3164. '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
  3165. '''</summary>
  3166. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3167. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3168. 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()
  3169. If ((updatedRows Is Nothing) _
  3170. OrElse (updatedRows.Length < 1)) Then
  3171. Return updatedRows
  3172. End If
  3173. If ((allAddedRows Is Nothing) _
  3174. OrElse (allAddedRows.Count < 1)) Then
  3175. Return updatedRows
  3176. End If
  3177. Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3178. Dim i As Integer = 0
  3179. Do While (i < updatedRows.Length)
  3180. Dim row As Global.System.Data.DataRow = updatedRows(i)
  3181. If (allAddedRows.Contains(row) = false) Then
  3182. realUpdatedRows.Add(row)
  3183. End If
  3184. i = (i + 1)
  3185. Loop
  3186. Return realUpdatedRows.ToArray
  3187. End Function
  3188. '''<summary>
  3189. '''Update all changes to the dataset.
  3190. '''</summary>
  3191. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3192. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3193. Public Overridable Function UpdateAll(ByVal dataSet As InversionesDEVDataSet5) As Integer
  3194. If (dataSet Is Nothing) Then
  3195. Throw New Global.System.ArgumentNullException("dataSet")
  3196. End If
  3197. If (dataSet.HasChanges = false) Then
  3198. Return 0
  3199. End If
  3200. If ((Not (Me._pIN0TableAdapter) Is Nothing) _
  3201. AndAlso (Me.MatchTableAdapterConnection(Me._pIN0TableAdapter.Connection) = false)) Then
  3202. Throw New Global.System.ArgumentException("Todos los TableAdapters administrados por un TableAdapterManager deben usar la mi"& _
  3203. "sma cadena de conexión.")
  3204. End If
  3205. Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
  3206. If (workConnection Is Nothing) Then
  3207. Throw New Global.System.ApplicationException("TableAdapterManager no contiene información de conexión. Establezca cada propieda"& _
  3208. "d TableAdapterManager TableAdapter en una instancia TableAdapter válida.")
  3209. End If
  3210. Dim workConnOpened As Boolean = false
  3211. If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
  3212. = Global.System.Data.ConnectionState.Broken) Then
  3213. workConnection.Close
  3214. End If
  3215. If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
  3216. workConnection.Open
  3217. workConnOpened = true
  3218. End If
  3219. Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
  3220. If (workTransaction Is Nothing) Then
  3221. Throw New Global.System.ApplicationException("La transacción no puede comenzar. La conexión de datos actual no es compatible co"& _
  3222. "n las transacciones o el estado actual no permite que comience la transacción.")
  3223. End If
  3224. Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3225. Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  3226. 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)()
  3227. 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)()
  3228. Dim result As Integer = 0
  3229. Dim backupDataSet As Global.System.Data.DataSet = Nothing
  3230. If Me.BackupDataSetBeforeUpdate Then
  3231. backupDataSet = New Global.System.Data.DataSet()
  3232. backupDataSet.Merge(dataSet)
  3233. End If
  3234. Try
  3235. '---- Prepare for update -----------
  3236. '
  3237. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3238. revertConnections.Add(Me._pIN0TableAdapter, Me._pIN0TableAdapter.Connection)
  3239. Me._pIN0TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
  3240. Me._pIN0TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
  3241. If Me._pIN0TableAdapter.Adapter.AcceptChangesDuringUpdate Then
  3242. Me._pIN0TableAdapter.Adapter.AcceptChangesDuringUpdate = false
  3243. adaptersWithAcceptChangesDuringUpdate.Add(Me._pIN0TableAdapter.Adapter)
  3244. End If
  3245. End If
  3246. '
  3247. '---- Perform updates -----------
  3248. '
  3249. If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
  3250. result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
  3251. result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
  3252. Else
  3253. result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
  3254. result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
  3255. End If
  3256. result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
  3257. '
  3258. '---- Commit updates -----------
  3259. '
  3260. workTransaction.Commit
  3261. If (0 < allAddedRows.Count) Then
  3262. Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
  3263. allAddedRows.CopyTo(rows)
  3264. Dim i As Integer = 0
  3265. Do While (i < rows.Length)
  3266. Dim row As Global.System.Data.DataRow = rows(i)
  3267. row.AcceptChanges
  3268. i = (i + 1)
  3269. Loop
  3270. End If
  3271. If (0 < allChangedRows.Count) Then
  3272. Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
  3273. allChangedRows.CopyTo(rows)
  3274. Dim i As Integer = 0
  3275. Do While (i < rows.Length)
  3276. Dim row As Global.System.Data.DataRow = rows(i)
  3277. row.AcceptChanges
  3278. i = (i + 1)
  3279. Loop
  3280. End If
  3281. Catch ex As Global.System.Exception
  3282. workTransaction.Rollback
  3283. '---- Restore the dataset -----------
  3284. If Me.BackupDataSetBeforeUpdate Then
  3285. Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
  3286. dataSet.Clear
  3287. dataSet.Merge(backupDataSet)
  3288. Else
  3289. If (0 < allAddedRows.Count) Then
  3290. Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
  3291. allAddedRows.CopyTo(rows)
  3292. Dim i As Integer = 0
  3293. Do While (i < rows.Length)
  3294. Dim row As Global.System.Data.DataRow = rows(i)
  3295. row.AcceptChanges
  3296. row.SetAdded
  3297. i = (i + 1)
  3298. Loop
  3299. End If
  3300. End If
  3301. Throw ex
  3302. Finally
  3303. If workConnOpened Then
  3304. workConnection.Close
  3305. End If
  3306. If (Not (Me._pIN0TableAdapter) Is Nothing) Then
  3307. Me._pIN0TableAdapter.Connection = CType(revertConnections(Me._pIN0TableAdapter),Global.System.Data.SqlClient.SqlConnection)
  3308. Me._pIN0TableAdapter.Transaction = Nothing
  3309. End If
  3310. If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
  3311. Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
  3312. adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
  3313. Dim i As Integer = 0
  3314. Do While (i < adapters.Length)
  3315. Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
  3316. adapter.AcceptChangesDuringUpdate = true
  3317. i = (i + 1)
  3318. Loop
  3319. End If
  3320. End Try
  3321. Return result
  3322. End Function
  3323. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3324. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3325. Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
  3326. Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
  3327. End Sub
  3328. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3329. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3330. Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
  3331. If (Not (Me._connection) Is Nothing) Then
  3332. Return true
  3333. End If
  3334. If ((Me.Connection Is Nothing) _
  3335. OrElse (inputConnection Is Nothing)) Then
  3336. Return true
  3337. End If
  3338. If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
  3339. Return true
  3340. End If
  3341. Return false
  3342. End Function
  3343. '''<summary>
  3344. '''Update Order Option
  3345. '''</summary>
  3346. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3347. Public Enum UpdateOrderOption
  3348. InsertUpdateDelete = 0
  3349. UpdateInsertDelete = 1
  3350. End Enum
  3351. '''<summary>
  3352. '''Used to sort self-referenced table's rows
  3353. '''</summary>
  3354. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3355. Private Class SelfReferenceComparer
  3356. Inherits Object
  3357. Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
  3358. Private _relation As Global.System.Data.DataRelation
  3359. Private _childFirst As Integer
  3360. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3361. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3362. Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
  3363. MyBase.New
  3364. Me._relation = relation
  3365. If childFirst Then
  3366. Me._childFirst = -1
  3367. Else
  3368. Me._childFirst = 1
  3369. End If
  3370. End Sub
  3371. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3372. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3373. Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
  3374. Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
  3375. Dim root As Global.System.Data.DataRow = row
  3376. distance = 0
  3377. 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)()
  3378. traversedRows(row) = row
  3379. Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
  3380. Do While ((Not (parent) Is Nothing) _
  3381. AndAlso (traversedRows.ContainsKey(parent) = false))
  3382. distance = (distance + 1)
  3383. root = parent
  3384. traversedRows(parent) = parent
  3385. parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
  3386. Loop
  3387. If (distance = 0) Then
  3388. traversedRows.Clear
  3389. traversedRows(row) = row
  3390. parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
  3391. Do While ((Not (parent) Is Nothing) _
  3392. AndAlso (traversedRows.ContainsKey(parent) = false))
  3393. distance = (distance + 1)
  3394. root = parent
  3395. traversedRows(parent) = parent
  3396. parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
  3397. Loop
  3398. End If
  3399. Return root
  3400. End Function
  3401. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3402. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  3403. 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
  3404. If Object.ReferenceEquals(row1, row2) Then
  3405. Return 0
  3406. End If
  3407. If (row1 Is Nothing) Then
  3408. Return -1
  3409. End If
  3410. If (row2 Is Nothing) Then
  3411. Return 1
  3412. End If
  3413. Dim distance1 As Integer = 0
  3414. Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
  3415. Dim distance2 As Integer = 0
  3416. Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
  3417. If Object.ReferenceEquals(root1, root2) Then
  3418. Return (Me._childFirst * distance1.CompareTo(distance2))
  3419. Else
  3420. Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
  3421. AndAlso (Not (root2.Table) Is Nothing)))
  3422. If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
  3423. Return -1
  3424. Else
  3425. Return 1
  3426. End If
  3427. End If
  3428. End Function
  3429. End Class
  3430. End Class
  3431. End Namespace