| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708 |
- '------------------------------------------------------------------------------
- ' <auto-generated>
- ' Este código fue generado por una herramienta.
- ' Versión de runtime:4.0.30319.42000
- '
- ' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
- ' se vuelve a generar el código.
- ' </auto-generated>
- '------------------------------------------------------------------------------
- Option Strict Off
- Option Explicit On
- '''<summary>
- '''Represents a strongly typed in-memory cache of data.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
- Global.System.Xml.Serialization.XmlRootAttribute("InversionesDEVDataSet7"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
- Partial Public Class InversionesDEVDataSet7
- Inherits Global.System.Data.DataSet
-
- Private tablePIN0 As PIN0DataTable
-
- Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.BeginInit
- Me.InitClass
- Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
- AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context, false)
- If (Me.IsBinarySerialized(info, context) = true) Then
- Me.InitVars(false)
- Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
- AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
- Return
- End If
- Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
- If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
- ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
- If (Not (ds.Tables("PIN0")) Is Nothing) Then
- MyBase.Tables.Add(New PIN0DataTable(ds.Tables("PIN0")))
- End If
- Me.DataSetName = ds.DataSetName
- Me.Prefix = ds.Prefix
- Me.Namespace = ds.Namespace
- Me.Locale = ds.Locale
- Me.CaseSensitive = ds.CaseSensitive
- Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars
- Else
- Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
- End If
- Me.GetSerializationData(info, context)
- Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
- AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property PIN0() As PIN0DataTable
- Get
- Return Me.tablePIN0
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.BrowsableAttribute(true), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
- Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
- Get
- Return Me._schemaSerializationMode
- End Get
- Set
- Me._schemaSerializationMode = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
- Get
- Return MyBase.Tables
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
- Get
- Return MyBase.Relations
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub InitializeDerivedDataSet()
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataSet
- Dim cln As InversionesDEVDataSet7 = CType(MyBase.Clone,InversionesDEVDataSet7)
- cln.InitVars
- cln.SchemaSerializationMode = Me.SchemaSerializationMode
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function ShouldSerializeTables() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function ShouldSerializeRelations() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
- If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Me.Reset
- Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
- ds.ReadXml(reader)
- If (Not (ds.Tables("PIN0")) Is Nothing) Then
- MyBase.Tables.Add(New PIN0DataTable(ds.Tables("PIN0")))
- End If
- Me.DataSetName = ds.DataSetName
- Me.Prefix = ds.Prefix
- Me.Namespace = ds.Namespace
- Me.Locale = ds.Locale
- Me.CaseSensitive = ds.CaseSensitive
- Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars
- Else
- Me.ReadXml(reader)
- Me.InitVars
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
- Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
- stream.Position = 0
- Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Overloads Sub InitVars()
- Me.InitVars(true)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Overloads Sub InitVars(ByVal initTable As Boolean)
- Me.tablePIN0 = CType(MyBase.Tables("PIN0"),PIN0DataTable)
- If (initTable = true) Then
- If (Not (Me.tablePIN0) Is Nothing) Then
- Me.tablePIN0.InitVars
- End If
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitClass()
- Me.DataSetName = "InversionesDEVDataSet7"
- Me.Prefix = ""
- Me.Namespace = "http://tempuri.org/InversionesDEVDataSet7.xsd"
- Me.EnforceConstraints = true
- Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
- Me.tablePIN0 = New PIN0DataTable()
- MyBase.Tables.Add(Me.tablePIN0)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializePIN0() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
- If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
- Me.InitVars
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim ds As InversionesDEVDataSet7 = New InversionesDEVDataSet7()
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any.Namespace = ds.Namespace
- sequence.Items.Add(any)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub PIN0RowChangeEventHandler(ByVal sender As Object, ByVal e As PIN0RowChangeEvent)
-
- '''<summary>
- '''Represents the strongly named DataTable class.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class PIN0DataTable
- Inherits Global.System.Data.TypedTableBase(Of PIN0Row)
-
- Private columnDocId As Global.System.Data.DataColumn
-
- Private columnCodInv As Global.System.Data.DataColumn
-
- Private columnVCodInv As Global.System.Data.DataColumn
-
- Private columnDocEst As Global.System.Data.DataColumn
-
- Private columnAsunto As Global.System.Data.DataColumn
-
- Private columnCodEmpr As Global.System.Data.DataColumn
-
- Private columnCodIF As Global.System.Data.DataColumn
-
- Private columnCodEmis As Global.System.Data.DataColumn
-
- Private columnCodCalRi As Global.System.Data.DataColumn
-
- Private columnCodECalRi As Global.System.Data.DataColumn
-
- Private columnOFon As Global.System.Data.DataColumn
-
- Private columnComent As Global.System.Data.DataColumn
-
- Private columnJust As Global.System.Data.DataColumn
-
- Private columnTipoOper As Global.System.Data.DataColumn
-
- Private columnDocBase As Global.System.Data.DataColumn
-
- Private columnMontoInv As Global.System.Data.DataColumn
-
- Private columnPrecio As Global.System.Data.DataColumn
-
- Private columnRendimiento As Global.System.Data.DataColumn
-
- Private columnPlazo As Global.System.Data.DataColumn
-
- Private columnPlazoFact As Global.System.Data.DataColumn
-
- Private columnIngresos As Global.System.Data.DataColumn
-
- Private columnFechaDoc As Global.System.Data.DataColumn
-
- Private columnAutEstado As Global.System.Data.DataColumn
-
- Private columnTipoMerc As Global.System.Data.DataColumn
-
- Private columnCodPais As Global.System.Data.DataColumn
-
- Private columnTipoRenta As Global.System.Data.DataColumn
-
- Private columnTipoTasa As Global.System.Data.DataColumn
-
- Private columnPeriodicidad As Global.System.Data.DataColumn
-
- Private columnNombreManual As Global.System.Data.DataColumn
-
- Private columnEstadoProc As Global.System.Data.DataColumn
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.TableName = "PIN0"
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New
- Me.TableName = table.TableName
- If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
- Me.CaseSensitive = table.CaseSensitive
- End If
- If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
- Me.Locale = table.Locale
- End If
- If (table.Namespace <> table.DataSet.Namespace) Then
- Me.Namespace = table.Namespace
- End If
- Me.Prefix = table.Prefix
- Me.MinimumCapacity = table.MinimumCapacity
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context)
- Me.InitVars
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property DocIdColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDocId
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodInvColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodInv
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property VCodInvColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnVCodInv
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property DocEstColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDocEst
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property AsuntoColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnAsunto
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodEmprColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodEmpr
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodIFColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodIF
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodEmisColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodEmis
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodCalRiColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodCalRi
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodECalRiColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodECalRi
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property OFonColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnOFon
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property ComentColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnComent
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property JustColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnJust
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TipoOperColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTipoOper
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property DocBaseColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDocBase
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property MontoInvColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnMontoInv
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property PrecioColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPrecio
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property RendimientoColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnRendimiento
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property PlazoColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPlazo
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property PlazoFactColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPlazoFact
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property IngresosColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnIngresos
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property FechaDocColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnFechaDoc
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property AutEstadoColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnAutEstado
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TipoMercColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTipoMerc
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property CodPaisColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCodPais
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TipoRentaColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTipoRenta
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TipoTasaColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTipoTasa
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property PeriodicidadColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPeriodicidad
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property NombreManualColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnNombreManual
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property EstadoProcColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnEstadoProc
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property Count() As Integer
- Get
- Return Me.Rows.Count
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As PIN0Row
- Get
- Return CType(Me.Rows(index),PIN0Row)
- End Get
- End Property
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event PIN0RowChanging As PIN0RowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event PIN0RowChanged As PIN0RowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event PIN0RowDeleting As PIN0RowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event PIN0RowDeleted As PIN0RowChangeEventHandler
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overloads Sub AddPIN0Row(ByVal row As PIN0Row)
- Me.Rows.Add(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overloads Function AddPIN0Row( _
- ByVal CodInv As String, _
- ByVal VCodInv As String, _
- ByVal DocEst As String, _
- ByVal Asunto As String, _
- ByVal CodEmpr As String, _
- ByVal CodIF As String, _
- ByVal CodEmis As Integer, _
- ByVal CodCalRi As String, _
- ByVal CodECalRi As String, _
- ByVal OFon As String, _
- ByVal Coment As String, _
- ByVal Just As String, _
- ByVal TipoOper As String, _
- ByVal DocBase As Integer, _
- ByVal MontoInv As Decimal, _
- ByVal Precio As Decimal, _
- ByVal Rendimiento As String, _
- ByVal Plazo As Integer, _
- ByVal PlazoFact As String, _
- ByVal Ingresos As Decimal, _
- ByVal FechaDoc As Date, _
- ByVal AutEstado As String, _
- ByVal TipoMerc As String, _
- ByVal CodPais As String, _
- ByVal TipoRenta As String, _
- ByVal TipoTasa As String, _
- ByVal Periodicidad As String, _
- ByVal NombreManual As String, _
- ByVal EstadoProc As String) As PIN0Row
- Dim rowPIN0Row As PIN0Row = CType(Me.NewRow,PIN0Row)
- Dim columnValuesArray() As Object = New Object() {Nothing, CodInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Periodicidad, NombreManual, EstadoProc}
- rowPIN0Row.ItemArray = columnValuesArray
- Me.Rows.Add(rowPIN0Row)
- Return rowPIN0Row
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function FindByDocId(ByVal DocId As Integer) As PIN0Row
- Return CType(Me.Rows.Find(New Object() {DocId}),PIN0Row)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As PIN0DataTable = CType(MyBase.Clone,PIN0DataTable)
- cln.InitVars
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New PIN0DataTable()
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub InitVars()
- Me.columnDocId = MyBase.Columns("DocId")
- Me.columnCodInv = MyBase.Columns("CodInv")
- Me.columnVCodInv = MyBase.Columns("VCodInv")
- Me.columnDocEst = MyBase.Columns("DocEst")
- Me.columnAsunto = MyBase.Columns("Asunto")
- Me.columnCodEmpr = MyBase.Columns("CodEmpr")
- Me.columnCodIF = MyBase.Columns("CodIF")
- Me.columnCodEmis = MyBase.Columns("CodEmis")
- Me.columnCodCalRi = MyBase.Columns("CodCalRi")
- Me.columnCodECalRi = MyBase.Columns("CodECalRi")
- Me.columnOFon = MyBase.Columns("OFon")
- Me.columnComent = MyBase.Columns("Coment")
- Me.columnJust = MyBase.Columns("Just")
- Me.columnTipoOper = MyBase.Columns("TipoOper")
- Me.columnDocBase = MyBase.Columns("DocBase")
- Me.columnMontoInv = MyBase.Columns("MontoInv")
- Me.columnPrecio = MyBase.Columns("Precio")
- Me.columnRendimiento = MyBase.Columns("Rendimiento")
- Me.columnPlazo = MyBase.Columns("Plazo")
- Me.columnPlazoFact = MyBase.Columns("PlazoFact")
- Me.columnIngresos = MyBase.Columns("Ingresos")
- Me.columnFechaDoc = MyBase.Columns("FechaDoc")
- Me.columnAutEstado = MyBase.Columns("AutEstado")
- Me.columnTipoMerc = MyBase.Columns("TipoMerc")
- Me.columnCodPais = MyBase.Columns("CodPais")
- Me.columnTipoRenta = MyBase.Columns("TipoRenta")
- Me.columnTipoTasa = MyBase.Columns("TipoTasa")
- Me.columnPeriodicidad = MyBase.Columns("Periodicidad")
- Me.columnNombreManual = MyBase.Columns("NombreManual")
- Me.columnEstadoProc = MyBase.Columns("EstadoProc")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitClass()
- Me.columnDocId = New Global.System.Data.DataColumn("DocId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnDocId)
- Me.columnCodInv = New Global.System.Data.DataColumn("CodInv", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCodInv)
- Me.columnVCodInv = New Global.System.Data.DataColumn("VCodInv", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnVCodInv)
- Me.columnDocEst = New Global.System.Data.DataColumn("DocEst", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnDocEst)
- Me.columnAsunto = New Global.System.Data.DataColumn("Asunto", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnAsunto)
- Me.columnCodEmpr = New Global.System.Data.DataColumn("CodEmpr", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCodEmpr)
- Me.columnCodIF = New Global.System.Data.DataColumn("CodIF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCodIF)
- Me.columnCodEmis = New Global.System.Data.DataColumn("CodEmis", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCodEmis)
- Me.columnCodCalRi = New Global.System.Data.DataColumn("CodCalRi", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCodCalRi)
- Me.columnCodECalRi = New Global.System.Data.DataColumn("CodECalRi", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCodECalRi)
- Me.columnOFon = New Global.System.Data.DataColumn("OFon", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnOFon)
- Me.columnComent = New Global.System.Data.DataColumn("Coment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnComent)
- Me.columnJust = New Global.System.Data.DataColumn("Just", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnJust)
- Me.columnTipoOper = New Global.System.Data.DataColumn("TipoOper", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTipoOper)
- Me.columnDocBase = New Global.System.Data.DataColumn("DocBase", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnDocBase)
- Me.columnMontoInv = New Global.System.Data.DataColumn("MontoInv", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnMontoInv)
- Me.columnPrecio = New Global.System.Data.DataColumn("Precio", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnPrecio)
- Me.columnRendimiento = New Global.System.Data.DataColumn("Rendimiento", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnRendimiento)
- Me.columnPlazo = New Global.System.Data.DataColumn("Plazo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnPlazo)
- Me.columnPlazoFact = New Global.System.Data.DataColumn("PlazoFact", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnPlazoFact)
- Me.columnIngresos = New Global.System.Data.DataColumn("Ingresos", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnIngresos)
- Me.columnFechaDoc = New Global.System.Data.DataColumn("FechaDoc", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnFechaDoc)
- Me.columnAutEstado = New Global.System.Data.DataColumn("AutEstado", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnAutEstado)
- Me.columnTipoMerc = New Global.System.Data.DataColumn("TipoMerc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTipoMerc)
- Me.columnCodPais = New Global.System.Data.DataColumn("CodPais", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCodPais)
- Me.columnTipoRenta = New Global.System.Data.DataColumn("TipoRenta", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTipoRenta)
- Me.columnTipoTasa = New Global.System.Data.DataColumn("TipoTasa", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTipoTasa)
- Me.columnPeriodicidad = New Global.System.Data.DataColumn("Periodicidad", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnPeriodicidad)
- Me.columnNombreManual = New Global.System.Data.DataColumn("NombreManual", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnNombreManual)
- Me.columnEstadoProc = New Global.System.Data.DataColumn("EstadoProc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnEstadoProc)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDocId}, true))
- Me.columnDocId.AutoIncrement = true
- Me.columnDocId.AutoIncrementSeed = -1
- Me.columnDocId.AutoIncrementStep = -1
- Me.columnDocId.AllowDBNull = false
- Me.columnDocId.ReadOnly = true
- Me.columnDocId.Unique = true
- Me.columnCodInv.MaxLength = 20
- Me.columnVCodInv.MaxLength = 20
- Me.columnDocEst.MaxLength = 1
- Me.columnAsunto.MaxLength = 100
- Me.columnCodEmpr.MaxLength = 10
- Me.columnCodIF.MaxLength = 10
- Me.columnCodCalRi.MaxLength = 8
- Me.columnCodECalRi.MaxLength = 8
- Me.columnOFon.MaxLength = 10
- Me.columnComent.MaxLength = 100
- Me.columnJust.MaxLength = 100
- Me.columnTipoOper.MaxLength = 1
- Me.columnRendimiento.MaxLength = 20
- Me.columnPlazoFact.MaxLength = 1
- Me.columnAutEstado.MaxLength = 1
- Me.columnTipoMerc.MaxLength = 3
- Me.columnCodPais.MaxLength = 3
- Me.columnTipoRenta.MaxLength = 5
- Me.columnTipoTasa.MaxLength = 5
- Me.columnPeriodicidad.MaxLength = 5
- Me.columnNombreManual.MaxLength = 50
- Me.columnEstadoProc.MaxLength = 5
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function NewPIN0Row() As PIN0Row
- Return CType(Me.NewRow,PIN0Row)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New PIN0Row(builder)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(PIN0Row)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.PIN0RowChangedEvent) Is Nothing) Then
- RaiseEvent PIN0RowChanged(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.PIN0RowChangingEvent) Is Nothing) Then
- RaiseEvent PIN0RowChanging(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.PIN0RowDeletedEvent) Is Nothing) Then
- RaiseEvent PIN0RowDeleted(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.PIN0RowDeletingEvent) Is Nothing) Then
- RaiseEvent PIN0RowDeleting(Me, New PIN0RowChangeEvent(CType(e.Row,PIN0Row), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub RemovePIN0Row(ByVal row As PIN0Row)
- Me.Rows.Remove(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim ds As InversionesDEVDataSet7 = New InversionesDEVDataSet7()
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "PIN0DataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
- End Class
-
- '''<summary>
- '''Represents strongly named DataRow class.
- '''</summary>
- Partial Public Class PIN0Row
- Inherits Global.System.Data.DataRow
-
- Private tablePIN0 As PIN0DataTable
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
- MyBase.New(rb)
- Me.tablePIN0 = CType(Me.Table,PIN0DataTable)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property DocId() As Integer
- Get
- Return CType(Me(Me.tablePIN0.DocIdColumn),Integer)
- End Get
- Set
- Me(Me.tablePIN0.DocIdColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodInv() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.CodInvColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodInv' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.CodInvColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property VCodInv() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.VCodInvColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'VCodInv' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.VCodInvColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property DocEst() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.DocEstColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'DocEst' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.DocEstColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Asunto() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.AsuntoColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Asunto' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.AsuntoColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodEmpr() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.CodEmprColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodEmpr' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.CodEmprColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodIF() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.CodIFColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodIF' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.CodIFColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodEmis() As Integer
- Get
- Try
- Return CType(Me(Me.tablePIN0.CodEmisColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodEmis' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.CodEmisColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodCalRi() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.CodCalRiColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodCalRi' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.CodCalRiColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodECalRi() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.CodECalRiColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodECalRi' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.CodECalRiColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property OFon() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.OFonColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'OFon' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.OFonColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Coment() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.ComentColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Coment' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.ComentColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Just() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.JustColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Just' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.JustColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property TipoOper() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.TipoOperColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoOper' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.TipoOperColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property DocBase() As Integer
- Get
- Try
- Return CType(Me(Me.tablePIN0.DocBaseColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'DocBase' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.DocBaseColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property MontoInv() As Decimal
- Get
- Try
- Return CType(Me(Me.tablePIN0.MontoInvColumn),Decimal)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'MontoInv' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.MontoInvColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Precio() As Decimal
- Get
- Try
- Return CType(Me(Me.tablePIN0.PrecioColumn),Decimal)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Precio' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.PrecioColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Rendimiento() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.RendimientoColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Rendimiento' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.RendimientoColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Plazo() As Integer
- Get
- Try
- Return CType(Me(Me.tablePIN0.PlazoColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Plazo' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.PlazoColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property PlazoFact() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.PlazoFactColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'PlazoFact' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.PlazoFactColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Ingresos() As Decimal
- Get
- Try
- Return CType(Me(Me.tablePIN0.IngresosColumn),Decimal)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Ingresos' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.IngresosColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property FechaDoc() As Date
- Get
- Try
- Return CType(Me(Me.tablePIN0.FechaDocColumn),Date)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'FechaDoc' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.FechaDocColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property AutEstado() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.AutEstadoColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'AutEstado' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.AutEstadoColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property TipoMerc() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.TipoMercColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoMerc' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.TipoMercColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property CodPais() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.CodPaisColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'CodPais' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.CodPaisColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property TipoRenta() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.TipoRentaColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoRenta' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.TipoRentaColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property TipoTasa() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.TipoTasaColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'TipoTasa' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.TipoTasaColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property Periodicidad() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.PeriodicidadColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'Periodicidad' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.PeriodicidadColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property NombreManual() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.NombreManualColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'NombreManual' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.NombreManualColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property EstadoProc() As String
- Get
- Try
- Return CType(Me(Me.tablePIN0.EstadoProcColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("El valor de la columna 'EstadoProc' de la tabla 'PIN0' es DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tablePIN0.EstadoProcColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodInvNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.CodInvColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodInvNull()
- Me(Me.tablePIN0.CodInvColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsVCodInvNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.VCodInvColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetVCodInvNull()
- Me(Me.tablePIN0.VCodInvColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsDocEstNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.DocEstColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetDocEstNull()
- Me(Me.tablePIN0.DocEstColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsAsuntoNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.AsuntoColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetAsuntoNull()
- Me(Me.tablePIN0.AsuntoColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodEmprNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.CodEmprColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodEmprNull()
- Me(Me.tablePIN0.CodEmprColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodIFNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.CodIFColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodIFNull()
- Me(Me.tablePIN0.CodIFColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodEmisNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.CodEmisColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodEmisNull()
- Me(Me.tablePIN0.CodEmisColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodCalRiNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.CodCalRiColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodCalRiNull()
- Me(Me.tablePIN0.CodCalRiColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodECalRiNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.CodECalRiColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodECalRiNull()
- Me(Me.tablePIN0.CodECalRiColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsOFonNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.OFonColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetOFonNull()
- Me(Me.tablePIN0.OFonColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsComentNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.ComentColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetComentNull()
- Me(Me.tablePIN0.ComentColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsJustNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.JustColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetJustNull()
- Me(Me.tablePIN0.JustColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsTipoOperNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.TipoOperColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetTipoOperNull()
- Me(Me.tablePIN0.TipoOperColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsDocBaseNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.DocBaseColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetDocBaseNull()
- Me(Me.tablePIN0.DocBaseColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsMontoInvNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.MontoInvColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetMontoInvNull()
- Me(Me.tablePIN0.MontoInvColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsPrecioNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.PrecioColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetPrecioNull()
- Me(Me.tablePIN0.PrecioColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsRendimientoNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.RendimientoColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetRendimientoNull()
- Me(Me.tablePIN0.RendimientoColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsPlazoNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.PlazoColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetPlazoNull()
- Me(Me.tablePIN0.PlazoColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsPlazoFactNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.PlazoFactColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetPlazoFactNull()
- Me(Me.tablePIN0.PlazoFactColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsIngresosNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.IngresosColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetIngresosNull()
- Me(Me.tablePIN0.IngresosColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsFechaDocNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.FechaDocColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetFechaDocNull()
- Me(Me.tablePIN0.FechaDocColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsAutEstadoNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.AutEstadoColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetAutEstadoNull()
- Me(Me.tablePIN0.AutEstadoColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsTipoMercNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.TipoMercColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetTipoMercNull()
- Me(Me.tablePIN0.TipoMercColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsCodPaisNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.CodPaisColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetCodPaisNull()
- Me(Me.tablePIN0.CodPaisColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsTipoRentaNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.TipoRentaColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetTipoRentaNull()
- Me(Me.tablePIN0.TipoRentaColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsTipoTasaNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.TipoTasaColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetTipoTasaNull()
- Me(Me.tablePIN0.TipoTasaColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsPeriodicidadNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.PeriodicidadColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetPeriodicidadNull()
- Me(Me.tablePIN0.PeriodicidadColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsNombreManualNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.NombreManualColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetNombreManualNull()
- Me(Me.tablePIN0.NombreManualColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function IsEstadoProcNull() As Boolean
- Return Me.IsNull(Me.tablePIN0.EstadoProcColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub SetEstadoProcNull()
- Me(Me.tablePIN0.EstadoProcColumn) = Global.System.Convert.DBNull
- End Sub
- End Class
-
- '''<summary>
- '''Row event argument class
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Class PIN0RowChangeEvent
- Inherits Global.System.EventArgs
-
- Private eventRow As PIN0Row
-
- Private eventAction As Global.System.Data.DataRowAction
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New(ByVal row As PIN0Row, ByVal action As Global.System.Data.DataRowAction)
- MyBase.New
- Me.eventRow = row
- Me.eventAction = action
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property Row() As PIN0Row
- Get
- Return Me.eventRow
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property Action() As Global.System.Data.DataRowAction
- Get
- Return Me.eventAction
- End Get
- End Property
- End Class
- End Class
- Namespace InversionesDEVDataSet7TableAdapters
-
- '''<summary>
- '''Represents the connection and commands used to retrieve and save data.
- '''</summary>
- <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.ComponentModel.DataObjectAttribute(true), _
- Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
- ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Partial Public Class PIN0TableAdapter
- Inherits Global.System.ComponentModel.Component
-
- Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
-
- Private _connection As Global.System.Data.SqlClient.SqlConnection
-
- Private _transaction As Global.System.Data.SqlClient.SqlTransaction
-
- Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
-
- Private _clearBeforeFill As Boolean
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.ClearBeforeFill = true
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
- Get
- If (Me._adapter Is Nothing) Then
- Me.InitAdapter
- End If
- Return Me._adapter
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
- Get
- If (Me._connection Is Nothing) Then
- Me.InitConnection
- End If
- Return Me._connection
- End Get
- Set
- Me._connection = value
- If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
- Me.Adapter.InsertCommand.Connection = value
- End If
- If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
- Me.Adapter.DeleteCommand.Connection = value
- End If
- If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
- Me.Adapter.UpdateCommand.Connection = value
- End If
- Dim i As Integer = 0
- Do While (i < Me.CommandCollection.Length)
- If (Not (Me.CommandCollection(i)) Is Nothing) Then
- CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
- End If
- i = (i + 1)
- Loop
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
- Get
- Return Me._transaction
- End Get
- Set
- Me._transaction = value
- Dim i As Integer = 0
- Do While (i < Me.CommandCollection.Length)
- Me.CommandCollection(i).Transaction = Me._transaction
- i = (i + 1)
- Loop
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
- Me.Adapter.DeleteCommand.Transaction = Me._transaction
- End If
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
- Me.Adapter.InsertCommand.Transaction = Me._transaction
- End If
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
- Me.Adapter.UpdateCommand.Transaction = Me._transaction
- End If
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
- Get
- If (Me._commandCollection Is Nothing) Then
- Me.InitCommandCollection
- End If
- Return Me._commandCollection
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property ClearBeforeFill() As Boolean
- Get
- Return Me._clearBeforeFill
- End Get
- Set
- Me._clearBeforeFill = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitAdapter()
- Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
- Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
- tableMapping.SourceTable = "Table"
- tableMapping.DataSetTable = "PIN0"
- tableMapping.ColumnMappings.Add("DocId", "DocId")
- tableMapping.ColumnMappings.Add("CodInv", "CodInv")
- tableMapping.ColumnMappings.Add("VCodInv", "VCodInv")
- tableMapping.ColumnMappings.Add("DocEst", "DocEst")
- tableMapping.ColumnMappings.Add("Asunto", "Asunto")
- tableMapping.ColumnMappings.Add("CodEmpr", "CodEmpr")
- tableMapping.ColumnMappings.Add("CodIF", "CodIF")
- tableMapping.ColumnMappings.Add("CodEmis", "CodEmis")
- tableMapping.ColumnMappings.Add("CodCalRi", "CodCalRi")
- tableMapping.ColumnMappings.Add("CodECalRi", "CodECalRi")
- tableMapping.ColumnMappings.Add("OFon", "OFon")
- tableMapping.ColumnMappings.Add("Coment", "Coment")
- tableMapping.ColumnMappings.Add("Just", "Just")
- tableMapping.ColumnMappings.Add("TipoOper", "TipoOper")
- tableMapping.ColumnMappings.Add("DocBase", "DocBase")
- tableMapping.ColumnMappings.Add("MontoInv", "MontoInv")
- tableMapping.ColumnMappings.Add("Precio", "Precio")
- tableMapping.ColumnMappings.Add("Rendimiento", "Rendimiento")
- tableMapping.ColumnMappings.Add("Plazo", "Plazo")
- tableMapping.ColumnMappings.Add("PlazoFact", "PlazoFact")
- tableMapping.ColumnMappings.Add("Ingresos", "Ingresos")
- tableMapping.ColumnMappings.Add("FechaDoc", "FechaDoc")
- tableMapping.ColumnMappings.Add("AutEstado", "AutEstado")
- tableMapping.ColumnMappings.Add("TipoMerc", "TipoMerc")
- tableMapping.ColumnMappings.Add("CodPais", "CodPais")
- tableMapping.ColumnMappings.Add("TipoRenta", "TipoRenta")
- tableMapping.ColumnMappings.Add("TipoTasa", "TipoTasa")
- tableMapping.ColumnMappings.Add("Periodicidad", "Periodicidad")
- tableMapping.ColumnMappings.Add("NombreManual", "NombreManual")
- tableMapping.ColumnMappings.Add("EstadoProc", "EstadoProc")
- Me._adapter.TableMappings.Add(tableMapping)
- Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.DeleteCommand.Connection = Me.Connection
- Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[PIN0] WHERE (([DocId] = @Original_DocId) AND ((@IsNull_CodInv "& _
- "= 1 AND [CodInv] IS NULL) OR ([CodInv] = @Original_CodInv)) AND ((@IsNull_VCodIn"& _
- "v = 1 AND [VCodInv] IS NULL) OR ([VCodInv] = @Original_VCodInv)) AND ((@IsNull_D"& _
- "ocEst = 1 AND [DocEst] IS NULL) OR ([DocEst] = @Original_DocEst)) AND ((@IsNull_"& _
- "Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto] = @Original_Asunto)) AND ((@IsNull"& _
- "_CodEmpr = 1 AND [CodEmpr] IS NULL) OR ([CodEmpr] = @Original_CodEmpr)) AND ((@I"& _
- "sNull_CodIF = 1 AND [CodIF] IS NULL) OR ([CodIF] = @Original_CodIF)) AND ((@IsNu"& _
- "ll_CodEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis] = @Original_CodEmis)) AND (("& _
- "@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL) OR ([CodCalRi] = @Original_CodCalRi"& _
- ")) AND ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS NULL) OR ([CodECalRi] = @Origi"& _
- "nal_CodECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] IS NULL) OR ([OFon] = @Origina"& _
- "l_OFon)) AND ((@IsNull_Coment = 1 AND [Coment] IS NULL) OR ([Coment] = @Original"& _
- "_Coment)) AND ((@IsNull_Just = 1 AND [Just] IS NULL) OR ([Just] = @Original_Just"& _
- ")) AND ((@IsNull_TipoOper = 1 AND [TipoOper] IS NULL) OR ([TipoOper] = @Original"& _
- "_TipoOper)) AND ((@IsNull_DocBase = 1 AND [DocBase] IS NULL) OR ([DocBase] = @Or"& _
- "iginal_DocBase)) AND ((@IsNull_MontoInv = 1 AND [MontoInv] IS NULL) OR ([MontoIn"& _
- "v] = @Original_MontoInv)) AND ((@IsNull_Precio = 1 AND [Precio] IS NULL) OR ([Pr"& _
- "ecio] = @Original_Precio)) AND ((@IsNull_Rendimiento = 1 AND [Rendimiento] IS NU"& _
- "LL) OR ([Rendimiento] = @Original_Rendimiento)) AND ((@IsNull_Plazo = 1 AND [Pla"& _
- "zo] IS NULL) OR ([Plazo] = @Original_Plazo)) AND ((@IsNull_PlazoFact = 1 AND [Pl"& _
- "azoFact] IS NULL) OR ([PlazoFact] = @Original_PlazoFact)) AND ((@IsNull_Ingresos"& _
- " = 1 AND [Ingresos] IS NULL) OR ([Ingresos] = @Original_Ingresos)) AND ((@IsNull"& _
- "_FechaDoc = 1 AND [FechaDoc] IS NULL) OR ([FechaDoc] = @Original_FechaDoc)) AND "& _
- "((@IsNull_AutEstado = 1 AND [AutEstado] IS NULL) OR ([AutEstado] = @Original_Aut"& _
- "Estado)) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc] IS NULL) OR ([TipoMerc] = @Or"& _
- "iginal_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [CodPais] IS NULL) OR ([CodPais]"& _
- " = @Original_CodPais)) AND ((@IsNull_TipoRenta = 1 AND [TipoRenta] IS NULL) OR ("& _
- "[TipoRenta] = @Original_TipoRenta)) AND ((@IsNull_TipoTasa = 1 AND [TipoTasa] IS"& _
- " NULL) OR ([TipoTasa] = @Original_TipoTasa)) AND ((@IsNull_Periodicidad = 1 AND "& _
- "[Periodicidad] IS NULL) OR ([Periodicidad] = @Original_Periodicidad)) AND ((@IsN"& _
- "ull_NombreManual = 1 AND [NombreManual] IS NULL) OR ([NombreManual] = @Original_"& _
- "NombreManual)) AND ((@IsNull_EstadoProc = 1 AND [EstadoProc] IS NULL) OR ([Estad"& _
- "oProc] = @Original_EstadoProc)))"
- Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VCodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- 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, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocEst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocEst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Asunto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Asunto", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmpr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodEmpr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodCalRi", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodCalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodECalRi", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodECalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OFon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OFon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Coment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Coment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Just", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Just", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoOper", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoOper", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MontoInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MontoInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MontoInv", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "MontoInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Precio", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Precio", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Precio", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Precio", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Rendimiento", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PlazoFact", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PlazoFact", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Ingresos", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ingresos", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ingresos", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Ingresos", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FechaDoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FechaDoc", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AutEstado", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AutEstado", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoMerc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoMerc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodPais", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodPais", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Periodicidad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Periodicidad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NombreManual", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- 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, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EstadoProc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstadoProc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.InsertCommand.Connection = Me.Connection
- Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[PIN0] ([CodInv], [VCodInv], [DocEst], [Asunto], [CodEmpr], [Co"& _
- "dIF], [CodEmis], [CodCalRi], [CodECalRi], [OFon], [Coment], [Just], [TipoOper], "& _
- "[DocBase], [MontoInv], [Precio], [Rendimiento], [Plazo], [PlazoFact], [Ingresos]"& _
- ", [FechaDoc], [AutEstado], [TipoMerc], [CodPais], [TipoRenta], [TipoTasa], [Peri"& _
- "odicidad], [NombreManual], [EstadoProc]) VALUES (@CodInv, @VCodInv, @DocEst, @As"& _
- "unto, @CodEmpr, @CodIF, @CodEmis, @CodCalRi, @CodECalRi, @OFon, @Coment, @Just, "& _
- "@TipoOper, @DocBase, @MontoInv, @Precio, @Rendimiento, @Plazo, @PlazoFact, @Ingr"& _
- "esos, @FechaDoc, @AutEstado, @TipoMerc, @CodPais, @TipoRenta, @TipoTasa, @Period"& _
- "icidad, @NombreManual, @EstadoProc);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, CodInv, VCodInv, DocEst, Asu"& _
- "nto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper,"& _
- " DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, A"& _
- "utEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Periodicidad, NombreManual, Es"& _
- "tadoProc FROM PIN0 WHERE (DocId = SCOPE_IDENTITY())"
- Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VCodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocEst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Asunto", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodEmpr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodCalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodECalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OFon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Coment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Just", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoOper", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MontoInv", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "MontoInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Precio", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Precio", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PlazoFact", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ingresos", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Ingresos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FechaDoc", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AutEstado", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoMerc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodPais", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.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, "", "", ""))
- 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, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Periodicidad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NombreManual", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstadoProc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.UpdateCommand.Connection = Me.Connection
- Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[PIN0] SET [CodInv] = @CodInv, [VCodInv] = @VCodInv, [DocEst] = @Doc"& _
- "Est, [Asunto] = @Asunto, [CodEmpr] = @CodEmpr, [CodIF] = @CodIF, [CodEmis] = @Co"& _
- "dEmis, [CodCalRi] = @CodCalRi, [CodECalRi] = @CodECalRi, [OFon] = @OFon, [Coment"& _
- "] = @Coment, [Just] = @Just, [TipoOper] = @TipoOper, [DocBase] = @DocBase, [Mont"& _
- "oInv] = @MontoInv, [Precio] = @Precio, [Rendimiento] = @Rendimiento, [Plazo] = @"& _
- "Plazo, [PlazoFact] = @PlazoFact, [Ingresos] = @Ingresos, [FechaDoc] = @FechaDoc,"& _
- " [AutEstado] = @AutEstado, [TipoMerc] = @TipoMerc, [CodPais] = @CodPais, [TipoRe"& _
- "nta] = @TipoRenta, [TipoTasa] = @TipoTasa, [Periodicidad] = @Periodicidad, [Nomb"& _
- "reManual] = @NombreManual, [EstadoProc] = @EstadoProc WHERE (([DocId] = @Origina"& _
- "l_DocId) AND ((@IsNull_CodInv = 1 AND [CodInv] IS NULL) OR ([CodInv] = @Original"& _
- "_CodInv)) AND ((@IsNull_VCodInv = 1 AND [VCodInv] IS NULL) OR ([VCodInv] = @Orig"& _
- "inal_VCodInv)) AND ((@IsNull_DocEst = 1 AND [DocEst] IS NULL) OR ([DocEst] = @Or"& _
- "iginal_DocEst)) AND ((@IsNull_Asunto = 1 AND [Asunto] IS NULL) OR ([Asunto] = @O"& _
- "riginal_Asunto)) AND ((@IsNull_CodEmpr = 1 AND [CodEmpr] IS NULL) OR ([CodEmpr] "& _
- "= @Original_CodEmpr)) AND ((@IsNull_CodIF = 1 AND [CodIF] IS NULL) OR ([CodIF] ="& _
- " @Original_CodIF)) AND ((@IsNull_CodEmis = 1 AND [CodEmis] IS NULL) OR ([CodEmis"& _
- "] = @Original_CodEmis)) AND ((@IsNull_CodCalRi = 1 AND [CodCalRi] IS NULL) OR (["& _
- "CodCalRi] = @Original_CodCalRi)) AND ((@IsNull_CodECalRi = 1 AND [CodECalRi] IS "& _
- "NULL) OR ([CodECalRi] = @Original_CodECalRi)) AND ((@IsNull_OFon = 1 AND [OFon] "& _
- "IS NULL) OR ([OFon] = @Original_OFon)) AND ((@IsNull_Coment = 1 AND [Coment] IS "& _
- "NULL) OR ([Coment] = @Original_Coment)) AND ((@IsNull_Just = 1 AND [Just] IS NUL"& _
- "L) OR ([Just] = @Original_Just)) AND ((@IsNull_TipoOper = 1 AND [TipoOper] IS NU"& _
- "LL) OR ([TipoOper] = @Original_TipoOper)) AND ((@IsNull_DocBase = 1 AND [DocBase"& _
- "] IS NULL) OR ([DocBase] = @Original_DocBase)) AND ((@IsNull_MontoInv = 1 AND [M"& _
- "ontoInv] IS NULL) OR ([MontoInv] = @Original_MontoInv)) AND ((@IsNull_Precio = 1"& _
- " AND [Precio] IS NULL) OR ([Precio] = @Original_Precio)) AND ((@IsNull_Rendimien"& _
- "to = 1 AND [Rendimiento] IS NULL) OR ([Rendimiento] = @Original_Rendimiento)) AN"& _
- "D ((@IsNull_Plazo = 1 AND [Plazo] IS NULL) OR ([Plazo] = @Original_Plazo)) AND ("& _
- "(@IsNull_PlazoFact = 1 AND [PlazoFact] IS NULL) OR ([PlazoFact] = @Original_Plaz"& _
- "oFact)) AND ((@IsNull_Ingresos = 1 AND [Ingresos] IS NULL) OR ([Ingresos] = @Ori"& _
- "ginal_Ingresos)) AND ((@IsNull_FechaDoc = 1 AND [FechaDoc] IS NULL) OR ([FechaDo"& _
- "c] = @Original_FechaDoc)) AND ((@IsNull_AutEstado = 1 AND [AutEstado] IS NULL) O"& _
- "R ([AutEstado] = @Original_AutEstado)) AND ((@IsNull_TipoMerc = 1 AND [TipoMerc]"& _
- " IS NULL) OR ([TipoMerc] = @Original_TipoMerc)) AND ((@IsNull_CodPais = 1 AND [C"& _
- "odPais] IS NULL) OR ([CodPais] = @Original_CodPais)) AND ((@IsNull_TipoRenta = 1"& _
- " AND [TipoRenta] IS NULL) OR ([TipoRenta] = @Original_TipoRenta)) AND ((@IsNull_"& _
- "TipoTasa = 1 AND [TipoTasa] IS NULL) OR ([TipoTasa] = @Original_TipoTasa)) AND ("& _
- "(@IsNull_Periodicidad = 1 AND [Periodicidad] IS NULL) OR ([Periodicidad] = @Orig"& _
- "inal_Periodicidad)) AND ((@IsNull_NombreManual = 1 AND [NombreManual] IS NULL) O"& _
- "R ([NombreManual] = @Original_NombreManual)) AND ((@IsNull_EstadoProc = 1 AND [E"& _
- "stadoProc] IS NULL) OR ([EstadoProc] = @Original_EstadoProc)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DocId, C"& _
- "odInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OF"& _
- "on, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, Plazo"& _
- "Fact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Per"& _
- "iodicidad, NombreManual, EstadoProc FROM PIN0 WHERE (DocId = @DocId)"
- Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VCodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocEst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Asunto", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodEmpr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodCalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodECalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OFon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Coment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Just", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoOper", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MontoInv", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "MontoInv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Precio", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Precio", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PlazoFact", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ingresos", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Ingresos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FechaDoc", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AutEstado", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoMerc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodPais", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TipoRenta", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoRenta", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- 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, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Periodicidad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NombreManual", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstadoProc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodInv", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VCodInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VCodInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- 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, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocEst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocEst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocEst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Asunto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Asunto", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Asunto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmpr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodEmpr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmpr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodIF", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodIF", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodIF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodEmis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodEmis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodCalRi", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodCalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodCalRi", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodECalRi", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodECalRi", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodECalRi", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OFon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OFon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OFon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Coment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Coment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Coment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Just", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Just", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Just", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoOper", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoOper", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoOper", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocBase", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocBase", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MontoInv", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MontoInv", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MontoInv", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "MontoInv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Precio", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Precio", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Precio", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Precio", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Rendimiento", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rendimiento", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rendimiento", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Plazo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Plazo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PlazoFact", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PlazoFact", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PlazoFact", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Ingresos", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ingresos", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ingresos", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "Ingresos", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FechaDoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FechaDoc", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FechaDoc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AutEstado", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AutEstado", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutEstado", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoMerc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TipoMerc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoMerc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CodPais", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CodPais", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodPais", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TipoRenta", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TipoRenta", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Periodicidad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Periodicidad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Periodicidad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NombreManual", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NombreManual", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- 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, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EstadoProc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstadoProc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstadoProc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocId", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitConnection()
- Me._connection = New Global.System.Data.SqlClient.SqlConnection()
- Me._connection.ConnectionString = Global.Inversiones.My.MySettings.Default.InversionesConnectionString
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitCommandCollection()
- Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
- Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
- Me._commandCollection(0).Connection = Me.Connection
- Me._commandCollection(0).CommandText = "SELECT DocId, CodInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi,"& _
- " CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento"& _
- ", Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta,"& _
- " TipoTasa, Periodicidad, NombreManual, EstadoProc FROM dbo.PIN0"
- Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
- Public Overloads Overridable Function Fill(ByVal dataTable As InversionesDEVDataSet7.PIN0DataTable) As Integer
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- If (Me.ClearBeforeFill = true) Then
- dataTable.Clear
- End If
- Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
- Return returnValue
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
- Public Overloads Overridable Function GetData() As InversionesDEVDataSet7.PIN0DataTable
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- Dim dataTable As InversionesDEVDataSet7.PIN0DataTable = New InversionesDEVDataSet7.PIN0DataTable()
- Me.Adapter.Fill(dataTable)
- Return dataTable
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataTable As InversionesDEVDataSet7.PIN0DataTable) As Integer
- Return Me.Adapter.Update(dataTable)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataSet As InversionesDEVDataSet7) As Integer
- Return Me.Adapter.Update(dataSet, "PIN0")
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(dataRows)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
- Public Overloads Overridable Function Delete( _
- ByVal Original_DocId As Integer, _
- ByVal Original_CodInv As String, _
- ByVal Original_VCodInv As String, _
- ByVal Original_DocEst As String, _
- ByVal Original_Asunto As String, _
- ByVal Original_CodEmpr As String, _
- ByVal Original_CodIF As String, _
- ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
- ByVal Original_CodCalRi As String, _
- ByVal Original_CodECalRi As String, _
- ByVal Original_OFon As String, _
- ByVal Original_Coment As String, _
- ByVal Original_Just As String, _
- ByVal Original_TipoOper As String, _
- ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
- ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
- ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
- ByVal Original_Rendimiento As String, _
- ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
- ByVal Original_PlazoFact As String, _
- ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
- ByVal Original_AutEstado As String, _
- ByVal Original_TipoMerc As String, _
- ByVal Original_CodPais As String, _
- ByVal Original_TipoRenta As String, _
- ByVal Original_TipoTasa As String, _
- ByVal Original_Periodicidad As String, _
- ByVal Original_NombreManual As String, _
- ByVal Original_EstadoProc As String) As Integer
- Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DocId,Integer)
- If (Original_CodInv Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CodInv,String)
- End If
- If (Original_VCodInv Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_VCodInv,String)
- End If
- If (Original_DocEst Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_DocEst,String)
- End If
- If (Original_Asunto Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Asunto,String)
- End If
- If (Original_CodEmpr Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CodEmpr,String)
- End If
- If (Original_CodIF Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CodIF,String)
- End If
- If (Original_CodEmis.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CodEmis.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
- End If
- If (Original_CodCalRi Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CodCalRi,String)
- End If
- If (Original_CodECalRi Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CodECalRi,String)
- End If
- If (Original_OFon Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_OFon,String)
- End If
- If (Original_Coment Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Coment,String)
- End If
- If (Original_Just Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_Just,String)
- End If
- If (Original_TipoOper Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_TipoOper,String)
- End If
- If (Original_DocBase.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_DocBase.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value
- End If
- If (Original_MontoInv.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_MontoInv.Value,Decimal)
- Else
- Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value
- End If
- If (Original_Precio.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_Precio.Value,Decimal)
- Else
- Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
- End If
- If (Original_Rendimiento Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_Rendimiento,String)
- End If
- If (Original_Plazo.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_Plazo.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value
- End If
- If (Original_PlazoFact Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_PlazoFact,String)
- End If
- If (Original_Ingresos.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_Ingresos.Value,Decimal)
- Else
- Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value
- End If
- If (Original_FechaDoc.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_FechaDoc.Value,Date)
- Else
- Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value
- End If
- If (Original_AutEstado Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_AutEstado,String)
- End If
- If (Original_TipoMerc Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_TipoMerc,String)
- End If
- If (Original_CodPais Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_CodPais,String)
- End If
- If (Original_TipoRenta Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_TipoRenta,String)
- End If
- If (Original_TipoTasa Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_TipoTasa,String)
- End If
- If (Original_Periodicidad Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_Periodicidad,String)
- End If
- If (Original_NombreManual Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_NombreManual,String)
- End If
- If (Original_EstadoProc Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_EstadoProc,String)
- End If
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
- If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.DeleteCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.DeleteCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- Public Overloads Overridable Function Insert( _
- ByVal CodInv As String, _
- ByVal VCodInv As String, _
- ByVal DocEst As String, _
- ByVal Asunto As String, _
- ByVal CodEmpr As String, _
- ByVal CodIF As String, _
- ByVal CodEmis As Global.System.Nullable(Of Integer), _
- ByVal CodCalRi As String, _
- ByVal CodECalRi As String, _
- ByVal OFon As String, _
- ByVal Coment As String, _
- ByVal Just As String, _
- ByVal TipoOper As String, _
- ByVal DocBase As Global.System.Nullable(Of Integer), _
- ByVal MontoInv As Global.System.Nullable(Of Decimal), _
- ByVal Precio As Global.System.Nullable(Of Decimal), _
- ByVal Rendimiento As String, _
- ByVal Plazo As Global.System.Nullable(Of Integer), _
- ByVal PlazoFact As String, _
- ByVal Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal FechaDoc As Global.System.Nullable(Of Date), _
- ByVal AutEstado As String, _
- ByVal TipoMerc As String, _
- ByVal CodPais As String, _
- ByVal TipoRenta As String, _
- ByVal TipoTasa As String, _
- ByVal Periodicidad As String, _
- ByVal NombreManual As String, _
- ByVal EstadoProc As String) As Integer
- If (CodInv Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(0).Value = CType(CodInv,String)
- End If
- If (VCodInv Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(1).Value = CType(VCodInv,String)
- End If
- If (DocEst Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(2).Value = CType(DocEst,String)
- End If
- If (Asunto Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(3).Value = CType(Asunto,String)
- End If
- If (CodEmpr Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(4).Value = CType(CodEmpr,String)
- End If
- If (CodIF Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(5).Value = CType(CodIF,String)
- End If
- If (CodEmis.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
- End If
- If (CodCalRi Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(7).Value = CType(CodCalRi,String)
- End If
- If (CodECalRi Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(8).Value = CType(CodECalRi,String)
- End If
- If (OFon Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(9).Value = CType(OFon,String)
- End If
- If (Coment Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(10).Value = CType(Coment,String)
- End If
- If (Just Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(11).Value = CType(Just,String)
- End If
- If (TipoOper Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(12).Value = CType(TipoOper,String)
- End If
- If (DocBase.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
- End If
- If (MontoInv.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
- Else
- Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
- End If
- If (Precio.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
- Else
- Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
- End If
- If (Rendimiento Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(16).Value = CType(Rendimiento,String)
- End If
- If (Plazo.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value
- End If
- If (PlazoFact Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(18).Value = CType(PlazoFact,String)
- End If
- If (Ingresos.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
- Else
- Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value
- End If
- If (FechaDoc.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(20).Value = CType(FechaDoc.Value,Date)
- Else
- Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value
- End If
- If (AutEstado Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(21).Value = CType(AutEstado,String)
- End If
- If (TipoMerc Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(22).Value = CType(TipoMerc,String)
- End If
- If (CodPais Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(23).Value = CType(CodPais,String)
- End If
- If (TipoRenta Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(24).Value = CType(TipoRenta,String)
- End If
- If (TipoTasa Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(25).Value = CType(TipoTasa,String)
- End If
- If (Periodicidad Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(26).Value = CType(Periodicidad,String)
- End If
- If (NombreManual Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(27).Value = CType(NombreManual,String)
- End If
- If (EstadoProc Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(28).Value = CType(EstadoProc,String)
- End If
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
- If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.InsertCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.InsertCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update( _
- ByVal CodInv As String, _
- ByVal VCodInv As String, _
- ByVal DocEst As String, _
- ByVal Asunto As String, _
- ByVal CodEmpr As String, _
- ByVal CodIF As String, _
- ByVal CodEmis As Global.System.Nullable(Of Integer), _
- ByVal CodCalRi As String, _
- ByVal CodECalRi As String, _
- ByVal OFon As String, _
- ByVal Coment As String, _
- ByVal Just As String, _
- ByVal TipoOper As String, _
- ByVal DocBase As Global.System.Nullable(Of Integer), _
- ByVal MontoInv As Global.System.Nullable(Of Decimal), _
- ByVal Precio As Global.System.Nullable(Of Decimal), _
- ByVal Rendimiento As String, _
- ByVal Plazo As Global.System.Nullable(Of Integer), _
- ByVal PlazoFact As String, _
- ByVal Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal FechaDoc As Global.System.Nullable(Of Date), _
- ByVal AutEstado As String, _
- ByVal TipoMerc As String, _
- ByVal CodPais As String, _
- ByVal TipoRenta As String, _
- ByVal TipoTasa As String, _
- ByVal Periodicidad As String, _
- ByVal NombreManual As String, _
- ByVal EstadoProc As String, _
- ByVal Original_DocId As Integer, _
- ByVal Original_CodInv As String, _
- ByVal Original_VCodInv As String, _
- ByVal Original_DocEst As String, _
- ByVal Original_Asunto As String, _
- ByVal Original_CodEmpr As String, _
- ByVal Original_CodIF As String, _
- ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
- ByVal Original_CodCalRi As String, _
- ByVal Original_CodECalRi As String, _
- ByVal Original_OFon As String, _
- ByVal Original_Coment As String, _
- ByVal Original_Just As String, _
- ByVal Original_TipoOper As String, _
- ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
- ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
- ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
- ByVal Original_Rendimiento As String, _
- ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
- ByVal Original_PlazoFact As String, _
- ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
- ByVal Original_AutEstado As String, _
- ByVal Original_TipoMerc As String, _
- ByVal Original_CodPais As String, _
- ByVal Original_TipoRenta As String, _
- ByVal Original_TipoTasa As String, _
- ByVal Original_Periodicidad As String, _
- ByVal Original_NombreManual As String, _
- ByVal Original_EstadoProc As String, _
- ByVal DocId As Integer) As Integer
- If (CodInv Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CodInv,String)
- End If
- If (VCodInv Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VCodInv,String)
- End If
- If (DocEst Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DocEst,String)
- End If
- If (Asunto Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Asunto,String)
- End If
- If (CodEmpr Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CodEmpr,String)
- End If
- If (CodIF Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CodIF,String)
- End If
- If (CodEmis.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CodEmis.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
- End If
- If (CodCalRi Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CodCalRi,String)
- End If
- If (CodECalRi Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CodECalRi,String)
- End If
- If (OFon Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(9).Value = CType(OFon,String)
- End If
- If (Coment Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Coment,String)
- End If
- If (Just Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Just,String)
- End If
- If (TipoOper Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TipoOper,String)
- End If
- If (DocBase.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(13).Value = CType(DocBase.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
- End If
- If (MontoInv.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MontoInv.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
- End If
- If (Precio.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Precio.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
- End If
- If (Rendimiento Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Rendimiento,String)
- End If
- If (Plazo.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Plazo.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
- End If
- If (PlazoFact Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PlazoFact,String)
- End If
- If (Ingresos.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Ingresos.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
- End If
- If (FechaDoc.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FechaDoc.Value,Date)
- Else
- Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
- End If
- If (AutEstado Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(21).Value = CType(AutEstado,String)
- End If
- If (TipoMerc Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(22).Value = CType(TipoMerc,String)
- End If
- If (CodPais Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(23).Value = CType(CodPais,String)
- End If
- If (TipoRenta Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(24).Value = CType(TipoRenta,String)
- End If
- If (TipoTasa Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(25).Value = CType(TipoTasa,String)
- End If
- If (Periodicidad Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Periodicidad,String)
- End If
- If (NombreManual Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(27).Value = CType(NombreManual,String)
- End If
- If (EstadoProc Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(28).Value = CType(EstadoProc,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_DocId,Integer)
- If (Original_CodInv Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CodInv,String)
- End If
- If (Original_VCodInv Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_VCodInv,String)
- End If
- If (Original_DocEst Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_DocEst,String)
- End If
- If (Original_Asunto Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_Asunto,String)
- End If
- If (Original_CodEmpr Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_CodEmpr,String)
- End If
- If (Original_CodIF Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_CodIF,String)
- End If
- If (Original_CodEmis.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_CodEmis.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value
- End If
- If (Original_CodCalRi Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_CodCalRi,String)
- End If
- If (Original_CodECalRi Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_CodECalRi,String)
- End If
- If (Original_OFon Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_OFon,String)
- End If
- If (Original_Coment Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_Coment,String)
- End If
- If (Original_Just Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_Just,String)
- End If
- If (Original_TipoOper Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_TipoOper,String)
- End If
- If (Original_DocBase.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_DocBase.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value
- End If
- If (Original_MontoInv.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_MontoInv.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value
- End If
- If (Original_Precio.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_Precio.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value
- End If
- If (Original_Rendimiento Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_Rendimiento,String)
- End If
- If (Original_Plazo.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_Plazo.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value
- End If
- If (Original_PlazoFact Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_PlazoFact,String)
- End If
- If (Original_Ingresos.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_Ingresos.Value,Decimal)
- Else
- Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value
- End If
- If (Original_FechaDoc.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_FechaDoc.Value,Date)
- Else
- Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value
- End If
- If (Original_AutEstado Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_AutEstado,String)
- End If
- If (Original_TipoMerc Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_TipoMerc,String)
- End If
- If (Original_CodPais Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_CodPais,String)
- End If
- If (Original_TipoRenta Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_TipoRenta,String)
- End If
- If (Original_TipoTasa Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_TipoTasa,String)
- End If
- If (Original_Periodicidad Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_Periodicidad,String)
- End If
- If (Original_NombreManual Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_NombreManual,String)
- End If
- If (Original_EstadoProc Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_EstadoProc,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(88).Value = CType(DocId,Integer)
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
- If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.UpdateCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.UpdateCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update( _
- ByVal CodInv As String, _
- ByVal VCodInv As String, _
- ByVal DocEst As String, _
- ByVal Asunto As String, _
- ByVal CodEmpr As String, _
- ByVal CodIF As String, _
- ByVal CodEmis As Global.System.Nullable(Of Integer), _
- ByVal CodCalRi As String, _
- ByVal CodECalRi As String, _
- ByVal OFon As String, _
- ByVal Coment As String, _
- ByVal Just As String, _
- ByVal TipoOper As String, _
- ByVal DocBase As Global.System.Nullable(Of Integer), _
- ByVal MontoInv As Global.System.Nullable(Of Decimal), _
- ByVal Precio As Global.System.Nullable(Of Decimal), _
- ByVal Rendimiento As String, _
- ByVal Plazo As Global.System.Nullable(Of Integer), _
- ByVal PlazoFact As String, _
- ByVal Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal FechaDoc As Global.System.Nullable(Of Date), _
- ByVal AutEstado As String, _
- ByVal TipoMerc As String, _
- ByVal CodPais As String, _
- ByVal TipoRenta As String, _
- ByVal TipoTasa As String, _
- ByVal Periodicidad As String, _
- ByVal NombreManual As String, _
- ByVal EstadoProc As String, _
- ByVal Original_DocId As Integer, _
- ByVal Original_CodInv As String, _
- ByVal Original_VCodInv As String, _
- ByVal Original_DocEst As String, _
- ByVal Original_Asunto As String, _
- ByVal Original_CodEmpr As String, _
- ByVal Original_CodIF As String, _
- ByVal Original_CodEmis As Global.System.Nullable(Of Integer), _
- ByVal Original_CodCalRi As String, _
- ByVal Original_CodECalRi As String, _
- ByVal Original_OFon As String, _
- ByVal Original_Coment As String, _
- ByVal Original_Just As String, _
- ByVal Original_TipoOper As String, _
- ByVal Original_DocBase As Global.System.Nullable(Of Integer), _
- ByVal Original_MontoInv As Global.System.Nullable(Of Decimal), _
- ByVal Original_Precio As Global.System.Nullable(Of Decimal), _
- ByVal Original_Rendimiento As String, _
- ByVal Original_Plazo As Global.System.Nullable(Of Integer), _
- ByVal Original_PlazoFact As String, _
- ByVal Original_Ingresos As Global.System.Nullable(Of Decimal), _
- ByVal Original_FechaDoc As Global.System.Nullable(Of Date), _
- ByVal Original_AutEstado As String, _
- ByVal Original_TipoMerc As String, _
- ByVal Original_CodPais As String, _
- ByVal Original_TipoRenta As String, _
- ByVal Original_TipoTasa As String, _
- ByVal Original_Periodicidad As String, _
- ByVal Original_NombreManual As String, _
- ByVal Original_EstadoProc As String) As Integer
- Return Me.Update(CodInv, VCodInv, DocEst, Asunto, CodEmpr, CodIF, CodEmis, CodCalRi, CodECalRi, OFon, Coment, Just, TipoOper, DocBase, MontoInv, Precio, Rendimiento, Plazo, PlazoFact, Ingresos, FechaDoc, AutEstado, TipoMerc, CodPais, TipoRenta, TipoTasa, Periodicidad, NombreManual, EstadoProc, Original_DocId, Original_CodInv, Original_VCodInv, Original_DocEst, Original_Asunto, Original_CodEmpr, Original_CodIF, Original_CodEmis, Original_CodCalRi, Original_CodECalRi, Original_OFon, Original_Coment, Original_Just, Original_TipoOper, Original_DocBase, Original_MontoInv, Original_Precio, Original_Rendimiento, Original_Plazo, Original_PlazoFact, Original_Ingresos, Original_FechaDoc, Original_AutEstado, Original_TipoMerc, Original_CodPais, Original_TipoRenta, Original_TipoTasa, Original_Periodicidad, Original_NombreManual, Original_EstadoProc, Original_DocId)
- End Function
- End Class
-
- '''<summary>
- '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
- '''</summary>
- <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
- "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
- Partial Public Class TableAdapterManager
- Inherits Global.System.ComponentModel.Component
-
- Private _updateOrder As UpdateOrderOption
-
- Private _pIN0TableAdapter As PIN0TableAdapter
-
- Private _backupDataSetBeforeUpdate As Boolean
-
- Private _connection As Global.System.Data.IDbConnection
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property UpdateOrder() As UpdateOrderOption
- Get
- Return Me._updateOrder
- End Get
- Set
- Me._updateOrder = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
- "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
- "a", "System.Drawing.Design.UITypeEditor")> _
- Public Property PIN0TableAdapter() As PIN0TableAdapter
- Get
- Return Me._pIN0TableAdapter
- End Get
- Set
- Me._pIN0TableAdapter = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Property BackupDataSetBeforeUpdate() As Boolean
- Get
- Return Me._backupDataSetBeforeUpdate
- End Get
- Set
- Me._backupDataSetBeforeUpdate = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public Property Connection() As Global.System.Data.IDbConnection
- Get
- If (Not (Me._connection) Is Nothing) Then
- Return Me._connection
- End If
- If ((Not (Me._pIN0TableAdapter) Is Nothing) _
- AndAlso (Not (Me._pIN0TableAdapter.Connection) Is Nothing)) Then
- Return Me._pIN0TableAdapter.Connection
- End If
- Return Nothing
- End Get
- Set
- Me._connection = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property TableAdapterInstanceCount() As Integer
- Get
- Dim count As Integer = 0
- If (Not (Me._pIN0TableAdapter) Is Nothing) Then
- count = (count + 1)
- End If
- Return count
- End Get
- End Property
-
- '''<summary>
- '''Update rows in top-down order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function UpdateUpdatedRows(ByVal dataSet As InversionesDEVDataSet7, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
- Dim result As Integer = 0
- If (Not (Me._pIN0TableAdapter) Is Nothing) Then
- Dim updatedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
- updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
- If ((Not (updatedRows) Is Nothing) _
- AndAlso (0 < updatedRows.Length)) Then
- result = (result + Me._pIN0TableAdapter.Update(updatedRows))
- allChangedRows.AddRange(updatedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Insert rows in top-down order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function UpdateInsertedRows(ByVal dataSet As InversionesDEVDataSet7, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
- Dim result As Integer = 0
- If (Not (Me._pIN0TableAdapter) Is Nothing) Then
- Dim addedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
- If ((Not (addedRows) Is Nothing) _
- AndAlso (0 < addedRows.Length)) Then
- result = (result + Me._pIN0TableAdapter.Update(addedRows))
- allAddedRows.AddRange(addedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Delete rows in bottom-up order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function UpdateDeletedRows(ByVal dataSet As InversionesDEVDataSet7, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
- Dim result As Integer = 0
- If (Not (Me._pIN0TableAdapter) Is Nothing) Then
- Dim deletedRows() As Global.System.Data.DataRow = dataSet.PIN0.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
- If ((Not (deletedRows) Is Nothing) _
- AndAlso (0 < deletedRows.Length)) Then
- result = (result + Me._pIN0TableAdapter.Update(deletedRows))
- allChangedRows.AddRange(deletedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
- If ((updatedRows Is Nothing) _
- OrElse (updatedRows.Length < 1)) Then
- Return updatedRows
- End If
- If ((allAddedRows Is Nothing) _
- OrElse (allAddedRows.Count < 1)) Then
- Return updatedRows
- End If
- Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
- Dim i As Integer = 0
- Do While (i < updatedRows.Length)
- Dim row As Global.System.Data.DataRow = updatedRows(i)
- If (allAddedRows.Contains(row) = false) Then
- realUpdatedRows.Add(row)
- End If
- i = (i + 1)
- Loop
- Return realUpdatedRows.ToArray
- End Function
-
- '''<summary>
- '''Update all changes to the dataset.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overridable Function UpdateAll(ByVal dataSet As InversionesDEVDataSet7) As Integer
- If (dataSet Is Nothing) Then
- Throw New Global.System.ArgumentNullException("dataSet")
- End If
- If (dataSet.HasChanges = false) Then
- Return 0
- End If
- If ((Not (Me._pIN0TableAdapter) Is Nothing) _
- AndAlso (Me.MatchTableAdapterConnection(Me._pIN0TableAdapter.Connection) = false)) Then
- Throw New Global.System.ArgumentException("Todos los TableAdapters administrados por un TableAdapterManager deben usar la mi"& _
- "sma cadena de conexión.")
- End If
- Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
- If (workConnection Is Nothing) Then
- Throw New Global.System.ApplicationException("TableAdapterManager no contiene información de conexión. Establezca cada propieda"& _
- "d TableAdapterManager TableAdapter en una instancia TableAdapter válida.")
- End If
- Dim workConnOpened As Boolean = false
- If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
- = Global.System.Data.ConnectionState.Broken) Then
- workConnection.Close
- End If
- If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
- workConnection.Open
- workConnOpened = true
- End If
- Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
- If (workTransaction Is Nothing) Then
- Throw New Global.System.ApplicationException("La transacción no puede comenzar. La conexión de datos actual no es compatible co"& _
- "n las transacciones o el estado actual no permite que comience la transacción.")
- End If
- Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
- Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
- Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
- Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
- Dim result As Integer = 0
- Dim backupDataSet As Global.System.Data.DataSet = Nothing
- If Me.BackupDataSetBeforeUpdate Then
- backupDataSet = New Global.System.Data.DataSet()
- backupDataSet.Merge(dataSet)
- End If
- Try
- '---- Prepare for update -----------
- '
- If (Not (Me._pIN0TableAdapter) Is Nothing) Then
- revertConnections.Add(Me._pIN0TableAdapter, Me._pIN0TableAdapter.Connection)
- Me._pIN0TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
- Me._pIN0TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
- If Me._pIN0TableAdapter.Adapter.AcceptChangesDuringUpdate Then
- Me._pIN0TableAdapter.Adapter.AcceptChangesDuringUpdate = false
- adaptersWithAcceptChangesDuringUpdate.Add(Me._pIN0TableAdapter.Adapter)
- End If
- End If
- '
- '---- Perform updates -----------
- '
- If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
- result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
- result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
- Else
- result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
- result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
- End If
- result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
- '
- '---- Commit updates -----------
- '
- workTransaction.Commit
- If (0 < allAddedRows.Count) Then
- Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
- allAddedRows.CopyTo(rows)
- Dim i As Integer = 0
- Do While (i < rows.Length)
- Dim row As Global.System.Data.DataRow = rows(i)
- row.AcceptChanges
- i = (i + 1)
- Loop
- End If
- If (0 < allChangedRows.Count) Then
- Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
- allChangedRows.CopyTo(rows)
- Dim i As Integer = 0
- Do While (i < rows.Length)
- Dim row As Global.System.Data.DataRow = rows(i)
- row.AcceptChanges
- i = (i + 1)
- Loop
- End If
- Catch ex As Global.System.Exception
- workTransaction.Rollback
- '---- Restore the dataset -----------
- If Me.BackupDataSetBeforeUpdate Then
- Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
- dataSet.Clear
- dataSet.Merge(backupDataSet)
- Else
- If (0 < allAddedRows.Count) Then
- Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
- allAddedRows.CopyTo(rows)
- Dim i As Integer = 0
- Do While (i < rows.Length)
- Dim row As Global.System.Data.DataRow = rows(i)
- row.AcceptChanges
- row.SetAdded
- i = (i + 1)
- Loop
- End If
- End If
- Throw ex
- Finally
- If workConnOpened Then
- workConnection.Close
- End If
- If (Not (Me._pIN0TableAdapter) Is Nothing) Then
- Me._pIN0TableAdapter.Connection = CType(revertConnections(Me._pIN0TableAdapter),Global.System.Data.SqlClient.SqlConnection)
- Me._pIN0TableAdapter.Transaction = Nothing
- End If
- If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
- Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
- adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
- Dim i As Integer = 0
- Do While (i < adapters.Length)
- Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
- adapter.AcceptChangesDuringUpdate = true
- i = (i + 1)
- Loop
- End If
- End Try
- Return result
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
- Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
- If (Not (Me._connection) Is Nothing) Then
- Return true
- End If
- If ((Me.Connection Is Nothing) _
- OrElse (inputConnection Is Nothing)) Then
- Return true
- End If
- If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
- Return true
- End If
- Return false
- End Function
-
- '''<summary>
- '''Update Order Option
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Enum UpdateOrderOption
-
- InsertUpdateDelete = 0
-
- UpdateInsertDelete = 1
- End Enum
-
- '''<summary>
- '''Used to sort self-referenced table's rows
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Class SelfReferenceComparer
- Inherits Object
- Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
-
- Private _relation As Global.System.Data.DataRelation
-
- Private _childFirst As Integer
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
- MyBase.New
- Me._relation = relation
- If childFirst Then
- Me._childFirst = -1
- Else
- Me._childFirst = 1
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
- Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
- Dim root As Global.System.Data.DataRow = row
- distance = 0
- Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
- traversedRows(row) = row
- Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
- Do While ((Not (parent) Is Nothing) _
- AndAlso (traversedRows.ContainsKey(parent) = false))
- distance = (distance + 1)
- root = parent
- traversedRows(parent) = parent
- parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
- Loop
- If (distance = 0) Then
- traversedRows.Clear
- traversedRows(row) = row
- parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
- Do While ((Not (parent) Is Nothing) _
- AndAlso (traversedRows.ContainsKey(parent) = false))
- distance = (distance + 1)
- root = parent
- traversedRows(parent) = parent
- parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
- Loop
- End If
- Return root
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
- If Object.ReferenceEquals(row1, row2) Then
- Return 0
- End If
- If (row1 Is Nothing) Then
- Return -1
- End If
- If (row2 Is Nothing) Then
- Return 1
- End If
- Dim distance1 As Integer = 0
- Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
- Dim distance2 As Integer = 0
- Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
- If Object.ReferenceEquals(root1, root2) Then
- Return (Me._childFirst * distance1.CompareTo(distance2))
- Else
- Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
- AndAlso (Not (root2.Table) Is Nothing)))
- If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
- Return -1
- Else
- Return 1
- End If
- End If
- End Function
- End Class
- End Class
- End Namespace
|