Actualizacion del diseño

App.config

@@ -7,14 +7,14 @@
     </configSections>
     <connectionStrings>
         <add name="Inversiones.My.MySettings.InversionesConnectionString"
-            connectionString="Data Source=INVSVSAP;Initial Catalog=Inversiones;Persist Security Info=True;User ID=ahernandez;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
+            connectionString="Data Source=INVSVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=ahernandez;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
             providerName="System.Data.SqlClient" />
         <add name="Inversiones.My.MySettings.SAP_INVERLEC_ESConnectionString"
             connectionString="Data Source=MESVSAP;Initial Catalog=SAP_INVERLEC_ES;User ID=ahernandez;Password=1234"
             providerName="System.Data.SqlClient" />
-        <add name="cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=Inversiones;Persist Security Info=True;User ID=ahernandez;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
+        <add name="cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=ahernandez;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
             providerName="System.Data.SqlClient" />
-        <add name="Inversiones.My.MySettings.cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=Inversiones;Persist Security Info=True;User ID=ahernandez;Password=1234"
+        <add name="Inversiones.My.MySettings.cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=ahernandez;Password=1234"
             providerName="System.Data.SqlClient" />
     </connectionStrings>
     <startup>
@@ -56,7 +56,7 @@
                 <value>INVSVSAP</value>
             </setting>
             <setting name="BaseDeDatos" serializeAs="String">
-                <value>Inversiones</value>
+                <value>InversionesDEV</value>
             </setting>
         </Inversiones.My.MySettings>
     </applicationSettings>

Appp.config

@@ -1,63 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<configuration>
-    <configSections>
-        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-            <section name="Inversiones.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
-        </sectionGroup>
-    </configSections>
-    <connectionStrings>
-        <add name="Inversiones.My.MySettings.InversionesConnectionString"
-            connectionString="Data Source=MESVSAP;Initial Catalog=Inversiones_20190711;Persist Security Info=True;User ID=sinversiones;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
-            providerName="System.Data.SqlClient" />
-        <add name="Inversiones.My.MySettings.SAP_INVERLEC_ESConnectionString"
-            connectionString="Data Source=MESVSAP;Initial Catalog=SAP_INVERLEC_ES;User ID=sinversiones;Password=1234"
-            providerName="System.Data.SqlClient" />
-        <add name="cnInversiones" connectionString="Data Source=MESVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=sinversiones;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
-            providerName="System.Data.SqlClient" />
-        <add name="Inversiones.My.MySettings.cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=Inversiones_20190711;Persist Security Info=True;User ID=inversiones;Password=1234"
-            providerName="System.Data.SqlClient" />
-    </connectionStrings>
-    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
-    </startup>
-    <applicationSettings>
-        <Inversiones.My.MySettings>
-            <setting name="RutaReportes" serializeAs="String">
-                <value>C:\dev\win\Inverlec\Inversiones\RPT\</value>
-            </setting>
-            <setting name="VERS_SQL" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="SERVER_SAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="IP_SERVER_SAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="USUARIO_DB_SAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="CLAVE_DB_SAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="UsuarioSAP" serializeAs="String">
-                <value>manager</value>
-            </setting>
-            <setting name="ClaveSAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="ClaveSQL" serializeAs="String">
-                <value>1234</value>
-            </setting>
-            <setting name="UsuarioSQL" serializeAs="String">
-                <value>inversiones</value>
-            </setting>
-            <setting name="ServidorSQL" serializeAs="String">
-                <value>INVSVSAP</value>
-            </setting>
-            <setting name="BaseDeDatos" serializeAs="String">
-                <value>Inversiones_20190711</value>
-            </setting>
-        </Inversiones.My.MySettings>
-    </applicationSettings>
-</configuration>

DAO/InversionDAO.vb

@@ -137,7 +137,7 @@ Public Class InversionDAO
 
         Dim dt As New DataTable
 
-        sql = "SELECT [DocId] FROM [dbo].[INV0] ORDER BY [CodInv]"
+        sql = "SELECT   ROW_NUMBER() OVER(ORDER BY [CodInv] ),[DocId] FROM [dbo].[INV0] ORDER BY [CodInv]"
         If cn Is Nothing Then
             cn = objCon.Conectar
         End If
@@ -155,9 +155,7 @@ Public Class InversionDAO
         da.Fill(dt)
 
         Return dt
-        dt.Dispose()
-        da.Dispose()
-        cn.Dispose()
+
 
     End Function
 

FRM/frmAcciones.Designer.vb

@@ -110,7 +110,6 @@ Partial Class frmAcciones
         Me.txtRentaCompra = New System.Windows.Forms.TextBox()
         Me.TabAcciones = New System.Windows.Forms.TabControl()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.btnAsociarAccion = New System.Windows.Forms.Button()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.BindingNavigator1.SuspendLayout()
@@ -129,23 +128,29 @@ Partial Class frmAcciones
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
         Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAceptar.Location = New System.Drawing.Point(33, 40)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(98, 40)
         Me.btnAceptar.TabIndex = 66
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(173, 40)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(93, 40)
         Me.btnCancelar.TabIndex = 79
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'lblTitulo
         '
@@ -222,21 +227,27 @@ Partial Class frmAcciones
         '
         'btnQuitar
         '
-        Me.btnQuitar.Location = New System.Drawing.Point(281, 11)
+        Me.btnQuitar.BackColor = System.Drawing.Color.White
+        Me.btnQuitar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuitar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnQuitar.Location = New System.Drawing.Point(250, 15)
         Me.btnQuitar.Name = "btnQuitar"
-        Me.btnQuitar.Size = New System.Drawing.Size(96, 30)
+        Me.btnQuitar.Size = New System.Drawing.Size(104, 30)
         Me.btnQuitar.TabIndex = 118
         Me.btnQuitar.Text = "Quitar"
-        Me.btnQuitar.UseVisualStyleBackColor = True
+        Me.btnQuitar.UseVisualStyleBackColor = False
         '
         'btnActualizar
         '
-        Me.btnActualizar.Location = New System.Drawing.Point(555, 8)
+        Me.btnActualizar.BackColor = System.Drawing.Color.White
+        Me.btnActualizar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnActualizar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnActualizar.Location = New System.Drawing.Point(360, 15)
         Me.btnActualizar.Name = "btnActualizar"
-        Me.btnActualizar.Size = New System.Drawing.Size(118, 36)
+        Me.btnActualizar.Size = New System.Drawing.Size(106, 30)
         Me.btnActualizar.TabIndex = 22
         Me.btnActualizar.Text = "Actualizar calculos"
-        Me.btnActualizar.UseVisualStyleBackColor = True
+        Me.btnActualizar.UseVisualStyleBackColor = False
         '
         'GroupBox1
         '
@@ -274,17 +285,19 @@ Partial Class frmAcciones
         'dgvDividendos
         '
         Me.dgvDividendos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvDividendos.BackgroundColor = System.Drawing.Color.WhiteSmoke
         Me.dgvDividendos.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.dgvDividendos.CellBorderStyle = System.Windows.Forms.DataGridViewCellBorderStyle.Raised
         Me.dgvDividendos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvDividendos.Location = New System.Drawing.Point(2, 50)
         Me.dgvDividendos.Name = "dgvDividendos"
         Me.dgvDividendos.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders
-        Me.dgvDividendos.Size = New System.Drawing.Size(961, 344)
+        Me.dgvDividendos.Size = New System.Drawing.Size(961, 461)
         Me.dgvDividendos.TabIndex = 18
         '
         'TbOperacion
         '
+        Me.TbOperacion.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TbOperacion.Controls.Add(Me.btnVenderTitulo)
         Me.TbOperacion.Controls.Add(Me.GrpDatos)
         Me.TbOperacion.Controls.Add(Me.lblTitulo)
@@ -298,16 +311,18 @@ Partial Class frmAcciones
         Me.TbOperacion.Size = New System.Drawing.Size(1149, 519)
         Me.TbOperacion.TabIndex = 0
         Me.TbOperacion.Text = "Operación"
-        Me.TbOperacion.UseVisualStyleBackColor = True
         '
         'btnVenderTitulo
         '
-        Me.btnVenderTitulo.Location = New System.Drawing.Point(468, 17)
+        Me.btnVenderTitulo.BackColor = System.Drawing.Color.White
+        Me.btnVenderTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVenderTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.btnVenderTitulo.Location = New System.Drawing.Point(414, 17)
         Me.btnVenderTitulo.Name = "btnVenderTitulo"
-        Me.btnVenderTitulo.Size = New System.Drawing.Size(75, 35)
+        Me.btnVenderTitulo.Size = New System.Drawing.Size(178, 35)
         Me.btnVenderTitulo.TabIndex = 174
         Me.btnVenderTitulo.Text = "Vender Titulo"
-        Me.btnVenderTitulo.UseVisualStyleBackColor = True
+        Me.btnVenderTitulo.UseVisualStyleBackColor = False
         Me.btnVenderTitulo.Visible = False
         '
         'GrpDatos
@@ -1022,15 +1037,6 @@ Partial Class frmAcciones
         Me.Panel1.Size = New System.Drawing.Size(1157, 545)
         Me.Panel1.TabIndex = 159
         '
-        'btnAsociarAccion
-        '
-        Me.btnAsociarAccion.Location = New System.Drawing.Point(128, 23)
-        Me.btnAsociarAccion.Name = "btnAsociarAccion"
-        Me.btnAsociarAccion.Size = New System.Drawing.Size(96, 23)
-        Me.btnAsociarAccion.TabIndex = 81
-        Me.btnAsociarAccion.Text = "Asociar Acción"
-        Me.btnAsociarAccion.UseVisualStyleBackColor = True
-        '
         'OpenFileDialog1
         '
         Me.OpenFileDialog1.FileName = "OpenFileDialog1"
@@ -1040,14 +1046,12 @@ Partial Class frmAcciones
         Me.AcceptButton = Me.btnAceptar
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.AutoScroll = True
         Me.CancelButton = Me.btnCancelar
         Me.ClientSize = New System.Drawing.Size(1157, 570)
-        Me.Controls.Add(Me.btnAsociarAccion)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmAcciones"
-        Me.Text = "Acciones"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()
@@ -1154,7 +1158,6 @@ Partial Class frmAcciones
     Friend WithEvents GrpImpuesto As GroupBox
     Friend WithEvents Panel1 As Panel
     Friend WithEvents btnActualizar As Button
-    Friend WithEvents btnAsociarAccion As Button
     Friend WithEvents OpenFileDialog1 As OpenFileDialog
     Friend WithEvents btnQuitar As Button
     Friend WithEvents GrpBotonos As GroupBox

FRM/frmAcciones.resx

@@ -140,27 +140,27 @@
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
-        +ADMyGjc0HVnp2laY5p0VTfWiLbYNB3SxHZr4oNgHB8jEsDy0IAzOsBQmEcwHOfeABXiNKR/8uXkzJz7
-        3Zl7CZQ8t/A4zS9aUtwHa+pk3crz/of4RTuJRt8/KhzNdeYjb3sSoaFKKcyM0J6ZIDVBiW4nJbpacBpQ
-        Y1MZu825iQXp7XmLHH7Tr+0+Bz00CDr3ElRFAlX7Y0qpLAOSYMFFcLarEHqhvGOeVvXDqV5t5xlo+yTE
+        +ADMyGjc0HVnp20aY5p0VTfWiLbYNB3SxHZr4oNgHB8jEsDy0IAzOsBQmEcwHOfeABXiNKR/8uXkzJz7
+        3Zl7CZQ8t/A4zS9aUtwHa+pk3crz/of4RTuJRt8/KhzNdeYj73oSoaFKKcyM0J6ZIDVBiW4nJbpacBpQ
+        Y1MZu825iQXp7XmLHH7br+0+Bz00CDr3ElRFAlX7Y0qpLAOSYMFFcLarEHqhvGGeVvXDqV5t5xlo+yTE
         clVTkIQkKbEm+NRV5Jkn+t4waFt9oAYHQBAEnYtnYMX3Gb6zgQbrX7/BYeKqWYAOTOD93RPj7hvNkLAb
         7DkaSEgViIsKxAziotogkas0C+oZcbgUMS8DG/iBByLnEnxcXILlZV+D1TU/RDOyuUAqlvGnooHkVQn4
         31k4Omsmea20JwhnSsDFs7BvgGqd00sTgaNFcJKWwLf6pXGACNSfXhRMBPZmQey6AhFB+Yuxc+RSxc/b
         Ehzcc42oP062XGM9dnI8d1eQlquYVK3e5V6BzTZZzhuCjZ+/8MC/UNQijI5O87WlBAEAD4xfYL3e1+CZ
-        9ALteYWrGTRN6w7SHWAYpqOm+N8QxC3b0mvwrfREqAAAAABJRU5ErkJggg==
+        9ALteYWrGTRN6w7SHWAYpqOm+N8QxC3OwmvsWlVoEQAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIZT0/4AF3HwCg4iOLV0k2q9bP4A
-        xUUUcXJwUHRxE1QcagidOrnoYAelWKEQdREEFwc3LwVJ6c1ek/T+er7Q1KqtrR88JBzO++T7ziFctXoY
-        Voa9BQOMDsavsqqqmpQkqVwqldCIXC4HQRBcbG9DiZ3C2WwWiqLUSKVSSCQSCIfDuiQUCkEUxV8SE8NO
-        GzRNQz6f159EJpNBMplEJBLRBaxL0Efcbrch0asmoLABCSiQTqcRjUa/jUNQppr9EhSLxdoGeqe5jVFi
-        sZjeiSzLzQU/qZdQJ3Qe8Xi8fQFhSGgcOhMS0XrbAqJQKOjnQhKC1v4loC7ezo5wtziCwKQFN/P9EOwm
-        8U8BhQyCXgGPG2PQfIeoPPmhnKxDcoyWr8bNay0F1P7twhBUFsbRLLDZCewOIro/Dt8E/9JUUC+htisP
-        XtRXYqcbO05zpSZwuVyVRhLieq4PWc8SwEK5DQ4fjOAqD/80/04CKhu7HqXZz/R6eoD7lWHIm4OIbFnw
-        vGxCwGEuX051bFfzXC/DxqCraYhnpks8d/IytX3h4MPHY/wex3HcJ/E1g0s+Et1bAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFW6ldbr5g9Q
+        XEQRJweHFl26CSodbAidnFx00EERFQpVF0FwcXDzBpKSXkx6Se/t6/lCE6ttvXzwkHA475PvO4dwtepi
+        2BmOX+hjWBkNZc9ms2o4HK6Uy2U0I5/PQxCEHba3qcRB4UwmA03TTJLJJBRFgSzLuiQSiUAUxQaJheGg
+        DblcDoVCQX8S6XQaqqoiGo3qAtYl6CPBYNCQ6GUKKGxAAgqkUinEYrEv4xCUqWU/BaVSydxA7zS3MUo8
+        Htc7kSSpteA79RLqhM4jkUj8XUAYEhqHzoREtP5nAVEsFvVzIQlBa/8SUBcvhwHczA8hNN6Gq9leCA6L
+        +KOAQgavRwLuPU7kTv2oPpxD219F2DVcuXDbVn4VUPvXcwPIsjAC04C3HdjoR2zLjdNR/qmloF5CbVfv
+        jlBfiq8TvjFb1RT4/f5qMwlxOdODzO4CwEJ5D4d3xusyj/NJ/o0EVCPserRWP9PzwTZulwYhefsRXWvD
+        46IFIZetcjZhXa/luW7GCIOupim7Ux3i8RgvUdsnLl7ec/KbHMdxH+iJgz/BouckAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

FRM/frmAcciones.vb

@@ -3277,21 +3277,11 @@ Public Class frmAcciones
         End While
     End Sub
 
-    Private Sub btnGenerarAccion_Click(sender As Object, e As EventArgs) Handles btnAsociarAccion.Click
-        GenerarAccion()
+    Private Sub btnGenerarAccion_Click(sender As Object, e As EventArgs)
+
     End Sub
 
-    Sub GenerarAccion()
-        Dim result As Integer = MsgBox("¿Está seguro de Asociar acciones?", MsgBoxStyle.OkCancel)
-        ' Test result.
-        If result = MsgBoxResult.Ok Then
-            ' Get the file name.
-            Dim frmAsociaciones As New frmAsociarAcciones
 
-            frmAsociaciones.Show()
-
-        End If
-    End Sub
 
     Private Sub dgvDividendos_CellMouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvDividendos.CellMouseMove
         If Cierre Then
@@ -3483,4 +3473,20 @@ Public Class frmAcciones
         TrasladarDatos.AgregarCMVTA = True
         Return TrasladarDatos
     End Function
+
+    Private Sub txtValorTransadoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtValorTransadoVenta.TextChanged
+
+    End Sub
+
+    Private Sub txtMontoNetoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtMontoNetoVenta.TextChanged
+
+    End Sub
+
+    Private Sub txtComisionCasaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtComisionCasaCompra.TextChanged
+
+    End Sub
+
+    Private Sub txtComisionCasaVenta_TextChanged(sender As Object, e As EventArgs) Handles txtComisionCasaVenta.TextChanged
+
+    End Sub
 End Class

FRM/frmActualizar.Designer.vb

@@ -1,52 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmActualizar
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.dgvActualizar = New System.Windows.Forms.DataGridView()
-        CType(Me.dgvActualizar, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'dgvActualizar
-        '
-        Me.dgvActualizar.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvActualizar.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvActualizar.Location = New System.Drawing.Point(0, 0)
-        Me.dgvActualizar.Name = "dgvActualizar"
-        Me.dgvActualizar.Size = New System.Drawing.Size(772, 334)
-        Me.dgvActualizar.TabIndex = 0
-        '
-        'frmActualizar
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(772, 334)
-        Me.Controls.Add(Me.dgvActualizar)
-        Me.Name = "frmActualizar"
-        Me.Text = "frmActualizar"
-        CType(Me.dgvActualizar, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents dgvActualizar As DataGridView
-End Class

FRM/frmActualizar.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmActualizar.vb

@@ -1,13 +0,0 @@
-Public Class frmActualizar
-    Private Sub frmActualizar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        CargarRegistroBD()
-    End Sub
-    Private Sub CargarRegistroBD()
-        Dim oAccionesCE As AccionesCE = New AccionesCE
-
-        Dim CodigoInversion As String = Variables.Codigo
-        Dim oAccionesDAO As New AccionesDAO
-        Dim dt As DataTable = oAccionesDAO.CargarRegistroActualizar()
-        dgvActualizar.DataSource = dt
-    End Sub
-End Class

FRM/frmAsociarAcciones.Designer.vb

@@ -1,160 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmAsociarAcciones
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Me.lblTitulo = New System.Windows.Forms.Label()
-        Me.cboCodigo = New System.Windows.Forms.ComboBox()
-        Me.InversionesDEVDataSet1 = New Inversiones.InversionesDEVDataSet1()
-        Me.InversionesDEVDataSet = New Inversiones.InversionesDEVDataSet()
-        Me.INV0BindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.INV0TableAdapter = New Inversiones.InversionesDEVDataSetTableAdapters.INV0TableAdapter()
-        Me.INV0BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
-        Me.INV0TableAdapter1 = New Inversiones.InversionesDEVDataSet1TableAdapters.INV0TableAdapter()
-        Me.txtCodigo = New System.Windows.Forms.TextBox()
-        Me.btnAceptar = New System.Windows.Forms.Button()
-        Me.btnEliminar = New System.Windows.Forms.Button()
-        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
-        CType(Me.InversionesDEVDataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.InversionesDEVDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.INV0BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.INV0BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'lblTitulo
-        '
-        Me.lblTitulo.AutoSize = True
-        Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.Location = New System.Drawing.Point(79, 9)
-        Me.lblTitulo.Name = "lblTitulo"
-        Me.lblTitulo.Size = New System.Drawing.Size(159, 24)
-        Me.lblTitulo.TabIndex = 81
-        Me.lblTitulo.Text = "Asociar Acciones"
-        '
-        'cboCodigo
-        '
-        Me.cboCodigo.DataSource = Me.InversionesDEVDataSet1
-        Me.cboCodigo.DisplayMember = "INV0.CodInv"
-        Me.cboCodigo.FormattingEnabled = True
-        Me.cboCodigo.Location = New System.Drawing.Point(88, 50)
-        Me.cboCodigo.Name = "cboCodigo"
-        Me.cboCodigo.Size = New System.Drawing.Size(130, 21)
-        Me.cboCodigo.TabIndex = 82
-        Me.cboCodigo.ValueMember = "INV0.CodInv"
-        '
-        'InversionesDEVDataSet1
-        '
-        Me.InversionesDEVDataSet1.DataSetName = "InversionesDEVDataSet1"
-        Me.InversionesDEVDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'InversionesDEVDataSet
-        '
-        Me.InversionesDEVDataSet.DataSetName = "InversionesDEVDataSet"
-        Me.InversionesDEVDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'INV0BindingSource
-        '
-        Me.INV0BindingSource.DataMember = "INV0"
-        Me.INV0BindingSource.DataSource = Me.InversionesDEVDataSet
-        '
-        'INV0TableAdapter
-        '
-        Me.INV0TableAdapter.ClearBeforeFill = True
-        '
-        'INV0BindingSource1
-        '
-        Me.INV0BindingSource1.DataMember = "INV0"
-        Me.INV0BindingSource1.DataSource = Me.InversionesDEVDataSet1
-        '
-        'INV0TableAdapter1
-        '
-        Me.INV0TableAdapter1.ClearBeforeFill = True
-        '
-        'txtCodigo
-        '
-        Me.txtCodigo.Location = New System.Drawing.Point(86, 89)
-        Me.txtCodigo.Name = "txtCodigo"
-        Me.txtCodigo.Size = New System.Drawing.Size(130, 20)
-        Me.txtCodigo.TabIndex = 83
-        '
-        'btnAceptar
-        '
-        Me.btnAceptar.Location = New System.Drawing.Point(33, 236)
-        Me.btnAceptar.Name = "btnAceptar"
-        Me.btnAceptar.Size = New System.Drawing.Size(82, 37)
-        Me.btnAceptar.TabIndex = 84
-        Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
-        '
-        'btnEliminar
-        '
-        Me.btnEliminar.Location = New System.Drawing.Point(189, 236)
-        Me.btnEliminar.Name = "btnEliminar"
-        Me.btnEliminar.Size = New System.Drawing.Size(77, 37)
-        Me.btnEliminar.TabIndex = 85
-        Me.btnEliminar.Text = "Eliminar"
-        Me.btnEliminar.UseVisualStyleBackColor = True
-        '
-        'RichTextBox1
-        '
-        Me.RichTextBox1.Location = New System.Drawing.Point(12, 115)
-        Me.RichTextBox1.Name = "RichTextBox1"
-        Me.RichTextBox1.Size = New System.Drawing.Size(314, 96)
-        Me.RichTextBox1.TabIndex = 86
-        Me.RichTextBox1.Text = ""
-        '
-        'frmAsociarAcciones
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(338, 305)
-        Me.Controls.Add(Me.RichTextBox1)
-        Me.Controls.Add(Me.btnEliminar)
-        Me.Controls.Add(Me.btnAceptar)
-        Me.Controls.Add(Me.txtCodigo)
-        Me.Controls.Add(Me.cboCodigo)
-        Me.Controls.Add(Me.lblTitulo)
-        Me.Name = "frmAsociarAcciones"
-        Me.Text = "frmAsociarAcciones"
-        CType(Me.InversionesDEVDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.InversionesDEVDataSet, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.INV0BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.INV0BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents lblTitulo As Label
-    Friend WithEvents cboCodigo As ComboBox
-    Friend WithEvents InversionesDEVDataSet As InversionesDEVDataSet
-    Friend WithEvents INV0BindingSource As BindingSource
-    Friend WithEvents INV0TableAdapter As InversionesDEVDataSetTableAdapters.INV0TableAdapter
-    Friend WithEvents InversionesDEVDataSet1 As InversionesDEVDataSet1
-    Friend WithEvents INV0BindingSource1 As BindingSource
-    Friend WithEvents INV0TableAdapter1 As InversionesDEVDataSet1TableAdapters.INV0TableAdapter
-    Friend WithEvents txtCodigo As TextBox
-    Friend WithEvents btnAceptar As Button
-    Friend WithEvents btnEliminar As Button
-    Friend WithEvents RichTextBox1 As RichTextBox
-End Class

FRM/frmAsociarAcciones.resx

@@ -1,138 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="InversionesDEVDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>504, 17</value>
-  </metadata>
-  <metadata name="InversionesDEVDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="INV0BindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>195, 17</value>
-  </metadata>
-  <metadata name="INV0TableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>352, 17</value>
-  </metadata>
-  <metadata name="INV0BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
-  </metadata>
-  <metadata name="INV0TableAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>181, 56</value>
-  </metadata>
-</root>

FRM/frmAsociarAcciones.vb

@@ -1,17 +0,0 @@
-Public Class frmAsociarAcciones
-    Private Sub frmAsociarAcciones_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'TODO: esta línea de código carga datos en la tabla 'InversionesDEVDataSet1.INV0' Puede moverla o quitarla según sea necesario.
-        Me.INV0TableAdapter1.Fill(Me.InversionesDEVDataSet1.INV0)
-        'TODO: esta línea de código carga datos en la tabla 'InversionesDEVDataSet.INV0' Puede moverla o quitarla según sea necesario.
-        Me.INV0TableAdapter.Fill(Me.InversionesDEVDataSet.INV0)
-
-    End Sub
-
-    Private Sub txtCodigo_TextChanged(sender As Object, e As EventArgs) Handles txtCodigo.TextChanged
-
-    End Sub
-
-    Private Sub cboCodigo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCodigo.SelectedIndexChanged
-        txtCodigo.Text = cboCodigo.SelectedValue
-    End Sub
-End Class

FRM/frmBonos.Designer.vb

@@ -1,1380 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmBonos
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBonos))
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.Label18 = New System.Windows.Forms.Label()
-        Me.Label19 = New System.Windows.Forms.Label()
-        Me.Label20 = New System.Windows.Forms.Label()
-        Me.Label21 = New System.Windows.Forms.Label()
-        Me.dtpUltimaFechaCuponCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpSiguienteFechaCuponCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaLiquidacionCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaVencimientoCompra = New System.Windows.Forms.DateTimePicker()
-        Me.txtValorNominalCompra = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeCuponCompra = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoComisionCompra = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioCompra = New System.Windows.Forms.TextBox()
-        Me.txtDiasAcumuladosCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioSucioCompra = New System.Windows.Forms.TextBox()
-        Me.txtInteresAcumuladoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeInteresAcumuladoCompra = New System.Windows.Forms.TextBox()
-        Me.txtValorTransadoCompra = New System.Windows.Forms.TextBox()
-        Me.txtMontoAPagar = New System.Windows.Forms.TextBox()
-        Me.txtCostoTransferenciaCompra = New System.Windows.Forms.TextBox()
-        Me.txtDiasAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.Label17 = New System.Windows.Forms.Label()
-        Me.lblBono = New System.Windows.Forms.Label()
-        Me.txtDiasAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtCostoTransferenciaVenta = New System.Windows.Forms.TextBox()
-        Me.txtMontoARecibir = New System.Windows.Forms.TextBox()
-        Me.txtValorTransadoVenta = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeInteresAcumuladoVenta = New System.Windows.Forms.TextBox()
-        Me.txtInteresAcumuladoVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioSucioVenta = New System.Windows.Forms.TextBox()
-        Me.txtDiasAcumuladosVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoComisionVenta = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeCuponVenta = New System.Windows.Forms.TextBox()
-        Me.txtValorNominalVenta = New System.Windows.Forms.TextBox()
-        Me.dtpFechaVencimientoVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaLiquidacionVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpSiguienteFechaCuponVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpUltimaFechaCuponVenta = New System.Windows.Forms.DateTimePicker()
-        Me.Label22 = New System.Windows.Forms.Label()
-        Me.Label23 = New System.Windows.Forms.Label()
-        Me.Label24 = New System.Windows.Forms.Label()
-        Me.Label25 = New System.Windows.Forms.Label()
-        Me.Label26 = New System.Windows.Forms.Label()
-        Me.label27 = New System.Windows.Forms.Label()
-        Me.lblIngresosPorIntereses_Op = New System.Windows.Forms.Label()
-        Me.lblCostosTotales_Op = New System.Windows.Forms.Label()
-        Me.lblGananciaPerdidaTotal_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoGananciaPerdida_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoIntereses_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoAntesISR_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoDespuesISR_Op = New System.Windows.Forms.Label()
-        Me.Label35 = New System.Windows.Forms.Label()
-        Me.txtValorNominal_Op = New System.Windows.Forms.TextBox()
-        Me.txtPlazo_Op = New System.Windows.Forms.TextBox()
-        Me.txtPrecioCompra_Op = New System.Windows.Forms.TextBox()
-        Me.txtPrecioVenta_Op = New System.Windows.Forms.TextBox()
-        Me.txtGananciaPerdidaCapital_Op = New System.Windows.Forms.TextBox()
-        Me.txtIngresosPorIntereses_Op = New System.Windows.Forms.TextBox()
-        Me.txtCostosTotales_Op = New System.Windows.Forms.TextBox()
-        Me.txtGananciaPerdidaTotal_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoGananciaPerdida_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoIntereses_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoAntesISR_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoDespuesISR_Op = New System.Windows.Forms.TextBox()
-        Me.btnAceptar = New System.Windows.Forms.Button()
-        Me.btnCancelar = New System.Windows.Forms.Button()
-        Me.cboAnioBaseC = New System.Windows.Forms.ComboBox()
-        Me.cboAnioBaseV = New System.Windows.Forms.ComboBox()
-        Me.cboPeriodosC = New System.Windows.Forms.ComboBox()
-        Me.cboPeriodosV = New System.Windows.Forms.ComboBox()
-        Me.Label29 = New System.Windows.Forms.Label()
-        Me.Label30 = New System.Windows.Forms.Label()
-        Me.TabControl1 = New System.Windows.Forms.TabControl()
-        Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.btnBolsaVenta = New System.Windows.Forms.TextBox()
-        Me.btnCasaVenta = New System.Windows.Forms.TextBox()
-        Me.btnBolsaCompra = New System.Windows.Forms.TextBox()
-        Me.btnCasaCompra = New System.Windows.Forms.TextBox()
-        Me.btnPorcentajeBolsaVenta = New System.Windows.Forms.TextBox()
-        Me.btnPorcentajeCasaVenta = New System.Windows.Forms.TextBox()
-        Me.btnPorcentajeBolsaCompra = New System.Windows.Forms.TextBox()
-        Me.btnPorcentajeCasaCompra = New System.Windows.Forms.TextBox()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.Label14 = New System.Windows.Forms.Label()
-        Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.btnAccionIngreso = New System.Windows.Forms.Button()
-        Me.dgvIngresos = New System.Windows.Forms.DataGridView()
-        Me.TabPage4 = New System.Windows.Forms.TabPage()
-        Me.pnlPie = New System.Windows.Forms.Panel()
-        Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.navModificar = New System.Windows.Forms.ToolStripButton()
-        Me.navNuevo = New System.Windows.Forms.ToolStripButton()
-        Me.navEliminar = New System.Windows.Forms.ToolStripButton()
-        Me.TabControl1.SuspendLayout()
-        Me.TabPage1.SuspendLayout()
-        Me.TabPage2.SuspendLayout()
-        CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.TabPage4.SuspendLayout()
-        Me.pnlPie.SuspendLayout()
-        CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.BindingNavigator1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(20, 73)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(88, 18)
-        Me.Label1.TabIndex = 0
-        Me.Label1.Text = "Valor Nominal"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(20, 95)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(142, 18)
-        Me.Label2.TabIndex = 1
-        Me.Label2.Text = "Ultima Fecha de Cupon"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(20, 117)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(159, 18)
-        Me.Label3.TabIndex = 2
-        Me.Label3.Text = "Siguiente Fecha de Cupon"
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(20, 139)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(131, 18)
-        Me.Label4.TabIndex = 3
-        Me.Label4.Text = "Fecha de Liquidacion"
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(20, 161)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(136, 18)
-        Me.Label5.TabIndex = 4
-        Me.Label5.Text = "Fecha de Vencimiento"
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(20, 250)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 18)
-        Me.Label6.TabIndex = 5
-        Me.Label6.Text = "Cupon %"
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(20, 294)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(182, 18)
-        Me.Label7.TabIndex = 6
-        Me.Label7.Text = "YTM Al Vencimiento Comision"
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
-        Me.Label8.Location = New System.Drawing.Point(20, 272)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(124, 18)
-        Me.Label8.TabIndex = 7
-        Me.Label8.Text = "YTM Al vencimiento"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(20, 382)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(134, 18)
-        Me.Label9.TabIndex = 8
-        Me.Label9.Text = "Precio al Vencimiento"
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label10.ForeColor = System.Drawing.SystemColors.ControlText
-        Me.Label10.Location = New System.Drawing.Point(20, 404)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(133, 18)
-        Me.Label10.TabIndex = 9
-        Me.Label10.Text = "Precio Compra/Venta"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(20, 183)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(74, 18)
-        Me.Label11.TabIndex = 10
-        Me.Label11.Text = "Base (Dias)"
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(20, 228)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(106, 18)
-        Me.Label12.TabIndex = 11
-        Me.Label12.Text = "Dias Acumulados"
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(20, 206)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(123, 18)
-        Me.Label13.TabIndex = 12
-        Me.Label13.Text = "Dias al Vencimiento"
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label16.Location = New System.Drawing.Point(20, 426)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(116, 18)
-        Me.Label16.TabIndex = 15
-        Me.Label16.Text = "Interes Acumulado"
-        '
-        'Label18
-        '
-        Me.Label18.AutoSize = True
-        Me.Label18.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label18.Location = New System.Drawing.Point(20, 448)
-        Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(91, 18)
-        Me.Label18.TabIndex = 17
-        Me.Label18.Text = "Precio Sucio %"
-        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label19.Location = New System.Drawing.Point(20, 470)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(95, 18)
-        Me.Label19.TabIndex = 18
-        Me.Label19.Text = "Valor Transado"
-        '
-        'Label20
-        '
-        Me.Label20.AutoSize = True
-        Me.Label20.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label20.Location = New System.Drawing.Point(20, 492)
-        Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(140, 18)
-        Me.Label20.TabIndex = 19
-        Me.Label20.Text = "Monto a Pagar/Recibir"
-        '
-        'Label21
-        '
-        Me.Label21.AutoSize = True
-        Me.Label21.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label21.Location = New System.Drawing.Point(20, 514)
-        Me.Label21.Name = "Label21"
-        Me.Label21.Size = New System.Drawing.Size(126, 18)
-        Me.Label21.TabIndex = 20
-        Me.Label21.Text = "Costo Transferencia"
-        '
-        'dtpUltimaFechaCuponCompra
-        '
-        Me.dtpUltimaFechaCuponCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpUltimaFechaCuponCompra.Location = New System.Drawing.Point(203, 94)
-        Me.dtpUltimaFechaCuponCompra.Name = "dtpUltimaFechaCuponCompra"
-        Me.dtpUltimaFechaCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpUltimaFechaCuponCompra.TabIndex = 3
-        '
-        'dtpSiguienteFechaCuponCompra
-        '
-        Me.dtpSiguienteFechaCuponCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpSiguienteFechaCuponCompra.Location = New System.Drawing.Point(203, 116)
-        Me.dtpSiguienteFechaCuponCompra.Name = "dtpSiguienteFechaCuponCompra"
-        Me.dtpSiguienteFechaCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpSiguienteFechaCuponCompra.TabIndex = 4
-        '
-        'dtpFechaLiquidacionCompra
-        '
-        Me.dtpFechaLiquidacionCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaLiquidacionCompra.Location = New System.Drawing.Point(203, 138)
-        Me.dtpFechaLiquidacionCompra.Name = "dtpFechaLiquidacionCompra"
-        Me.dtpFechaLiquidacionCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaLiquidacionCompra.TabIndex = 5
-        '
-        'dtpFechaVencimientoCompra
-        '
-        Me.dtpFechaVencimientoCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaVencimientoCompra.Location = New System.Drawing.Point(203, 160)
-        Me.dtpFechaVencimientoCompra.Name = "dtpFechaVencimientoCompra"
-        Me.dtpFechaVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaVencimientoCompra.TabIndex = 6
-        '
-        'txtValorNominalCompra
-        '
-        Me.txtValorNominalCompra.Location = New System.Drawing.Point(203, 72)
-        Me.txtValorNominalCompra.Name = "txtValorNominalCompra"
-        Me.txtValorNominalCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominalCompra.TabIndex = 2
-        '
-        'txtPorcentajeCuponCompra
-        '
-        Me.txtPorcentajeCuponCompra.Location = New System.Drawing.Point(203, 249)
-        Me.txtPorcentajeCuponCompra.Name = "txtPorcentajeCuponCompra"
-        Me.txtPorcentajeCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPorcentajeCuponCompra.TabIndex = 8
-        '
-        'txtYTMAlVencimientoComisionCompra
-        '
-        Me.txtYTMAlVencimientoComisionCompra.Location = New System.Drawing.Point(203, 293)
-        Me.txtYTMAlVencimientoComisionCompra.Name = "txtYTMAlVencimientoComisionCompra"
-        Me.txtYTMAlVencimientoComisionCompra.ReadOnly = True
-        Me.txtYTMAlVencimientoComisionCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoComisionCompra.TabIndex = 10
-        '
-        'txtYTMAlVencimientoCompra
-        '
-        Me.txtYTMAlVencimientoCompra.Location = New System.Drawing.Point(203, 271)
-        Me.txtYTMAlVencimientoCompra.Name = "txtYTMAlVencimientoCompra"
-        Me.txtYTMAlVencimientoCompra.ReadOnly = True
-        Me.txtYTMAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoCompra.TabIndex = 9
-        '
-        'txtPrecioAlVencimientoCompra
-        '
-        Me.txtPrecioAlVencimientoCompra.Location = New System.Drawing.Point(203, 381)
-        Me.txtPrecioAlVencimientoCompra.Name = "txtPrecioAlVencimientoCompra"
-        Me.txtPrecioAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioAlVencimientoCompra.TabIndex = 11
-        '
-        'txtPrecioCompra
-        '
-        Me.txtPrecioCompra.Location = New System.Drawing.Point(203, 403)
-        Me.txtPrecioCompra.Name = "txtPrecioCompra"
-        Me.txtPrecioCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioCompra.TabIndex = 12
-        '
-        'txtDiasAcumuladosCompra
-        '
-        Me.txtDiasAcumuladosCompra.Location = New System.Drawing.Point(203, 227)
-        Me.txtDiasAcumuladosCompra.Name = "txtDiasAcumuladosCompra"
-        Me.txtDiasAcumuladosCompra.ReadOnly = True
-        Me.txtDiasAcumuladosCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAcumuladosCompra.TabIndex = 0
-        '
-        'txtPrecioSucioCompra
-        '
-        Me.txtPrecioSucioCompra.Location = New System.Drawing.Point(203, 447)
-        Me.txtPrecioSucioCompra.Name = "txtPrecioSucioCompra"
-        Me.txtPrecioSucioCompra.ReadOnly = True
-        Me.txtPrecioSucioCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioSucioCompra.TabIndex = 0
-        '
-        'txtInteresAcumuladoCompra
-        '
-        Me.txtInteresAcumuladoCompra.Location = New System.Drawing.Point(203, 425)
-        Me.txtInteresAcumuladoCompra.Name = "txtInteresAcumuladoCompra"
-        Me.txtInteresAcumuladoCompra.ReadOnly = True
-        Me.txtInteresAcumuladoCompra.Size = New System.Drawing.Size(108, 20)
-        Me.txtInteresAcumuladoCompra.TabIndex = 0
-        '
-        'txtPorcentajeInteresAcumuladoCompra
-        '
-        Me.txtPorcentajeInteresAcumuladoCompra.Location = New System.Drawing.Point(313, 425)
-        Me.txtPorcentajeInteresAcumuladoCompra.Name = "txtPorcentajeInteresAcumuladoCompra"
-        Me.txtPorcentajeInteresAcumuladoCompra.ReadOnly = True
-        Me.txtPorcentajeInteresAcumuladoCompra.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeInteresAcumuladoCompra.TabIndex = 0
-        '
-        'txtValorTransadoCompra
-        '
-        Me.txtValorTransadoCompra.Location = New System.Drawing.Point(203, 469)
-        Me.txtValorTransadoCompra.Name = "txtValorTransadoCompra"
-        Me.txtValorTransadoCompra.ReadOnly = True
-        Me.txtValorTransadoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorTransadoCompra.TabIndex = 0
-        '
-        'txtMontoAPagar
-        '
-        Me.txtMontoAPagar.Location = New System.Drawing.Point(203, 491)
-        Me.txtMontoAPagar.Name = "txtMontoAPagar"
-        Me.txtMontoAPagar.ReadOnly = True
-        Me.txtMontoAPagar.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoAPagar.TabIndex = 0
-        '
-        'txtCostoTransferenciaCompra
-        '
-        Me.txtCostoTransferenciaCompra.Location = New System.Drawing.Point(203, 513)
-        Me.txtCostoTransferenciaCompra.Name = "txtCostoTransferenciaCompra"
-        Me.txtCostoTransferenciaCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostoTransferenciaCompra.TabIndex = 16
-        '
-        'txtDiasAlVencimientoCompra
-        '
-        Me.txtDiasAlVencimientoCompra.Location = New System.Drawing.Point(203, 205)
-        Me.txtDiasAlVencimientoCompra.Name = "txtDiasAlVencimientoCompra"
-        Me.txtDiasAlVencimientoCompra.ReadOnly = True
-        Me.txtDiasAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAlVencimientoCompra.TabIndex = 0
-        '
-        'Label17
-        '
-        Me.Label17.AutoSize = True
-        Me.Label17.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label17.Location = New System.Drawing.Point(256, 15)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(55, 18)
-        Me.Label17.TabIndex = 55
-        Me.Label17.Text = "Compra"
-        '
-        'lblBono
-        '
-        Me.lblBono.AutoSize = True
-        Me.lblBono.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBono.Location = New System.Drawing.Point(13, 33)
-        Me.lblBono.Name = "lblBono"
-        Me.lblBono.Size = New System.Drawing.Size(167, 24)
-        Me.lblBono.TabIndex = 56
-        Me.lblBono.Text = "Bono Corporativo"
-        '
-        'txtDiasAlVencimientoVenta
-        '
-        Me.txtDiasAlVencimientoVenta.Location = New System.Drawing.Point(359, 205)
-        Me.txtDiasAlVencimientoVenta.Name = "txtDiasAlVencimientoVenta"
-        Me.txtDiasAlVencimientoVenta.ReadOnly = True
-        Me.txtDiasAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAlVencimientoVenta.TabIndex = 77
-        '
-        'txtCostoTransferenciaVenta
-        '
-        Me.txtCostoTransferenciaVenta.Location = New System.Drawing.Point(359, 513)
-        Me.txtCostoTransferenciaVenta.Name = "txtCostoTransferenciaVenta"
-        Me.txtCostoTransferenciaVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostoTransferenciaVenta.TabIndex = 32
-        '
-        'txtMontoARecibir
-        '
-        Me.txtMontoARecibir.Location = New System.Drawing.Point(359, 491)
-        Me.txtMontoARecibir.Name = "txtMontoARecibir"
-        Me.txtMontoARecibir.ReadOnly = True
-        Me.txtMontoARecibir.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoARecibir.TabIndex = 0
-        '
-        'txtValorTransadoVenta
-        '
-        Me.txtValorTransadoVenta.Location = New System.Drawing.Point(359, 469)
-        Me.txtValorTransadoVenta.Name = "txtValorTransadoVenta"
-        Me.txtValorTransadoVenta.ReadOnly = True
-        Me.txtValorTransadoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorTransadoVenta.TabIndex = 0
-        '
-        'txtPorcentajeInteresAcumuladoVenta
-        '
-        Me.txtPorcentajeInteresAcumuladoVenta.Location = New System.Drawing.Point(469, 425)
-        Me.txtPorcentajeInteresAcumuladoVenta.Name = "txtPorcentajeInteresAcumuladoVenta"
-        Me.txtPorcentajeInteresAcumuladoVenta.ReadOnly = True
-        Me.txtPorcentajeInteresAcumuladoVenta.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeInteresAcumuladoVenta.TabIndex = 0
-        '
-        'txtInteresAcumuladoVenta
-        '
-        Me.txtInteresAcumuladoVenta.Location = New System.Drawing.Point(359, 425)
-        Me.txtInteresAcumuladoVenta.Name = "txtInteresAcumuladoVenta"
-        Me.txtInteresAcumuladoVenta.ReadOnly = True
-        Me.txtInteresAcumuladoVenta.Size = New System.Drawing.Size(108, 20)
-        Me.txtInteresAcumuladoVenta.TabIndex = 0
-        '
-        'txtPrecioSucioVenta
-        '
-        Me.txtPrecioSucioVenta.Location = New System.Drawing.Point(359, 447)
-        Me.txtPrecioSucioVenta.Name = "txtPrecioSucioVenta"
-        Me.txtPrecioSucioVenta.ReadOnly = True
-        Me.txtPrecioSucioVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioSucioVenta.TabIndex = 0
-        '
-        'txtDiasAcumuladosVenta
-        '
-        Me.txtDiasAcumuladosVenta.Location = New System.Drawing.Point(359, 227)
-        Me.txtDiasAcumuladosVenta.Name = "txtDiasAcumuladosVenta"
-        Me.txtDiasAcumuladosVenta.ReadOnly = True
-        Me.txtDiasAcumuladosVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAcumuladosVenta.TabIndex = 68
-        '
-        'txtPrecioVenta
-        '
-        Me.txtPrecioVenta.Location = New System.Drawing.Point(359, 403)
-        Me.txtPrecioVenta.Name = "txtPrecioVenta"
-        Me.txtPrecioVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioVenta.TabIndex = 28
-        '
-        'txtPrecioAlVencimientoVenta
-        '
-        Me.txtPrecioAlVencimientoVenta.Location = New System.Drawing.Point(359, 381)
-        Me.txtPrecioAlVencimientoVenta.Name = "txtPrecioAlVencimientoVenta"
-        Me.txtPrecioAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioAlVencimientoVenta.TabIndex = 27
-        '
-        'txtYTMAlVencimientoVenta
-        '
-        Me.txtYTMAlVencimientoVenta.Location = New System.Drawing.Point(359, 271)
-        Me.txtYTMAlVencimientoVenta.Name = "txtYTMAlVencimientoVenta"
-        Me.txtYTMAlVencimientoVenta.ReadOnly = True
-        Me.txtYTMAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoVenta.TabIndex = 25
-        '
-        'txtYTMAlVencimientoComisionVenta
-        '
-        Me.txtYTMAlVencimientoComisionVenta.Location = New System.Drawing.Point(359, 293)
-        Me.txtYTMAlVencimientoComisionVenta.Name = "txtYTMAlVencimientoComisionVenta"
-        Me.txtYTMAlVencimientoComisionVenta.ReadOnly = True
-        Me.txtYTMAlVencimientoComisionVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoComisionVenta.TabIndex = 26
-        '
-        'txtPorcentajeCuponVenta
-        '
-        Me.txtPorcentajeCuponVenta.Location = New System.Drawing.Point(359, 249)
-        Me.txtPorcentajeCuponVenta.Name = "txtPorcentajeCuponVenta"
-        Me.txtPorcentajeCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPorcentajeCuponVenta.TabIndex = 24
-        '
-        'txtValorNominalVenta
-        '
-        Me.txtValorNominalVenta.Location = New System.Drawing.Point(359, 72)
-        Me.txtValorNominalVenta.Name = "txtValorNominalVenta"
-        Me.txtValorNominalVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominalVenta.TabIndex = 18
-        '
-        'dtpFechaVencimientoVenta
-        '
-        Me.dtpFechaVencimientoVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaVencimientoVenta.Location = New System.Drawing.Point(359, 160)
-        Me.dtpFechaVencimientoVenta.Name = "dtpFechaVencimientoVenta"
-        Me.dtpFechaVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaVencimientoVenta.TabIndex = 22
-        '
-        'dtpFechaLiquidacionVenta
-        '
-        Me.dtpFechaLiquidacionVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaLiquidacionVenta.Location = New System.Drawing.Point(359, 138)
-        Me.dtpFechaLiquidacionVenta.Name = "dtpFechaLiquidacionVenta"
-        Me.dtpFechaLiquidacionVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaLiquidacionVenta.TabIndex = 21
-        '
-        'dtpSiguienteFechaCuponVenta
-        '
-        Me.dtpSiguienteFechaCuponVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpSiguienteFechaCuponVenta.Location = New System.Drawing.Point(359, 116)
-        Me.dtpSiguienteFechaCuponVenta.Name = "dtpSiguienteFechaCuponVenta"
-        Me.dtpSiguienteFechaCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpSiguienteFechaCuponVenta.TabIndex = 20
-        '
-        'dtpUltimaFechaCuponVenta
-        '
-        Me.dtpUltimaFechaCuponVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpUltimaFechaCuponVenta.Location = New System.Drawing.Point(359, 94)
-        Me.dtpUltimaFechaCuponVenta.Name = "dtpUltimaFechaCuponVenta"
-        Me.dtpUltimaFechaCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpUltimaFechaCuponVenta.TabIndex = 19
-        '
-        'Label22
-        '
-        Me.Label22.AutoSize = True
-        Me.Label22.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label22.Location = New System.Drawing.Point(366, 15)
-        Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(43, 18)
-        Me.Label22.TabIndex = 80
-        Me.Label22.Text = "Venta"
-        '
-        'Label23
-        '
-        Me.Label23.AutoSize = True
-        Me.Label23.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label23.Location = New System.Drawing.Point(20, 55)
-        Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(88, 18)
-        Me.Label23.TabIndex = 81
-        Me.Label23.Text = "Valor Nominal"
-        '
-        'Label24
-        '
-        Me.Label24.AutoSize = True
-        Me.Label24.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label24.Location = New System.Drawing.Point(20, 77)
-        Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(38, 18)
-        Me.Label24.TabIndex = 82
-        Me.Label24.Text = "Plazo"
-        '
-        'Label25
-        '
-        Me.Label25.AutoSize = True
-        Me.Label25.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label25.Location = New System.Drawing.Point(20, 99)
-        Me.Label25.Name = "Label25"
-        Me.Label25.Size = New System.Drawing.Size(93, 18)
-        Me.Label25.TabIndex = 83
-        Me.Label25.Text = "Precio Compra"
-        '
-        'Label26
-        '
-        Me.Label26.AutoSize = True
-        Me.Label26.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label26.Location = New System.Drawing.Point(20, 121)
-        Me.Label26.Name = "Label26"
-        Me.Label26.Size = New System.Drawing.Size(81, 18)
-        Me.Label26.TabIndex = 84
-        Me.Label26.Text = "Precio Venta"
-        '
-        'label27
-        '
-        Me.label27.AutoSize = True
-        Me.label27.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.label27.Location = New System.Drawing.Point(20, 143)
-        Me.label27.Name = "label27"
-        Me.label27.Size = New System.Drawing.Size(176, 18)
-        Me.label27.TabIndex = 85
-        Me.label27.Text = "Ganancia/Perdida de Capital"
-        '
-        'lblIngresosPorIntereses_Op
-        '
-        Me.lblIngresosPorIntereses_Op.AutoSize = True
-        Me.lblIngresosPorIntereses_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblIngresosPorIntereses_Op.Location = New System.Drawing.Point(20, 165)
-        Me.lblIngresosPorIntereses_Op.Name = "lblIngresosPorIntereses_Op"
-        Me.lblIngresosPorIntereses_Op.Size = New System.Drawing.Size(132, 18)
-        Me.lblIngresosPorIntereses_Op.TabIndex = 86
-        Me.lblIngresosPorIntereses_Op.Text = "Ingreso por Intereses"
-        '
-        'lblCostosTotales_Op
-        '
-        Me.lblCostosTotales_Op.AutoSize = True
-        Me.lblCostosTotales_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblCostosTotales_Op.Location = New System.Drawing.Point(20, 187)
-        Me.lblCostosTotales_Op.Name = "lblCostosTotales_Op"
-        Me.lblCostosTotales_Op.Size = New System.Drawing.Size(94, 18)
-        Me.lblCostosTotales_Op.TabIndex = 87
-        Me.lblCostosTotales_Op.Text = "Costos Totales"
-        '
-        'lblGananciaPerdidaTotal_Op
-        '
-        Me.lblGananciaPerdidaTotal_Op.AutoSize = True
-        Me.lblGananciaPerdidaTotal_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblGananciaPerdidaTotal_Op.Location = New System.Drawing.Point(20, 209)
-        Me.lblGananciaPerdidaTotal_Op.Name = "lblGananciaPerdidaTotal_Op"
-        Me.lblGananciaPerdidaTotal_Op.Size = New System.Drawing.Size(147, 18)
-        Me.lblGananciaPerdidaTotal_Op.TabIndex = 88
-        Me.lblGananciaPerdidaTotal_Op.Text = "Ganancia/Perdida Total"
-        '
-        'lblRendimientoGananciaPerdida_Op
-        '
-        Me.lblRendimientoGananciaPerdida_Op.AutoSize = True
-        Me.lblRendimientoGananciaPerdida_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoGananciaPerdida_Op.Location = New System.Drawing.Point(20, 231)
-        Me.lblRendimientoGananciaPerdida_Op.Name = "lblRendimientoGananciaPerdida_Op"
-        Me.lblRendimientoGananciaPerdida_Op.Size = New System.Drawing.Size(191, 18)
-        Me.lblRendimientoGananciaPerdida_Op.TabIndex = 89
-        Me.lblRendimientoGananciaPerdida_Op.Text = "Rendimiento Ganancia/Perdida"
-        '
-        'lblRendimientoIntereses_Op
-        '
-        Me.lblRendimientoIntereses_Op.AutoSize = True
-        Me.lblRendimientoIntereses_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoIntereses_Op.Location = New System.Drawing.Point(20, 253)
-        Me.lblRendimientoIntereses_Op.Name = "lblRendimientoIntereses_Op"
-        Me.lblRendimientoIntereses_Op.Size = New System.Drawing.Size(140, 18)
-        Me.lblRendimientoIntereses_Op.TabIndex = 90
-        Me.lblRendimientoIntereses_Op.Text = "Rendimiento Intereses"
-        '
-        'lblRendimientoAntesISR_Op
-        '
-        Me.lblRendimientoAntesISR_Op.AutoSize = True
-        Me.lblRendimientoAntesISR_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoAntesISR_Op.Location = New System.Drawing.Point(20, 275)
-        Me.lblRendimientoAntesISR_Op.Name = "lblRendimientoAntesISR_Op"
-        Me.lblRendimientoAntesISR_Op.Size = New System.Drawing.Size(141, 18)
-        Me.lblRendimientoAntesISR_Op.TabIndex = 91
-        Me.lblRendimientoAntesISR_Op.Text = "Rendimiento antes ISR"
-        '
-        'lblRendimientoDespuesISR_Op
-        '
-        Me.lblRendimientoDespuesISR_Op.AutoSize = True
-        Me.lblRendimientoDespuesISR_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoDespuesISR_Op.Location = New System.Drawing.Point(20, 297)
-        Me.lblRendimientoDespuesISR_Op.Name = "lblRendimientoDespuesISR_Op"
-        Me.lblRendimientoDespuesISR_Op.Size = New System.Drawing.Size(156, 18)
-        Me.lblRendimientoDespuesISR_Op.TabIndex = 92
-        Me.lblRendimientoDespuesISR_Op.Text = "Rendimiento despues ISR"
-        '
-        'Label35
-        '
-        Me.Label35.AutoSize = True
-        Me.Label35.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label35.Location = New System.Drawing.Point(122, 20)
-        Me.Label35.Name = "Label35"
-        Me.Label35.Size = New System.Drawing.Size(169, 18)
-        Me.Label35.TabIndex = 93
-        Me.Label35.Text = "Resultado de la Operacion"
-        '
-        'txtValorNominal_Op
-        '
-        Me.txtValorNominal_Op.Location = New System.Drawing.Point(219, 54)
-        Me.txtValorNominal_Op.Name = "txtValorNominal_Op"
-        Me.txtValorNominal_Op.ReadOnly = True
-        Me.txtValorNominal_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominal_Op.TabIndex = 0
-        '
-        'txtPlazo_Op
-        '
-        Me.txtPlazo_Op.Location = New System.Drawing.Point(219, 76)
-        Me.txtPlazo_Op.Name = "txtPlazo_Op"
-        Me.txtPlazo_Op.ReadOnly = True
-        Me.txtPlazo_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPlazo_Op.TabIndex = 0
-        '
-        'txtPrecioCompra_Op
-        '
-        Me.txtPrecioCompra_Op.Location = New System.Drawing.Point(219, 98)
-        Me.txtPrecioCompra_Op.Name = "txtPrecioCompra_Op"
-        Me.txtPrecioCompra_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioCompra_Op.TabIndex = 0
-        '
-        'txtPrecioVenta_Op
-        '
-        Me.txtPrecioVenta_Op.Location = New System.Drawing.Point(219, 120)
-        Me.txtPrecioVenta_Op.Name = "txtPrecioVenta_Op"
-        Me.txtPrecioVenta_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioVenta_Op.TabIndex = 0
-        '
-        'txtGananciaPerdidaCapital_Op
-        '
-        Me.txtGananciaPerdidaCapital_Op.Location = New System.Drawing.Point(219, 142)
-        Me.txtGananciaPerdidaCapital_Op.Name = "txtGananciaPerdidaCapital_Op"
-        Me.txtGananciaPerdidaCapital_Op.ReadOnly = True
-        Me.txtGananciaPerdidaCapital_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtGananciaPerdidaCapital_Op.TabIndex = 0
-        '
-        'txtIngresosPorIntereses_Op
-        '
-        Me.txtIngresosPorIntereses_Op.Location = New System.Drawing.Point(219, 164)
-        Me.txtIngresosPorIntereses_Op.Name = "txtIngresosPorIntereses_Op"
-        Me.txtIngresosPorIntereses_Op.ReadOnly = True
-        Me.txtIngresosPorIntereses_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtIngresosPorIntereses_Op.TabIndex = 0
-        '
-        'txtCostosTotales_Op
-        '
-        Me.txtCostosTotales_Op.Location = New System.Drawing.Point(219, 186)
-        Me.txtCostosTotales_Op.Name = "txtCostosTotales_Op"
-        Me.txtCostosTotales_Op.ReadOnly = True
-        Me.txtCostosTotales_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostosTotales_Op.TabIndex = 0
-        '
-        'txtGananciaPerdidaTotal_Op
-        '
-        Me.txtGananciaPerdidaTotal_Op.Location = New System.Drawing.Point(219, 208)
-        Me.txtGananciaPerdidaTotal_Op.Name = "txtGananciaPerdidaTotal_Op"
-        Me.txtGananciaPerdidaTotal_Op.ReadOnly = True
-        Me.txtGananciaPerdidaTotal_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtGananciaPerdidaTotal_Op.TabIndex = 0
-        '
-        'txtRendimientoGananciaPerdida_Op
-        '
-        Me.txtRendimientoGananciaPerdida_Op.Location = New System.Drawing.Point(219, 230)
-        Me.txtRendimientoGananciaPerdida_Op.Name = "txtRendimientoGananciaPerdida_Op"
-        Me.txtRendimientoGananciaPerdida_Op.ReadOnly = True
-        Me.txtRendimientoGananciaPerdida_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoGananciaPerdida_Op.TabIndex = 0
-        '
-        'txtRendimientoIntereses_Op
-        '
-        Me.txtRendimientoIntereses_Op.Location = New System.Drawing.Point(219, 252)
-        Me.txtRendimientoIntereses_Op.Name = "txtRendimientoIntereses_Op"
-        Me.txtRendimientoIntereses_Op.ReadOnly = True
-        Me.txtRendimientoIntereses_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoIntereses_Op.TabIndex = 0
-        '
-        'txtRendimientoAntesISR_Op
-        '
-        Me.txtRendimientoAntesISR_Op.Location = New System.Drawing.Point(219, 274)
-        Me.txtRendimientoAntesISR_Op.Name = "txtRendimientoAntesISR_Op"
-        Me.txtRendimientoAntesISR_Op.ReadOnly = True
-        Me.txtRendimientoAntesISR_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoAntesISR_Op.TabIndex = 0
-        '
-        'txtRendimientoDespuesISR_Op
-        '
-        Me.txtRendimientoDespuesISR_Op.Location = New System.Drawing.Point(219, 296)
-        Me.txtRendimientoDespuesISR_Op.Name = "txtRendimientoDespuesISR_Op"
-        Me.txtRendimientoDespuesISR_Op.ReadOnly = True
-        Me.txtRendimientoDespuesISR_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoDespuesISR_Op.TabIndex = 0
-        '
-        'btnAceptar
-        '
-        Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnAceptar.Location = New System.Drawing.Point(10, 3)
-        Me.btnAceptar.Name = "btnAceptar"
-        Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
-        Me.btnAceptar.TabIndex = 106
-        Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
-        '
-        'btnCancelar
-        '
-        Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancelar.Location = New System.Drawing.Point(91, 3)
-        Me.btnCancelar.Name = "btnCancelar"
-        Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
-        Me.btnCancelar.TabIndex = 107
-        Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
-        '
-        'cboAnioBaseC
-        '
-        Me.cboAnioBaseC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboAnioBaseC.FormattingEnabled = True
-        Me.cboAnioBaseC.Items.AddRange(New Object() {"360", "365"})
-        Me.cboAnioBaseC.Location = New System.Drawing.Point(203, 182)
-        Me.cboAnioBaseC.Name = "cboAnioBaseC"
-        Me.cboAnioBaseC.Size = New System.Drawing.Size(150, 21)
-        Me.cboAnioBaseC.TabIndex = 7
-        '
-        'cboAnioBaseV
-        '
-        Me.cboAnioBaseV.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboAnioBaseV.FormattingEnabled = True
-        Me.cboAnioBaseV.Items.AddRange(New Object() {"360", "365"})
-        Me.cboAnioBaseV.Location = New System.Drawing.Point(359, 182)
-        Me.cboAnioBaseV.Name = "cboAnioBaseV"
-        Me.cboAnioBaseV.Size = New System.Drawing.Size(150, 21)
-        Me.cboAnioBaseV.TabIndex = 23
-        '
-        'cboPeriodosC
-        '
-        Me.cboPeriodosC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPeriodosC.FormattingEnabled = True
-        Me.cboPeriodosC.Location = New System.Drawing.Point(203, 49)
-        Me.cboPeriodosC.Name = "cboPeriodosC"
-        Me.cboPeriodosC.Size = New System.Drawing.Size(150, 21)
-        Me.cboPeriodosC.TabIndex = 1
-        '
-        'cboPeriodosV
-        '
-        Me.cboPeriodosV.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPeriodosV.FormattingEnabled = True
-        Me.cboPeriodosV.Location = New System.Drawing.Point(359, 49)
-        Me.cboPeriodosV.Name = "cboPeriodosV"
-        Me.cboPeriodosV.Size = New System.Drawing.Size(150, 21)
-        Me.cboPeriodosV.TabIndex = 17
-        '
-        'Label29
-        '
-        Me.Label29.AutoSize = True
-        Me.Label29.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label29.Location = New System.Drawing.Point(20, 50)
-        Me.Label29.Name = "Label29"
-        Me.Label29.Size = New System.Drawing.Size(80, 18)
-        Me.Label29.TabIndex = 115
-        Me.Label29.Text = "Periodicidad"
-        '
-        'Label30
-        '
-        Me.Label30.AutoSize = True
-        Me.Label30.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label30.Location = New System.Drawing.Point(536, 373)
-        Me.Label30.Name = "Label30"
-        Me.Label30.Size = New System.Drawing.Size(59, 18)
-        Me.Label30.TabIndex = 118
-        Me.Label30.Text = "Ingresos"
-        '
-        'TabControl1
-        '
-        Me.TabControl1.Controls.Add(Me.TabPage1)
-        Me.TabControl1.Controls.Add(Me.TabPage2)
-        Me.TabControl1.Controls.Add(Me.TabPage4)
-        Me.TabControl1.Location = New System.Drawing.Point(17, 72)
-        Me.TabControl1.Name = "TabControl1"
-        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(696, 589)
-        Me.TabControl1.TabIndex = 121
-        '
-        'TabPage1
-        '
-        Me.TabPage1.Controls.Add(Me.btnBolsaVenta)
-        Me.TabPage1.Controls.Add(Me.btnCasaVenta)
-        Me.TabPage1.Controls.Add(Me.btnBolsaCompra)
-        Me.TabPage1.Controls.Add(Me.btnCasaCompra)
-        Me.TabPage1.Controls.Add(Me.btnPorcentajeBolsaVenta)
-        Me.TabPage1.Controls.Add(Me.btnPorcentajeCasaVenta)
-        Me.TabPage1.Controls.Add(Me.btnPorcentajeBolsaCompra)
-        Me.TabPage1.Controls.Add(Me.btnPorcentajeCasaCompra)
-        Me.TabPage1.Controls.Add(Me.Label15)
-        Me.TabPage1.Controls.Add(Me.Label14)
-        Me.TabPage1.Controls.Add(Me.Label17)
-        Me.TabPage1.Controls.Add(Me.Label1)
-        Me.TabPage1.Controls.Add(Me.Label2)
-        Me.TabPage1.Controls.Add(Me.Label3)
-        Me.TabPage1.Controls.Add(Me.Label4)
-        Me.TabPage1.Controls.Add(Me.Label5)
-        Me.TabPage1.Controls.Add(Me.Label29)
-        Me.TabPage1.Controls.Add(Me.Label6)
-        Me.TabPage1.Controls.Add(Me.cboPeriodosV)
-        Me.TabPage1.Controls.Add(Me.Label7)
-        Me.TabPage1.Controls.Add(Me.cboPeriodosC)
-        Me.TabPage1.Controls.Add(Me.Label8)
-        Me.TabPage1.Controls.Add(Me.cboAnioBaseV)
-        Me.TabPage1.Controls.Add(Me.Label9)
-        Me.TabPage1.Controls.Add(Me.cboAnioBaseC)
-        Me.TabPage1.Controls.Add(Me.Label10)
-        Me.TabPage1.Controls.Add(Me.Label11)
-        Me.TabPage1.Controls.Add(Me.Label12)
-        Me.TabPage1.Controls.Add(Me.Label13)
-        Me.TabPage1.Controls.Add(Me.Label16)
-        Me.TabPage1.Controls.Add(Me.Label18)
-        Me.TabPage1.Controls.Add(Me.Label19)
-        Me.TabPage1.Controls.Add(Me.Label20)
-        Me.TabPage1.Controls.Add(Me.Label21)
-        Me.TabPage1.Controls.Add(Me.dtpUltimaFechaCuponCompra)
-        Me.TabPage1.Controls.Add(Me.dtpSiguienteFechaCuponCompra)
-        Me.TabPage1.Controls.Add(Me.dtpFechaLiquidacionCompra)
-        Me.TabPage1.Controls.Add(Me.dtpFechaVencimientoCompra)
-        Me.TabPage1.Controls.Add(Me.txtValorNominalCompra)
-        Me.TabPage1.Controls.Add(Me.txtPorcentajeCuponCompra)
-        Me.TabPage1.Controls.Add(Me.txtYTMAlVencimientoComisionCompra)
-        Me.TabPage1.Controls.Add(Me.txtYTMAlVencimientoCompra)
-        Me.TabPage1.Controls.Add(Me.txtPrecioAlVencimientoCompra)
-        Me.TabPage1.Controls.Add(Me.txtPrecioCompra)
-        Me.TabPage1.Controls.Add(Me.txtDiasAcumuladosCompra)
-        Me.TabPage1.Controls.Add(Me.txtPrecioSucioCompra)
-        Me.TabPage1.Controls.Add(Me.txtInteresAcumuladoCompra)
-        Me.TabPage1.Controls.Add(Me.txtPorcentajeInteresAcumuladoCompra)
-        Me.TabPage1.Controls.Add(Me.txtValorTransadoCompra)
-        Me.TabPage1.Controls.Add(Me.txtMontoAPagar)
-        Me.TabPage1.Controls.Add(Me.txtCostoTransferenciaCompra)
-        Me.TabPage1.Controls.Add(Me.txtDiasAlVencimientoCompra)
-        Me.TabPage1.Controls.Add(Me.Label22)
-        Me.TabPage1.Controls.Add(Me.dtpUltimaFechaCuponVenta)
-        Me.TabPage1.Controls.Add(Me.txtDiasAlVencimientoVenta)
-        Me.TabPage1.Controls.Add(Me.dtpSiguienteFechaCuponVenta)
-        Me.TabPage1.Controls.Add(Me.txtCostoTransferenciaVenta)
-        Me.TabPage1.Controls.Add(Me.dtpFechaLiquidacionVenta)
-        Me.TabPage1.Controls.Add(Me.txtMontoARecibir)
-        Me.TabPage1.Controls.Add(Me.dtpFechaVencimientoVenta)
-        Me.TabPage1.Controls.Add(Me.txtValorTransadoVenta)
-        Me.TabPage1.Controls.Add(Me.txtValorNominalVenta)
-        Me.TabPage1.Controls.Add(Me.txtPorcentajeInteresAcumuladoVenta)
-        Me.TabPage1.Controls.Add(Me.txtPorcentajeCuponVenta)
-        Me.TabPage1.Controls.Add(Me.txtInteresAcumuladoVenta)
-        Me.TabPage1.Controls.Add(Me.txtYTMAlVencimientoComisionVenta)
-        Me.TabPage1.Controls.Add(Me.txtPrecioSucioVenta)
-        Me.TabPage1.Controls.Add(Me.txtYTMAlVencimientoVenta)
-        Me.TabPage1.Controls.Add(Me.txtPrecioAlVencimientoVenta)
-        Me.TabPage1.Controls.Add(Me.txtPrecioVenta)
-        Me.TabPage1.Controls.Add(Me.txtDiasAcumuladosVenta)
-        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(688, 563)
-        Me.TabPage1.TabIndex = 0
-        Me.TabPage1.Text = "Operación"
-        Me.TabPage1.UseVisualStyleBackColor = True
-        '
-        'btnBolsaVenta
-        '
-        Me.btnBolsaVenta.Location = New System.Drawing.Point(402, 355)
-        Me.btnBolsaVenta.Name = "btnBolsaVenta"
-        Me.btnBolsaVenta.ReadOnly = True
-        Me.btnBolsaVenta.Size = New System.Drawing.Size(104, 20)
-        Me.btnBolsaVenta.TabIndex = 125
-        '
-        'btnCasaVenta
-        '
-        Me.btnCasaVenta.Location = New System.Drawing.Point(402, 322)
-        Me.btnCasaVenta.Name = "btnCasaVenta"
-        Me.btnCasaVenta.ReadOnly = True
-        Me.btnCasaVenta.Size = New System.Drawing.Size(104, 20)
-        Me.btnCasaVenta.TabIndex = 124
-        '
-        'btnBolsaCompra
-        '
-        Me.btnBolsaCompra.Location = New System.Drawing.Point(247, 355)
-        Me.btnBolsaCompra.Name = "btnBolsaCompra"
-        Me.btnBolsaCompra.ReadOnly = True
-        Me.btnBolsaCompra.Size = New System.Drawing.Size(104, 20)
-        Me.btnBolsaCompra.TabIndex = 123
-        '
-        'btnCasaCompra
-        '
-        Me.btnCasaCompra.Location = New System.Drawing.Point(247, 322)
-        Me.btnCasaCompra.Name = "btnCasaCompra"
-        Me.btnCasaCompra.ReadOnly = True
-        Me.btnCasaCompra.Size = New System.Drawing.Size(104, 20)
-        Me.btnCasaCompra.TabIndex = 122
-        '
-        'btnPorcentajeBolsaVenta
-        '
-        Me.btnPorcentajeBolsaVenta.Location = New System.Drawing.Point(359, 355)
-        Me.btnPorcentajeBolsaVenta.Name = "btnPorcentajeBolsaVenta"
-        Me.btnPorcentajeBolsaVenta.ReadOnly = True
-        Me.btnPorcentajeBolsaVenta.Size = New System.Drawing.Size(37, 20)
-        Me.btnPorcentajeBolsaVenta.TabIndex = 121
-        '
-        'btnPorcentajeCasaVenta
-        '
-        Me.btnPorcentajeCasaVenta.Location = New System.Drawing.Point(359, 322)
-        Me.btnPorcentajeCasaVenta.Name = "btnPorcentajeCasaVenta"
-        Me.btnPorcentajeCasaVenta.ReadOnly = True
-        Me.btnPorcentajeCasaVenta.Size = New System.Drawing.Size(37, 20)
-        Me.btnPorcentajeCasaVenta.TabIndex = 120
-        '
-        'btnPorcentajeBolsaCompra
-        '
-        Me.btnPorcentajeBolsaCompra.Location = New System.Drawing.Point(203, 355)
-        Me.btnPorcentajeBolsaCompra.Name = "btnPorcentajeBolsaCompra"
-        Me.btnPorcentajeBolsaCompra.ReadOnly = True
-        Me.btnPorcentajeBolsaCompra.Size = New System.Drawing.Size(38, 20)
-        Me.btnPorcentajeBolsaCompra.TabIndex = 119
-        '
-        'btnPorcentajeCasaCompra
-        '
-        Me.btnPorcentajeCasaCompra.Location = New System.Drawing.Point(203, 322)
-        Me.btnPorcentajeCasaCompra.Name = "btnPorcentajeCasaCompra"
-        Me.btnPorcentajeCasaCompra.ReadOnly = True
-        Me.btnPorcentajeCasaCompra.Size = New System.Drawing.Size(38, 20)
-        Me.btnPorcentajeCasaCompra.TabIndex = 118
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label15.Location = New System.Drawing.Point(20, 352)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(96, 18)
-        Me.Label15.TabIndex = 117
-        Me.Label15.Text = "Comisión Bolsa"
-        '
-        'Label14
-        '
-        Me.Label14.AutoSize = True
-        Me.Label14.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label14.Location = New System.Drawing.Point(20, 322)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(94, 18)
-        Me.Label14.TabIndex = 116
-        Me.Label14.Text = "Comisión Casa"
-        '
-        'TabPage2
-        '
-        Me.TabPage2.Controls.Add(Me.btnAccionIngreso)
-        Me.TabPage2.Controls.Add(Me.dgvIngresos)
-        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage2.Name = "TabPage2"
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(688, 563)
-        Me.TabPage2.TabIndex = 1
-        Me.TabPage2.Text = "Ingresos"
-        Me.TabPage2.UseVisualStyleBackColor = True
-        '
-        'btnAccionIngreso
-        '
-        Me.btnAccionIngreso.Location = New System.Drawing.Point(20, 212)
-        Me.btnAccionIngreso.Name = "btnAccionIngreso"
-        Me.btnAccionIngreso.Size = New System.Drawing.Size(75, 23)
-        Me.btnAccionIngreso.TabIndex = 117
-        Me.btnAccionIngreso.Text = "Aceptar"
-        Me.btnAccionIngreso.UseVisualStyleBackColor = True
-        '
-        'dgvIngresos
-        '
-        Me.dgvIngresos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvIngresos.Location = New System.Drawing.Point(20, 20)
-        Me.dgvIngresos.Name = "dgvIngresos"
-        Me.dgvIngresos.Size = New System.Drawing.Size(646, 174)
-        Me.dgvIngresos.TabIndex = 116
-        '
-        'TabPage4
-        '
-        Me.TabPage4.Controls.Add(Me.Label35)
-        Me.TabPage4.Controls.Add(Me.Label23)
-        Me.TabPage4.Controls.Add(Me.Label24)
-        Me.TabPage4.Controls.Add(Me.Label25)
-        Me.TabPage4.Controls.Add(Me.Label26)
-        Me.TabPage4.Controls.Add(Me.label27)
-        Me.TabPage4.Controls.Add(Me.lblIngresosPorIntereses_Op)
-        Me.TabPage4.Controls.Add(Me.lblCostosTotales_Op)
-        Me.TabPage4.Controls.Add(Me.txtRendimientoDespuesISR_Op)
-        Me.TabPage4.Controls.Add(Me.lblGananciaPerdidaTotal_Op)
-        Me.TabPage4.Controls.Add(Me.txtRendimientoAntesISR_Op)
-        Me.TabPage4.Controls.Add(Me.lblRendimientoGananciaPerdida_Op)
-        Me.TabPage4.Controls.Add(Me.txtRendimientoIntereses_Op)
-        Me.TabPage4.Controls.Add(Me.lblRendimientoIntereses_Op)
-        Me.TabPage4.Controls.Add(Me.txtRendimientoGananciaPerdida_Op)
-        Me.TabPage4.Controls.Add(Me.lblRendimientoAntesISR_Op)
-        Me.TabPage4.Controls.Add(Me.txtGananciaPerdidaTotal_Op)
-        Me.TabPage4.Controls.Add(Me.lblRendimientoDespuesISR_Op)
-        Me.TabPage4.Controls.Add(Me.txtCostosTotales_Op)
-        Me.TabPage4.Controls.Add(Me.txtValorNominal_Op)
-        Me.TabPage4.Controls.Add(Me.txtIngresosPorIntereses_Op)
-        Me.TabPage4.Controls.Add(Me.txtPlazo_Op)
-        Me.TabPage4.Controls.Add(Me.txtGananciaPerdidaCapital_Op)
-        Me.TabPage4.Controls.Add(Me.txtPrecioCompra_Op)
-        Me.TabPage4.Controls.Add(Me.txtPrecioVenta_Op)
-        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage4.Name = "TabPage4"
-        Me.TabPage4.Size = New System.Drawing.Size(688, 563)
-        Me.TabPage4.TabIndex = 3
-        Me.TabPage4.Text = "Resultado de la Op."
-        Me.TabPage4.UseVisualStyleBackColor = True
-        '
-        'pnlPie
-        '
-        Me.pnlPie.Controls.Add(Me.btnAceptar)
-        Me.pnlPie.Controls.Add(Me.btnCancelar)
-        Me.pnlPie.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlPie.Location = New System.Drawing.Point(0, 667)
-        Me.pnlPie.Name = "pnlPie"
-        Me.pnlPie.Size = New System.Drawing.Size(747, 46)
-        Me.pnlPie.TabIndex = 122
-        '
-        'BindingNavigator1
-        '
-        Me.BindingNavigator1.AddNewItem = Nothing
-        Me.BindingNavigator1.CountItem = Nothing
-        Me.BindingNavigator1.DeleteItem = Nothing
-        Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorSeparator, Me.navModificar, Me.navNuevo, Me.navEliminar})
-        Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0)
-        Me.BindingNavigator1.MoveFirstItem = Nothing
-        Me.BindingNavigator1.MoveLastItem = Nothing
-        Me.BindingNavigator1.MoveNextItem = Nothing
-        Me.BindingNavigator1.MovePreviousItem = Nothing
-        Me.BindingNavigator1.Name = "BindingNavigator1"
-        Me.BindingNavigator1.PositionItem = Nothing
-        Me.BindingNavigator1.Size = New System.Drawing.Size(747, 25)
-        Me.BindingNavigator1.TabIndex = 128
-        Me.BindingNavigator1.Text = "BindingNavigator1"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'navModificar
-        '
-        Me.navModificar.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navModificar.Image = CType(resources.GetObject("navModificar.Image"), System.Drawing.Image)
-        Me.navModificar.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.navModificar.Name = "navModificar"
-        Me.navModificar.Size = New System.Drawing.Size(23, 22)
-        Me.navModificar.Text = "Modificar"
-        '
-        'navNuevo
-        '
-        Me.navNuevo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevo.Image = CType(resources.GetObject("navNuevo.Image"), System.Drawing.Image)
-        Me.navNuevo.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.navNuevo.Name = "navNuevo"
-        Me.navNuevo.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevo.Text = "Nuevo"
-        '
-        'navEliminar
-        '
-        Me.navEliminar.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navEliminar.Image = CType(resources.GetObject("navEliminar.Image"), System.Drawing.Image)
-        Me.navEliminar.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.navEliminar.Name = "navEliminar"
-        Me.navEliminar.Size = New System.Drawing.Size(23, 22)
-        Me.navEliminar.Text = "Eliminar"
-        '
-        'frmBonos
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.AutoScroll = True
-        Me.ClientSize = New System.Drawing.Size(747, 713)
-        Me.Controls.Add(Me.BindingNavigator1)
-        Me.Controls.Add(Me.pnlPie)
-        Me.Controls.Add(Me.TabControl1)
-        Me.Controls.Add(Me.Label30)
-        Me.Controls.Add(Me.lblBono)
-        Me.Name = "frmBonos"
-        Me.Text = "Bonos Corporativos"
-        Me.TabControl1.ResumeLayout(False)
-        Me.TabPage1.ResumeLayout(False)
-        Me.TabPage1.PerformLayout()
-        Me.TabPage2.ResumeLayout(False)
-        CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.TabPage4.ResumeLayout(False)
-        Me.TabPage4.PerformLayout()
-        Me.pnlPie.ResumeLayout(False)
-        CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.BindingNavigator1.ResumeLayout(False)
-        Me.BindingNavigator1.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label2 As Label
-    Friend WithEvents Label3 As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents Label6 As Label
-    Friend WithEvents Label7 As Label
-    Friend WithEvents Label8 As Label
-    Friend WithEvents Label9 As Label
-    Friend WithEvents Label10 As Label
-    Friend WithEvents Label11 As Label
-    Friend WithEvents Label12 As Label
-    Friend WithEvents Label13 As Label
-    Friend WithEvents Label16 As Label
-    Friend WithEvents Label18 As Label
-    Friend WithEvents Label19 As Label
-    Friend WithEvents Label20 As Label
-    Friend WithEvents Label21 As Label
-    Friend WithEvents dtpUltimaFechaCuponCompra As DateTimePicker
-    Friend WithEvents dtpSiguienteFechaCuponCompra As DateTimePicker
-    Friend WithEvents dtpFechaLiquidacionCompra As DateTimePicker
-    Friend WithEvents dtpFechaVencimientoCompra As DateTimePicker
-    Friend WithEvents txtValorNominalCompra As TextBox
-    Friend WithEvents txtPorcentajeCuponCompra As TextBox
-    Friend WithEvents txtYTMAlVencimientoComisionCompra As TextBox
-    Friend WithEvents txtYTMAlVencimientoCompra As TextBox
-    Friend WithEvents txtPrecioAlVencimientoCompra As TextBox
-    Friend WithEvents txtPrecioCompra As TextBox
-    Friend WithEvents txtDiasAcumuladosCompra As TextBox
-    Friend WithEvents txtPrecioSucioCompra As TextBox
-    Friend WithEvents txtInteresAcumuladoCompra As TextBox
-    Friend WithEvents txtPorcentajeInteresAcumuladoCompra As TextBox
-    Friend WithEvents txtValorTransadoCompra As TextBox
-    Friend WithEvents txtMontoAPagar As TextBox
-    Friend WithEvents txtCostoTransferenciaCompra As TextBox
-    Friend WithEvents txtDiasAlVencimientoCompra As TextBox
-    Friend WithEvents Label17 As Label
-    Friend WithEvents lblBono As Label
-    Friend WithEvents txtDiasAlVencimientoVenta As TextBox
-    Friend WithEvents txtCostoTransferenciaVenta As TextBox
-    Friend WithEvents txtMontoARecibir As TextBox
-    Friend WithEvents txtValorTransadoVenta As TextBox
-    Friend WithEvents txtPorcentajeInteresAcumuladoVenta As TextBox
-    Friend WithEvents txtInteresAcumuladoVenta As TextBox
-    Friend WithEvents txtPrecioSucioVenta As TextBox
-    Friend WithEvents txtDiasAcumuladosVenta As TextBox
-    Friend WithEvents txtPrecioVenta As TextBox
-    Friend WithEvents txtPrecioAlVencimientoVenta As TextBox
-    Friend WithEvents txtYTMAlVencimientoVenta As TextBox
-    Friend WithEvents txtYTMAlVencimientoComisionVenta As TextBox
-    Friend WithEvents txtPorcentajeCuponVenta As TextBox
-    Friend WithEvents txtValorNominalVenta As TextBox
-    Friend WithEvents dtpFechaVencimientoVenta As DateTimePicker
-    Friend WithEvents dtpFechaLiquidacionVenta As DateTimePicker
-    Friend WithEvents dtpSiguienteFechaCuponVenta As DateTimePicker
-    Friend WithEvents dtpUltimaFechaCuponVenta As DateTimePicker
-    Friend WithEvents Label22 As Label
-    Friend WithEvents Label23 As Label
-    Friend WithEvents Label24 As Label
-    Friend WithEvents Label25 As Label
-    Friend WithEvents Label26 As Label
-    Friend WithEvents label27 As Label
-    Friend WithEvents lblIngresosPorIntereses_Op As Label
-    Friend WithEvents lblCostosTotales_Op As Label
-    Friend WithEvents lblGananciaPerdidaTotal_Op As Label
-    Friend WithEvents lblRendimientoGananciaPerdida_Op As Label
-    Friend WithEvents lblRendimientoIntereses_Op As Label
-    Friend WithEvents lblRendimientoAntesISR_Op As Label
-    Friend WithEvents lblRendimientoDespuesISR_Op As Label
-    Friend WithEvents Label35 As Label
-    Friend WithEvents txtValorNominal_Op As TextBox
-    Friend WithEvents txtPlazo_Op As TextBox
-    Friend WithEvents txtPrecioCompra_Op As TextBox
-    Friend WithEvents txtPrecioVenta_Op As TextBox
-    Friend WithEvents txtGananciaPerdidaCapital_Op As TextBox
-    Friend WithEvents txtIngresosPorIntereses_Op As TextBox
-    Friend WithEvents txtCostosTotales_Op As TextBox
-    Friend WithEvents txtGananciaPerdidaTotal_Op As TextBox
-    Friend WithEvents txtRendimientoGananciaPerdida_Op As TextBox
-    Friend WithEvents txtRendimientoIntereses_Op As TextBox
-    Friend WithEvents txtRendimientoAntesISR_Op As TextBox
-    Friend WithEvents txtRendimientoDespuesISR_Op As TextBox
-    Friend WithEvents btnAceptar As Button
-    Friend WithEvents btnCancelar As Button
-    Friend WithEvents cboAnioBaseC As ComboBox
-    Friend WithEvents cboAnioBaseV As ComboBox
-    Friend WithEvents cboPeriodosC As ComboBox
-    Friend WithEvents cboPeriodosV As ComboBox
-    Friend WithEvents Label29 As Label
-    Friend WithEvents Label30 As Label
-    Friend WithEvents TabControl1 As TabControl
-    Friend WithEvents TabPage1 As TabPage
-    Friend WithEvents TabPage4 As TabPage
-    Friend WithEvents pnlPie As Panel
-    Friend WithEvents BindingNavigator1 As BindingNavigator
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents navModificar As ToolStripButton
-    Friend WithEvents navNuevo As ToolStripButton
-    Friend WithEvents navEliminar As ToolStripButton
-    Friend WithEvents TabPage2 As TabPage
-    Friend WithEvents dgvIngresos As DataGridView
-    Friend WithEvents btnAccionIngreso As Button
-    Friend WithEvents btnBolsaVenta As TextBox
-    Friend WithEvents btnCasaVenta As TextBox
-    Friend WithEvents btnBolsaCompra As TextBox
-    Friend WithEvents btnCasaCompra As TextBox
-    Friend WithEvents btnPorcentajeBolsaVenta As TextBox
-    Friend WithEvents btnPorcentajeCasaVenta As TextBox
-    Friend WithEvents btnPorcentajeBolsaCompra As TextBox
-    Friend WithEvents btnPorcentajeCasaCompra As TextBox
-    Friend WithEvents Label15 As Label
-    Friend WithEvents Label14 As Label
-End Class

FRM/frmBonos.resx

@@ -1,167 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navModificar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIVSURBVDhPjVNNaxNRFM0fcKNbBbG4qC7FpRTcdCf9AwqC
-        Ci6UKrQWW1toQYJZKRgqLgRjDG0yH2kwWAWb0tZFA91EUDemaabtfKTNNJmMScz0+O6bSdKxFT3M4c59
-        754z9715L5BMpcqCLCMhioj7KPAoSBJEWdYDfwMV/AuapiEhCG89iR/0ZcKP/DpjAfn1Ao+UEyLRKI+q
-        qiIhSTFP1gW1SdgoFlFUFCibCo+UE97EYtANg7/zTuakWU/qgtZKUDa3sbWtdkg5YTWb5SbtTmbnRHhS
-        F3HBNVCZu6brHVJesap87iDiKRFfHi8g9+STa9Q20I0SjNKOjzSmMerGDkq7Jq8bGhtFXi7gcziLtUes
-        m7bBbrl8NE0TZrUGqwHcH5nAxpaGyVAQ6YcfsHp7umtg7lUOs2Jhr9ZE1QGWB0+i/F3ARPAZ3i8s4u7Y
-        A1rChY5B1bL8rNmoNVqw2dzi4BlgpY/t4Gl8ladwb2TcFR/cA9u2u/xZR725D9Y1Mlx8mYnPAy+P49Wt
-        3q6Y0Dao15uMDR4bvwD2IHPnFLB0CZjpBaZP4Pn1c0h+XPnjN3oHyXEcOK0Wi/s8N6IXgWIQyI0D4WN4
-        evUsHxdTab8BXaSj8GJ0AO+iTJwLIXytxxtlBnLSb/A6EsnQheI3kC2HnXck0/MYvnEFUzf78S3UD3F+
-        iX+ZxFTvSTvoYaRN+V9SvYdA4DcZDa931m0XwAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFPTNpQHMc7D+469bKr13nz7GkznuY87MQK
-        OhFTqGYXPNvblmVZFpKd5sUZwQ3NYokJejVRRzB2uooE2PijQVotUAb9Ewy/9b0ACrGG+E0++eXX/t7n
-        te8RKAXu06MMv9Cb5j4PpI9XB3je341fdJJYzPOwePSupxD90J8Mj1XLEWacdr0JUdOU6LBT4lQbdgPq
-        9UzWarFvY0Fm92OvHHn/XPs5DHr4BejcK1AVCVTtnynligxIggVnobd9xfCIsu15WtMPZwa1vWegHZAQ
-        z9dMQRKSpMS64GtfiWee6PsvQdsZAjU0CoIg6FwiC8veb7DOBpqsrv2Aw+RFqwAdmMD7H09POq40Q8IG
-        2VM0kJSqkBAViBskRLVJMl9tFTQybptSxIIMbGADD0RPJfiysAhLS94mvhU/xLKyuUAqVfCnooHURRn4
-        v+dw9KeV1KXSmSCSLQOXOIcDA1QbnORMBLY2wXFGAq/ve/MAEag/OSuaCKytgvhlFaKCco2xczSn4ucd
-        CX7dco2o/51qu8ZGrORk/qYgI9cw6Xq9ya0Ci8VZKRiC4OYWHrgLRS3BxMQsX19KEADwwPgF1u2eB5fT
-        DbRrDlczaJrWbaQjwDBMV11x3xDEf8bvbDj6Irl1AAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZO5SgNRFIYnTvIANmLhFrAQwSohncS98wEU
-        G1HEysIiQRs7RcVChyFVKhstTKEEIwRcigQEGws7l4BMyGbWyZ783jNkYjSjiQc+Zrjc/5tz7mW4WvUw
-        TAxLCwYYHYymMmWz2YTP56uUy2Vokc/nIQjCIdurKbFQOJPJQJblOslkEvF4HKFQSJEEg0GIotgk0TEs
-        tCGXy6FQKChPIp1OI5FIIBwOKwLWJegjDodDlShVF1BYhQQUSKVSiEQi38YhKFPLfglKpVJ9A73T3Ooo
-        0WhU6USSpN8FP2mUUCd0HrFYrH0BoUpoHDoTEtF62wKiWCwq50ISgtb+JaAu3s6O4F8chnfSgNv5fggW
-        nfingEIqAZeAR9socu4DVJ88kE/WcW0dqVyN6ddaCqj9u4VBZFkYR7OAvRPYNiKyNwb3OP/yq6BRQm1X
-        H1xorPhWN3Ym9NW6wO/3V7UkxM1cHzLOJYCF8jYOH4zAKg/PNP9OAiozux6ZSTR/ptfTfdyvDEGyGxHe
-        MOB5WQevVV+5nOrYrOW5XoaZQVejiXOmSzyf4CVq+8LKh45H+V2O47hPEKaEPxpcorEAAAAASUVORK5C
-        YII=
-</value>
-  </data>
-</root>

FRM/frmBonos.vb

@@ -1,1088 +0,0 @@
-Public Class frmBonos
-    Dim oBonosCE As New BonosCE
-    Dim oBonosDAO As New BonosDAO
-    Dim oDAOGeneral As New DAOGeneral
-    Dim TotalValorCupones As Double
-    Dim codigo As String = Variables.Codigo
-    Dim BonosConsulta As New BonosDAO
-    Dim Estado As String = String.Empty
-    Dim Operaciones As New Operaciones
-    Dim InstrumentoFinanciero As String = oDAOGeneral.ObtenerInstrumento(Variables.Codigo)
-    'Private _Modo As String
-    Private _IdDocumento As Integer
-    Private _TipoDocumento As String
-    Private _CodigoInversion As String
-    Private _TipoTransaccion As String 'N=Nuevo, A=Actualizar, C=Consulta
-
-
-    Public Property TipoTransaccion As String
-        Get
-            Return _TipoTransaccion
-        End Get
-        Set(value As String)
-            _TipoTransaccion = value
-        End Set
-    End Property
-    Private Property IdDocumento As Integer
-        Get
-            Return _IdDocumento
-        End Get
-        Set(value As Integer)
-            _IdDocumento = value
-        End Set
-    End Property
-    Private Property TipoDocumento As String
-        Get
-            Return _TipoDocumento
-        End Get
-        Set(value As String)
-            _TipoDocumento = value
-        End Set
-    End Property
-    Private Property CodigoInversion As String
-        Get
-            Return _CodigoInversion
-        End Get
-        Set(value As String)
-            _CodigoInversion = value
-        End Set
-    End Property
-    Private Sub frmBonos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Call CargarPeriodos()
-        'PrepararTablaImpuestosYComisiones()
-        PrepararTablaIngresos()
-
-        If Me.TipoTransaccion Is Nothing Then
-            Me.TipoTransaccion = "N"
-
-        End If
-
-        If Me.TipoTransaccion = "C" Then
-            Call CargarRegistroBD()
-        End If
-        CargarIngresos()
-        'CargarComisiones()
-    End Sub
-    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
-        If (TipoTransaccion = "N" Or TipoTransaccion = "A") Then
-            RefrescarClaseEntidad()
-            If TipoTransaccion = "N" Then
-                GuardarNuevoRegistro()
-            End If
-            If TipoTransaccion = "A" Then
-                ActualizarRegistro()
-            End If
-        Else
-            Me.Close()
-        End If
-    End Sub
-    Function RetornarObjeto()
-        Return oBonosCE
-    End Function
-
-    Public Sub CargarRegistro(vId As Integer, vTipo As String)
-        TipoTransaccion = "C"
-        IdDocumento = vId
-        TipoDocumento = vTipo
-    End Sub
-    Public Sub CargarRegistro(ByVal CodInversion As String)
-        TipoTransaccion = "C"
-        CodigoInversion = CodInversion
-    End Sub
-    Private Sub CargarRegistroBD()
-        oBonosCE = Nothing
-        oBonosCE = oBonosDAO.CargarRegistro(Me.CodigoInversion)
-
-        TipoTransaccion = "C"
-        RefrescarValorControles()
-
-    End Sub
-    Private Sub dtpUltimaFechaCuponCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpUltimaFechaCuponCompra.ValueChanged
-        'ActivarEdicion()
-        ControlUltimaFechaCuponCompra()
-    End Sub
-    Private Sub dtpSiguienteFechaCuponCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpSiguienteFechaCuponCompra.ValueChanged
-        'ActivarEdicion()
-        ControlSiguienteFechaCuponCompra()
-    End Sub
-    Private Sub dtpFechaLiquidacionCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaLiquidacionCompra.ValueChanged
-        'ActivarEdicion()
-        ControlFechaLiquidacionCompra()
-    End Sub
-    Private Sub dtpFechaVencimientoCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoCompra.ValueChanged
-        'ActivarEdicion()
-        ControlFechaVencimientoCompra()
-    End Sub
-    Private Sub txtPorcentajeCuponCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeCuponCompra.TextChanged
-        'ActivarEdicion()
-    End Sub
-
-    Private Sub txtPrecioCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioCompra.TextChanged
-        'ActivarEdicion()
-    End Sub
-    Private Sub txtPrecioAlVencimientoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoCompra.TextChanged
-        'ActivarEdicion()
-    End Sub
-    Private Sub txtCostoTransferenciaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtCostoTransferenciaCompra.TextChanged
-        'RefrescarMontoAPagarCompra()
-        'ActivarEdicion()
-    End Sub
-
-    Private Sub dtpFechaVencimientoVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoVenta.ValueChanged
-
-        'ActivarEdicion()
-        ControlFechaVencimientoVenta()
-
-    End Sub
-    Private Sub ControlFechaVencimientoVenta()
-        Dim valor As Date
-        valor = dtpFechaVencimientoVenta.Value.Date
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            oBonosCE.FechaVencimientoVenta = valor
-            RefrescarValorControles()
-
-        End If
-
-    End Sub
-    Private Sub cboAnioBaseC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAnioBaseC.SelectedIndexChanged
-        'ActivarEdicion()
-        ControlAnioBaseCompra()
-    End Sub
-
-    Private Sub cboAnioBaseV_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAnioBaseV.SelectedIndexChanged
-        'RefrescarInteresAcumuladoVenta()
-        'RefrescarDiasAlVencimientoVenta()
-        'RefrescarDiasAcumuladosVenta()
-        ControlAnioBaseVenta()
-        'ActivarEdicion()
-    End Sub
-    Private Sub ControlAnioBaseVenta()
-        Dim valor As Integer
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            If cboAnioBaseV.SelectedIndex > -1 Then
-                oBonosCE.DiasBaseVenta = cboAnioBaseV.SelectedItem
-            Else
-                oBonosCE.DiasBaseVenta = 365
-            End If
-        End If
-    End Sub
-    Sub CargarPeriodos()
-        Dim vTipoTransaccion As String = Me.TipoTransaccion
-        TipoTransaccion = "X"
-        Me.cboPeriodosC.DataSource = oDAOGeneral.ListaPeriodicidad
-        Me.cboPeriodosC.ValueMember = "Codigo"
-        Me.cboPeriodosC.DisplayMember = "Descripcion"
-        Me.cboPeriodosC.SelectedIndex = -1
-
-        Me.cboPeriodosV.DataSource = oDAOGeneral.ListaPeriodicidad
-        Me.cboPeriodosV.ValueMember = "Codigo"
-        Me.cboPeriodosV.DisplayMember = "Descripcion"
-        Me.cboPeriodosV.SelectedIndex = -1
-        TipoTransaccion = vTipoTransaccion
-
-    End Sub
-    Private Sub cboPeriodosC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodosC.SelectedIndexChanged
-
-        ControlPeriodosCompra()
-    End Sub
-
-    Private Sub cboPeriodosV_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodosV.SelectedIndexChanged
-        'ActivarEdicion()
-    End Sub
-
-    Function CalcularCupones() As DataTable
-        Dim dtCupones As New DataTable
-        Dim vFechaLiquidacionCompra As Date = oBonosCE.FechaLiquidacionCompra
-        Dim vFechaLiquidacionVenta As Date = oBonosCE.FechaLiquidacionVenta
-        Dim vSiguienteFechaCuponCompra As Date = oBonosCE.SiguienteFechaCuponCompra
-        Dim vPeriodicidad As String = oBonosCE.PeriodicidadCompra
-        Dim vValorNominalCompra As Double = oBonosCE.ValorNominalCompra
-        Dim vPorcentajeCuponCompra As Double = oBonosCE.PorcentajeCuponCompra
-        Dim vAnioBaseCompra As Integer = oBonosCE.DiasBaseCompra
-        Dim vColumnas As DataColumn
-        Dim vFilas As DataRow
-
-        Dim vEstaFecha As Date
-        Dim vSiguienteFecha As Date
-        Dim vDias As Integer
-        Dim vValor As Double
-
-        'CREAMOS COLUMNAS
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Date)
-        vColumnas.ColumnName = "FechaCupon"
-        vColumnas.Caption = "Fecha Cupon"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Integer)
-        vColumnas.ColumnName = "Dias"
-        vColumnas.Caption = "Dias"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "Valor"
-        vColumnas.Caption = "Valor Cupon"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vSiguienteFecha = vSiguienteFechaCuponCompra
-        vDias = DateDiff(DateInterval.Day, vFechaLiquidacionCompra, vSiguienteFechaCuponCompra)
-
-        Dim ControlBucle As Integer = 1
-
-        While vSiguienteFecha <= vFechaLiquidacionVenta
-            vEstaFecha = vSiguienteFecha
-            vFilas = dtCupones.NewRow
-            vFilas("FechaCupon") = vSiguienteFecha
-            vFilas("Dias") = vDias
-
-            Try
-                vValor = vValorNominalCompra * vPorcentajeCuponCompra * vDias / vAnioBaseCompra
-            Catch ex As Exception
-                vValor = 0
-            End Try
-
-            vFilas("Valor") = vValor
-            dtCupones.Rows.Add(vFilas)
-
-            If vPeriodicidad = "S" Then
-                vSiguienteFecha = vSiguienteFecha.AddMonths(6)
-            ElseIf vPeriodicidad = "M" Then
-                vSiguienteFecha = vSiguienteFecha.AddMonths(1)
-            Else
-                Exit While
-            End If
-
-            If vAnioBaseCompra = 360 Then
-                vDias = Utilidades.Days360(vEstaFecha, vSiguienteFecha)
-            Else
-                vDias = DateDiff(DateInterval.Day, vEstaFecha, vSiguienteFecha)
-            End If
-
-
-
-        End While
-
-        Try
-            TotalValorCupones = dtCupones.Compute("SUM(Valor)", "")
-        Catch ex As Exception
-            TotalValorCupones = 0
-        End Try
-
-        'Me.txtTotalIngresoCupones.Text = TotalValorCupones.ToString
-
-        Return dtCupones
-        dtCupones.Dispose()
-    End Function
-    Private Sub CalcularIngresos(ByVal IdFila As Integer)
-        Dim vFila As DataGridViewRow = dgvIngresos.Rows(IdFila)
-        Dim IdFilaAnterior As Integer = IdFila - 1
-        Dim vFilaAnterior As DataGridViewRow
-        Dim vNumCupon As Integer
-        Dim vFechaCupon As Date
-        Dim vFechaAnteriorCupon As Date
-        Dim vDias As Integer
-        Dim vIngreso As Double
-        Dim vImpuesto As Double
-        Dim vLiquido As Double
-        Dim vValorNominal As Double = oBonosCE.ValorNominalCompra
-        Dim vPorcentajeCupon As Double = oBonosCE.PorcentajeCuponCompra
-        Dim vDiasBase As Integer = oBonosCE.DiasBaseCompra
-
-        If Not vFila.IsNewRow Then
-            'Date.TryParse(vFila.Cells("FechaCupon").Value.ToString, vFechaCupon)
-
-            If (IdFila) > 0 Then
-                vFilaAnterior = dgvIngresos.Rows(IdFilaAnterior)
-                vNumCupon = vFilaAnterior.Cells("NumCupon").Value
-                vNumCupon += 1
-
-                vFechaCupon = vFila.Cells("FechaCupon").Value
-                vFechaAnteriorCupon = vFilaAnterior.Cells("FechaCupon").Value
-                vDias = DateDiff(DateInterval.Day, vFechaCupon, vFechaAnteriorCupon)
-
-                vIngreso = vValorNominal * vPorcentajeCupon * vDias / vDiasBase
-                vImpuesto = vIngreso * 0.1
-                vLiquido = vIngreso - vImpuesto
-
-                vFila.Cells("NumCupon").Value = vNumCupon
-                vFila.Cells("Dias").Value = vDias
-                vFila.Cells("Ingreso").Value = vIngreso
-                vFila.Cells("MontoImpuesto").Value = vImpuesto
-                vFila.Cells("Liquido").Value = vLiquido
-            Else
-                vFila.Cells("NumCupon").Value = 1
-                vFila.Cells("Dias").Value = 0
-                vFila.Cells("Ingreso").Value = 0
-                vFila.Cells("MontoImpuesto").Value = 0
-                vFila.Cells("Liquido").Value = 0
-            End If
-
-        End If
-
-    End Sub
-    'Sub RefrescarTablaIngresos()
-    '    'Me.dgvIngresos.DataSource = CalcularCupones()
-    'End Sub
-    Private Sub RefrescarValorControles()
-        'Me.cboCasa_C.SelectedValue = oBonosCE.CodigoCasaCompra.ToString
-        Me.cboPeriodosC.SelectedValue = oBonosCE.PeriodicidadCompra.ToString
-        Me.txtValorNominalCompra.Text = oBonosCE.ValorNominalCompra.ToString(Configuraciones.CodigoTXTMontos)
-        Me.dtpUltimaFechaCuponCompra.Value = oBonosCE.UltimaFechaCuponCompra
-        Me.dtpSiguienteFechaCuponCompra.Value = oBonosCE.SiguienteFechaCuponCompra
-        Me.dtpFechaLiquidacionCompra.Value = oBonosCE.FechaLiquidacionCompra
-        Me.dtpFechaVencimientoCompra.Value = oBonosCE.FechaVencimientoCompra
-        Me.txtPorcentajeCuponCompra.Text = oBonosCE.PorcentajeCuponCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtYTMAlVencimientoCompra.Text = oBonosCE.YTMAlVencimientoCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtYTMAlVencimientoComisionCompra.Text = oBonosCE.YTMAlVencimientoComisionCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtPrecioAlVencimientoCompra.Text = oBonosCE.PrecioAlVencimientoCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtPrecioCompra.Text = oBonosCE.PrecioCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.cboAnioBaseC.SelectedItem = oBonosCE.DiasBaseCompra.ToString
-        Me.txtDiasAcumuladosCompra.Text = oBonosCE.DiasAcumuladosCompra.ToString
-        Me.txtDiasAlVencimientoCompra.Text = oBonosCE.DiasAlVencimientoCompra.ToString
-        Me.txtPorcentajeInteresAcumuladoCompra.Text = oBonosCE.PorcentajeInteresAcumuladoCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtInteresAcumuladoCompra.Text = oBonosCE.InteresAcumuladoCompra.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPrecioSucioCompra.Text = oBonosCE.PrecioSucioCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtValorTransadoCompra.Text = oBonosCE.ValorTransadoCompra.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtMontoAPagar.Text = oBonosCE.MontoAPagarCompra.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtCostoTransferenciaCompra.Text = oBonosCE.CostoDeTransferenciaCompra.ToString(Configuraciones.CodigoTXTMontos)
-
-        'Me.cboCasa_V.SelectedValue = oBonosCE.CodigoCasaVenta.ToString
-        Me.cboPeriodosV.SelectedValue = oBonosCE.PeriodicidadVenta.ToString
-        Me.txtValorNominalVenta.Text = oBonosCE.ValorNominalVenta.ToString(Configuraciones.CodigoTXTMontos)
-        Me.dtpUltimaFechaCuponVenta.Value = oBonosCE.UltimaFechaCuponVenta
-        Me.dtpSiguienteFechaCuponVenta.Value = oBonosCE.SiguienteFechaCuponVenta
-        Me.dtpFechaLiquidacionVenta.Value = oBonosCE.FechaLiquidacionVenta
-        Me.dtpFechaVencimientoVenta.Value = oBonosCE.FechaVencimientoVenta
-        Me.txtPorcentajeCuponVenta.Text = oBonosCE.PorcentajeCuponVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtYTMAlVencimientoComisionVenta.Text = oBonosCE.YTMAlVencimientoComisionVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtYTMAlVencimientoVenta.Text = oBonosCE.YTMAlVencimientoVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtPrecioAlVencimientoVenta.Text = oBonosCE.PrecioAlVencimientoVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtPrecioVenta.Text = oBonosCE.PrecioVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.cboAnioBaseV.SelectedItem = oBonosCE.DiasBaseVenta.ToString
-        Me.txtDiasAcumuladosVenta.Text = oBonosCE.DiasAcumuladosVenta.ToString
-        Me.txtDiasAlVencimientoVenta.Text = oBonosCE.DiasAlVencimientoVenta.ToString
-        Me.txtPorcentajeInteresAcumuladoVenta.Text = oBonosCE.InteresAcumuladoPorcentajeVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtInteresAcumuladoVenta.Text = oBonosCE.InteresAcumuladoVenta.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPrecioSucioVenta.Text = oBonosCE.PrecioSucioVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtValorTransadoVenta.Text = oBonosCE.ValorTransadoVenta.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtMontoARecibir.Text = oBonosCE.MontoARecibirVenta.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtCostoTransferenciaVenta.Text = oBonosCE.CostoDeTransferenciaVenta.ToString(Configuraciones.CodigoTXTMontos)
-
-        Me.txtValorNominal_Op.Text = oBonosCE.ValorNominalRO.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPlazo_Op.Text = oBonosCE.DiasPlazoRO.ToString
-        Me.txtPrecioCompra_Op.Text = oBonosCE.PrecioCompraRO.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPrecioVenta_Op.Text = oBonosCE.PrecioVentaRO.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtGananciaPerdidaCapital_Op.Text = oBonosCE.GananciaPerdidaDeCapital.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtIngresosPorIntereses_Op.Text = oBonosCE.IngresoPorInteres.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtCostosTotales_Op.Text = oBonosCE.CostosTotales.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtGananciaPerdidaTotal_Op.Text = oBonosCE.GananciaPerdidaTotal.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtRendimientoGananciaPerdida_Op.Text = oBonosCE.RendimientoGananciaPerdida.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtRendimientoIntereses_Op.Text = oBonosCE.RendimientoDeIntereses.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtRendimientoAntesISR_Op.Text = oBonosCE.RendimientoAntesImpuestos.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtRendimientoDespuesISR_Op.Text = oBonosCE.RendimientoDespuesImpuestos.ToString(Configuraciones.CodigoTXTPorcentaje)
-
-        If Me.TipoTransaccion = "N" Then Me.btnAceptar.Text = "Guardar"
-        If Me.TipoTransaccion = "A" Then Me.btnAceptar.Text = "Guardar"
-        If Me.TipoTransaccion = "C" Then Me.btnAceptar.Text = "Aceptar"
-
-    End Sub
-    Private Sub RefrescarClaseEntidad()
-        ControlValorNominalCompra()
-        ControlUltimaFechaCuponCompra()
-        ControlSiguienteFechaCuponCompra()
-        ControlFechaLiquidacionCompra()
-        ControlFechaVencimientoCompra()
-        ControlPorcentajeCuponCompra()
-        'ControlYTMAlVencimientoCompra()
-        ControlPrecioAlVencimientoCompra()
-        ControlPrecioCompra()
-        ControlAnioBaseCompra()
-        ControlCostosDeTransferencia()
-
-        'ControlValorNominalv
-        ControlUltimaFechaCuponCompra()
-        ControlSiguienteFechaCuponCompra()
-        ControlFechaLiquidacionCompra()
-        ControlFechaVencimientoCompra()
-        ControlPorcentajeCuponCompra()
-        'ControlYTMAlVencimientoCompra()
-        ControlPrecioAlVencimientoCompra()
-        ControlPrecioCompra()
-        ControlAnioBaseCompra()
-        ControlCostosDeTransferencia()
-
-
-    End Sub
-    Private Sub GuardarNuevoRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
-
-        res = oBonosDAO.Nuevo(oBonosCE)
-        If res = 1 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
-
-    End Sub
-    Private Sub ActualizarRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
-
-        res = oBonosDAO.Actualizar(oBonosCE)
-
-        If res = 1 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
-
-    End Sub
-    'Private Sub ActivarEdicion()
-    '    If TipoTransaccion = "C" Then
-    '        Me.TipoTransaccion = "A"
-    '        Me.btnAceptar.Text = "Guardar"
-    '    End If
-
-    'End Sub
-    Private Sub ControlPeriodosCompra()
-        Dim valor As String
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            If Me.cboPeriodosC.SelectedIndex = -1 Then
-                valor = ""
-            Else
-                valor = Me.cboPeriodosC.SelectedValue
-            End If
-            oBonosCE.PeriodicidadCompra = valor
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlValorNominalCompra()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtValorNominalCompra.Text, valor) Then
-            Me.txtValorNominalCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtValorNominalCompra.Focus()
-        Else
-            Me.txtValorNominalCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.ValorNominalCompra = valor
-                RefrescarValorControles()
-            End If
-        End If
-
-    End Sub
-    Private Sub ControlUltimaFechaCuponCompra()
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            Me.oBonosCE.UltimaFechaCuponCompra = dtpUltimaFechaCuponCompra.Value.Date
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlSiguienteFechaCuponCompra()
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            Me.oBonosCE.SiguienteFechaCuponCompra = dtpSiguienteFechaCuponCompra.Value.Date
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlFechaLiquidacionCompra()
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            Me.oBonosCE.FechaLiquidacionCompra = dtpFechaLiquidacionCompra.Value.Date
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlFechaVencimientoCompra()
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            Me.oBonosCE.FechaVencimientoCompra = dtpFechaVencimientoCompra.Value.Date
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlPorcentajeCuponCompra()
-        Dim valor As Double
-
-        If Not Double.TryParse(txtPorcentajeCuponCompra.Text.Replace("%", ""), valor) Then
-            Me.txtPorcentajeCuponCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtPorcentajeCuponCompra.Focus()
-        Else
-            Me.txtPorcentajeCuponCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.PorcentajeCuponCompra = valor / 100
-                RefrescarValorControles()
-            End If
-        End If
-
-    End Sub
-    Private Sub ControlAnioBaseCompra()
-        Dim valor As Integer
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            valor = cboAnioBaseC.SelectedItem
-            Me.oBonosCE.DiasBaseCompra = valor
-            RefrescarValorControles()
-        End If
-
-    End Sub
-
-    Private Sub txtValorNominalCompra_LostFocus(sender As Object, e As EventArgs) Handles txtValorNominalCompra.LostFocus
-        ControlValorNominalCompra()
-    End Sub
-
-
-    Private Sub ControlPrecioAlVencimientoCompra()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtPrecioAlVencimientoCompra.Text.Replace("%", String.Empty), valor) Then
-            Me.txtPrecioAlVencimientoCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtPrecioAlVencimientoCompra.Focus()
-        Else
-            Me.txtPrecioAlVencimientoCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.PrecioAlVencimientoCompra = valor / 100
-                RefrescarValorControles()
-            End If
-        End If
-
-    End Sub
-    Private Sub ControlPrecioCompra()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtPrecioCompra.Text.Replace("%", String.Empty), valor) Then
-            Me.txtPrecioCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtPrecioCompra.Focus()
-        Else
-            Me.txtPrecioCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.PrecioCompra = valor / 100
-                RefrescarValorControles()
-            End If
-
-        End If
-    End Sub
-    Private Sub ControlCostosDeTransferencia()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtCostoTransferenciaCompra.Text, valor) Then
-            Me.txtCostoTransferenciaCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtCostoTransferenciaCompra.Focus()
-        Else
-            Me.txtCostoTransferenciaCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.CostoDeTransferenciaCompra = valor
-                RefrescarValorControles()
-
-            End If
-        End If
-    End Sub
-    Private Sub txtPorcentajeCuponCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPorcentajeCuponCompra.LostFocus
-        ControlPorcentajeCuponCompra()
-    End Sub
-    Private Sub txtPrecioAlVencimientoCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoCompra.LostFocus
-        ControlPrecioAlVencimientoCompra()
-    End Sub
-
-    Private Sub txtPrecioCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioCompra.LostFocus
-        ControlPrecioCompra()
-    End Sub
-
-    Private Sub txtCostoTransferenciaCompra_LostFocus(sender As Object, e As EventArgs) Handles txtCostoTransferenciaCompra.LostFocus
-        ControlCostosDeTransferencia()
-    End Sub
-
-    Private Sub dtpSiguienteFechaCuponVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpSiguienteFechaCuponVenta.ValueChanged
-        'ActivarEdicion()
-    End Sub
-
-
-    Private Sub txtCostoTransferenciaVenta_TextChanged(sender As Object, e As EventArgs) Handles txtCostoTransferenciaVenta.TextChanged
-        'ActivarEdicion()
-    End Sub
-
-    'Private Sub PrepararTablaImpuestosYComisiones()
-    '    Dim oDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
-    '    Dim oDataGridViewComboBoxColumn As DataGridViewComboBoxColumn
-
-    '    oDataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
-    '    oDataGridViewComboBoxColumn.Name = "CodImp"
-    '    oDataGridViewComboBoxColumn.HeaderText = "Tipo Impuesto"
-    '    oDataGridViewComboBoxColumn.DataSource = oDAOGeneral.ListaTiposImpuesto
-    '    oDataGridViewComboBoxColumn.ValueMember = "Codigo"
-    '    oDataGridViewComboBoxColumn.DisplayMember = "Descripcion"
-    '    oDataGridViewComboBoxColumn.DataPropertyName = "CodImp"
-    '    oDataGridViewComboBoxColumn.DisplayIndex = 0
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewComboBoxColumn)
-
-    '    oDataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
-    '    oDataGridViewComboBoxColumn.Name = "TipoOper"
-    '    oDataGridViewComboBoxColumn.HeaderText = "Tipo Operación"
-    '    oDataGridViewComboBoxColumn.DataSource = oDAOGeneral.ListaTipoOperacion
-    '    oDataGridViewComboBoxColumn.ValueMember = "Codigo"
-    '    oDataGridViewComboBoxColumn.DisplayMember = "Descripcion"
-    '    oDataGridViewComboBoxColumn.DataPropertyName = "TipoOper"
-    '    oDataGridViewComboBoxColumn.DisplayIndex = 1
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewComboBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "PorcImp"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Porcentaje"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "PorcImp"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTPorcentaje
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 2
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "MontoSujeto"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Monto Sujeto"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "MontoSujeto"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-    '    oDataGridViewTextBoxColumn.ReadOnly = True
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 3
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "MontoImp"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Monto Impuesto"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "MontoImp"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 4
-    '    oDataGridViewTextBoxColumn.ReadOnly = True
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "CodInv"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "CodInv"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.Visible = False
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    Me.dgvImpuestosYComisiones.DataSource = oBonosCE.ImpuestosYComisiones
-    'End Sub
-    'Private Sub PrepararImpuestosYComisiones(ByVal IdFila As Integer)
-    '    Dim vFila As DataGridViewRow = dgvImpuestosYComisiones.Rows(IdFila)
-    '    If vFila.IsNewRow Then
-    '        vFila.Cells("TipoOper").Value = "V"
-    '        vFila.Cells("PorcImp").Value = 0
-    '        vFila.Cells("MontoSujeto").Value = oBonosCE.ValorTransadoVenta
-    '        vFila.Cells("MontoImp").Value = 0.00
-    '    End If
-    'End Sub
-    'Private Sub CalcularImpuestosYComisiones(ByVal IdFila As Integer, ByVal IdCol As Integer)
-    '    Dim vFila As DataGridViewRow = dgvImpuestosYComisiones.Rows(IdFila)
-    '    Dim vTipoOperacion As String
-    '    Dim vCodigoImpuesto As String
-    '    Dim vPorcentajeImpuesto As Double
-    '    Dim vMontoSujeto As Double
-    '    Dim vMontoImpuesto As Double
-
-    '    If Not vFila.IsNewRow Then
-    '        vCodigoImpuesto = vFila.Cells("CodImp").Value.ToString
-    '        vTipoOperacion = vFila.Cells("TipoOper").Value.ToString
-    '        Double.TryParse(vFila.Cells("PorcImp").Value.ToString, vPorcentajeImpuesto)
-    '        If IdCol = 3 Then
-    '            vPorcentajeImpuesto = vPorcentajeImpuesto / 100
-    '            vFila.Cells("PorcImp").Value = vPorcentajeImpuesto
-    '        End If
-
-    '        If vTipoOperacion = "C" Then
-    '            vMontoSujeto = oBonosCE.ValorTransadoCompra
-    '            vFila.Cells("MontoSujeto").Value = oBonosCE.ValorTransadoCompra
-    '        ElseIf vTipoOperacion = "V" Then
-    '            vMontoSujeto = oBonosCE.ValorTransadoVenta
-    '            vFila.Cells("MontoSujeto").Value = oBonosCE.ValorTransadoVenta
-    '        Else
-    '            vMontoSujeto = 0
-    '        End If
-
-    '        vMontoImpuesto = vMontoSujeto * vPorcentajeImpuesto
-    '        vFila.Cells("MontoImp").Value = vMontoImpuesto
-
-    '    End If
-
-    '    RefrescarClaseEntidad()
-    '    RefrescarValorControles()
-    'End Sub
-    'Function CalcularComisiones(ByVal TipoImp As String, ByVal TipoOpe As String)
-    '    Dim Cantidad = dgvImpuestosYComisiones.Rows.Count - 1
-    '    Dim Comision
-    '    For i As Integer = 0 To Cantidad
-
-
-    '        Comision = dgvIngresos.Rows(i).Cells(3)
-    '    Next
-
-
-    'End Function
-    'Private Sub dgvImpuestosYComisiones_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs)
-    '    'ActivarEdicion()
-    '    PrepararImpuestosYComisiones(e.RowIndex)
-    'End Sub
-
-    'Private Sub dgvImpuestosYComisiones_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs)
-    '    CalcularImpuestosYComisiones(e.RowIndex, e.ColumnIndex)
-    'End Sub
-
-    Private Sub dgvImpuestosYComisiones_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs)
-        'ActivarEdicion()
-        oBonosCE.ImpuestosYComisiones.AcceptChanges()
-    End Sub
-
-    Private Sub PrepararTablaIngresos()
-        Dim oDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "CodInv"
-        oDataGridViewTextBoxColumn.DataPropertyName = "CodInv"
-        oDataGridViewTextBoxColumn.HeaderText = "Código Inversión"
-        oDataGridViewTextBoxColumn.ValueType = GetType(String)
-        oDataGridViewTextBoxColumn.Visible = False
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "NumCupon"
-        oDataGridViewTextBoxColumn.DataPropertyName = "NumCupon"
-        oDataGridViewTextBoxColumn.HeaderText = "No. Cupón"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Integer)
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "FechaCupon"
-        oDataGridViewTextBoxColumn.DataPropertyName = "FechaCupon"
-        oDataGridViewTextBoxColumn.HeaderText = "Fecha Cupón"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Date)
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "Dias"
-        oDataGridViewTextBoxColumn.DataPropertyName = "Dias"
-        oDataGridViewTextBoxColumn.HeaderText = "Dias "
-        oDataGridViewTextBoxColumn.ValueType = GetType(Integer)
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "Ingreso"
-        oDataGridViewTextBoxColumn.DataPropertyName = "Ingreso"
-        oDataGridViewTextBoxColumn.HeaderText = "Ingreso"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "PorcentajeImpuesto"
-        oDataGridViewTextBoxColumn.DataPropertyName = "PorcImpuesto"
-        oDataGridViewTextBoxColumn.HeaderText = "% Impuesto"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "MontoImpuesto"
-        oDataGridViewTextBoxColumn.DataPropertyName = "MontoImpuesto"
-        oDataGridViewTextBoxColumn.HeaderText = "Impuesto"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "Liquido"
-        oDataGridViewTextBoxColumn.DataPropertyName = "Liquido"
-        oDataGridViewTextBoxColumn.HeaderText = "Liquido"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-    End Sub
-
-    Private Sub txtValorNominalVenta_LostFocus(sender As Object, e As EventArgs) Handles txtValorNominalVenta.LostFocus
-        ControlValorNominalVenta()
-    End Sub
-    Private Sub ControlValorNominalVenta()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtValorNominalVenta.Text, valor) Then
-            Me.txtValorNominalVenta.BackColor = Configuraciones.ColorFondoError
-            Me.txtValorNominalVenta.Focus()
-        Else
-            Me.txtValorNominalVenta.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                oBonosCE.ValorNominalVenta = valor
-                RefrescarValorControles()
-            End If
-        End If
-
-    End Sub
-
-    Private Sub txtPorcentajeCuponVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPorcentajeCuponVenta.LostFocus
-        ControlPorcentajeCuponVenta()
-    End Sub
-    Private Sub ControlPorcentajeCuponVenta()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtPorcentajeCuponVenta.Text, valor) Then
-            Me.txtPorcentajeCuponVenta.BackColor = Configuraciones.ColorFondoError
-            Me.txtPorcentajeCuponVenta.Focus()
-        Else
-            Me.txtPorcentajeCuponVenta.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                oBonosCE.PorcentajeCuponVenta = valor
-                RefrescarValorControles()
-
-            End If
-        End If
-    End Sub
-
-    Private Sub txtPrecioAlVencimientoVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoVenta.LostFocus
-        ControlPrecioAlVencimientoVenta()
-    End Sub
-    Private Sub ControlPrecioAlVencimientoVenta()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtPrecioAlVencimientoVenta.Text, valor) Then
-            Me.txtPrecioAlVencimientoVenta.BackColor = Configuraciones.ColorFondoError
-            Me.txtPrecioAlVencimientoVenta.Focus()
-        Else
-            Me.txtPrecioAlVencimientoVenta.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                oBonosCE.PrecioAlVencimientoVenta = valor
-                RefrescarValorControles()
-            End If
-        End If
-    End Sub
-
-    Private Sub txtPrecioVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioVenta.LostFocus
-        ControlPrecioVenta()
-    End Sub
-    Private Sub ControlPrecioVenta()
-        Dim valor As Double
-        If Not Double.TryParse(txtPrecioVenta.Text, valor) Then
-            txtPrecioVenta.BackColor = Configuraciones.ColorFondoError
-            txtPrecioVenta.Focus()
-        Else
-            txtPrecioVenta.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                oBonosCE.PrecioVenta = valor
-                RefrescarValorControles()
-            End If
-        End If
-    End Sub
-
-    Private Sub dgvIngresos_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIngresos.CellContentClick
-
-    End Sub
-    Private Sub PrepararCalculoIngresos(ByVal IdFila As Integer)
-        Dim vFila As DataGridViewRow = dgvIngresos.Rows(IdFila)
-        Dim vFilaAnterior As DataGridViewRow
-        Dim vNumCupon As Integer
-        Dim vFechaCupon As Date
-        Dim vFechaCuponAnterior As Date
-        Dim vDias As Integer
-
-        vFechaCupon = Date.Now.Date
-
-        If IdFila > 0 Then
-            vFilaAnterior = dgvIngresos.Rows(IdFila - 1)
-            vNumCupon = vFilaAnterior.Cells("NumCupon").Value
-            vNumCupon += 1
-            vFechaCuponAnterior = vFilaAnterior.Cells("FechaCupon").Value
-            'vFechaCupon = oBonosCE.SiguienteFechaCuponCompra
-        Else
-            vNumCupon = 1
-            vFechaCuponAnterior = oBonosCE.UltimaFechaCuponCompra
-        End If
-
-        vDias = DateDiff(DateInterval.Day, vFechaCuponAnterior, vFechaCupon)
-
-        If vFila.IsNewRow Then
-            vFila.Cells("NumCupon").Value = vNumCupon
-            vFila.Cells("FechaCupon").Value = vFechaCupon
-            vFila.Cells("Dias").Value = vDias
-            vFila.Cells("Ingreso").Value = 0
-            vFila.Cells("PorcentajeImpuesto").Value = 10
-            vFila.Cells("MontoImpuesto").Value = 0
-            vFila.Cells("Liquido").Value = 0.00
-        End If
-    End Sub
-    Private Sub dgvIngresos_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs) Handles dgvIngresos.CellBeginEdit
-        'ActivarEdicion()
-        PrepararCalculoIngresos(e.RowIndex)
-    End Sub
-
-    Private Sub dgvIngresos_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIngresos.CellEndEdit
-        CalcularIngresos(e.RowIndex)
-    End Sub
-
-    Private Sub dgvIngresos_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles dgvIngresos.UserDeletedRow
-        'ActivarEdicion()
-        oBonosCE.Ingresos.AcceptChanges()
-    End Sub
-
-    Private Sub dgvImpuestosYComisiones_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
-
-    End Sub
-
-    Private Sub btnAccionComision_Click(sender As Object, e As EventArgs)
-        If (Estado = "N") Then
-            'NuevaComision()
-        ElseIf (Estado = "M") Then
-            'ModificarComision()
-        ElseIf (Estado = "B") Then
-            EliminarComision()
-        End If
-    End Sub
-
-    'Function ColecccionComisiones()
-    '    Dim coleccion As New Collection
-    '    Dim TipoImp, TipOp, MontoSuje, PorcImp, MontoImp As String
-    '    TipoImp = dgvImpuestosYComisiones.CurrentRow.Cells(0).Value
-    '    TipOp = dgvImpuestosYComisiones.CurrentRow.Cells(1).Value
-    '    PorcImp = CDec(dgvImpuestosYComisiones.CurrentRow.Cells(2).Value.ToString.TrimEnd("%") / 100)
-    '    MontoSuje = dgvImpuestosYComisiones.CurrentRow.Cells(3).Value
-    '    MontoImp = dgvImpuestosYComisiones.CurrentRow.Cells(4).Value.ToString.TrimEnd("%")
-
-    '    coleccion.Add(TipoImp)
-    '    coleccion.Add(TipOp)
-    '    coleccion.Add(PorcImp)
-    '    coleccion.Add(MontoSuje)
-    '    coleccion.Add(MontoImp)
-    '    Return coleccion
-    'End Function
-
-
-    Function ColeccionIngresos()
-        Dim coleccion As New Collection
-        Dim NoCupon, Fecha, Ingreso, PorcImpuesto, Impuesto, Dias As String
-        NoCupon = dgvIngresos.CurrentRow.Cells(1).Value
-        Fecha = dgvIngresos.CurrentRow.Cells(2).Value
-        Dias = dgvIngresos.CurrentRow.Cells(3).Value
-        Ingreso = dgvIngresos.CurrentRow.Cells(4).Value
-        PorcImpuesto = dgvIngresos.CurrentRow.Cells(5).Value
-        Impuesto = dgvIngresos.CurrentRow.Cells(6).Value
-
-        coleccion.Add(NocUpon)
-        coleccion.Add(Fecha)
-        coleccion.Add(Dias)
-        coleccion.Add(Ingreso)
-        coleccion.Add(PorcImpuesto)
-        coleccion.Add(Impuesto)
-        Return coleccion
-    End Function
-
-    'Sub NuevaComision()
-    '    Dim coleccion = ColecccionComisiones()
-    '    BonosConsulta.NuevoImpuesto(coleccion, codigo)
-    'End Sub
-
-    Sub NuevoIngreso()
-        Dim coleccion = ColeccionIngresos()
-        '   BonosConsulta.NuevoIngreso(coleccion, codigo)
-    End Sub
-    'Sub ModificarComision()
-    '    Dim coleccion = ColecccionComisiones()
-    '    BonosConsulta.ModificarImpuesto(coleccion, codigo)
-    'End Sub
-
-    Sub ModificarIngreso()
-        Dim coleccion = ColeccionIngresos()
-        '    BonosConsulta.ModificarIngreso(coleccion, codigo)
-    End Sub
-
-    Sub EliminarComision()
-        BonosConsulta.EliminarImpuesto(codigo)
-    End Sub
-
-    Sub EliminarIngreso()
-        Dim NoCupon = dgvIngresos.CurrentRow.Cells(0).Value
-        ' BonosConsulta.EliminarIngreso(codigo, NoCupon)
-    End Sub
-
-    Private Sub navModificar_Click(sender As Object, e As EventArgs) Handles navModificar.Click
-        'btnAccionComision.Text = "Modificar"
-        btnAccionIngreso.Text = "Modificar"
-        Estado = "M"
-    End Sub
-
-    Private Sub navNuevo_Click(sender As Object, e As EventArgs) Handles navNuevo.Click
-        'btnAccionComision.Text = "Nuevo"
-        btnAccionIngreso.Text = "Nuevo"
-        Estado = "N"
-    End Sub
-
-    Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click
-        'btnAccionComision.Text = "Eliminar"
-        btnAccionIngreso.Text = "Eliminar"
-        Estado = "B"
-    End Sub
-
-    'Sub CargarComisiones()
-
-    '    Dim codigo As String = Variables.Codigo
-    '    Dim dr = BonosConsulta.CargarImpuestos(codigo)
-    '    While dr.Read
-    '        dgvImpuestosYComisiones.Rows.Add(dr("TipoImp"), dr("TipoOp"), ((dr("PorcImp") * 100.0).ToString + "%"), dr("MontoSuje"), dr("MontoImp"))
-    '    End While
-
-
-    'End Sub
-
-    Sub CargarIngresos()
-
-        Dim codigo As String = Variables.Codigo
-        Dim dr = BonosConsulta.CargarIngreso(codigo, InstrumentoFinanciero)
-        While dr.Read
-            dgvIngresos.Rows.Add("", dr("NoCupon"), dr("Fecha"), dr("Dias"), dr("Ingreso"), dr("PorcImpuesto"), dr("Impuesto"))
-        End While
-
-
-    End Sub
-
-    Private Sub btnAccionIngreso_Click(sender As Object, e As EventArgs) Handles btnAccionIngreso.Click
-        If (Estado = "N") Then
-            NuevoIngreso()
-        ElseIf (Estado = "M") Then
-            ModificarIngreso()
-        ElseIf (Estado = "B") Then
-            EliminarIngreso()
-        End If
-    End Sub
-
-    Private Sub TabPage1_Click(sender As Object, e As EventArgs) Handles TabPage1.Click
-
-    End Sub
-
-    Private Sub txtValorNominalCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtValorNominalCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtValorNominalVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtValorNominalVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPorcentajeCuponCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPorcentajeCuponCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPorcentajeCuponVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPorcentajeCuponVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPrecioAlVencimientoCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecioAlVencimientoCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPrecioAlVencimientoVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecioAlVencimientoVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPrecioCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecioCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPrecioVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecioVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtCostoTransferenciaCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCostoTransferenciaCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtCostoTransferenciaVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCostoTransferenciaVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-End Class

FRM/frmBuscarReporteVenta.Designer.vb

@@ -30,6 +30,8 @@ Partial Class frmBuscarReporteVenta
         Me.lblEmpresa = New System.Windows.Forms.Label()
         Me.dgvReportoCompras = New System.Windows.Forms.DataGridView()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.rdbDeshabilitarFecha = New System.Windows.Forms.RadioButton()
         Me.rdbRangoFechas = New System.Windows.Forms.RadioButton()
@@ -39,16 +41,14 @@ Partial Class frmBuscarReporteVenta
         Me.dtpFechaOperacion2 = New System.Windows.Forms.DateTimePicker()
         Me.dtpFechaOperacion1 = New System.Windows.Forms.DateTimePicker()
         Me.grpVigencia = New System.Windows.Forms.GroupBox()
-        Me.rdbVigente = New System.Windows.Forms.RadioButton()
         Me.rdbTodosVigencia = New System.Windows.Forms.RadioButton()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.rdbVigente = New System.Windows.Forms.RadioButton()
         CType(Me.dgvReportoCompras, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.Panel2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.grpVigencia.SuspendLayout()
-        Me.Panel2.SuspendLayout()
-        Me.Panel3.SuspendLayout()
         Me.SuspendLayout()
         '
         'dtpFechaOperacion
@@ -132,6 +132,30 @@ Partial Class frmBuscarReporteVenta
         Me.Panel1.Size = New System.Drawing.Size(907, 424)
         Me.Panel1.TabIndex = 5
         '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.dgvReportoCompras)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel3.Location = New System.Drawing.Point(0, 142)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(907, 282)
+        Me.Panel3.TabIndex = 9
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.Controls.Add(Me.GroupBox1)
+        Me.Panel2.Controls.Add(Me.grpVigencia)
+        Me.Panel2.Controls.Add(Me.cboCasaCorredora)
+        Me.Panel2.Controls.Add(Me.lblEmpresa)
+        Me.Panel2.Controls.Add(Me.lblCasa)
+        Me.Panel2.Controls.Add(Me.cboEmpresa)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(907, 142)
+        Me.Panel2.TabIndex = 8
+        '
         'GroupBox1
         '
         Me.GroupBox1.Controls.Add(Me.rdbDeshabilitarFecha)
@@ -227,18 +251,6 @@ Partial Class frmBuscarReporteVenta
         Me.grpVigencia.TabStop = False
         Me.grpVigencia.Text = "Vigencia"
         '
-        'rdbVigente
-        '
-        Me.rdbVigente.AutoSize = True
-        Me.rdbVigente.Checked = True
-        Me.rdbVigente.Location = New System.Drawing.Point(8, 24)
-        Me.rdbVigente.Name = "rdbVigente"
-        Me.rdbVigente.Size = New System.Drawing.Size(128, 17)
-        Me.rdbVigente.TabIndex = 15
-        Me.rdbVigente.TabStop = True
-        Me.rdbVigente.Text = "Mostrar Solo Vigentes"
-        Me.rdbVigente.UseVisualStyleBackColor = True
-        '
         'rdbTodosVigencia
         '
         Me.rdbTodosVigencia.AutoSize = True
@@ -249,28 +261,17 @@ Partial Class frmBuscarReporteVenta
         Me.rdbTodosVigencia.Text = "Mostrar Todos"
         Me.rdbTodosVigencia.UseVisualStyleBackColor = True
         '
-        'Panel2
-        '
-        Me.Panel2.Controls.Add(Me.GroupBox1)
-        Me.Panel2.Controls.Add(Me.grpVigencia)
-        Me.Panel2.Controls.Add(Me.cboCasaCorredora)
-        Me.Panel2.Controls.Add(Me.lblEmpresa)
-        Me.Panel2.Controls.Add(Me.lblCasa)
-        Me.Panel2.Controls.Add(Me.cboEmpresa)
-        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel2.Location = New System.Drawing.Point(0, 0)
-        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(907, 142)
-        Me.Panel2.TabIndex = 8
-        '
-        'Panel3
+        'rdbVigente
         '
-        Me.Panel3.Controls.Add(Me.dgvReportoCompras)
-        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel3.Location = New System.Drawing.Point(0, 142)
-        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(907, 282)
-        Me.Panel3.TabIndex = 9
+        Me.rdbVigente.AutoSize = True
+        Me.rdbVigente.Checked = True
+        Me.rdbVigente.Location = New System.Drawing.Point(8, 24)
+        Me.rdbVigente.Name = "rdbVigente"
+        Me.rdbVigente.Size = New System.Drawing.Size(128, 17)
+        Me.rdbVigente.TabIndex = 15
+        Me.rdbVigente.TabStop = True
+        Me.rdbVigente.Text = "Mostrar Solo Vigentes"
+        Me.rdbVigente.UseVisualStyleBackColor = True
         '
         'frmBuscarReporteVenta
         '
@@ -278,17 +279,17 @@ Partial Class frmBuscarReporteVenta
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(907, 424)
         Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmBuscarReporteVenta"
-        Me.Text = "frmBuscarReporteVenta"
         CType(Me.dgvReportoCompras, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
         Me.grpVigencia.ResumeLayout(False)
         Me.grpVigencia.PerformLayout()
-        Me.Panel2.ResumeLayout(False)
-        Me.Panel2.PerformLayout()
-        Me.Panel3.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub

FRM/frmCertificadosDeInversion.Designer.vb

@@ -139,7 +139,6 @@ Partial Class frmCertificadosDeInversion
         Me.GrpInfoAcc = New System.Windows.Forms.GroupBox()
         Me.btnQuitar = New System.Windows.Forms.Button()
         Me.pnlPie = New System.Windows.Forms.Panel()
-        Me.Button1 = New System.Windows.Forms.Button()
         Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
         Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
         Me.navModificar = New System.Windows.Forms.ToolStripButton()
@@ -862,23 +861,29 @@ Partial Class frmCertificadosDeInversion
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
         Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAceptar.Location = New System.Drawing.Point(10, 3)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
         Me.btnAceptar.TabIndex = 106
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(91, 3)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 107
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'cboAnioBaseC
         '
@@ -931,6 +936,7 @@ Partial Class frmCertificadosDeInversion
         'dgvIngresos
         '
         Me.dgvIngresos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvIngresos.BackgroundColor = System.Drawing.Color.WhiteSmoke
         Me.dgvIngresos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvIngresos.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvIngresos.Location = New System.Drawing.Point(0, 0)
@@ -963,6 +969,7 @@ Partial Class frmCertificadosDeInversion
         'TabPage1
         '
         Me.TabPage1.AutoScroll = True
+        Me.TabPage1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TabPage1.Controls.Add(Me.btnVenderTitulo)
         Me.TabPage1.Controls.Add(Me.GrpVenta)
         Me.TabPage1.Controls.Add(Me.GrpCompra)
@@ -974,16 +981,18 @@ Partial Class frmCertificadosDeInversion
         Me.TabPage1.Size = New System.Drawing.Size(929, 516)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Operación"
-        Me.TabPage1.UseVisualStyleBackColor = True
         '
         'btnVenderTitulo
         '
-        Me.btnVenderTitulo.Location = New System.Drawing.Point(587, 6)
+        Me.btnVenderTitulo.BackColor = System.Drawing.Color.White
+        Me.btnVenderTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVenderTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.btnVenderTitulo.Location = New System.Drawing.Point(574, 18)
         Me.btnVenderTitulo.Name = "btnVenderTitulo"
-        Me.btnVenderTitulo.Size = New System.Drawing.Size(75, 51)
+        Me.btnVenderTitulo.Size = New System.Drawing.Size(98, 28)
         Me.btnVenderTitulo.TabIndex = 142
         Me.btnVenderTitulo.Text = "Vender Titulo"
-        Me.btnVenderTitulo.UseVisualStyleBackColor = True
+        Me.btnVenderTitulo.UseVisualStyleBackColor = False
         Me.btnVenderTitulo.Visible = False
         '
         'GrpVenta
@@ -1221,6 +1230,7 @@ Partial Class frmCertificadosDeInversion
         '
         'TabPage4
         '
+        Me.TabPage4.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TabPage4.Controls.Add(Me.GrpDatos)
         Me.TabPage4.Controls.Add(Me.GrpInfoAcc)
         Me.TabPage4.Controls.Add(Me.Label35)
@@ -1229,7 +1239,6 @@ Partial Class frmCertificadosDeInversion
         Me.TabPage4.Size = New System.Drawing.Size(929, 516)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Resultado de la Op."
-        Me.TabPage4.UseVisualStyleBackColor = True
         '
         'GrpDatos
         '
@@ -1275,16 +1284,18 @@ Partial Class frmCertificadosDeInversion
         '
         'btnQuitar
         '
+        Me.btnQuitar.BackColor = System.Drawing.Color.White
+        Me.btnQuitar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuitar.ForeColor = System.Drawing.Color.Maroon
         Me.btnQuitar.Location = New System.Drawing.Point(172, 3)
         Me.btnQuitar.Name = "btnQuitar"
         Me.btnQuitar.Size = New System.Drawing.Size(78, 23)
         Me.btnQuitar.TabIndex = 117
         Me.btnQuitar.Text = "Quitar"
-        Me.btnQuitar.UseVisualStyleBackColor = True
+        Me.btnQuitar.UseVisualStyleBackColor = False
         '
         'pnlPie
         '
-        Me.pnlPie.Controls.Add(Me.Button1)
         Me.pnlPie.Controls.Add(Me.btnAceptar)
         Me.pnlPie.Controls.Add(Me.btnQuitar)
         Me.pnlPie.Controls.Add(Me.btnCancelar)
@@ -1294,15 +1305,6 @@ Partial Class frmCertificadosDeInversion
         Me.pnlPie.Size = New System.Drawing.Size(937, 46)
         Me.pnlPie.TabIndex = 122
         '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(256, 3)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 118
-        Me.Button1.Text = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
         'BindingNavigator1
         '
         Me.BindingNavigator1.AddNewItem = Nothing
@@ -1544,6 +1546,5 @@ Partial Class frmCertificadosDeInversion
     Friend WithEvents Panel2 As Panel
     Friend WithEvents GrpDatos As GroupBox
     Friend WithEvents GrpInfoAcc As GroupBox
-    Friend WithEvents Button1 As Button
     Friend WithEvents btnVenderTitulo As Button
 End Class

FRM/frmCertificadosDeInversion.resx

@@ -140,27 +140,27 @@
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIbdDmVtYWFlha1zJ0CdgA5MwQmP
-        EGRiEEuY660IIYQqdSpLixoeAVEcIdGuSDyiIMzDhChJmwcoYIOTOE38UFAOvldJIBGuIn7p09Gxz/2u
+        EGRiEEuY660IIYQqdSpLixoeASocIdGuSDyiIMzDhChJmwcoYIOTOE38UFAOvldJIBGuIn7p09Gxz/2u
         fS+BkubmXif4+cY496UtfrbaxvOeV/hFPQmFPjdkTqbepIMzLVH/h0IuwPTTzgkfNUKJDjslDtdgN6AG
-        x5JWi30bCxK7s41yYLpL2+8E3d8DOtcHqiKBqv0zJZeXAUmw4NL3qSnjf6/8ZNqL+vHYW22vA7RDEsKp
-        oilIQpKUWBJ8b8ryTKt+0AvazjtQfd0gCILORZLww70MG6y3wuraOhxHb6oF6MAE3tM8MuS40wwJu8Ve
+        x5JWi30bCxK7s41yYLpL2+8E3d8DOtcHqiKBqv0zJZeXAUmw4NL3qSnjf6+sM+1F/XjsrbbXAdohCeFU
+        0RQkIUlKLAm+N2V5plU/6AVt5x2ovm4QBEHnIkn44V6GDdZbYXXtJxxHb6oF6MAE3tM8MuS40wwJu8Ve
         oIGoVICIqEDYICKqFaKpQrWgnH7bsCKmZWC9m3ggeCHB1/lvsLDgrrC45IFQUjYXSNk8/lQ0ELvJAf/3
         Ck7+VBO7VeoTBJI54CJXcGiAapnzaxOBrUZwlpDAvbhSOUAE6s8vMyYCa7UgfFuAoKA8YOwcvFbx87oE
         R09cI+pPYzXXWI6VHEo9FiTkIiZeqo95UmCxjObThmDr12888D8UNQsDA+N8aSlBAMAL4xdYl+sjOEdd
-        QDsncTWDpmndRjq8DMO8LCmeG4K4B04tbBPumXp1AAAAAElFTkSuQmCC
+        QDsncTWDpmndRjq8DMO8LCmeG4K4B0elbBFu/9keAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwVnAQwUnpJvW++QMU
-        F1HEycFB0cVNUHHQEDo5uehgB21RQYi6CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
-        Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
-        YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
-        VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
-        VUAhm1e/gPulfhjBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAcJB/qimolFDbxTs/
-        KktZa8bakKtYFgQCgWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
-        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AD0lg7Tvh7efAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv0BLuLgFRxEcKp0k2q9bP4A
+        xUUUcXJwaNHFTVBx0BA6ObnooEOkWKEQdREEFwc3byApvdlb0nv7er7Q1GpbWz94SDic98n3nUO4SnUz
+        bAx7C/oZZkZd2dLpdFyW5VKxWEQjstksBEE4YHsbSuwUVlUVmqZVSSQSiMViCAaDuiQQCEAUxTqJiWGn
+        DZlMBrlcTn8SqVQK8XgcoVBIF7AuQR/xeDyGRK+qgMIGJKBAMplEOBz+MQ5BmUr2W1AoFKob6J3mNkaJ
+        RCJ6J4qiNBf8plZCndB5RKPR9gWEIaFx6ExIROttC4h8Pq+fC0kIWvuXgLp4OzvE3eIw/JNW3Mz3QbCb
+        xD8FFDJ4Pxfw6BpDxruP8pMP2sk6ZMdI6WrcstZSQO3fLgwizcI4nAXcHcD2AMK74/BO8C9NBbUSarv8
+        cI7aim11YctpKVcFkiSVG0mI67leqEdLAAtlXRw+Ge+rPHzT/AcJqEbZ9WjNfqbX0z3crwxBcQ8gtGHF
+        87IJfoeldDll3qzkuR7GKIOupiFHM52i5OQVavvCwQePx/gdjuO4LzjPg67qZHpoAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="btnIngresos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

FRM/frmCertificadosDeInversion.vb

@@ -4312,7 +4312,7 @@
 
     End Sub
 
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs)
 
     End Sub
 

FRM/frmColaTitulos.Designer.vb

@@ -64,7 +64,6 @@ Partial Class frmColaTitulos
         Me.Label1 = New System.Windows.Forms.Label()
         Me.dgvEspApro = New System.Windows.Forms.DataGridView()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.btnVerEstado = New System.Windows.Forms.Button()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.grpCancelados = New System.Windows.Forms.GroupBox()
         Me.dgvCancelados = New System.Windows.Forms.DataGridView()
@@ -89,9 +88,10 @@ Partial Class frmColaTitulos
         '
         Me.lblTitulo.Anchor = System.Windows.Forms.AnchorStyles.Top
         Me.lblTitulo.AutoSize = True
+        Me.lblTitulo.BackColor = System.Drawing.Color.WhiteSmoke
         Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.ForeColor = System.Drawing.Color.White
-        Me.lblTitulo.Location = New System.Drawing.Point(-152, 9)
+        Me.lblTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.lblTitulo.Location = New System.Drawing.Point(-6, 9)
         Me.lblTitulo.Name = "lblTitulo"
         Me.lblTitulo.Size = New System.Drawing.Size(256, 24)
         Me.lblTitulo.TabIndex = 81
@@ -104,23 +104,23 @@ Partial Class frmColaTitulos
         DataGridViewCellStyle1.ForeColor = System.Drawing.Color.Black
         DataGridViewCellStyle1.SelectionForeColor = System.Drawing.Color.Black
         Me.dgvColaReportos.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.dgvColaReportos.BackgroundColor = System.Drawing.Color.CornflowerBlue
+        Me.dgvColaReportos.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvColaReportos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.White
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
         Me.dgvColaReportos.DefaultCellStyle = DataGridViewCellStyle2
         Me.dgvColaReportos.GridColor = System.Drawing.Color.Gray
-        Me.dgvColaReportos.Location = New System.Drawing.Point(19, 42)
+        Me.dgvColaReportos.Location = New System.Drawing.Point(13, 19)
         Me.dgvColaReportos.Name = "dgvColaReportos"
         Me.dgvColaReportos.RowHeadersVisible = False
         DataGridViewCellStyle3.ForeColor = System.Drawing.Color.Black
         Me.dgvColaReportos.RowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.dgvColaReportos.Size = New System.Drawing.Size(1281, 194)
+        Me.dgvColaReportos.Size = New System.Drawing.Size(1287, 217)
         Me.dgvColaReportos.TabIndex = 82
         '
         'dgvGeneradosReportos
@@ -129,12 +129,12 @@ Partial Class frmColaTitulos
         Me.dgvGeneradosReportos.AllowUserToDeleteRows = False
         Me.dgvGeneradosReportos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvGeneradosReportos.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvGeneradosReportos.BackgroundColor = System.Drawing.Color.Khaki
+        Me.dgvGeneradosReportos.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvGeneradosReportos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -160,7 +160,7 @@ Partial Class frmColaTitulos
         'lblGenerados
         '
         Me.lblGenerados.AutoSize = True
-        Me.lblGenerados.ForeColor = System.Drawing.Color.White
+        Me.lblGenerados.ForeColor = System.Drawing.Color.Maroon
         Me.lblGenerados.Location = New System.Drawing.Point(863, 24)
         Me.lblGenerados.Name = "lblGenerados"
         Me.lblGenerados.Size = New System.Drawing.Size(247, 13)
@@ -171,7 +171,7 @@ Partial Class frmColaTitulos
         '
         Me.grpPropuesta.Controls.Add(Me.dgvColaReportos)
         Me.grpPropuesta.Controls.Add(Me.lblPropuestaTitulo)
-        Me.grpPropuesta.ForeColor = System.Drawing.Color.White
+        Me.grpPropuesta.ForeColor = System.Drawing.Color.Maroon
         Me.grpPropuesta.Location = New System.Drawing.Point(5, 308)
         Me.grpPropuesta.Name = "grpPropuesta"
         Me.grpPropuesta.Size = New System.Drawing.Size(1306, 253)
@@ -190,7 +190,7 @@ Partial Class frmColaTitulos
         Me.grpTitulos.Controls.Add(Me.Label2)
         Me.grpTitulos.Controls.Add(Me.dgvGenerarTitulos)
         Me.grpTitulos.Controls.Add(Me.Label3)
-        Me.grpTitulos.ForeColor = System.Drawing.Color.White
+        Me.grpTitulos.ForeColor = System.Drawing.Color.Maroon
         Me.grpTitulos.Location = New System.Drawing.Point(5, 36)
         Me.grpTitulos.Name = "grpTitulos"
         Me.grpTitulos.Size = New System.Drawing.Size(1306, 266)
@@ -209,8 +209,9 @@ Partial Class frmColaTitulos
         '
         'btnGenerarReporto
         '
-        Me.btnGenerarReporto.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.btnGenerarReporto.ForeColor = System.Drawing.Color.Black
+        Me.btnGenerarReporto.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.btnGenerarReporto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGenerarReporto.ForeColor = System.Drawing.Color.White
         Me.btnGenerarReporto.Location = New System.Drawing.Point(244, 216)
         Me.btnGenerarReporto.Name = "btnGenerarReporto"
         Me.btnGenerarReporto.Size = New System.Drawing.Size(153, 44)
@@ -222,12 +223,12 @@ Partial Class frmColaTitulos
         '
         Me.dgvDetalles.AllowUserToAddRows = False
         Me.dgvDetalles.AllowUserToDeleteRows = False
-        Me.dgvDetalles.BackgroundColor = System.Drawing.Color.DodgerBlue
+        Me.dgvDetalles.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvDetalles.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -242,8 +243,9 @@ Partial Class frmColaTitulos
         '
         'Button1
         '
-        Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.BackColor = System.Drawing.Color.White
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.Maroon
         Me.Button1.Location = New System.Drawing.Point(45, 35)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(149, 225)
@@ -257,12 +259,12 @@ Partial Class frmColaTitulos
         Me.dgvColaTitulos.AllowUserToDeleteRows = False
         Me.dgvColaTitulos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvColaTitulos.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvColaTitulos.BackgroundColor = System.Drawing.Color.LightGray
+        Me.dgvColaTitulos.BackgroundColor = System.Drawing.Color.White
         Me.dgvColaTitulos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle8.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle8.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -277,8 +279,9 @@ Partial Class frmColaTitulos
         '
         'btnGenerarTitulo
         '
-        Me.btnGenerarTitulo.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.btnGenerarTitulo.ForeColor = System.Drawing.Color.Black
+        Me.btnGenerarTitulo.BackColor = System.Drawing.Color.Black
+        Me.btnGenerarTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGenerarTitulo.ForeColor = System.Drawing.Color.White
         Me.btnGenerarTitulo.Location = New System.Drawing.Point(1090, 216)
         Me.btnGenerarTitulo.Name = "btnGenerarTitulo"
         Me.btnGenerarTitulo.Size = New System.Drawing.Size(153, 44)
@@ -301,12 +304,12 @@ Partial Class frmColaTitulos
         Me.dgvGenerarTitulos.AllowUserToDeleteRows = False
         Me.dgvGenerarTitulos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvGenerarTitulos.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvGenerarTitulos.BackgroundColor = System.Drawing.Color.LightGray
+        Me.dgvGenerarTitulos.BackgroundColor = System.Drawing.Color.White
         Me.dgvGenerarTitulos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle10.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle10.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -335,7 +338,7 @@ Partial Class frmColaTitulos
         Me.GroupBox2.Controls.Add(Me.Label4)
         Me.GroupBox2.Controls.Add(Me.dgvReporteados)
         Me.GroupBox2.Controls.Add(Me.Label1)
-        Me.GroupBox2.ForeColor = System.Drawing.Color.White
+        Me.GroupBox2.ForeColor = System.Drawing.Color.Maroon
         Me.GroupBox2.Location = New System.Drawing.Point(5, 1120)
         Me.GroupBox2.Name = "GroupBox2"
         Me.GroupBox2.Size = New System.Drawing.Size(1306, 276)
@@ -349,12 +352,12 @@ Partial Class frmColaTitulos
         Me.dgvTitulosRaiz.AllowUserToDeleteRows = False
         Me.dgvTitulosRaiz.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvTitulosRaiz.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvTitulosRaiz.BackgroundColor = System.Drawing.Color.SandyBrown
+        Me.dgvTitulosRaiz.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvTitulosRaiz.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle12.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -382,12 +385,12 @@ Partial Class frmColaTitulos
         Me.dgvReporteados.AllowUserToDeleteRows = False
         Me.dgvReporteados.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvReporteados.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvReporteados.BackgroundColor = System.Drawing.Color.Salmon
+        Me.dgvReporteados.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvReporteados.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle14.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle14.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -415,12 +418,12 @@ Partial Class frmColaTitulos
         Me.dgvEspApro.AllowUserToDeleteRows = False
         Me.dgvEspApro.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvEspApro.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvEspApro.BackgroundColor = System.Drawing.Color.LightGreen
+        Me.dgvEspApro.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvEspApro.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle16.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle16.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -436,29 +439,20 @@ Partial Class frmColaTitulos
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.ForeColor = System.Drawing.Color.White
+        Me.Label5.ForeColor = System.Drawing.Color.Maroon
         Me.Label5.Location = New System.Drawing.Point(215, 24)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(149, 13)
         Me.Label5.TabIndex = 91
         Me.Label5.Text = "Titulos Esperando Aprobación"
         '
-        'btnVerEstado
-        '
-        Me.btnVerEstado.Location = New System.Drawing.Point(270, 9)
-        Me.btnVerEstado.Name = "btnVerEstado"
-        Me.btnVerEstado.Size = New System.Drawing.Size(111, 26)
-        Me.btnVerEstado.TabIndex = 89
-        Me.btnVerEstado.Text = "Ver Estado"
-        Me.btnVerEstado.UseVisualStyleBackColor = True
-        '
         'GroupBox1
         '
         Me.GroupBox1.Controls.Add(Me.dgvEspApro)
         Me.GroupBox1.Controls.Add(Me.Label5)
         Me.GroupBox1.Controls.Add(Me.dgvGeneradosReportos)
         Me.GroupBox1.Controls.Add(Me.lblGenerados)
-        Me.GroupBox1.ForeColor = System.Drawing.Color.White
+        Me.GroupBox1.ForeColor = System.Drawing.Color.Maroon
         Me.GroupBox1.Location = New System.Drawing.Point(5, 570)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Size = New System.Drawing.Size(1306, 253)
@@ -470,10 +464,10 @@ Partial Class frmColaTitulos
         '
         Me.grpCancelados.Controls.Add(Me.dgvCancelados)
         Me.grpCancelados.Controls.Add(Me.Label7)
-        Me.grpCancelados.ForeColor = System.Drawing.Color.White
+        Me.grpCancelados.ForeColor = System.Drawing.Color.Maroon
         Me.grpCancelados.Location = New System.Drawing.Point(5, 829)
         Me.grpCancelados.Name = "grpCancelados"
-        Me.grpCancelados.Size = New System.Drawing.Size(638, 276)
+        Me.grpCancelados.Size = New System.Drawing.Size(1300, 276)
         Me.grpCancelados.TabIndex = 91
         Me.grpCancelados.TabStop = False
         Me.grpCancelados.Text = "Cancelados"
@@ -484,12 +478,12 @@ Partial Class frmColaTitulos
         Me.dgvCancelados.AllowUserToDeleteRows = False
         Me.dgvCancelados.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvCancelados.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvCancelados.BackgroundColor = System.Drawing.Color.Salmon
+        Me.dgvCancelados.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvCancelados.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle18.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle18.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -499,13 +493,13 @@ Partial Class frmColaTitulos
         Me.dgvCancelados.RowHeadersVisible = False
         DataGridViewCellStyle19.ForeColor = System.Drawing.Color.Black
         Me.dgvCancelados.RowsDefaultCellStyle = DataGridViewCellStyle19
-        Me.dgvCancelados.Size = New System.Drawing.Size(602, 194)
+        Me.dgvCancelados.Size = New System.Drawing.Size(1273, 194)
         Me.dgvCancelados.TabIndex = 86
         '
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(262, 26)
+        Me.Label7.Location = New System.Drawing.Point(641, 26)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(63, 13)
         Me.Label7.TabIndex = 87
@@ -516,17 +510,16 @@ Partial Class frmColaTitulos
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
-        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(1336, 605)
         Me.Controls.Add(Me.grpCancelados)
         Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.btnVerEstado)
         Me.Controls.Add(Me.GroupBox2)
         Me.Controls.Add(Me.grpTitulos)
         Me.Controls.Add(Me.grpPropuesta)
         Me.Controls.Add(Me.lblTitulo)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmColaTitulos"
-        Me.Text = "frmColaTitulos"
         CType(Me.dgvColaReportos, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvGeneradosReportos, System.ComponentModel.ISupportInitialize).EndInit()
         Me.grpPropuesta.ResumeLayout(False)
@@ -574,7 +567,6 @@ Partial Class frmColaTitulos
     Friend WithEvents Label4 As Label
     Friend WithEvents dgvEspApro As DataGridView
     Friend WithEvents Label5 As Label
-    Friend WithEvents btnVerEstado As Button
     Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents grpCancelados As GroupBox
     Friend WithEvents dgvCancelados As DataGridView

FRM/frmColaTitulos.vb

@@ -391,7 +391,7 @@
 
     End Sub
 
-    Private Sub btnVerEstado_Click(sender As Object, e As EventArgs) Handles btnVerEstado.Click
+    Private Sub btnVerEstado_Click(sender As Object, e As EventArgs) 
 
     End Sub
 

FRM/frmCostosReportos.Designer.vb

@@ -1,55 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmCostosReportos
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.dgvReportoCostos = New System.Windows.Forms.DataGridView()
-        CType(Me.dgvReportoCostos, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'dgvReportoCostos
-        '
-        Me.dgvReportoCostos.AllowUserToAddRows = False
-        Me.dgvReportoCostos.AllowUserToDeleteRows = False
-        Me.dgvReportoCostos.BackgroundColor = System.Drawing.Color.White
-        Me.dgvReportoCostos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvReportoCostos.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvReportoCostos.Location = New System.Drawing.Point(0, 0)
-        Me.dgvReportoCostos.Name = "dgvReportoCostos"
-        Me.dgvReportoCostos.Size = New System.Drawing.Size(856, 356)
-        Me.dgvReportoCostos.TabIndex = 0
-        '
-        'frmCostosReportos
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(856, 356)
-        Me.Controls.Add(Me.dgvReportoCostos)
-        Me.Name = "frmCostosReportos"
-        Me.Text = "frmCostosReportos"
-        CType(Me.dgvReportoCostos, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents dgvReportoCostos As DataGridView
-End Class

FRM/frmCostosReportos.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmCostosReportos.vb

@@ -1,28 +0,0 @@
-Public Class frmCostosReportos
-    Private Sub frmCostosReportos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        CargarDatosBusqueda()
-    End Sub
-
-
-    Sub CargarDatosBusqueda()
-        Dim ReportoVenta As New ReportosDAO
-        Dim ds As New DataSet
-        Dim FechaOperacion1 As Date = Date.Today.Date
-        Dim FechaOperacion2 As Date = Date.Today.Date
-        Dim Empresa As String = ""
-        Dim CasaCorredora As String = ""
-        Dim Estado As String = ""
-
-
-
-
-
-
-        ds = ReportoVenta.FiltroReportoCostos()
-        dgvReportoCostos.DataSource = ds.Tables(0)
-
-
-
-
-    End Sub
-End Class

FRM/frmDAP.Designer.vb

@@ -1,331 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmDAP
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.lblBono = New System.Windows.Forms.Label()
-        Me.cboPeriodicidad = New System.Windows.Forms.ComboBox()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.txtIngresoNeto = New System.Windows.Forms.TextBox()
-        Me.txtRenta = New System.Windows.Forms.TextBox()
-        Me.txtIngresoBruto = New System.Windows.Forms.TextBox()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.dtpFechaVencimiento = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaOperacion = New System.Windows.Forms.DateTimePicker()
-        Me.txtRendimientoNeto = New System.Windows.Forms.TextBox()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.txtRendimientoBruto = New System.Windows.Forms.TextBox()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.txtPlazo = New System.Windows.Forms.TextBox()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.txtTasa = New System.Windows.Forms.TextBox()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.txtMontoInversion = New System.Windows.Forms.TextBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.dgvIntereses = New System.Windows.Forms.DataGridView()
-        CType(Me.dgvIntereses, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'lblBono
-        '
-        Me.lblBono.AutoSize = True
-        Me.lblBono.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBono.Location = New System.Drawing.Point(12, 9)
-        Me.lblBono.Name = "lblBono"
-        Me.lblBono.Size = New System.Drawing.Size(166, 24)
-        Me.lblBono.TabIndex = 56
-        Me.lblBono.Text = "Depositos a Plazo"
-        '
-        'cboPeriodicidad
-        '
-        Me.cboPeriodicidad.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPeriodicidad.FormattingEnabled = True
-        Me.cboPeriodicidad.Location = New System.Drawing.Point(139, 157)
-        Me.cboPeriodicidad.Name = "cboPeriodicidad"
-        Me.cboPeriodicidad.Size = New System.Drawing.Size(150, 21)
-        Me.cboPeriodicidad.TabIndex = 77
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(16, 269)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(82, 18)
-        Me.Label13.TabIndex = 84
-        Me.Label13.Text = "Ingreso Neto"
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(16, 269)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(27, 18)
-        Me.Label12.TabIndex = 83
-        Me.Label12.Text = "ISR"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(16, 225)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(86, 18)
-        Me.Label11.TabIndex = 82
-        Me.Label11.Text = "Ingreso Bruto"
-        '
-        'txtIngresoNeto
-        '
-        Me.txtIngresoNeto.Location = New System.Drawing.Point(139, 268)
-        Me.txtIngresoNeto.Name = "txtIngresoNeto"
-        Me.txtIngresoNeto.ReadOnly = True
-        Me.txtIngresoNeto.Size = New System.Drawing.Size(150, 20)
-        Me.txtIngresoNeto.TabIndex = 66
-        '
-        'txtRenta
-        '
-        Me.txtRenta.Location = New System.Drawing.Point(139, 246)
-        Me.txtRenta.Name = "txtRenta"
-        Me.txtRenta.ReadOnly = True
-        Me.txtRenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtRenta.TabIndex = 67
-        '
-        'txtIngresoBruto
-        '
-        Me.txtIngresoBruto.Location = New System.Drawing.Point(139, 224)
-        Me.txtIngresoBruto.Name = "txtIngresoBruto"
-        Me.txtIngresoBruto.ReadOnly = True
-        Me.txtIngresoBruto.Size = New System.Drawing.Size(150, 20)
-        Me.txtIngresoBruto.TabIndex = 68
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label10.Location = New System.Drawing.Point(16, 92)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(118, 18)
-        Me.Label10.TabIndex = 81
-        Me.Label10.Text = "Fecha Vencimiento"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(16, 70)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(105, 18)
-        Me.Label9.TabIndex = 80
-        Me.Label9.Text = "Fecha Operación"
-        '
-        'dtpFechaVencimiento
-        '
-        Me.dtpFechaVencimiento.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaVencimiento.Location = New System.Drawing.Point(139, 91)
-        Me.dtpFechaVencimiento.Name = "dtpFechaVencimiento"
-        Me.dtpFechaVencimiento.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaVencimiento.TabIndex = 72
-        '
-        'dtpFechaOperacion
-        '
-        Me.dtpFechaOperacion.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaOperacion.Location = New System.Drawing.Point(139, 69)
-        Me.dtpFechaOperacion.Name = "dtpFechaOperacion"
-        Me.dtpFechaOperacion.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaOperacion.TabIndex = 71
-        '
-        'txtRendimientoNeto
-        '
-        Me.txtRendimientoNeto.Location = New System.Drawing.Point(139, 202)
-        Me.txtRendimientoNeto.Name = "txtRendimientoNeto"
-        Me.txtRendimientoNeto.ReadOnly = True
-        Me.txtRendimientoNeto.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoNeto.TabIndex = 65
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.Location = New System.Drawing.Point(16, 203)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(113, 18)
-        Me.Label8.TabIndex = 79
-        Me.Label8.Text = "Rendimiento Neto"
-        '
-        'txtRendimientoBruto
-        '
-        Me.txtRendimientoBruto.Location = New System.Drawing.Point(139, 180)
-        Me.txtRendimientoBruto.Name = "txtRendimientoBruto"
-        Me.txtRendimientoBruto.ReadOnly = True
-        Me.txtRendimientoBruto.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoBruto.TabIndex = 64
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(16, 181)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(117, 18)
-        Me.Label7.TabIndex = 78
-        Me.Label7.Text = "Rendimiento Bruto"
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(16, 158)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(80, 18)
-        Me.Label4.TabIndex = 76
-        Me.Label4.Text = "Periodicidad"
-        '
-        'txtPlazo
-        '
-        Me.txtPlazo.Location = New System.Drawing.Point(139, 113)
-        Me.txtPlazo.Name = "txtPlazo"
-        Me.txtPlazo.Size = New System.Drawing.Size(150, 20)
-        Me.txtPlazo.TabIndex = 73
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(16, 114)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(38, 18)
-        Me.Label3.TabIndex = 74
-        Me.Label3.Text = "Plazo"
-        '
-        'txtTasa
-        '
-        Me.txtTasa.Location = New System.Drawing.Point(139, 135)
-        Me.txtTasa.Name = "txtTasa"
-        Me.txtTasa.Size = New System.Drawing.Size(150, 20)
-        Me.txtTasa.TabIndex = 75
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(16, 136)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(36, 18)
-        Me.Label2.TabIndex = 70
-        Me.Label2.Text = "Tasa"
-        '
-        'txtMontoInversion
-        '
-        Me.txtMontoInversion.Location = New System.Drawing.Point(139, 47)
-        Me.txtMontoInversion.Name = "txtMontoInversion"
-        Me.txtMontoInversion.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoInversion.TabIndex = 69
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(16, 48)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(102, 18)
-        Me.Label1.TabIndex = 63
-        Me.Label1.Text = "Monto Inversión"
-        '
-        'dgvIntereses
-        '
-        Me.dgvIntereses.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.dgvIntereses.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvIntereses.Location = New System.Drawing.Point(19, 294)
-        Me.dgvIntereses.MultiSelect = False
-        Me.dgvIntereses.Name = "dgvIntereses"
-        Me.dgvIntereses.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvIntereses.Size = New System.Drawing.Size(425, 150)
-        Me.dgvIntereses.TabIndex = 85
-        '
-        'frmDAP
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(467, 450)
-        Me.Controls.Add(Me.dgvIntereses)
-        Me.Controls.Add(Me.cboPeriodicidad)
-        Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.txtIngresoNeto)
-        Me.Controls.Add(Me.txtRenta)
-        Me.Controls.Add(Me.txtIngresoBruto)
-        Me.Controls.Add(Me.Label10)
-        Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.dtpFechaVencimiento)
-        Me.Controls.Add(Me.dtpFechaOperacion)
-        Me.Controls.Add(Me.txtRendimientoNeto)
-        Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.txtRendimientoBruto)
-        Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.txtPlazo)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.txtTasa)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.txtMontoInversion)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.lblBono)
-        Me.Name = "frmDAP"
-        Me.Text = "frmDAP"
-        CType(Me.dgvIntereses, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents lblBono As Label
-    Friend WithEvents cboPeriodicidad As ComboBox
-    Friend WithEvents Label13 As Label
-    Friend WithEvents Label12 As Label
-    Friend WithEvents Label11 As Label
-    Friend WithEvents txtIngresoNeto As TextBox
-    Friend WithEvents txtRenta As TextBox
-    Friend WithEvents txtIngresoBruto As TextBox
-    Friend WithEvents Label10 As Label
-    Friend WithEvents Label9 As Label
-    Friend WithEvents dtpFechaVencimiento As DateTimePicker
-    Friend WithEvents dtpFechaOperacion As DateTimePicker
-    Friend WithEvents txtRendimientoNeto As TextBox
-    Friend WithEvents Label8 As Label
-    Friend WithEvents txtRendimientoBruto As TextBox
-    Friend WithEvents Label7 As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents txtPlazo As TextBox
-    Friend WithEvents Label3 As Label
-    Friend WithEvents txtTasa As TextBox
-    Friend WithEvents Label2 As Label
-    Friend WithEvents txtMontoInversion As TextBox
-    Friend WithEvents Label1 As Label
-    Friend WithEvents dgvIntereses As DataGridView
-End Class

FRM/frmDAP.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmDAP.vb

@@ -1,77 +0,0 @@
-Public Class frmDAP
-    Private oDAOGeneral As New DAOGeneral
-    Private Operaciones As New Operaciones
-    Private Sub frmDAP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        PrepararControles()
-    End Sub
-    Private Sub PrepararControles()
-        CargarPeriodos()
-    End Sub
-    Private Sub CargarPeriodos()
-        Me.cboPeriodicidad.DataSource = oDAOGeneral.ListaPeriodicidad
-        Me.cboPeriodicidad.DisplayMember = "Descripcion"
-        Me.cboPeriodicidad.ValueMember = "Codigo"
-        Me.cboPeriodicidad.SelectedIndex = -1
-    End Sub
-
-    Private Sub cboPeriodicidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodicidad.SelectedIndexChanged
-        ControlPeriodicidad()
-    End Sub
-    Private Sub ControlPeriodicidad()
-
-    End Sub
-
-    Private Sub txtMontoInversion_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtMontoInversion.KeyPress
-        If String.IsNullOrEmpty(txtMontoInversion.Text) Then
-            If e.KeyChar = "." Then
-                txtMontoInversion.Text = "0"
-                Exit Sub
-            End If
-        End If
-
-        If (Not txtMontoInversion.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then
-            Operaciones.ValidarEntrada(sender, e, True)
-
-        Else
-
-            Operaciones.ValidarEntrada(sender, e, False)
-
-        End If
-    End Sub
-
-    Private Sub txtPlazo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPlazo.KeyPress
-        If String.IsNullOrEmpty(txtPlazo.Text) Then
-            If e.KeyChar = "." Then
-                txtPlazo.Text = "0"
-                Exit Sub
-            End If
-        End If
-
-        If (Not txtPlazo.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then
-            Operaciones.ValidarEntrada(sender, e, True)
-
-        Else
-
-            Operaciones.ValidarEntrada(sender, e, False)
-
-        End If
-    End Sub
-
-    Private Sub txtTasa_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtTasa.KeyPress
-        If String.IsNullOrEmpty(txtTasa.Text) Then
-            If e.KeyChar = "." Then
-                txtTasa.Text = "0"
-                Exit Sub
-            End If
-        End If
-
-        If (Not txtTasa.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then
-            Operaciones.ValidarEntrada(sender, e, True)
-
-        Else
-
-            Operaciones.ValidarEntrada(sender, e, False)
-
-        End If
-    End Sub
-End Class

FRM/frmDepositosAPlazo.Designer.vb

@@ -206,6 +206,7 @@ Partial Class frmDepositosAPlazo
         Me.dgvIntereses.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvIntereses.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvIntereses.BackgroundColor = System.Drawing.Color.White
         Me.dgvIntereses.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvIntereses.Location = New System.Drawing.Point(0, 358)
         Me.dgvIntereses.MultiSelect = False
@@ -216,13 +217,16 @@ Partial Class frmDepositosAPlazo
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(127, 562)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 64
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'cboPeriodicidad
         '
@@ -284,12 +288,15 @@ Partial Class frmDepositosAPlazo
         '
         'btnGME
         '
+        Me.btnGME.BackColor = System.Drawing.Color.White
+        Me.btnGME.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGME.ForeColor = System.Drawing.Color.Maroon
         Me.btnGME.Location = New System.Drawing.Point(29, 562)
         Me.btnGME.Name = "btnGME"
         Me.btnGME.Size = New System.Drawing.Size(75, 23)
         Me.btnGME.TabIndex = 128
         Me.btnGME.Text = "Aceptar"
-        Me.btnGME.UseVisualStyleBackColor = True
+        Me.btnGME.UseVisualStyleBackColor = False
         '
         'txtPlazo
         '
@@ -390,6 +397,7 @@ Partial Class frmDepositosAPlazo
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(783, 597)
         Me.Controls.Add(Me.txtImpuesto)
         Me.Controls.Add(Me.lblImpuesto)
@@ -415,9 +423,9 @@ Partial Class frmDepositosAPlazo
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.txtMontoInversion)
         Me.Controls.Add(Me.Label1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.MaximizeBox = False
         Me.Name = "frmDepositosAPlazo"
-        Me.Text = "Depositos a Plazo"
         CType(Me.dgvIntereses, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)

FRM/frmDepositosAPlazo.resx

@@ -139,29 +139,29 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE9TNtAFMfdDnSlsHRlLVtnJkBMtAydUidQ
-        QpCJQSxhxltRVaEKqVNZCiJQAkI4QgIWBiSgURAGakKUhOYDFLDBSRwSfyhVHr5TEkiEUcRf+unp2e9+
-        Z98RKGnue2OCn26Kcz9a4ydLrTzvacAv6kkoNPUqczzxOh381hL19xRyAaaXdo76qEFKdNgpcaAGuwH1
-        eThptdi3sSCxO9kkB752a386Qfd/AJ37BKoigardmpLLy4AkWHDh+9Kc8XcpW5PtRf1o+J221wHaAQnh
-        VNEUJCFJSiwJZpqzPPNW3/8I2k4bqL73IAiCzkWSMOf+Daust8LS8gocRa+rBejABN7zZrDf8V8zJOw6
-        e44GolIBIqICYYOIqFaIpgrVgnJ6bQOKmJaB9a7hgeC5BD+nf8HsrLvC/IIHQknZXCBl8/hT0UDsOgf8
-        v0s4PqsmdqPUJwgkc8BFLuHAANUyp1cmAluN4CQhgXt+sXKACNSfXmRMBNZqQfimAEFBucfYOXil4ud1
-        CQ4fuUbU/43VXGM5VrI/9VCQkIuYeKk+5FGBxTKUTxuC9Y1NPPAUipqFvr4RvrSUIADghfELrMs1Ds4h
-        F9DOMVzNoGlat5EOL8MwL0uK54Yg7gCs02wwGPYHzgAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE7TNtQFIZdBrryWLqywsbMVCqmtgxMwQmP
+        EGRiqi7pXG9UgKoKiQkWQCSUgBCOKgHqVgnaKBUu1IQoSckDFLDBSRwSP5QqB9+rJJAIV1F/6dPRsc/9
+        rn0vgZLhPrUk+cW2BDfflTjZ6OJ5bzN+0UjC4bmn2eMPrZnQbEcs0F/MB5kh2vnWT41TosNOiWN12A2o
+        kcmU1WL/hgXJg49tcnD6pfbjBeiB16Bzg6AqEqjarSn5ggxIggUX/qn2bKBP+TrzvKQfTXZr33tBOyQh
+        ki6ZgiQkSYllwXJ7jmc69Z8DoO33gOp/BYIg6Fw0Bavuz7DN+qpsbG7BUey6VoAOTOC9z8ZHHX81Q8Lu
+        sOdoICYVISoqEDGIimqVWLpYK6hkyDamiBkZWN8XPBA6l2BhcQlWVtxVPGteCKdkc4GUK+BPRQPx6zzw
+        Z5dw/KeW+I3SmCCYygMXvYRDA1QrnF6ZCGx1gpOkBG7PevUAEag/vciaCKy1gshNEUKCco+xc+hKxc8b
+        Evx65BpR/zted42VWMnR9ENBUi5hEuX6kEcFFstEIWMIdnb38MC/UNQcDA+/4ctLCQIAnhi/wLpc78E5
+        4QLa+Q5XM2ia1m2kw8cwTFNZ8b8hiDuZPmwq6xyY/wAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG1SURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFm6ldZ62fwB
-        ioso4uTg0KKLgyCoONgQOjm56GAHpVhBUNtBEFwc3LwUJKU3e0t6b1/PF5paNfXywUPC4bxPvu8cwtWr
-        izHCsPxCH8PI+FYjuVwuFQgEqpVKBXoUCgUIgrDH9upKLBSWZRmKojRIp9NIJpOIRCKqJBwOQxTFbxID
-        w0Ib8vk8isWi+iSy2SxSqRSi0agqYF2CPuLxeDSJWg0BhTVIQIFMJoNYLPZpHIIy9eyHoFwuNzbQO82t
-        jRKPx9VOJElqLfhKs4Q6ofNIJBJ/FxCahMahMyERrf9ZQJRKJfVcSELQ2r8E1MXLsRs3c0O4GGvD9Uwv
-        BItB/FFAIY2QV8C904q8bxe1Bz+UwxVc2oar53bT8q8Caj8wO4AcC8M9Bbjagc1+xLbt8I3yTy0FzRJq
-        u3bnRXMl1zux4TDVGoJgMFjTkxBX0z2Q9+cBFio4ObwxQks8/BP8KwmozOx6FCbR/Zmej3ZwuzgIydWP
-        6GobHhcMuLCZqmfjxrV6nutmmBl0NbrsT3aIJw5eorZPbXzkwMpvcRzHvQOn44QHuJ9J8wAAAABJRU5E
-        rkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFm6SbVeNn+A
+        4iKKODk4WHTRSVBxsCF0cnLRwQ5KsYLQ6iIILg5u3kBSerPX9N68ni80sdrU1g8eEg7nffJ95xCuWl2M
+        EYatCX0MM6OuRrLZbMLv91fK5TKMyOfzEAThkO01lNgonMlkIMuyTjKZRDweRygUUiXBYBCiKNZJTAwb
+        bcjlcigUCuqTSKfTSCQSCIfDqoB1CfqI2+3WJGrpAgprkIACqVQKkUjkxzgEZarZb0GpVNI30DvNrY0S
+        jUbVTiRJaiz4Ta2EOqHziMVirQsITULj0JmQiNZbFhDFYlE9F5IQtPYvAXXxdubC3cIQrifacDPXC8Fm
+        Ev8UUEjj3SPgcX0UOe8BlCcf5JM1+O3Dlasxy2pTAbV/Oz+ALAvDNQM424GdfkT2xuAd518aCmol1Lby
+        4EFtxbc6se2wKLogEAgoRhIiMNuDzNEiwEL5dQ6fjPcVHr4p/oMEVFZ2PTKTGP5Mr6f7uF8ehOTsR3ij
+        Dc9LJlzbLZXLSfNmNc91M6wMuhpDjqY7xHMHL1HbF3Y+dDzK73Icx30BWVyD3W9se9YAAAAASUVORK5C
+        YII=
 </value>
   </data>
 </root>

FRM/frmDetallesPortafolioGeneralRendimiento.Designer.vb

@@ -85,7 +85,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         'lblRendimientoPromedio
         '
         Me.lblRendimientoPromedio.AutoSize = True
-        Me.lblRendimientoPromedio.Location = New System.Drawing.Point(282, 60)
+        Me.lblRendimientoPromedio.Location = New System.Drawing.Point(267, 60)
         Me.lblRendimientoPromedio.Name = "lblRendimientoPromedio"
         Me.lblRendimientoPromedio.Size = New System.Drawing.Size(116, 13)
         Me.lblRendimientoPromedio.TabIndex = 88
@@ -94,7 +94,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         'lblPesoPromedio
         '
         Me.lblPesoPromedio.AutoSize = True
-        Me.lblPesoPromedio.Location = New System.Drawing.Point(576, 60)
+        Me.lblPesoPromedio.Location = New System.Drawing.Point(562, 60)
         Me.lblPesoPromedio.Name = "lblPesoPromedio"
         Me.lblPesoPromedio.Size = New System.Drawing.Size(81, 13)
         Me.lblPesoPromedio.TabIndex = 89
@@ -102,7 +102,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         '
         'Panel2
         '
-        Me.Panel2.BackColor = System.Drawing.Color.DodgerBlue
+        Me.Panel2.BackColor = System.Drawing.Color.DimGray
         Me.Panel2.Controls.Add(Me.lblPortafolio)
         Me.Panel2.Controls.Add(Me.dgvPortafolio)
         Me.Panel2.Location = New System.Drawing.Point(12, 308)
@@ -115,7 +115,8 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         Me.lblPortafolio.Anchor = System.Windows.Forms.AnchorStyles.Top
         Me.lblPortafolio.AutoSize = True
         Me.lblPortafolio.Font = New System.Drawing.Font("Trebuchet MS", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblPortafolio.Location = New System.Drawing.Point(201, 19)
+        Me.lblPortafolio.ForeColor = System.Drawing.Color.White
+        Me.lblPortafolio.Location = New System.Drawing.Point(348, 16)
         Me.lblPortafolio.Name = "lblPortafolio"
         Me.lblPortafolio.Size = New System.Drawing.Size(107, 27)
         Me.lblPortafolio.TabIndex = 83
@@ -142,14 +143,14 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         '
         'txtRendimientoPromedio
         '
-        Me.txtRendimientoPromedio.Location = New System.Drawing.Point(404, 60)
+        Me.txtRendimientoPromedio.Location = New System.Drawing.Point(389, 60)
         Me.txtRendimientoPromedio.Name = "txtRendimientoPromedio"
         Me.txtRendimientoPromedio.Size = New System.Drawing.Size(166, 20)
         Me.txtRendimientoPromedio.TabIndex = 92
         '
         'txtPesoPromedio
         '
-        Me.txtPesoPromedio.Location = New System.Drawing.Point(663, 60)
+        Me.txtPesoPromedio.Location = New System.Drawing.Point(649, 60)
         Me.txtPesoPromedio.Name = "txtPesoPromedio"
         Me.txtPesoPromedio.Size = New System.Drawing.Size(174, 20)
         Me.txtPesoPromedio.TabIndex = 93
@@ -189,8 +190,8 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         Me.Controls.Add(Me.chklInstrumentos)
         Me.Controls.Add(Me.chklEmpresas)
         Me.Controls.Add(Me.lblTitulo)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmDetallesPortafolioGeneralRendimiento"
-        Me.Text = "frmDetallesPortafolioGeneralRendimiento"
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         CType(Me.dgvPortafolio, System.ComponentModel.ISupportInitialize).EndInit()

FRM/frmFOIN.Designer.vb

@@ -72,7 +72,6 @@ Partial Class frmFOIN
         Me.txtDividendo = New System.Windows.Forms.TextBox()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        Me.btnRescate = New System.Windows.Forms.Button()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.RadioButton2 = New System.Windows.Forms.RadioButton()
         Me.RadioButton1 = New System.Windows.Forms.RadioButton()
@@ -343,6 +342,7 @@ Partial Class frmFOIN
         '
         'dgvIngresos
         '
+        Me.dgvIngresos.BackgroundColor = System.Drawing.Color.White
         Me.dgvIngresos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvIngresos.Location = New System.Drawing.Point(22, 19)
         Me.dgvIngresos.Name = "dgvIngresos"
@@ -351,12 +351,15 @@ Partial Class frmFOIN
         '
         'btnQuitar
         '
+        Me.btnQuitar.BackColor = System.Drawing.Color.White
+        Me.btnQuitar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuitar.ForeColor = System.Drawing.Color.Maroon
         Me.btnQuitar.Location = New System.Drawing.Point(22, 225)
         Me.btnQuitar.Name = "btnQuitar"
         Me.btnQuitar.Size = New System.Drawing.Size(75, 37)
         Me.btnQuitar.TabIndex = 145
         Me.btnQuitar.Text = "Quitar"
-        Me.btnQuitar.UseVisualStyleBackColor = True
+        Me.btnQuitar.UseVisualStyleBackColor = False
         '
         'lblErrCuotasDeParticipacion
         '
@@ -438,7 +441,7 @@ Partial Class frmFOIN
         Me.BindingNavigator1.MovePreviousItem = Nothing
         Me.BindingNavigator1.Name = "BindingNavigator1"
         Me.BindingNavigator1.PositionItem = Nothing
-        Me.BindingNavigator1.Size = New System.Drawing.Size(1138, 25)
+        Me.BindingNavigator1.Size = New System.Drawing.Size(1155, 25)
         Me.BindingNavigator1.TabIndex = 155
         Me.BindingNavigator1.Text = "BindingNavigator1"
         '
@@ -476,12 +479,15 @@ Partial Class frmFOIN
         '
         'btnAccion
         '
-        Me.btnAccion.Location = New System.Drawing.Point(10, 355)
+        Me.btnAccion.BackColor = System.Drawing.Color.White
+        Me.btnAccion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAccion.ForeColor = System.Drawing.Color.Maroon
+        Me.btnAccion.Location = New System.Drawing.Point(10, 372)
         Me.btnAccion.Name = "btnAccion"
         Me.btnAccion.Size = New System.Drawing.Size(140, 23)
         Me.btnAccion.TabIndex = 157
         Me.btnAccion.Text = "Aceptar"
-        Me.btnAccion.UseVisualStyleBackColor = True
+        Me.btnAccion.UseVisualStyleBackColor = False
         '
         'GroupBox2
         '
@@ -525,18 +531,21 @@ Partial Class frmFOIN
         Me.GroupBox2.Controls.Add(Me.Label4)
         Me.GroupBox2.Location = New System.Drawing.Point(12, 52)
         Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Size = New System.Drawing.Size(457, 374)
+        Me.GroupBox2.Size = New System.Drawing.Size(457, 412)
         Me.GroupBox2.TabIndex = 158
         Me.GroupBox2.TabStop = False
         '
         'btnCancelat
         '
-        Me.btnCancelat.Location = New System.Drawing.Point(176, 355)
+        Me.btnCancelat.BackColor = System.Drawing.Color.White
+        Me.btnCancelat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelat.ForeColor = System.Drawing.Color.Maroon
+        Me.btnCancelat.Location = New System.Drawing.Point(200, 372)
         Me.btnCancelat.Name = "btnCancelat"
         Me.btnCancelat.Size = New System.Drawing.Size(123, 23)
         Me.btnCancelat.TabIndex = 158
         Me.btnCancelat.Text = "Cancelar"
-        Me.btnCancelat.UseVisualStyleBackColor = True
+        Me.btnCancelat.UseVisualStyleBackColor = False
         '
         'txtDividendo
         '
@@ -565,22 +574,13 @@ Partial Class frmFOIN
         Me.GroupBox3.TabIndex = 159
         Me.GroupBox3.TabStop = False
         '
-        'btnRescate
-        '
-        Me.btnRescate.Location = New System.Drawing.Point(497, 12)
-        Me.btnRescate.Name = "btnRescate"
-        Me.btnRescate.Size = New System.Drawing.Size(75, 23)
-        Me.btnRescate.TabIndex = 160
-        Me.btnRescate.Text = "Rescate"
-        Me.btnRescate.UseVisualStyleBackColor = True
-        '
         'GroupBox1
         '
         Me.GroupBox1.Controls.Add(Me.RadioButton2)
         Me.GroupBox1.Controls.Add(Me.RadioButton1)
-        Me.GroupBox1.Location = New System.Drawing.Point(267, 11)
+        Me.GroupBox1.Location = New System.Drawing.Point(212, 15)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(180, 35)
+        Me.GroupBox1.Size = New System.Drawing.Size(180, 34)
         Me.GroupBox1.TabIndex = 163
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Fechas"
@@ -612,15 +612,15 @@ Partial Class frmFOIN
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
-        Me.ClientSize = New System.Drawing.Size(1155, 413)
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.ClientSize = New System.Drawing.Size(1155, 476)
         Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.btnRescate)
         Me.Controls.Add(Me.GroupBox3)
         Me.Controls.Add(Me.GroupBox2)
         Me.Controls.Add(Me.BindingNavigator1)
         Me.Controls.Add(Me.lblBono)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmFOIN"
-        Me.Text = "frmFOIN"
         CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
@@ -680,7 +680,6 @@ Partial Class frmFOIN
     Friend WithEvents btnAccion As Button
     Friend WithEvents GroupBox2 As GroupBox
     Friend WithEvents GroupBox3 As GroupBox
-    Friend WithEvents btnRescate As Button
     Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents RadioButton2 As RadioButton
     Friend WithEvents RadioButton1 As RadioButton

FRM/frmFOIN.resx

@@ -139,32 +139,32 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE7TNtQFIZdBrryWLqywsbMVCqmtgxMwQmP
-        EGRiqi7pXG9UCKEWiQkWQCSUgBCOKgFjK0EbpcKFmhAlKXmAAjY4iUPih1Ll4HuVBBLhKuovfTo69rnf
-        te8lUDLcx5Ykv9iW4Oa7EicbXTzvbcYvGkk4PPc0e/yhNROa6YgF+ov5IDNEO9/6qXFKdNgpcawOuwE1
-        MpmyWuzfsCB5MNsmB6dfaj9egB54DTo3CKoigardmpIvyIAkWHDhn2rPBvqUr5+el/SjyW7tey9ohyRE
-        0iVTkIQkKbEsWG7P8Uyn/nMAtP0eUP2vQBAEnYumYNX9GbZZX5WNzS04il3XCtCBCbz32fio469mSNgd
-        9hwNxKQiREUFIgZRUa0SSxdrBZUM2cYUMSMD6/uCB0LnEiwsLsHKiruKZ80L4ZRsLpByBfypaCB+nQf+
-        7BKO/9QSv1EaEwRTeeCil3BogGqF0ysTga1OcJKUwO1Zrx4gAvWnF1kTgbVWELkpQkhQ7jF2Dl2p+HlD
-        gl+PXCPqf8frrrESKzmafihIyiVMolwf8qjAYpkoZAzBzu4eHvgXipqD4eE3fHkpQQDAE+MXWJfrPTgn
-        XEA73+FqBk3Tuo10+BiGaSor/jcEcQfAaGw2chD6HAAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE9TNtAFMfdDnSlsHRlLVtnJkBMtAydUidQ
+        QpCJQSxhxltRVaEKqVNZCiJQAkI4QgIWBiSgURAGakKUhOYDFLDBSRwSfyhVHr5TEkiEUcRf+unp2e9+
+        Z98RKGnue2OCn26Kcz9a4ydLrTzvacAv6kkoNPUqczzxOh381hL19xRyAaaXdo76qEFKdNgpcaAGuwH1
+        eThptdi3sSCxO9kkB752a386Qfd/AJ37BKoigardmpLLy4AkWHDh+9Kc8XcpW5PtRf1o+J221wHaAQnh
+        VNEUJCFJSiwJZpqzPPNW3/8I2k4bqL73IAiCzkWSMOf+Daust8LS8gocRa+rBejABN7zZrDf8V8zJOw6
+        e44GolIBIqICYYOIqFaIpgrVgnJ6bQOKmJaB9a7hgeC5BD+nf8HsrLvC/IIHQknZXCBl8/hT0UDsOgf8
+        v0s4PqsmdqPUJwgkc8BFLuHAANUyp1cmAluN4CQhgXt+sXKACNSfXmRMBNZqQfimAEFBucfYOXil4ud1
+        CQ4fuUbU/43VXGM5VrI/9VCQkIuYeKk+5FGBxTKUTxuC9Y1NPPAUipqFvr4RvrSUIADghfELrMs1Ds4h
+        F9DOMVzNoGlat5EOL8MwL0uK54Yg7gCs02wwGPYHzgAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZM7S8NQGIZT0/4AF3HwCg4iOFW6lXrf/AGK
-        iyji5OBg0cVNUHGwIXRyctHBDkqxQsELtILg4uDmpSApvdlb0nv7er7Q1GpTqx88JBzO++T7ziFctboY
-        ZoalBX2MNkZDmTOZTMLn85VLpRL0yOVyEAThgO3VlVgoLMsyFEWpkUwmEY/HEQqFVEkwGIQoig0SA8NC
-        G7LZLPL5vPok0uk0EokEwuGwKmBdgj7idDo1iVo1AYU1SECBVCqFSCTybRyCMtXsl6BYLNY20DvNrY0S
-        jUbVTiRJai74Sb2EOqHziMVifxcQmoTGoTMhEa3/WUAUCgX1XEhC0Nq/BNTF26kDdwtD8E6YcDPXC8Fi
-        EH8VUEgj4BLwuG5F1r2PypMHyvEarmzD5ctR42pLAbV/Oz+ADAvDMQPY24HtfkR2R+Ee41+aCuol1Hbl
-        wYX6im91YnvcWKkJ/H5/RU9CXM/2QD5cBFgot87hgxFY4eGZ4t9JQDXCrkdhEt2f6fVkD/fLg5Ds/Qhv
-        mPC8ZIDXZixfTLZtVvNcN2OEQVejy+F0h3g2zkvU9rmNDx1Z+R2O47hP9mqEMdiui1UAAAAASUVORK5C
-        YII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG1SURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFm6ldZ62fwB
+        ioso4uTg0KKLgyCoONgQOjm56GAHpVhBUNtBEFwc3LwUJKU3e0t6b1/PF5paNfXywUPC4bxPvu8cwtWr
+        izHCsPxCH8PI+FYjuVwuFQgEqpVKBXoUCgUIgrDH9upKLBSWZRmKojRIp9NIJpOIRCKqJBwOQxTFbxID
+        w0Ib8vk8isWi+iSy2SxSqRSi0agqYF2CPuLxeDSJWg0BhTVIQIFMJoNYLPZpHIIy9eyHoFwuNzbQO82t
+        jRKPx9VOJElqLfhKs4Q6ofNIJBJ/FxCahMahMyERrf9ZQJRKJfVcSELQ2r8E1MXLsRs3c0O4GGvD9Uwv
+        BItB/FFAIY2QV8C904q8bxe1Bz+UwxVc2oar53bT8q8Caj8wO4AcC8M9Bbjagc1+xLbt8I3yTy0FzRJq
+        u3bnRXMl1zux4TDVGoJgMFjTkxBX0z2Q9+cBFio4ObwxQks8/BP8KwmozOx6FCbR/Zmej3ZwuzgIydWP
+        6GobHhcMuLCZqmfjxrV6nutmmBl0NbrsT3aIJw5eorZPbXzkwMpvcRzHvQOn44QHuJ9J8wAAAABJRU5E
+        rkJggg==
 </value>
   </data>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>95</value>
+    <value>36</value>
   </metadata>
 </root>

FRM/frmFOIN.vb

@@ -1152,7 +1152,7 @@
 
     End Sub
 
-    Private Sub btnRescate_Click(sender As Object, e As EventArgs) Handles btnRescate.Click
+    Private Sub btnRescate_Click(sender As Object, e As EventArgs) 
 
 
         'frmRescate.Show()

FRM/frmFechasAcciones.Designer.vb

@@ -80,18 +80,22 @@ Partial Class frmFechasAcciones
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAceptar.Location = New System.Drawing.Point(78, 198)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
         Me.btnAceptar.TabIndex = 82
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'frmFechasAcciones
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(243, 245)
         Me.Controls.Add(Me.btnAceptar)
         Me.Controls.Add(Me.lblTitulo)
@@ -99,10 +103,10 @@ Partial Class frmFechasAcciones
         Me.Controls.Add(Me.Label18)
         Me.Controls.Add(Me.dtpFechaCorte)
         Me.Controls.Add(Me.dtpFechaInicial)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "frmFechasAcciones"
-        Me.Text = "frmFechasAcciones"
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

FRM/frmFiltrosReporte.Designer.vb

@@ -1,73 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmFiltrosReporte
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.cboInstrumento = New System.Windows.Forms.ComboBox()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.btnBuscar = New System.Windows.Forms.Button()
-        Me.SuspendLayout()
-        '
-        'cboInstrumento
-        '
-        Me.cboInstrumento.FormattingEnabled = True
-        Me.cboInstrumento.Location = New System.Drawing.Point(71, 41)
-        Me.cboInstrumento.Name = "cboInstrumento"
-        Me.cboInstrumento.Size = New System.Drawing.Size(121, 21)
-        Me.cboInstrumento.TabIndex = 0
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(98, 25)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(112, 13)
-        Me.Label5.TabIndex = 91
-        Me.Label5.Text = "Instrumento"
-        '
-        'btnBuscar
-        '
-        Me.btnBuscar.Location = New System.Drawing.Point(71, 261)
-        Me.btnBuscar.Name = "btnBuscar"
-        Me.btnBuscar.Size = New System.Drawing.Size(121, 44)
-        Me.btnBuscar.TabIndex = 92
-        Me.btnBuscar.Text = "Buscar"
-        Me.btnBuscar.UseVisualStyleBackColor = True
-        '
-        'frmFiltrosReporte
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(277, 317)
-        Me.Controls.Add(Me.btnBuscar)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.cboInstrumento)
-        Me.Name = "frmFiltrosReporte"
-        Me.Text = "FiltrosReporte"
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents cboInstrumento As ComboBox
-    Friend WithEvents Label5 As Label
-    Friend WithEvents btnBuscar As Button
-End Class

FRM/frmFiltrosReporte.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmFiltrosReporte.vb

@@ -1,51 +0,0 @@
-Public Class frmFiltrosReporte
-
-    Dim oDAOGeneral As New DAOGeneral
-    Private Sub FiltrosReporte_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Call CargarInstrumentosFinancieros()
-    End Sub
-    Private Sub CargarInstrumentosFinancieros()
-        Me.cboInstrumento.DataSource = oDAOGeneral.ListaInstrumentos
-        Me.cboInstrumento.DisplayMember = "Descripcion"
-        Me.cboInstrumento.ValueMember = "Codigo"
-        Me.cboInstrumento.SelectedIndex = -1
-    End Sub
-
-    Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
-        Variables.CodigoInstrumento = cboInstrumento.SelectedValue
-        If (cboInstrumento.SelectedValue = "REPO") Then
-            frmRegistroReportos.Show()
-            Me.Close()
-        End If
-        If (cboInstrumento.SelectedValue = "LETE" Or cboInstrumento.SelectedValue = "PBUR" Or cboInstrumento.SelectedValue = "VCN") Then
-            frmRegistroLetes.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "PPER") Then
-            frmRegistroPrestamoPersonal.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "PEMP") Then
-            frmResgistrosPrestamoEmpresarial.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "FINV") Then
-            frmRegitrosFondoInversion.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "ACCNC" Or cboInstrumento.SelectedValue = "ACCNP" Or cboInstrumento.SelectedValue = "ACCI") Then
-            frmRegistroAcciones.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "FUTU" Or cboInstrumento.SelectedValue = "OPC") Then
-            frmRegistroFuturosOpciones.Show()
-            Me.Close()
-        End If
-
-    End Sub
-End Class

FRM/frmFlujoArbitraje.vb

@@ -27,7 +27,7 @@
 
     Private Sub frmFlujoArbitraje_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         OrdenarTablas()
-        'GeneradorFlujo()
+
         AgregarEstructura()
 
 

FRM/frmFuturos.Designer.vb

@@ -355,23 +355,29 @@ Partial Class frmFuturos
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnCancelar.Location = New System.Drawing.Point(116, 483)
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnCancelar.Location = New System.Drawing.Point(116, 472)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 162
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
         Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnAceptar.Location = New System.Drawing.Point(26, 483)
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnAceptar.Location = New System.Drawing.Point(24, 472)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
         Me.btnAceptar.TabIndex = 161
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'dtpOperacionVenta
         '
@@ -480,7 +486,7 @@ Partial Class frmFuturos
         '
         Me.lblTitulo.AutoSize = True
         Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.Location = New System.Drawing.Point(293, 25)
+        Me.lblTitulo.Location = New System.Drawing.Point(281, 48)
         Me.lblTitulo.Name = "lblTitulo"
         Me.lblTitulo.Size = New System.Drawing.Size(77, 24)
         Me.lblTitulo.TabIndex = 167
@@ -491,7 +497,7 @@ Partial Class frmFuturos
         Me.cboOperacionVenta.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboOperacionVenta.FormattingEnabled = True
         Me.cboOperacionVenta.Items.AddRange(New Object() {"Corto", "Largo"})
-        Me.cboOperacionVenta.Location = New System.Drawing.Point(234, 65)
+        Me.cboOperacionVenta.Location = New System.Drawing.Point(234, 93)
         Me.cboOperacionVenta.Name = "cboOperacionVenta"
         Me.cboOperacionVenta.Size = New System.Drawing.Size(166, 21)
         Me.cboOperacionVenta.TabIndex = 169
@@ -542,12 +548,15 @@ Partial Class frmFuturos
         '
         'btnVenderTitulo
         '
-        Me.btnVenderTitulo.Location = New System.Drawing.Point(454, 49)
+        Me.btnVenderTitulo.BackColor = System.Drawing.Color.White
+        Me.btnVenderTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVenderTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.btnVenderTitulo.Location = New System.Drawing.Point(454, 84)
         Me.btnVenderTitulo.Name = "btnVenderTitulo"
-        Me.btnVenderTitulo.Size = New System.Drawing.Size(75, 51)
+        Me.btnVenderTitulo.Size = New System.Drawing.Size(140, 37)
         Me.btnVenderTitulo.TabIndex = 173
         Me.btnVenderTitulo.Text = "Vender Titulo"
-        Me.btnVenderTitulo.UseVisualStyleBackColor = True
+        Me.btnVenderTitulo.UseVisualStyleBackColor = False
         Me.btnVenderTitulo.Visible = False
         '
         'frmFuturos
@@ -555,6 +564,7 @@ Partial Class frmFuturos
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(654, 518)
         Me.Controls.Add(Me.btnVenderTitulo)
         Me.Controls.Add(Me.GrpVenta)
@@ -576,9 +586,9 @@ Partial Class frmFuturos
         Me.Controls.Add(Me.Label11)
         Me.Controls.Add(Me.Label13)
         Me.Controls.Add(Me.Label6)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.MaximizeBox = False
         Me.Name = "frmFuturos"
-        Me.Text = "9"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmFuturos.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHaSURBVDhPnZFNTNpgGMc7D9t16sXrrvO2805qPKk77IQF
-        nYipVOOFndfbjFnMsmQnvagZbENjLDFRryZTCcb6UZEAyocGbbVAGfQjGB77vgEUYg3xn/zy5Gmf9/e2
-        70ugZLjvr5P8bEuC+9meOF5s53nvS/yikYTDP15lDyebM6Fvb2KBD8V8kBmgnRN+aoQSHXZKHK7DbkB9
-        GktZLfZNLEhuTbfIwakebacL9EAf6Fw/qIoEqvbflHxBBiTBggv/19ZsoFuZZzpK+sHYO227E7Q9EiLp
-        kilIQpKUWBbMt+Z45q2++xG0f+9B9feCIAg6F03BL/cfWGF9VRaXluEgdl0rQAcm8N62kSHHrWZI2DX2
-        HA3EpCJERQUiBlFRrRJLF2sFlQzYhhUxIwPrW8UDoXMJZmbnYGHBXcXz2wvhlGwukHIF/KloIH6dB/7s
-        Eg5Pa4nfKI0Jgqk8cNFL2DNAtcLJlYnAVic4Tkrg9vytHiAC9ScXWROBtVYQuSlCSFDuMXYOXan4eUOC
-        /UeuEfVH8bprrMRKDqUfCpJyCZMo14c8KrBYRgsZQ7C2voEHnkJRczA4OM6XlxIEALwwfoF1ub6Ac9QF
-        tPMzrmbQNK3bSIePYZimsuK5IYg7IHVsBdFYyKkAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
+        +ADMyGjc0HVnp2maxph0VRe1RrTFpumQJrZbEx8E4/gYkQCWhwac0QGGwjyC4Tj3BqgQpyH9ky8nZ+bc
+        787cS6DkufnHaX7RkuLeW1Mn61ae9z/EL9pJNLrwqHA015mPvO1JhIYqpTAzQntmgtQEJbqdlOhqwWlA
+        jU1l7DbnJhakt99Z5PCbfm33OeihQdC5l6AqEqjaH1NKZRmQBAsugrNdhdAL5SPztKofTvVqO89A2ych
+        lquagiQkSYk1waeuIs880feGQdvqAzU4AIIg6Fw8Ayu+z/CdDTRY//oNDhNXzQJ0YALv754Yd99ohoTd
+        YM/RQEKqQFxUIGYQF9UGiVylWVDPiMOliHkZ2MAPPBA5l+DD4hIsL/sarK75IZqRzQVSsYw/FQ0kr0rA
+        /87C0VkzyWulPUE4UwIunoV9A1TrnF6aCBwtgpO0BL7VL40DRKD+9KJgIrA3C2LXFYgIyl+MnSOXKn7e
+        luDgnmtE/XGy5RrrsZPjubuCtFzFpGr1LvcKbLbJct4QbPz8hQf+haIWYXR0mq8tJQgAeGD8Auv1vgbP
+        pBdozytczaBpWneQ7gDDMB01xf+GIG4BGe1sA0MLMcAAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnJRuUq2XzR+g
-        uIgiTg4OFl26CSoOGkKnTkLRQQelWKFQdREEFwc3byAp6cWmlzS9v54vNLFqa+sHDwmH8z75vnMIV6lO
+        uIgiTg4OFl26CSoOGkKnTnbQQQelWKFQdREEFwc3byAp6cWmlzS9v54vNLFqa+sHDwmH8z75vnMIV6lO
         xjDD1oBeRgvjVw1nMhklGAyWisUiapHNZiEIwj7bW1Nio3A6nYaqqiaJRALxeByyLOuSUCgEURR/SSwM
         G23QNA25XE5/EqlUCoqiIBwO6wLWJegjbrfbkOhlCihsQAIKJJNJRCKRb+MQlKlkvwSFQsHcQO80tzFK
         NBrVO5Ekqb7gJ9US6oTOIxaLNS8gDAmNQ2dCIlpvWkDk83n9XEhC0Nq/BNTF68kBbhcGEZhoxfVcDwSb
         RfxTQCGDt1MBD+uj0Hx7KD/6oR6tIWgfKl2OWVcbCqj9m/l+ZFgYBzOAsw3Y6kNkZwy+cf65rqBaQm2X
         709RXXFXB1wOa9kUeL3eci0JcTXbjbRnEWCh7DqHD8bbCg//FP9OAqoRdj1qvZ/p5XgXd8sDkJx9CG+0
-        4mnJgoDdWrqYbNms5LkuxgiDrqYmnul28czBS9T2uZ2XD0f5bY7juE8ey4OKOAFa2QAAAABJRU5ErkJg
+        4mnJgoDdWrqYbNms5LkuxgiDrqYmnul28czBS9T2uZ2XD0f5bY7juE8adYOECRaKRwAAAABJRU5ErkJg
         gg==
 </value>
   </data>

FRM/frmLetes.Designer.vb

@@ -353,13 +353,16 @@ Partial Class frmLetes
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
         Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAceptar.Location = New System.Drawing.Point(39, 597)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
         Me.btnAceptar.TabIndex = 86
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'Label13
         '
@@ -381,13 +384,16 @@ Partial Class frmLetes
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(209, 597)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 88
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'cboPeriodicidad
         '
@@ -535,13 +541,15 @@ Partial Class frmLetes
         '
         'btnRedencion
         '
-        Me.btnRedencion.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnRedencion.BackColor = System.Drawing.Color.White
+        Me.btnRedencion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRedencion.ForeColor = System.Drawing.Color.Maroon
         Me.btnRedencion.Location = New System.Drawing.Point(229, 92)
         Me.btnRedencion.Name = "btnRedencion"
         Me.btnRedencion.Size = New System.Drawing.Size(79, 24)
         Me.btnRedencion.TabIndex = 138
         Me.btnRedencion.Text = "Redención"
-        Me.btnRedencion.UseVisualStyleBackColor = True
+        Me.btnRedencion.UseVisualStyleBackColor = False
         '
         'lblRedencion
         '
@@ -568,6 +576,7 @@ Partial Class frmLetes
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.CancelButton = Me.btnCancelar
         Me.ClientSize = New System.Drawing.Size(390, 632)
         Me.Controls.Add(Me.dtpRedencion)
@@ -620,9 +629,9 @@ Partial Class frmLetes
         Me.Controls.Add(Me.txtValorNominal)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.lblBono)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.MaximizeBox = False
         Me.Name = "frmLetes"
-        Me.Text = "LETES"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmLetes.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIbdDu1KYWFlha1zJ1p14jEwpU6g
-        hCATg1jSuWaiQhVCSEywFNQADRXCUSVgReIRBWEeJkRJaB6ggA1O4pD4oVQ5+F4lKYkwivilT0fHPve7
-        9r0ESpqbakjwc41xbqYtfrrSxvOeV/hFPQmFpl9njr+9SQe/t0T93YVcgOmlnaM+apASHXZKHKjBbkB9
-        Hk5aLfYtLEjsTDbKgYkObe8D6P4u0LlPoCoSqNqdKbm8DEiCBZe+8aaM/6PCjrUX9aPht9rue9AOSAin
-        iqYgCUlSYkkw35TlmVZ9vwe07Xeg+jpBEASdiyThp3sZ1lhvhZXfq3AUvakWoAMTeE/zYL/jn2ZI2HX2
-        Ag1EpQJERAXCBhFRrRBNFaoF5fTaBhQxLQPr/YMHghcSzM79gIUFd4XFJQ+EkrK5QMrm8aeigdhNDvi/
-        V3B8Xk3sVqlPEEjmgItcwYEBqmXOrk0EthrBaUIC9+KvygEiUH92mTERWKsF4dsCBAXlP8bOwWsVP69L
-        cPjINaL+JFZzjeVYyf7UQ0FCLmLipfqQRwUWy1A+bQjWNzbxwFMoahb6+kb40lKCAIAXxi+wLtdXcA65
-        gHZ+wdUMmqZ1G+nwMgzzsqR4bgjiHlf4bBajZA5bAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIbdDmVtYWFlha1zJ0CdgA5MwQmP
+        EGRiEEuY660IIYQqdSpLixoeAVEcIdGuSDyiIMzDhChJmwcoYIOTOE38UFAOvldJIBGuIn7p09Gxz/2u
+        fS+BkubmXif4+cY496UtfrbaxvOeV/hFPQmFPjdkTqbepIMzLVH/h0IuwPTTzgkfNUKJDjslDtdgN6AG
+        x5JWi30bCxK7s41yYLpL2+8E3d8DOtcHqiKBqv0zJZeXAUmw4NL3qSnjf6/8ZNqL+vHYW22vA7RDEsKp
+        oilIQpKUWBJ8b8ryTKt+0AvazjtQfd0gCILORZLww70MG6y3wuraOhxHb6oF6MAE3tM8MuS40wwJu8Ve
+        oIGoVICIqEDYICKqFaKpQrWgnH7bsCKmZWC9m3ggeCHB1/lvsLDgrrC45IFQUjYXSNk8/lQ0ELvJAf/3
+        Ck7+VBO7VeoTBJI54CJXcGiAapnzaxOBrUZwlpDAvbhSOUAE6s8vMyYCa7UgfFuAoKA8YOwcvFbx87oE
+        R09cI+pPYzXXWI6VHEo9FiTkIiZeqo95UmCxjObThmDr12888D8UNQsDA+N8aSlBAMAL4xdYl+sjOEdd
+        QDsncTWDpmndRjq8DMO8LCmeG4K4B04tbBPumXp1AAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwVnAQwUnpJvW++QMU
-        F1HEycFB0cVNUHHQEDo5uehgB6VVQYi6CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
+        F1HEycFB0cVNUHHQEDo5uehgB21RQYi6CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
         Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
         YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
         VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
-        VUAhm1e/gPulfhiBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAYJB/qimolFDbxTs/
-        KktZa8bakKtYFgSDwWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
-        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AEF7g7q6yTNgAAAAAElFTkSuQmCC
+        VUAhm1e/gPulfhjBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAcJB/qimolFDbxTs/
+        KktZa8bakKtYFgQCgWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
+        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AD0lg7Tvh7efAAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmLetes.vb

@@ -2588,10 +2588,8 @@ Public Class frmLetes
 
     End Sub
 
-    Private Sub btnReporto_Click(sender As Object, e As EventArgs) 
-        Dim Codigo As String = Variables.Codigo
-        Dim FrmReporto As New frmReporteVentaSeleccion(Me, Codigo)
-        FrmReporto.ShowDialog()
+    Private Sub btnReporto_Click(sender As Object, e As EventArgs)
+
     End Sub
 
     Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click

FRM/frmMenuCostos.vb

@@ -4,7 +4,7 @@
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        frmCostosReportos.Show()
+
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
@@ -12,7 +12,7 @@
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        frmReporteVentaSeleccion.Show()
+
     End Sub
 
     Private Sub Button5_Click(sender As Object, e As EventArgs)

FRM/frmMenuRendimientos.Designer.vb

@@ -23,10 +23,6 @@ Partial Class frmMenuRendimientos
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Button6 = New System.Windows.Forms.Button()
-        Me.Button5 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.Button3 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Panel1.SuspendLayout()
@@ -34,78 +30,22 @@ Partial Class frmMenuRendimientos
         '
         'Panel1
         '
-        Me.Panel1.BackColor = System.Drawing.Color.Silver
-        Me.Panel1.Controls.Add(Me.Button6)
-        Me.Panel1.Controls.Add(Me.Button5)
-        Me.Panel1.Controls.Add(Me.Button4)
-        Me.Panel1.Controls.Add(Me.Button3)
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel1.Controls.Add(Me.Button2)
         Me.Panel1.Controls.Add(Me.Button1)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(650, 376)
+        Me.Panel1.Size = New System.Drawing.Size(645, 89)
         Me.Panel1.TabIndex = 0
         '
-        'Button6
-        '
-        Me.Button6.BackColor = System.Drawing.Color.Brown
-        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button6.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button6.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button6.Location = New System.Drawing.Point(347, 12)
-        Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(279, 52)
-        Me.Button6.TabIndex = 5
-        Me.Button6.Text = "Consolidacion de Saldos"
-        Me.Button6.UseVisualStyleBackColor = False
-        '
-        'Button5
-        '
-        Me.Button5.BackColor = System.Drawing.Color.Brown
-        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button5.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button5.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button5.Location = New System.Drawing.Point(12, 296)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(279, 52)
-        Me.Button5.TabIndex = 4
-        Me.Button5.Text = "Saldos Totales"
-        Me.Button5.UseVisualStyleBackColor = False
-        '
-        'Button4
-        '
-        Me.Button4.BackColor = System.Drawing.Color.Brown
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button4.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button4.Location = New System.Drawing.Point(12, 224)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(279, 52)
-        Me.Button4.TabIndex = 3
-        Me.Button4.Text = "Inversiones"
-        Me.Button4.UseVisualStyleBackColor = False
-        '
-        'Button3
-        '
-        Me.Button3.BackColor = System.Drawing.Color.Brown
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button3.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button3.Location = New System.Drawing.Point(12, 152)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(279, 52)
-        Me.Button3.TabIndex = 2
-        Me.Button3.Text = "Rendimiento Diario"
-        Me.Button3.UseVisualStyleBackColor = False
-        '
         'Button2
         '
         Me.Button2.BackColor = System.Drawing.Color.Brown
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button2.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Button2.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button2.Location = New System.Drawing.Point(12, 82)
+        Me.Button2.Location = New System.Drawing.Point(333, 12)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(279, 52)
         Me.Button2.TabIndex = 1
@@ -129,20 +69,16 @@ Partial Class frmMenuRendimientos
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(650, 376)
+        Me.ClientSize = New System.Drawing.Size(645, 89)
         Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmMenuRendimientos"
-        Me.Text = "frmMenuRendimientos"
         Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
 
     Friend WithEvents Panel1 As Panel
-    Friend WithEvents Button6 As Button
-    Friend WithEvents Button5 As Button
-    Friend WithEvents Button4 As Button
-    Friend WithEvents Button3 As Button
     Friend WithEvents Button2 As Button
     Friend WithEvents Button1 As Button
 End Class

FRM/frmMenuRendimientos.vb

@@ -1,5 +1,5 @@
 Public Class frmMenuRendimientos
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    Private Sub Button4_Click(sender As Object, e As EventArgs) 
 
     End Sub
 
@@ -11,15 +11,15 @@
         frmRendimientoFiltro.Show()
     End Sub
 
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    Private Sub Button3_Click(sender As Object, e As EventArgs) 
 
     End Sub
 
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
-        frmRendimientoConsolidacion.Show()
+    Private Sub Button6_Click(sender As Object, e As EventArgs) 
+
     End Sub
 
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
-        frmRendimientoSaldos.Show()
+    Private Sub Button5_Click(sender As Object, e As EventArgs) 
+
     End Sub
 End Class

FRM/frmNotaEstructurada.Designer.vb

@@ -208,12 +208,15 @@ Partial Class frmNotaEstructurada
         '
         'btnGME
         '
+        Me.btnGME.BackColor = System.Drawing.Color.White
+        Me.btnGME.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGME.ForeColor = System.Drawing.Color.Maroon
         Me.btnGME.Location = New System.Drawing.Point(29, 555)
         Me.btnGME.Name = "btnGME"
         Me.btnGME.Size = New System.Drawing.Size(75, 23)
         Me.btnGME.TabIndex = 151
         Me.btnGME.Text = "Aceptar"
-        Me.btnGME.UseVisualStyleBackColor = True
+        Me.btnGME.UseVisualStyleBackColor = False
         '
         'cboPeriodicidad
         '
@@ -226,19 +229,23 @@ Partial Class frmNotaEstructurada
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(127, 555)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 150
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'dgvIntereses
         '
         Me.dgvIntereses.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvIntereses.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvIntereses.BackgroundColor = System.Drawing.Color.White
         Me.dgvIntereses.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvIntereses.Location = New System.Drawing.Point(0, 351)
         Me.dgvIntereses.MultiSelect = False
@@ -388,6 +395,7 @@ Partial Class frmNotaEstructurada
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(783, 597)
         Me.Controls.Add(Me.txtImpuesto)
         Me.Controls.Add(Me.lblImpuesto)
@@ -413,8 +421,8 @@ Partial Class frmNotaEstructurada
         Me.Controls.Add(Me.txtMontoInversion)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmNotaEstructurada"
-        Me.Text = "frmNotaEstructurada"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmNotaEstructurada.resx

@@ -139,29 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE7TNtQFIZdBrryWLqywsbMVCqmtgxMwQmP
-        EGRiqi7pXG9UgKoKiQkWQCSUgBCOKgHqVgnaKBUu1IQoSckDFLDBSRwSP5QqB9+rJJAIV1F/6dPRsc/9
-        rn0vgZLhPrUk+cW2BDfflTjZ6OJ5bzN+0UjC4bmn2eMPrZnQbEcs0F/MB5kh2vnWT41TosNOiWN12A2o
-        kcmU1WL/hgXJg49tcnD6pfbjBeiB16Bzg6AqEqjarSn5ggxIggUX/qn2bKBP+TrzvKQfTXZr33tBOyQh
-        ki6ZgiQkSYllwXJ7jmc69Z8DoO33gOp/BYIg6Fw0Bavuz7DN+qpsbG7BUey6VoAOTOC9z8ZHHX81Q8Lu
-        sOdoICYVISoqEDGIimqVWLpYK6hkyDamiBkZWN8XPBA6l2BhcQlWVtxVPGteCKdkc4GUK+BPRQPx6zzw
-        Z5dw/KeW+I3SmCCYygMXvYRDA1QrnF6ZCGx1gpOkBG7PevUAEag/vciaCKy1gshNEUKCco+xc+hKxc8b
-        Evx65BpR/zted42VWMnR9ENBUi5hEuX6kEcFFstEIWMIdnb38MC/UNQcDA+/4ctLCQIAnhi/wLpc78E5
-        4QLa+Q5XM2ia1m2kw8cwTFNZ8b8hiDuZPmwq6xyY/wAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFPTNpQHMe7Hdx104tXr/O28066eJp68MQK
+        OhFSKWYXdl5vbstizBJPetnMcIrGWGKCXpdMRzB0akUCbPzRoK0WKIP+CYaffS+AQqwh+yaf/PJrf+/z
+        2vcIlDw3+zjDL3Smubne9NFqL8/7OvCLdhKLfX5UOHj/JB/91JMMDVdKEWaUdr0JUk5KdNgpcaIFuwH1
+        2p21Wuw/sCCzM9MpRz6+1H69AD00BDr3ClRFAlX7Z0qpLAOSYMFpcLqrEBpQtj/0VfV99zNttx+0MAnx
+        XNUUJCFJSqwJvnYVeeapvjcC2s/noAYHQRAEnUtk4Zt3GTZYf4PVtXXYT140C9CBCbyv2znuuNIMCRtg
+        T9BAUqpAQlQgbpAQ1QbJXKVZUM+obUIR8zKw/k08ED2RYH7hCywuehssffdBLCubC6RiGX8qGkhdlID/
+        ewYHf5pJXSrtCSLZEnCJMwgboFrn+NxEYGsRHGUk8C6tNA4Qgfrj04KJwNosiF9WICooNxg7R89V/Lwt
+        we87rhH1h6mWa6zHSo7nbgsychWTrtXb3CmwWCbLeUMQ2NrGA/ehqEUYG5via0sJAgAeGL/AejzvwDXp
+        Adr1FlczaJrWbaTDzzDMw5rif0MQ14wwbCY+RNEUAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFm6SbVeNn+A
-        4iKKODk4WHTRSVBxsCF0cnLRwQ5KsYLQ6iIILg5u3kBSerPX9N68ni80sdrU1g8eEg7nffJ95xCuWl2M
-        EYatCX0MM6OuRrLZbMLv91fK5TKMyOfzEAThkO01lNgonMlkIMuyTjKZRDweRygUUiXBYBCiKNZJTAwb
-        bcjlcigUCuqTSKfTSCQSCIfDqoB1CfqI2+3WJGrpAgprkIACqVQKkUjkxzgEZarZb0GpVNI30DvNrY0S
-        jUbVTiRJaiz4Ta2EOqHziMVirQsITULj0JmQiNZbFhDFYlE9F5IQtPYvAXXxdubC3cIQrifacDPXC8Fm
-        Ev8UUEjj3SPgcX0UOe8BlCcf5JM1+O3Dlasxy2pTAbV/Oz+ALAvDNQM424GdfkT2xuAd518aCmol1Lby
-        4EFtxbc6se2wKLogEAgoRhIiMNuDzNEiwEL5dQ6fjPcVHr4p/oMEVFZ2PTKTGP5Mr6f7uF8ehOTsR3ij
-        Dc9LJlzbLZXLSfNmNc91M6wMuhpDjqY7xHMHL1HbF3Y+dDzK73Icx30BWVyD3W9se9YAAAAASUVORK5C
-        YII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwVnAQwUnpJvW++QMU
+        F1HEycFB0cVNUHHQEDo5uehgB6WoII26CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
+        Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
+        YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
+        VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
+        VUAhm1e/gPulfhiBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAYJB/qimolFDbxTs/
+        KktZa8bakKtYFgSDwWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
+        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AFLTg9ItGsa4AAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmPrestamoEmpresariales.Designer.vb

@@ -153,6 +153,7 @@ Partial Class frmPrestamoEmpresariales
         '
         'Panel2
         '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel2.Controls.Add(Me.lblPrestamoEmpresarial)
         Me.Panel2.Controls.Add(Me.btnAccion)
         Me.Panel2.Controls.Add(Me.GrpDatos)
@@ -166,12 +167,15 @@ Partial Class frmPrestamoEmpresariales
         'btnAccion
         '
         Me.btnAccion.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.btnAccion.BackColor = System.Drawing.Color.White
+        Me.btnAccion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAccion.ForeColor = System.Drawing.Color.Maroon
         Me.btnAccion.Location = New System.Drawing.Point(351, 285)
         Me.btnAccion.Name = "btnAccion"
         Me.btnAccion.Size = New System.Drawing.Size(93, 33)
         Me.btnAccion.TabIndex = 170
         Me.btnAccion.Text = "Aceptar"
-        Me.btnAccion.UseVisualStyleBackColor = True
+        Me.btnAccion.UseVisualStyleBackColor = False
         '
         'GrpDatos
         '
@@ -409,8 +413,8 @@ Partial Class frmPrestamoEmpresariales
         Me.ClientSize = New System.Drawing.Size(797, 391)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmPrestamoEmpresariales"
-        Me.Text = "Prestamo Empresariales"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmPrestamoEmpresariales.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFPTNpQHMe7Hdx1k4vXXedt553UeNLtsBMr
-        6ERMoRov7LwelmxZFmOWeNLLZgZTNMYSE/Rq4ibBWHUVCbDxR4O2WqAM+icYfva9AAqxhvhNPvnl1/7e
-        57XvESh5bvpxhp/rTHMz3enDpW6e93fgF+0kFvv6qHDw6Uk++uVpMvyqUoowQ7R7MkSNUaLTQYmjLTgM
-        qLfjWZvVsYkFmV9TnXLk84C23Qd6+CXo3BtQFQlU7b8ppbIMSIIFJ6GPlkK4X1n70FPV98efa797Qdsl
-        IZ6rmoIkJEmJNcF3S5Fnnuk7r0HbegFqaBAEQdC5RBZ+eBdglQ00WFpegf3kebMAHZjA+7vGRpyXmiFh
-        g+wxGkhKFUiICsQNEqLaIJmrNAvqGbKPKmJeBjawhgeixxLMzn2D+XlvA99PP8SysrlAKpbxp6KB1HkJ
-        +H+ncPC3mdSF0p4gki0BlziFXQNU6xydmQjsLYLDjARe32LjABGoPzopmAhszYL4RQWignKNsXP0TMXP
-        2xLs3XKNqP+TarnGemzkSO6mICNXMelavcmtAqvVVc4bguD6Bh64C0UtwvDwBF9bShAA8MD4BdbjeQ9u
-        lwdo9ztczaBpWreTzgDDMA9rivuGIK4Aa41sHJ5fbUwAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZFNTNpgGMe7HdzV4WVXr3LbeSdnPDk97IQF
+        nYCp1MULO6/ZZcaYZTHxpJdphnO4GEtM1OuSbRIW60dFAkw+NGCrBYrQj7DwrO8bYEKsIf6TX5487fP+
+        3vZ9CZQ897EzzS9aUty8NXW8ZuV5fwd+0U6i0blHhcPpx/nIbHciNFQphZkR2jMVpMYp0e2kRFcLTgPq
+        1WTGbnN+x4L0zw8WOTwzoO32gR4aBJ0bBlWRQNWuTSmVZUASLDgPvu8qhPqVwLveqn4w+VT79Ry0PRJi
+        uaopSEKSlFgTLHUVeaZH//0StB/PQA2+AEEQdC6egc++VdhgAw3Wvq3DQeKyWYAOTOD9T8bH3H81Q8Ju
+        sWdoICFVIC4qEDOIi2qDRK7SLKhnxOFSxLwMbGATD0TOJFhY/ATLy74GK1/8EM3I5gKpWMafigaSlyXg
+        T7Nw+KeZ5JXSniCcKQEXz8KeAap1Ti5MBI4WwXFaAt/K18YBIlB/cl4wEdibBbGrCkQE5T/GzpELFT9v
+        S7B/yzWi/ijZco312Mmx3E1BWq5iUrV6k1sFNttEOW8ItrZ38MBdKGoRRkdf87WlBAEAD4xfYL3et+CZ
+        8ALteYOrGTRN6w7SHWAY5mFNcd8QxD9ef2wYhh+LtAAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnFq6ldbr5g9Q
-        XEQRJweHFl26CSoONoROTi466KCIBgpVF0FwcXDzUpCU3mzaJm16fT1faGrV1ssHDwmH8z75vnMIV6tu
-        ho3h+IV+RhvjW9lyuZwSCoUq5XIZzdB1HYIg7LK9TSUOCquqCk3T6qTTaaRSKUSjUUMSiUQgiuI3iYXh
-        oA35fB6FQsF4EtlsFoqiIBaLGQLWJegjgUDAlBhVF1DYhAQUyGQyiMfjn8YhKFPLfghKpVJ9A73T3OYo
-        iUTC6ESW5daCrzRKqBM6j2Qy+XcBYUpoHDoTEtH6nwVEsVg0zoUkBK39S0BdvBz5cTM/jOB4O65m+yA4
-        LOKPAgqZhI8F3HucyJ/toPpwAe1gFSHXSEVyW1d+FVD713ODyLEw/NOAtwPYGEB8y42zUf6ppaBRQm1X
-        747RWClfF3xj1mpdIElStZmEuJzphbq3ALCQ7uHwxggv87iY5F9JQGVn16O1+pmeD7dxuzQE2TuA2Fo7
-        HhctCLqslfOJtvVanuth2Bl0NU3Zm+oUT8Z4mdo+dfHRfSe/yXEc9w5H/IPDoglrbAAAAABJRU5ErkJg
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZT0/4AF3HwCg4iOLV0k2q9bP4A
+        xUUUcXJwaNHFTVBx0BA6dXLRQQdFqlCougiCi4Obl4KkpGntLWl6fz1faGrV1uoHDwmH8z75vnMIV60u
+        hp3hbEEfo43xo+zZbDYZCoXKpVIJjcjlchAEYY/tbShxUlhVVWiaViOVSiGRSECWZUMSiUQgiuIPiYXh
+        pA26riOfzxtPIpPJIJlMIhqNGgLWJegjPp/PlBhVE1DYhAQUSKfTUBTlyzgEZarZT0GxWKxtoHea2xwl
+        FosZnUiS1FzwnXoJdULnEY/H/y4gTAmNQ2dCIlr/s4AoFArGuZCEoLV/CaiL1+N93M4PIThuw/VsLwSn
+        RfxVQCGT8ImAB88I9PNdVB4voB2uIuQaLl+OWldaCqj9m7kBZFkY+9OAtx3Y7IeyPYrzMf65qaBeQm1X
+        7k9QX4mNTmy4rZWaIBAIVBpJiKuZHqj+BYCFch4O74zwMo+LSf6NBFQOdj1as5/p5WgHd0uDkLz9iK7Z
+        8LRoQdBlLQcm2tarea6b4WDQ1TTEP9Uhnrp5ido+c/HywQi/xXEc9wFDpoO9i5iysQAAAABJRU5ErkJg
         gg==
 </value>
   </data>

FRM/frmPrestamoPersonal.Designer.vb

@@ -35,6 +35,7 @@ Partial Class frmPrestamoPersonal
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.GrpDatos = New System.Windows.Forms.GroupBox()
+        Me.CkbPrueba = New System.Windows.Forms.CheckBox()
         Me.txtNombreDeudor = New System.Windows.Forms.TextBox()
         Me.txtNumeroDeudor = New System.Windows.Forms.TextBox()
         Me.txtPeriodo = New System.Windows.Forms.TextBox()
@@ -73,7 +74,6 @@ Partial Class frmPrestamoPersonal
         Me.TabPage3 = New System.Windows.Forms.TabPage()
         Me.dgvAmortizacion = New System.Windows.Forms.DataGridView()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.CkbPrueba = New System.Windows.Forms.CheckBox()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.BindingNavigator1.SuspendLayout()
         Me.TabControl1.SuspendLayout()
@@ -180,6 +180,7 @@ Partial Class frmPrestamoPersonal
         '
         'TabPage2
         '
+        Me.TabPage2.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TabPage2.Controls.Add(Me.GrpDatos)
         Me.TabPage2.Controls.Add(Me.GrpInfo)
         Me.TabPage2.Controls.Add(Me.lblPrestamoPersonal)
@@ -196,7 +197,6 @@ Partial Class frmPrestamoPersonal
         Me.TabPage2.Size = New System.Drawing.Size(866, 378)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Deudor"
-        Me.TabPage2.UseVisualStyleBackColor = True
         '
         'GrpDatos
         '
@@ -213,6 +213,15 @@ Partial Class frmPrestamoPersonal
         Me.GrpDatos.TabIndex = 178
         Me.GrpDatos.TabStop = False
         '
+        'CkbPrueba
+        '
+        Me.CkbPrueba.AutoSize = True
+        Me.CkbPrueba.Location = New System.Drawing.Point(25, 12)
+        Me.CkbPrueba.Name = "CkbPrueba"
+        Me.CkbPrueba.Size = New System.Drawing.Size(15, 14)
+        Me.CkbPrueba.TabIndex = 133
+        Me.CkbPrueba.UseVisualStyleBackColor = True
+        '
         'txtNombreDeudor
         '
         Me.txtNombreDeudor.Location = New System.Drawing.Point(25, 29)
@@ -317,12 +326,15 @@ Partial Class frmPrestamoPersonal
         'btnAccion
         '
         Me.btnAccion.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.btnAccion.Location = New System.Drawing.Point(377, 294)
+        Me.btnAccion.BackColor = System.Drawing.Color.White
+        Me.btnAccion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAccion.ForeColor = System.Drawing.Color.Maroon
+        Me.btnAccion.Location = New System.Drawing.Point(362, 294)
         Me.btnAccion.Name = "btnAccion"
-        Me.btnAccion.Size = New System.Drawing.Size(77, 29)
+        Me.btnAccion.Size = New System.Drawing.Size(92, 29)
         Me.btnAccion.TabIndex = 170
         Me.btnAccion.Text = "Aceptar"
-        Me.btnAccion.UseVisualStyleBackColor = True
+        Me.btnAccion.UseVisualStyleBackColor = False
         '
         'Label13
         '
@@ -380,6 +392,7 @@ Partial Class frmPrestamoPersonal
         '
         'TabPage1
         '
+        Me.TabPage1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TabPage1.Controls.Add(Me.Label19)
         Me.TabPage1.Controls.Add(Me.GrpDatos2)
         Me.TabPage1.Controls.Add(Me.GrpInfo2)
@@ -391,7 +404,6 @@ Partial Class frmPrestamoPersonal
         Me.TabPage1.Size = New System.Drawing.Size(866, 378)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Detalles"
-        Me.TabPage1.UseVisualStyleBackColor = True
         '
         'Label19
         '
@@ -563,6 +575,7 @@ Partial Class frmPrestamoPersonal
         'dgvAmortizacion
         '
         Me.dgvAmortizacion.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvAmortizacion.BackgroundColor = System.Drawing.Color.White
         Me.dgvAmortizacion.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAmortizacion.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvAmortizacion.Location = New System.Drawing.Point(3, 3)
@@ -579,15 +592,6 @@ Partial Class frmPrestamoPersonal
         Me.Panel1.Size = New System.Drawing.Size(874, 404)
         Me.Panel1.TabIndex = 170
         '
-        'CkbPrueba
-        '
-        Me.CkbPrueba.AutoSize = True
-        Me.CkbPrueba.Location = New System.Drawing.Point(25, 12)
-        Me.CkbPrueba.Name = "CkbPrueba"
-        Me.CkbPrueba.Size = New System.Drawing.Size(15, 14)
-        Me.CkbPrueba.TabIndex = 133
-        Me.CkbPrueba.UseVisualStyleBackColor = True
-        '
         'frmPrestamoPersonal
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -595,8 +599,8 @@ Partial Class frmPrestamoPersonal
         Me.ClientSize = New System.Drawing.Size(874, 429)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmPrestamoPersonal"
-        Me.Text = "Prestamo Personal"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmPrestamoPersonal.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFPTNpQHMe7Hdx1k4vXXedt553UeNLtsBMr
-        6ERMoRov7LwelmxZFmOWeNLLZgZTNMYSE/Rq4ibBWHUVCbDxR4O2WqAM+icYfva9AAqxhvhNPvnl1/7e
-        57XvESh5bvpxhp/rTHMz3enDpW6e93fgF+0kFvv6qHDw6Uk++uVpMvyqUoowQ7R7MkSNUaLTQYmjLTgM
-        qLfjWZvVsYkFmV9TnXLk84C23Qd6+CXo3BtQFQlU7b8ppbIMSIIFJ6GPlkK4X1n70FPV98efa797Qdsl
-        IZ6rmoIkJEmJNcF3S5Fnnuk7r0HbegFqaBAEQdC5RBZ+eBdglQ00WFpegf3kebMAHZjA+7vGRpyXmiFh
-        g+wxGkhKFUiICsQNEqLaIJmrNAvqGbKPKmJeBjawhgeixxLMzn2D+XlvA99PP8SysrlAKpbxp6KB1HkJ
-        +H+ncPC3mdSF0p4gki0BlziFXQNU6xydmQjsLYLDjARe32LjABGoPzopmAhszYL4RQWignKNsXP0TMXP
-        2xLs3XKNqP+TarnGemzkSO6mICNXMelavcmtAqvVVc4bguD6Bh64C0UtwvDwBF9bShAA8MD4BdbjeQ9u
-        lwdo9ztczaBpWreTzgDDMA9rivuGIK4Aa41sHJ5fbUwAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZFNTNpgGMe7HdzV4WVXr3LbeSdnPDk97IQF
+        nYCp1MULO6/ZZcaYZTHxpJdphnO4GEtM1OuSbRIW60dFAkw+NGCrBYrQj7DwrO8bYEKsIf6TX5487fP+
+        3vZ9CZQ897EzzS9aUty8NXW8ZuV5fwd+0U6i0blHhcPpx/nIbHciNFQphZkR2jMVpMYp0e2kRFcLTgPq
+        1WTGbnN+x4L0zw8WOTwzoO32gR4aBJ0bBlWRQNWuTSmVZUASLDgPvu8qhPqVwLveqn4w+VT79Ry0PRJi
+        uaopSEKSlFgTLHUVeaZH//0StB/PQA2+AEEQdC6egc++VdhgAw3Wvq3DQeKyWYAOTOD9T8bH3H81Q8Ju
+        sWdoICFVIC4qEDOIi2qDRK7SLKhnxOFSxLwMbGATD0TOJFhY/ATLy74GK1/8EM3I5gKpWMafigaSlyXg
+        T7Nw+KeZ5JXSniCcKQEXz8KeAap1Ti5MBI4WwXFaAt/K18YBIlB/cl4wEdibBbGrCkQE5T/GzpELFT9v
+        S7B/yzWi/ijZco312Mmx3E1BWq5iUrV6k1sFNttEOW8ItrZ38MBdKGoRRkdf87WlBAEAD4xfYL3et+CZ
+        8ALteYOrGTRN6w7SHWAY5mFNcd8QxD9ef2wYhh+LtAAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnFq6ldbr5g9Q
-        XEQRJweHFl26CSoONoROTi466KCIBgpVF0FwcXDzUpCU3mzaJm16fT1faGrV1ssHDwmH8z75vnMIV6tu
-        ho3h+IV+RhvjW9lyuZwSCoUq5XIZzdB1HYIg7LK9TSUOCquqCk3T6qTTaaRSKUSjUUMSiUQgiuI3iYXh
-        oA35fB6FQsF4EtlsFoqiIBaLGQLWJegjgUDAlBhVF1DYhAQUyGQyiMfjn8YhKFPLfghKpVJ9A73T3OYo
-        iUTC6ESW5daCrzRKqBM6j2Qy+XcBYUpoHDoTEtH6nwVEsVg0zoUkBK39S0BdvBz5cTM/jOB4O65m+yA4
-        LOKPAgqZhI8F3HucyJ/toPpwAe1gFSHXSEVyW1d+FVD713ODyLEw/NOAtwPYGEB8y42zUf6ppaBRQm1X
-        747RWClfF3xj1mpdIElStZmEuJzphbq3ALCQ7uHwxggv87iY5F9JQGVn16O1+pmeD7dxuzQE2TuA2Fo7
-        HhctCLqslfOJtvVanuth2Bl0NU3Zm+oUT8Z4mdo+dfHRfSe/yXEc9w5H/IPDoglrbAAAAABJRU5ErkJg
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZT0/4AF3HwCg4iOLV0k2q9bP4A
+        xUUUcXJwaNHFTVBx0BA6dXLRQQdFqlCougiCi4Obl4KkpGntLWl6fz1faGrV1uoHDwmH8z75vnMIV60u
+        hp3hbEEfo43xo+zZbDYZCoXKpVIJjcjlchAEYY/tbShxUlhVVWiaViOVSiGRSECWZUMSiUQgiuIPiYXh
+        pA26riOfzxtPIpPJIJlMIhqNGgLWJegjPp/PlBhVE1DYhAQUSKfTUBTlyzgEZarZT0GxWKxtoHea2xwl
+        FosZnUiS1FzwnXoJdULnEY/H/y4gTAmNQ2dCIlr/s4AoFArGuZCEoLV/CaiL1+N93M4PIThuw/VsLwSn
+        RfxVQCGT8ImAB88I9PNdVB4voB2uIuQaLl+OWldaCqj9m7kBZFkY+9OAtx3Y7IeyPYrzMf65qaBeQm1X
+        7k9QX4mNTmy4rZWaIBAIVBpJiKuZHqj+BYCFch4O74zwMo+LSf6NBFQOdj1as5/p5WgHd0uDkLz9iK7Z
+        8LRoQdBlLQcm2tarea6b4WDQ1TTEP9Uhnrp5ido+c/HywQi/xXEc9wFDpoO9i5iysQAAAABJRU5ErkJg
         gg==
 </value>
   </data>

FRM/frmRegistroAcciones.Designer.vb

@@ -1,202 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmRegistroAcciones
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRegistroAcciones))
-        Dim navSiguienteRegistro As System.Windows.Forms.ToolStripButton
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtConta = New System.Windows.Forms.TextBox()
-        Me.txtPosicion = New System.Windows.Forms.TextBox()
-        Me.Navegador = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.navNuevoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navPrimerRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navRegistroAnterior = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.navUltimoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.dgvLETES = New System.Windows.Forms.DataGridView()
-        navSiguienteRegistro = New System.Windows.Forms.ToolStripButton()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Navegador.SuspendLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label1.Location = New System.Drawing.Point(119, 8)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 17)
-        Me.Label1.TabIndex = 130
-        Me.Label1.Text = "Posición: "
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(237, 7)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(25, 17)
-        Me.Label5.TabIndex = 129
-        Me.Label5.Text = "de: "
-        '
-        'txtConta
-        '
-        Me.txtConta.Location = New System.Drawing.Point(266, 4)
-        Me.txtConta.Name = "txtConta"
-        Me.txtConta.ReadOnly = True
-        Me.txtConta.Size = New System.Drawing.Size(58, 20)
-        Me.txtConta.TabIndex = 128
-        '
-        'txtPosicion
-        '
-        Me.txtPosicion.Location = New System.Drawing.Point(170, 4)
-        Me.txtPosicion.Name = "txtPosicion"
-        Me.txtPosicion.Size = New System.Drawing.Size(56, 20)
-        Me.txtPosicion.TabIndex = 127
-        '
-        'Navegador
-        '
-        Me.Navegador.AddNewItem = Me.navNuevoRegistro
-        Me.Navegador.CountItem = Nothing
-        Me.Navegador.DeleteItem = Nothing
-        Me.Navegador.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.navPrimerRegistro, Me.navRegistroAnterior, Me.BindingNavigatorSeparator, Me.BindingNavigatorSeparator1, navSiguienteRegistro, Me.navUltimoRegistro, Me.BindingNavigatorSeparator2, Me.navNuevoRegistro})
-        Me.Navegador.Location = New System.Drawing.Point(0, 0)
-        Me.Navegador.MoveFirstItem = Nothing
-        Me.Navegador.MoveLastItem = Nothing
-        Me.Navegador.MoveNextItem = Nothing
-        Me.Navegador.MovePreviousItem = Nothing
-        Me.Navegador.Name = "Navegador"
-        Me.Navegador.PositionItem = Nothing
-        Me.Navegador.Size = New System.Drawing.Size(873, 25)
-        Me.Navegador.TabIndex = 126
-        Me.Navegador.Text = "BindingNavigator1"
-        '
-        'navNuevoRegistro
-        '
-        Me.navNuevoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevoRegistro.Enabled = False
-        Me.navNuevoRegistro.Image = CType(resources.GetObject("navNuevoRegistro.Image"), System.Drawing.Image)
-        Me.navNuevoRegistro.Name = "navNuevoRegistro"
-        Me.navNuevoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navNuevoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevoRegistro.Text = "Agregar nuevo"
-        Me.navNuevoRegistro.Visible = False
-        '
-        'navPrimerRegistro
-        '
-        Me.navPrimerRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navPrimerRegistro.Image = CType(resources.GetObject("navPrimerRegistro.Image"), System.Drawing.Image)
-        Me.navPrimerRegistro.Name = "navPrimerRegistro"
-        Me.navPrimerRegistro.RightToLeftAutoMirrorImage = True
-        Me.navPrimerRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navPrimerRegistro.Text = "Mover primero"
-        '
-        'navRegistroAnterior
-        '
-        Me.navRegistroAnterior.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navRegistroAnterior.Image = CType(resources.GetObject("navRegistroAnterior.Image"), System.Drawing.Image)
-        Me.navRegistroAnterior.Name = "navRegistroAnterior"
-        Me.navRegistroAnterior.RightToLeftAutoMirrorImage = True
-        Me.navRegistroAnterior.Size = New System.Drawing.Size(23, 22)
-        Me.navRegistroAnterior.Text = "Mover anterior"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
-        '
-        'navSiguienteRegistro
-        '
-        navSiguienteRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        navSiguienteRegistro.Image = CType(resources.GetObject("navSiguienteRegistro.Image"), System.Drawing.Image)
-        navSiguienteRegistro.Name = "navSiguienteRegistro"
-        navSiguienteRegistro.RightToLeftAutoMirrorImage = True
-        navSiguienteRegistro.Size = New System.Drawing.Size(23, 22)
-        navSiguienteRegistro.Text = "Mover siguiente"
-        '
-        'navUltimoRegistro
-        '
-        Me.navUltimoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navUltimoRegistro.Image = CType(resources.GetObject("navUltimoRegistro.Image"), System.Drawing.Image)
-        Me.navUltimoRegistro.Name = "navUltimoRegistro"
-        Me.navUltimoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navUltimoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navUltimoRegistro.Text = "Mover último"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
-        '
-        'dgvLETES
-        '
-        Me.dgvLETES.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLETES.Location = New System.Drawing.Point(12, 27)
-        Me.dgvLETES.Name = "dgvLETES"
-        Me.dgvLETES.Size = New System.Drawing.Size(859, 425)
-        Me.dgvLETES.TabIndex = 131
-        '
-        'frmRegistroAcciones
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(873, 450)
-        Me.Controls.Add(Me.dgvLETES)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtConta)
-        Me.Controls.Add(Me.txtPosicion)
-        Me.Controls.Add(Me.Navegador)
-        Me.Name = "frmRegistroAcciones"
-        Me.Text = "frmRegistroAcciones"
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Navegador.ResumeLayout(False)
-        Me.Navegador.PerformLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents txtConta As TextBox
-    Friend WithEvents txtPosicion As TextBox
-    Friend WithEvents Navegador As BindingNavigator
-    Friend WithEvents navNuevoRegistro As ToolStripButton
-    Friend WithEvents navPrimerRegistro As ToolStripButton
-    Friend WithEvents navRegistroAnterior As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
-    Friend WithEvents navUltimoRegistro As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
-    Friend WithEvents dgvLETES As DataGridView
-End Class

FRM/frmRegistroAcciones.resx

@@ -1,179 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="Navegador.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navNuevoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="navPrimerRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navRegistroAnterior.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="navSiguienteRegistro.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <data name="navSiguienteRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navUltimoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-</root>

FRM/frmRegistroAcciones.vb

@@ -1,468 +0,0 @@
-Public Class frmRegistroAcciones
-    Dim RegistroConsulta As New RegistrosDAO
-    Dim Operaciones As New Operaciones
-    Dim CodEmpr = Operaciones.CodEmpr
-    Dim CodEmis = Operaciones.CodEmis
-    Dim CodECalRi = Operaciones.CodECalRi
-    Dim ListaPlazo = Operaciones.ListaPlazo
-    Dim ListaTiposMercado = Operaciones.ListaTiposMercados
-    Dim ListaPeriodos = Operaciones.ListaPeriodos
-    Dim ListaTipoTasa = Operaciones.ListaTipoTasa
-    Dim ListaTipoRenta = Operaciones.ListaTipoRenta
-    Dim ListaEstado = Operaciones.ListaEstado
-    Dim ListaCasasCorredoras = Operaciones.ListaCasasCorredoras
-    Dim CodPais = Operaciones.CodPais
-    Dim ValorCambiado As Boolean = False
-    Dim Direccion As String = String.Empty
-    Dim CodigoInstrumento As String = Variables.CodigoInstrumento
-    Dim tablas As String
-
-    Private Sub frmRegistroAcciones_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
-        tablas = "ACC0"
-        AgregarColumnasInv()
-        AgregarColumnasIns()
-        txtPosicion.Text = "1"
-        txtConta.Text = RegistroConsulta.Contador(tablas)
-        ValorCambiado = False
-        Cargar(CodigoInstrumento, 1, 100)
-    End Sub
-
-
-
-
-
-
-
-
-
-
-
-
-    Sub AgregarColumnasInv()
-        Dim Empresa, Instrumento, Emisor, CalRiesgo, Calif, Pais, TipoMercado, Nombre, Periodicidad, Plazo As New DataGridViewTextBoxColumn
-        Dim CantidadPlazo, TipoRenta, TipoTasa, Numero, Fecha, Codigo, Estado As New DataGridViewTextBoxColumn
-        Codigo.Name = "Codigo de Inversion"
-        Empresa.Name = "Empresa"
-        Instrumento.Name = "Instrumento"
-        Emisor.Name = "Emisor"
-        CalRiesgo.Name = "Calificadora Riesgo"
-        Calif.Name = "Calificadora"
-        Pais.Name = "Pais"
-        TipoMercado.Name = "Tipo Mercado"
-        Nombre.Name = "Nombre"
-        Periodicidad.Name = "Periodicidad"
-        CantidadPlazo.Name = "Cantidad Plazo"
-        Plazo.Name = "Plazo"
-        TipoRenta.Name = "Tipo de Renta"
-        TipoTasa.Name = "Tipo de Tasa"
-        Numero.Name = "Numero"
-        Fecha.Name = "Fecha"
-        Estado.Name = "Estado"
-
-
-
-        dgvLETES.Columns.Add(Codigo)
-        dgvLETES.Columns.Add(Estado)
-        dgvLETES.Columns.Add(Empresa)
-        dgvLETES.Columns.Add(Instrumento)
-        dgvLETES.Columns.Add(Emisor)
-        dgvLETES.Columns.Add(CalRiesgo)
-        dgvLETES.Columns.Add(Calif)
-        dgvLETES.Columns.Add(CantidadPlazo)
-        dgvLETES.Columns.Add(Plazo)
-        dgvLETES.Columns.Add(Fecha)
-        dgvLETES.Columns.Add(TipoMercado)
-        dgvLETES.Columns.Add(Pais)
-        dgvLETES.Columns.Add(Nombre)
-        dgvLETES.Columns.Add(Periodicidad)
-        dgvLETES.Columns.Add(TipoTasa)
-        dgvLETES.Columns.Add(TipoRenta)
-        dgvLETES.Columns.Add(Numero)
-
-
-
-    End Sub
-
-    Sub AgregarColumnasIns()
-        Dim PrecioLimpioC, FOperC, FliqC, DiasTC, GCapTotC, GCapUnC, RetAnBrC, RetAnNetC, UnC, ValTransC, MontoNetoC, PrecSucioC As New DataGridViewTextBoxColumn
-        Dim PrecioLimpioV, FOperV, FliqV, DiasTV, GCapTotV, GCapUnV, RetAnBrV, RetAnNetV, UnV, ValTransV, MontoNetoV, PrecSucioV As New DataGridViewTextBoxColumn
-        Dim Fecha, Dividendo, CantidadBase, IngresoBruto, PorcISR, ISR, IngresoNeto, Correlativo As New DataGridViewTextBoxColumn
-
-        PrecioLimpioC.Name = "Precio Limpio Compra"
-        FOperC.Name = "Fecha Operación Compra"
-        FliqC.Name = "Fecha Liquidación Compra"
-        DiasTC.Name = "Dias de Tenencia Compra"
-        GCapTotC.Name = "Ganancia Total Compra"
-        GCapUnC.Name = "Ganancia Acción Compra"
-        RetAnBrC.Name = "Retorno Anual Bruto Compra"
-        RetAnNetC.Name = "Retorno Anual Neto Compra"
-        UnC.Name = "Unidades Compra"
-        ValTransC.Name = "Valor Transado Compra"
-        MontoNetoC.Name = "Monto Neto Compra"
-        PrecSucioC.Name = "Precio Sucio Compra"
-
-        PrecioLimpioV.Name = "Precio Limpio Venta"
-        FOperV.Name = "Fecha Operación Venta"
-        FliqV.Name = "Fecha Liquidación Venta"
-        DiasTV.Name = "Dias de Tenencia Venta"
-        GCapTotV.Name = "Ganancia Total Venta"
-        GCapUnV.Name = "Ganancia Acción Venta"
-        RetAnBrV.Name = "Retorno Anual Bruto Venta"
-        RetAnNetV.Name = "Retorno Anual Neto Venta"
-        UnV.Name = "Unidades Venta"
-        ValTransV.Name = "Valor Transado Venta"
-        MontoNetoV.Name = "Monto Neto Venta"
-        PrecSucioV.Name = "Precio Sucio Venta"
-
-
-        Fecha.Name = "Fecha"
-        Dividendo.Name = "Dividendo"
-        CantidadBase.Name = "Cantidad Base"
-        IngresoBruto.Name = "Ingreso Bruto"
-        PorcISR.Name = "% ISR"
-        ISR.Name = "ISR"
-        IngresoNeto.Name = "Ingreso Neto"
-        Correlativo.Name = "Correlativo"
-
-
-        dgvLETES.Columns.Add(PrecioLimpioC)
-        dgvLETES.Columns.Add(FOperC)
-        dgvLETES.Columns.Add(FliqC)
-        dgvLETES.Columns.Add(DiasTC)
-        dgvLETES.Columns.Add(GCapTotC)
-        dgvLETES.Columns.Add(GCapUnC)
-        dgvLETES.Columns.Add(RetAnBrC)
-        dgvLETES.Columns.Add(RetAnNetC)
-        dgvLETES.Columns.Add(UnC)
-        dgvLETES.Columns.Add(ValTransC)
-        dgvLETES.Columns.Add(MontoNetoC)
-        dgvLETES.Columns.Add(PrecSucioC)
-
-        dgvLETES.Columns.Add(PrecioLimpioV)
-        dgvLETES.Columns.Add(FOperV)
-        dgvLETES.Columns.Add(FliqV)
-        dgvLETES.Columns.Add(DiasTV)
-        dgvLETES.Columns.Add(GCapTotV)
-        dgvLETES.Columns.Add(GCapUnV)
-        dgvLETES.Columns.Add(RetAnBrV)
-        dgvLETES.Columns.Add(RetAnNetV)
-        dgvLETES.Columns.Add(UnV)
-        dgvLETES.Columns.Add(ValTransV)
-        dgvLETES.Columns.Add(MontoNetoV)
-        dgvLETES.Columns.Add(PrecSucioV)
-
-
-        dgvLETES.Columns.Add(Fecha)
-        dgvLETES.Columns.Add(Dividendo)
-        dgvLETES.Columns.Add(CantidadBase)
-        dgvLETES.Columns.Add(IngresoBruto)
-        dgvLETES.Columns.Add(PorcISR)
-        dgvLETES.Columns.Add(ISR)
-        dgvLETES.Columns.Add(IngresoNeto)
-        dgvLETES.Columns.Add(Correlativo)
-
-        'dgvLETES.Columns.Add(nombredeudor)
-
-
-    End Sub
-
-
-
-
-    Sub Cargar(ByVal Cod As String, ByVal Inicio As Integer, ByVal Final As Integer)
-
-
-        Dim CodigoEmpresa As String = " "
-        Dim CodigoEmisor As String = " "
-        Dim CodigoECal As String = " "
-        Dim PlazoF As String = " "
-        Dim TiposMercado As String = " "
-        Dim Pais As String = " "
-        Dim Periodos As String = " "
-        Dim Periodos2 As String = " "
-        Dim TipoTasa As String = " "
-        Dim TipoRenta As String = " "
-        Dim Estado As String = " "
-        Dim CasasCorredoras As String = " "
-        Dim codigo As String = CodigoInstrumento
-        Dim Instrumento As String
-        Dim dr
-
-        Instrumento = "Acciones"
-
-
-
-
-
-        dr = RegistroConsulta.CargarInvACCC(Cod, Inicio, Final)
-
-
-
-
-
-
-
-        While dr.Read
-
-
-
-
-
-
-
-
-
-            For Each pair In CodEmpr
-
-                If (pair.Key.ToString = dr("CodEmpr").ToString) Then
-                    CodigoEmpresa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmpr").ToString)) Then
-                    CodigoEmpresa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodEmis
-
-                If (pair.Key.ToString = dr("CodEmis").ToString) Then
-                    CodigoEmisor = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmis").ToString)) Then
-                    CodigoEmisor = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodECalRi
-
-
-                If (pair.Key.ToString = dr("CodECalRi").ToString) Then
-                    CodigoECal = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodECalRi").ToString)) Then
-                    CodigoECal = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPlazo
-                If (pair.Key.ToString = dr("PlazoFact").ToString) Then
-                    PlazoF = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("PlazoFact").ToString)) Then
-                    PlazoF = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaTiposMercado
-
-
-
-
-
-                If (pair.Key.ToString = dr("TipoMerc").ToString.TrimStart()) Then
-                    TiposMercado = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipoMerc").ToString.TrimStart())) Then
-                    TiposMercado = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodPais
-                If (pair.Key.ToString = dr("CodPais").ToString.TrimStart()) Then
-                    Pais = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodPais").ToString.TrimStart())) Then
-                    Pais = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPeriodos
-                If (pair.Key.ToString = dr("Periodicidad").ToString.TrimStart()) Then
-                    Periodos = pair.Value
-
-                ElseIf (String.IsNullOrEmpty(dr("Periodicidad").ToString.TrimStart())) Then
-                    Periodos = "    ----  ----  ----  ---- "
-
-                End If
-
-
-            Next
-
-
-
-            For Each pair In ListaTipoTasa
-                If (pair.Key.ToString = dr("TipTasa").ToString.TrimStart()) Then
-                    TipoTasa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipTasa").ToString.TrimStart())) Then
-                    TipoTasa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            For Each pair In ListaTipoRenta
-                If (pair.Key.ToString = dr("TipRenta").ToString.TrimStart()) Then
-                    TipoRenta = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipRenta").ToString.TrimStart())) Then
-                    TipoRenta = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-
-            For Each pair In ListaEstado
-                If (pair.Key.ToString = dr("DocEst").ToString.TrimStart()) Then
-                    Estado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("DocEst").ToString.TrimStart())) Then
-                    Estado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            '     For Each pair In ListaCasasCorredoras
-            '          If (pair.Key.ToString = dr("CasasCorredoras").ToString) Then
-            '   CasasCorredoras = pair.Value
-            '    Exit For
-            ' ElseIf (String.IsNullOrEmpty(dr("CasasCorredoras").ToString)) Then
-            '    CasasCorredoras = "    ----  ----  ----  ---- "
-            '      Exit For
-            '   End If
-            'Next
-
-            'dgvReportes.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, "Reportos", CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), "", dr("Nombre"), dr("FCompra"), dr("ValTrans"), dr("Dias"), dr("FVenc"), dr("Rend"), ComisionCasa, ComisionBolsa, IOF, 0, TotalCostos, MontoLiq, InteresGenerar, dr("CostoTransfr"), RendimientoAntes, ValorRecompra, Renta, IngresoNeto, ValorNeto, RendimientoDespues, "", PorcentajeComisionCasa, PorcentajeComisionBolsa, PorcentajeComisionIOF)
-
-            dgvLETES.Rows.Add(dr("CodInv").ToString, Estado, CodigoEmpresa, Instrumento, CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv").ToString, dr("PrecioLimpioC").ToString, dr("FOperC").ToString, dr("FLiqC").ToString, dr("DiasTC").ToString, dr("GCapTotC").ToString, dr("GCapUnC").ToString, dr("RetAnBrC").ToString, dr("RetAnNetC").ToString, dr("UnC").ToString, dr("ValTransC").ToString, dr("MontoNetoC").ToString, dr("PrecSucioC").ToString, dr("PrecioLimpioV").ToString, dr("FOperV").ToString, dr("FLiqV").ToString, dr("DiasTV").ToString, dr("GCapTotV").ToString, dr("GCapUnV").ToString, dr("RetAnBrV").ToString, dr("RetAnNetV").ToString, dr("UnV").ToString, dr("ValTransV").ToString, dr("MontoNetoV").ToString, dr("PrecSucioV").ToString, dr("Fecha").ToString, dr("Dividendo").ToString, dr("CantidadBase").ToString, dr("IngresoBruto").ToString, dr("PorcISR").ToString, dr("ISR").ToString, dr("IngresoNeto").ToString, dr("Correlativo").ToString)
-            ''    dgvLETES.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, Instrumento, CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), dr("PrecioLimpioC"), dr("FOperC"), dr("FLiqC"), dr("DiasTC"), dr("GCapTotC"), dr("GCapUnC"), dr("RetAnBrC"), dr("RetAnNetC"), dr("UnC"), dr("ValTransC"), dr("MontoNetoC"), dr("PrecSucioC"), dr("PrecioLimpioV"), dr("FOperV"), dr("FLiqV"), dr("DiasTV"), dr("GCapTotV"), dr("GCapUnV"), dr("RetAnBrV"), dr("RetAnNetV"), dr("UnV"), dr("ValTransV"), dr("MontoNetoV"), dr("PrecSucioV"), dr("Fecha"), dr("Dividendo"), dr("CantidadBase"), dr("IngresoBruto"), dr("PorcISR"), dr("ISR"), dr("IngresoNeto"), dr("Correlativo"))
-        End While
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs)
-        Direccion = "D"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub Mover(ByVal Direccion As String)
-        Dim ReferenciaD = txtPosicion.Text + 1
-        Dim ReferenciaI = txtPosicion.Text - 1
-        Dim Cantidad = txtConta.Text
-        Dim ValorExacto = txtPosicion.Text
-        Dim Inicio, Final As Integer
-        If (Direccion = "D") Then
-            If (Cantidad >= ValorExacto) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    txtPosicion.Text = ReferenciaD
-                    ValorCambiado = False
-                End If
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-        ElseIf (Direccion = "I") Then
-            If (ReferenciaI >= 1) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    If (Not ValorExacto = 1) Then
-                        txtPosicion.Text = ReferenciaI
-
-                    End If
-                Else
-                    ValorCambiado = False
-                End If
-
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-
-
-        ElseIf (Direccion = "SD") Then
-            Final = txtConta.Text * 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = Cantidad
-        ElseIf (Direccion = "SI") Then
-            Final = 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = 1
-        End If
-
-
-
-
-    End Sub
-
-    Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click
-        Direccion = "I"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub txtPosicion_TextChanged(sender As Object, e As EventArgs) Handles txtPosicion.TextChanged
-        ValorCambiado = True
-    End Sub
-
-    Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click
-        Direccion = "SD"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click
-        Direccion = "SI"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-End Class

FRM/frmRegistroFuturosOpciones.Designer.vb

@@ -1,202 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmRegistroFuturosOpciones
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRegistroFuturosOpciones))
-        Dim navSiguienteRegistro As System.Windows.Forms.ToolStripButton
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtConta = New System.Windows.Forms.TextBox()
-        Me.txtPosicion = New System.Windows.Forms.TextBox()
-        Me.Navegador = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.navNuevoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navPrimerRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navRegistroAnterior = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.navUltimoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.dgvLETES = New System.Windows.Forms.DataGridView()
-        navSiguienteRegistro = New System.Windows.Forms.ToolStripButton()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Navegador.SuspendLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label1.Location = New System.Drawing.Point(122, 4)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 17)
-        Me.Label1.TabIndex = 130
-        Me.Label1.Text = "Posición: "
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(240, 3)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(25, 17)
-        Me.Label5.TabIndex = 129
-        Me.Label5.Text = "de: "
-        '
-        'txtConta
-        '
-        Me.txtConta.Location = New System.Drawing.Point(269, 0)
-        Me.txtConta.Name = "txtConta"
-        Me.txtConta.ReadOnly = True
-        Me.txtConta.Size = New System.Drawing.Size(58, 20)
-        Me.txtConta.TabIndex = 128
-        '
-        'txtPosicion
-        '
-        Me.txtPosicion.Location = New System.Drawing.Point(173, 0)
-        Me.txtPosicion.Name = "txtPosicion"
-        Me.txtPosicion.Size = New System.Drawing.Size(56, 20)
-        Me.txtPosicion.TabIndex = 127
-        '
-        'Navegador
-        '
-        Me.Navegador.AddNewItem = Me.navNuevoRegistro
-        Me.Navegador.CountItem = Nothing
-        Me.Navegador.DeleteItem = Nothing
-        Me.Navegador.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.navPrimerRegistro, Me.navRegistroAnterior, Me.BindingNavigatorSeparator, Me.BindingNavigatorSeparator1, navSiguienteRegistro, Me.navUltimoRegistro, Me.BindingNavigatorSeparator2, Me.navNuevoRegistro})
-        Me.Navegador.Location = New System.Drawing.Point(0, 0)
-        Me.Navegador.MoveFirstItem = Nothing
-        Me.Navegador.MoveLastItem = Nothing
-        Me.Navegador.MoveNextItem = Nothing
-        Me.Navegador.MovePreviousItem = Nothing
-        Me.Navegador.Name = "Navegador"
-        Me.Navegador.PositionItem = Nothing
-        Me.Navegador.Size = New System.Drawing.Size(873, 25)
-        Me.Navegador.TabIndex = 126
-        Me.Navegador.Text = "BindingNavigator1"
-        '
-        'navNuevoRegistro
-        '
-        Me.navNuevoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevoRegistro.Enabled = False
-        Me.navNuevoRegistro.Image = CType(resources.GetObject("navNuevoRegistro.Image"), System.Drawing.Image)
-        Me.navNuevoRegistro.Name = "navNuevoRegistro"
-        Me.navNuevoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navNuevoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevoRegistro.Text = "Agregar nuevo"
-        Me.navNuevoRegistro.Visible = False
-        '
-        'navPrimerRegistro
-        '
-        Me.navPrimerRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navPrimerRegistro.Image = CType(resources.GetObject("navPrimerRegistro.Image"), System.Drawing.Image)
-        Me.navPrimerRegistro.Name = "navPrimerRegistro"
-        Me.navPrimerRegistro.RightToLeftAutoMirrorImage = True
-        Me.navPrimerRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navPrimerRegistro.Text = "Mover primero"
-        '
-        'navRegistroAnterior
-        '
-        Me.navRegistroAnterior.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navRegistroAnterior.Image = CType(resources.GetObject("navRegistroAnterior.Image"), System.Drawing.Image)
-        Me.navRegistroAnterior.Name = "navRegistroAnterior"
-        Me.navRegistroAnterior.RightToLeftAutoMirrorImage = True
-        Me.navRegistroAnterior.Size = New System.Drawing.Size(23, 22)
-        Me.navRegistroAnterior.Text = "Mover anterior"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
-        '
-        'navSiguienteRegistro
-        '
-        navSiguienteRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        navSiguienteRegistro.Image = CType(resources.GetObject("navSiguienteRegistro.Image"), System.Drawing.Image)
-        navSiguienteRegistro.Name = "navSiguienteRegistro"
-        navSiguienteRegistro.RightToLeftAutoMirrorImage = True
-        navSiguienteRegistro.Size = New System.Drawing.Size(23, 22)
-        navSiguienteRegistro.Text = "Mover siguiente"
-        '
-        'navUltimoRegistro
-        '
-        Me.navUltimoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navUltimoRegistro.Image = CType(resources.GetObject("navUltimoRegistro.Image"), System.Drawing.Image)
-        Me.navUltimoRegistro.Name = "navUltimoRegistro"
-        Me.navUltimoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navUltimoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navUltimoRegistro.Text = "Mover último"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
-        '
-        'dgvLETES
-        '
-        Me.dgvLETES.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLETES.Location = New System.Drawing.Point(8, 28)
-        Me.dgvLETES.Name = "dgvLETES"
-        Me.dgvLETES.Size = New System.Drawing.Size(859, 425)
-        Me.dgvLETES.TabIndex = 131
-        '
-        'frmRegistroFuturosOpciones
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(873, 454)
-        Me.Controls.Add(Me.dgvLETES)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtConta)
-        Me.Controls.Add(Me.txtPosicion)
-        Me.Controls.Add(Me.Navegador)
-        Me.Name = "frmRegistroFuturosOpciones"
-        Me.Text = "frmRegistroFuturosOpciones"
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Navegador.ResumeLayout(False)
-        Me.Navegador.PerformLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents txtConta As TextBox
-    Friend WithEvents txtPosicion As TextBox
-    Friend WithEvents Navegador As BindingNavigator
-    Friend WithEvents navNuevoRegistro As ToolStripButton
-    Friend WithEvents navPrimerRegistro As ToolStripButton
-    Friend WithEvents navRegistroAnterior As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
-    Friend WithEvents navUltimoRegistro As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
-    Friend WithEvents dgvLETES As DataGridView
-End Class

FRM/frmRegistroFuturosOpciones.resx

@@ -1,179 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="Navegador.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navNuevoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="navPrimerRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navRegistroAnterior.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="navSiguienteRegistro.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <data name="navSiguienteRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navUltimoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-</root>

FRM/frmRegistroFuturosOpciones.vb

@@ -1,456 +0,0 @@
-Public Class frmRegistroFuturosOpciones
-    Dim RegistroConsulta As New RegistrosDAO
-    Dim Operaciones As New Operaciones
-    Dim CodEmpr = Operaciones.CodEmpr
-    Dim CodEmis = Operaciones.CodEmis
-    Dim CodECalRi = Operaciones.CodECalRi
-    Dim ListaPlazo = Operaciones.ListaPlazo
-    Dim ListaTiposMercado = Operaciones.ListaTiposMercados
-    Dim ListaPeriodos = Operaciones.ListaPeriodos
-    Dim ListaTipoTasa = Operaciones.ListaTipoTasa
-    Dim ListaTipoRenta = Operaciones.ListaTipoRenta
-    Dim ListaEstado = Operaciones.ListaEstado
-    Dim ListaCasasCorredoras = Operaciones.ListaCasasCorredoras
-    Dim CodPais = Operaciones.CodPais
-    Dim ValorCambiado As Boolean = False
-    Dim Direccion As String = String.Empty
-    Dim CodigoInstrumento As String = Variables.CodigoInstrumento
-    Dim tablas As String
-
-
-    Private Sub frmRegistroFuturosOpciones_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
-        If (CodigoInstrumento = "FUTU") Then
-            tablas = "FUT0"
-        ElseIf (CodigoInstrumento = "OPC") Then
-            tablas = "OPC0"
-        End If
-
-        AgregarColumnasInv()
-        AgregarColumnasIns()
-        txtPosicion.Text = "1"
-        txtConta.Text = RegistroConsulta.Contador(tablas)
-        ValorCambiado = False
-        Cargar(CodigoInstrumento, 1, 100)
-    End Sub
-
-
-
-
-
-
-
-
-
-
-
-    Sub AgregarColumnasInv()
-        Dim Empresa, Instrumento, Emisor, CalRiesgo, Calif, Pais, TipoMercado, Nombre, Periodicidad, Plazo As New DataGridViewTextBoxColumn
-        Dim CantidadPlazo, TipoRenta, TipoTasa, Numero, Fecha, Codigo, Estado As New DataGridViewTextBoxColumn
-        Codigo.Name = "Codigo de Inversion"
-        Empresa.Name = "Empresa"
-        Instrumento.Name = "Instrumento"
-        Emisor.Name = "Emisor"
-        CalRiesgo.Name = "Calificadora Riesgo"
-        Calif.Name = "Calificadora"
-        Pais.Name = "Pais"
-        TipoMercado.Name = "Tipo Mercado"
-        Nombre.Name = "Nombre"
-        Periodicidad.Name = "Periodicidad"
-        CantidadPlazo.Name = "Cantidad Plazo"
-        Plazo.Name = "Plazo"
-        TipoRenta.Name = "Tipo de Renta"
-        TipoTasa.Name = "Tipo de Tasa"
-        Numero.Name = "Numero"
-        Fecha.Name = "Fecha"
-        Estado.Name = "Estado"
-
-
-
-        dgvLETES.Columns.Add(Codigo)
-        dgvLETES.Columns.Add(Estado)
-        dgvLETES.Columns.Add(Empresa)
-        dgvLETES.Columns.Add(Instrumento)
-        dgvLETES.Columns.Add(Emisor)
-        dgvLETES.Columns.Add(CalRiesgo)
-        dgvLETES.Columns.Add(Calif)
-        dgvLETES.Columns.Add(CantidadPlazo)
-        dgvLETES.Columns.Add(Plazo)
-        dgvLETES.Columns.Add(Fecha)
-        dgvLETES.Columns.Add(TipoMercado)
-        dgvLETES.Columns.Add(Pais)
-        dgvLETES.Columns.Add(Nombre)
-        dgvLETES.Columns.Add(Periodicidad)
-        dgvLETES.Columns.Add(TipoTasa)
-        dgvLETES.Columns.Add(TipoRenta)
-        dgvLETES.Columns.Add(Numero)
-
-
-
-    End Sub
-
-    Sub AgregarColumnasIns()
-
-        Dim FOperC, FLiqC, FVenC, VaUnidadC, ValorTransadoC, CoBrokerC, VaRecC, IdContratoC, CantidadContC, UnidadesContC As New DataGridViewTextBoxColumn
-        Dim FOperV, FLiqV, FVenV, VaUnidadV, ValorTransadoV, CoBrokerV, VaRecV, IdContratoV, CantidadContV, UnidadesContV As New DataGridViewTextBoxColumn
-        Dim GananciaPerdida, Rendimiento As New DataGridViewTextBoxColumn
-
-        FOperC.Name = "Fecha Operaión Compra"
-        FLiqC.Name = "Fecha Liquidación Compra"
-        FVenC.Name = "Fecha Vencimiento Compra"
-        VaUnidadC.Name = "Valor de Unidad Compra"
-        ValorTransadoC.Name = "Valor Transado Compra"
-        CoBrokerC.Name = "Comisión Broker Compra"
-        VaRecC.Name = "Valor Recibido Compra"
-        IdContratoC.Name = "Identificación del Contrato Compra"
-        CantidadContC.Name = "Cantidad de Contratos Compra"
-        UnidadesContC.Name = "Unidades de Contrato Compra"
-
-
-
-
-        FOperV.Name = "Fecha Operaión Venta"
-        FLiqV.Name = "Fecha Liquidación Venta"
-        FVenV.Name = "Fecha Vencimiento Venta"
-        VaUnidadV.Name = "Valor de Unidad Venta"
-        ValorTransadoV.Name = "Valor Transado Venta"
-        CoBrokerV.Name = "Comisión Broker Venta"
-        VaRecV.Name = "Valor Recibido Venta"
-        IdContratoV.Name = "Identificación del Contrato Venta"
-        CantidadContV.Name = "Cantidad de Contratos Venta"
-        UnidadesContV.Name = "Unidades de Contrato Venta"
-        GananciaPerdida.Name = "Ganancia/Perdida"
-        Rendimiento.Name = "Rendimiento"
-
-
-
-
-        dgvLETES.Columns.Add(FOperC)
-        dgvLETES.Columns.Add(FLiqC)
-        dgvLETES.Columns.Add(FVenC)
-        dgvLETES.Columns.Add(VaUnidadC)
-        dgvLETES.Columns.Add(ValorTransadoC)
-        dgvLETES.Columns.Add(CoBrokerC)
-        dgvLETES.Columns.Add(VaRecC)
-        dgvLETES.Columns.Add(IdContratoC)
-        dgvLETES.Columns.Add(CantidadContC)
-        dgvLETES.Columns.Add(UnidadesContC)
-        dgvLETES.Columns.Add(FOperV)
-        dgvLETES.Columns.Add(FLiqV)
-        dgvLETES.Columns.Add(FVenV)
-        dgvLETES.Columns.Add(VaUnidadV)
-        dgvLETES.Columns.Add(ValorTransadoV)
-        dgvLETES.Columns.Add(CoBrokerV)
-        dgvLETES.Columns.Add(VaRecV)
-        dgvLETES.Columns.Add(IdContratoV)
-        dgvLETES.Columns.Add(CantidadContV)
-        dgvLETES.Columns.Add(UnidadesContV)
-        dgvLETES.Columns.Add(GananciaPerdida)
-        dgvLETES.Columns.Add(Rendimiento)
-
-    End Sub
-
-
-
-
-    Sub Cargar(ByVal Cod As String, ByVal Inicio As Integer, ByVal Final As Integer)
-
-
-        Dim CodigoEmpresa As String = " "
-        Dim CodigoEmisor As String = " "
-        Dim CodigoECal As String = " "
-        Dim PlazoF As String = " "
-        Dim TiposMercado As String = " "
-        Dim Pais As String = " "
-        Dim Periodos As String = " "
-        Dim Periodos2 As String = " "
-        Dim TipoTasa As String = " "
-        Dim TipoRenta As String = " "
-        Dim Estado As String = " "
-        Dim CasasCorredoras As String = " "
-        Dim codigo As String = Variables.Codigo
-        Dim Instrumento As String
-        Dim dr
-        If (CodigoInstrumento = "FUTU") Then
-            Instrumento = "Futuros"
-            dr = RegistroConsulta.CargarInvFUTU(Cod, Inicio, Final)
-        ElseIf (CodigoInstrumento = "OPC") Then
-            Instrumento = "Opciones"
-            dr = RegistroConsulta.CargarInvOPC(Cod, Inicio, Final)
-        End If
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-        While dr.Read
-
-
-
-
-
-
-
-
-
-            For Each pair In CodEmpr
-
-                If (pair.Key.ToString = dr("CodEmpr").ToString) Then
-                    CodigoEmpresa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmpr").ToString)) Then
-                    CodigoEmpresa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodEmis
-
-                If (pair.Key.ToString = dr("CodEmis").ToString) Then
-                    CodigoEmisor = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmis").ToString)) Then
-                    CodigoEmisor = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodECalRi
-
-
-                If (pair.Key.ToString = dr("CodECalRi").ToString) Then
-                    CodigoECal = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodECalRi").ToString)) Then
-                    CodigoECal = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPlazo
-                If (pair.Key.ToString = dr("PlazoFact").ToString) Then
-                    PlazoF = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("PlazoFact").ToString)) Then
-                    PlazoF = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaTiposMercado
-
-
-
-
-
-                If (pair.Key.ToString = dr("TipoMerc").ToString.TrimStart()) Then
-                    TiposMercado = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipoMerc").ToString.TrimStart())) Then
-                    TiposMercado = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodPais
-                If (pair.Key.ToString = dr("CodPais").ToString.TrimStart()) Then
-                    Pais = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodPais").ToString.TrimStart())) Then
-                    Pais = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPeriodos
-                If (pair.Key.ToString = dr("Periodicidad").ToString.TrimStart()) Then
-                    Periodos = pair.Value
-
-                ElseIf (String.IsNullOrEmpty(dr("Periodicidad").ToString.TrimStart())) Then
-                    Periodos = "    ----  ----  ----  ---- "
-
-                End If
-
-
-            Next
-
-
-
-            For Each pair In ListaTipoTasa
-                If (pair.Key.ToString = dr("TipTasa").ToString.TrimStart()) Then
-                    TipoTasa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipTasa").ToString.TrimStart())) Then
-                    TipoTasa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            For Each pair In ListaTipoRenta
-                If (pair.Key.ToString = dr("TipRenta").ToString.TrimStart()) Then
-                    TipoRenta = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipRenta").ToString.TrimStart())) Then
-                    TipoRenta = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-
-            For Each pair In ListaEstado
-                If (pair.Key.ToString = dr("DocEst").ToString.TrimStart()) Then
-                    Estado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("DocEst").ToString.TrimStart())) Then
-                    Estado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            '     For Each pair In ListaCasasCorredoras
-            '          If (pair.Key.ToString = dr("CasasCorredoras").ToString) Then
-            '   CasasCorredoras = pair.Value
-            '    Exit For
-            ' ElseIf (String.IsNullOrEmpty(dr("CasasCorredoras").ToString)) Then
-            '    CasasCorredoras = "    ----  ----  ----  ---- "
-            '      Exit For
-            '   End If
-            'Next
-
-            'dgvReportes.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, "Reportos", CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), "", dr("Nombre"), dr("FCompra"), dr("ValTrans"), dr("Dias"), dr("FVenc"), dr("Rend"), ComisionCasa, ComisionBolsa, IOF, 0, TotalCostos, MontoLiq, InteresGenerar, dr("CostoTransfr"), RendimientoAntes, ValorRecompra, Renta, IngresoNeto, ValorNeto, RendimientoDespues, "", PorcentajeComisionCasa, PorcentajeComisionBolsa, PorcentajeComisionIOF)
-            dgvLETES.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, Instrumento, CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), dr("FOperC"), dr("FLiqC"), dr("FVenC"), dr("VaUnidadC"), dr("ValorTransadoC"), dr("CoBrokerC"), dr("VaRecC"), dr("IdContratoC"), dr("CantContratoC"), dr("UniContraC"), dr("FOperV"), dr("FLiqV"), dr("FVenV"), dr("VaUnidadV"), dr("ValorTransadoV"), dr("CoBrokerV"), dr("VaRecV"), dr("IdContratoV"), dr("CantContratoV"), dr("UniContraV"), dr("GP"), dr("Rendimiento"))
-
-        End While
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs)
-        Direccion = "D"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub Mover(ByVal Direccion As String)
-        Dim ReferenciaD = txtPosicion.Text + 1
-        Dim ReferenciaI = txtPosicion.Text - 1
-        Dim Cantidad = txtConta.Text
-        Dim ValorExacto = txtPosicion.Text
-        Dim Inicio, Final As Integer
-        If (Direccion = "D") Then
-            If (Cantidad >= ValorExacto) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    txtPosicion.Text = ReferenciaD
-                    ValorCambiado = False
-                End If
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-        ElseIf (Direccion = "I") Then
-            If (ReferenciaI >= 1) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    If (Not ValorExacto = 1) Then
-                        txtPosicion.Text = ReferenciaI
-
-                    End If
-                Else
-                    ValorCambiado = False
-                End If
-
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-
-
-        ElseIf (Direccion = "SD") Then
-            Final = txtConta.Text * 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = Cantidad
-        ElseIf (Direccion = "SI") Then
-            Final = 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = 1
-        End If
-
-
-
-
-    End Sub
-
-    Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click
-        Direccion = "I"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub txtPosicion_TextChanged(sender As Object, e As EventArgs) Handles txtPosicion.TextChanged
-        ValorCambiado = True
-    End Sub
-
-    Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click
-        Direccion = "SD"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click
-        Direccion = "SI"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-End Class

FRM/frmRegistroLetes.Designer.vb

@@ -1,202 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmRegistroLetes
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim navSiguienteRegistro As System.Windows.Forms.ToolStripButton
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRegistroLetes))
-        Me.Navegador = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.navNuevoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navPrimerRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navRegistroAnterior = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.navUltimoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.dgvLETES = New System.Windows.Forms.DataGridView()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtConta = New System.Windows.Forms.TextBox()
-        Me.txtPosicion = New System.Windows.Forms.TextBox()
-        navSiguienteRegistro = New System.Windows.Forms.ToolStripButton()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Navegador.SuspendLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'navSiguienteRegistro
-        '
-        navSiguienteRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        navSiguienteRegistro.Image = CType(resources.GetObject("navSiguienteRegistro.Image"), System.Drawing.Image)
-        navSiguienteRegistro.Name = "navSiguienteRegistro"
-        navSiguienteRegistro.RightToLeftAutoMirrorImage = True
-        navSiguienteRegistro.Size = New System.Drawing.Size(23, 22)
-        navSiguienteRegistro.Text = "Mover siguiente"
-        '
-        'Navegador
-        '
-        Me.Navegador.AddNewItem = Me.navNuevoRegistro
-        Me.Navegador.CountItem = Nothing
-        Me.Navegador.DeleteItem = Nothing
-        Me.Navegador.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.navPrimerRegistro, Me.navRegistroAnterior, Me.BindingNavigatorSeparator, Me.BindingNavigatorSeparator1, navSiguienteRegistro, Me.navUltimoRegistro, Me.BindingNavigatorSeparator2, Me.navNuevoRegistro})
-        Me.Navegador.Location = New System.Drawing.Point(0, 0)
-        Me.Navegador.MoveFirstItem = Nothing
-        Me.Navegador.MoveLastItem = Nothing
-        Me.Navegador.MoveNextItem = Nothing
-        Me.Navegador.MovePreviousItem = Nothing
-        Me.Navegador.Name = "Navegador"
-        Me.Navegador.PositionItem = Nothing
-        Me.Navegador.Size = New System.Drawing.Size(856, 25)
-        Me.Navegador.TabIndex = 114
-        Me.Navegador.Text = "BindingNavigator1"
-        '
-        'navNuevoRegistro
-        '
-        Me.navNuevoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevoRegistro.Enabled = False
-        Me.navNuevoRegistro.Image = CType(resources.GetObject("navNuevoRegistro.Image"), System.Drawing.Image)
-        Me.navNuevoRegistro.Name = "navNuevoRegistro"
-        Me.navNuevoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navNuevoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevoRegistro.Text = "Agregar nuevo"
-        Me.navNuevoRegistro.Visible = False
-        '
-        'navPrimerRegistro
-        '
-        Me.navPrimerRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navPrimerRegistro.Image = CType(resources.GetObject("navPrimerRegistro.Image"), System.Drawing.Image)
-        Me.navPrimerRegistro.Name = "navPrimerRegistro"
-        Me.navPrimerRegistro.RightToLeftAutoMirrorImage = True
-        Me.navPrimerRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navPrimerRegistro.Text = "Mover primero"
-        '
-        'navRegistroAnterior
-        '
-        Me.navRegistroAnterior.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navRegistroAnterior.Image = CType(resources.GetObject("navRegistroAnterior.Image"), System.Drawing.Image)
-        Me.navRegistroAnterior.Name = "navRegistroAnterior"
-        Me.navRegistroAnterior.RightToLeftAutoMirrorImage = True
-        Me.navRegistroAnterior.Size = New System.Drawing.Size(23, 22)
-        Me.navRegistroAnterior.Text = "Mover anterior"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
-        '
-        'navUltimoRegistro
-        '
-        Me.navUltimoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navUltimoRegistro.Image = CType(resources.GetObject("navUltimoRegistro.Image"), System.Drawing.Image)
-        Me.navUltimoRegistro.Name = "navUltimoRegistro"
-        Me.navUltimoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navUltimoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navUltimoRegistro.Text = "Mover último"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
-        '
-        'dgvLETES
-        '
-        Me.dgvLETES.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLETES.Location = New System.Drawing.Point(0, 28)
-        Me.dgvLETES.Name = "dgvLETES"
-        Me.dgvLETES.Size = New System.Drawing.Size(859, 425)
-        Me.dgvLETES.TabIndex = 115
-        '
-        'Label1
-        '
-        Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label1.Location = New System.Drawing.Point(122, 8)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 17)
-        Me.Label1.TabIndex = 121
-        Me.Label1.Text = "Posición: "
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(240, 7)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(25, 17)
-        Me.Label5.TabIndex = 120
-        Me.Label5.Text = "de: "
-        '
-        'txtConta
-        '
-        Me.txtConta.Location = New System.Drawing.Point(269, 4)
-        Me.txtConta.Name = "txtConta"
-        Me.txtConta.ReadOnly = True
-        Me.txtConta.Size = New System.Drawing.Size(58, 20)
-        Me.txtConta.TabIndex = 119
-        '
-        'txtPosicion
-        '
-        Me.txtPosicion.Location = New System.Drawing.Point(173, 4)
-        Me.txtPosicion.Name = "txtPosicion"
-        Me.txtPosicion.Size = New System.Drawing.Size(56, 20)
-        Me.txtPosicion.TabIndex = 118
-        '
-        'frmRegistroLetes
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(856, 450)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtConta)
-        Me.Controls.Add(Me.txtPosicion)
-        Me.Controls.Add(Me.dgvLETES)
-        Me.Controls.Add(Me.Navegador)
-        Me.Name = "frmRegistroLetes"
-        Me.Text = "frmRegistroLetes"
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Navegador.ResumeLayout(False)
-        Me.Navegador.PerformLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Navegador As BindingNavigator
-    Friend WithEvents navNuevoRegistro As ToolStripButton
-    Friend WithEvents navPrimerRegistro As ToolStripButton
-    Friend WithEvents navRegistroAnterior As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
-    Friend WithEvents navUltimoRegistro As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
-    Friend WithEvents dgvLETES As DataGridView
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents txtConta As TextBox
-    Friend WithEvents txtPosicion As TextBox
-End Class

FRM/frmRegistroLetes.resx

@@ -1,179 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="navSiguienteRegistro.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navSiguienteRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <metadata name="Navegador.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <data name="navNuevoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="navPrimerRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navRegistroAnterior.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="navUltimoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-</root>

FRM/frmRegistroLetes.vb

@@ -1,563 +0,0 @@
-Public Class frmRegistroLetes
-
-
-    Dim RegistroConsulta As New RegistrosDAO
-    Dim Operaciones As New Operaciones
-    Dim CodEmpr = Operaciones.CodEmpr
-    Dim CodEmis = Operaciones.CodEmis
-    Dim CodECalRi = Operaciones.CodECalRi
-    Dim ListaPlazo = Operaciones.ListaPlazo
-    Dim ListaTiposMercado = Operaciones.ListaTiposMercados
-    Dim ListaPeriodos = Operaciones.ListaPeriodos
-    Dim ListaTipoTasa = Operaciones.ListaTipoTasa
-    Dim ListaTipoRenta = Operaciones.ListaTipoRenta
-    Dim ListaEstado = Operaciones.ListaEstado
-    Dim ListaCasasCorredoras = Operaciones.ListaCasasCorredoras
-    Dim CodPais = Operaciones.CodPais
-    Dim ValorCambiado As Boolean = False
-    Dim Direccion As String = String.Empty
-    Dim CodigoInstrumento As String = Variables.CodigoInstrumento
-    Dim tablas As String
-    Private Sub frmRegistroLetes_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
-        If (CodigoInstrumento = "LETE") Then
-            tablas = "LET0"
-        ElseIf (CodigoInstrumento = "PBUR") Then
-            tablas = "PBUR"
-        ElseIf (CodigoInstrumento = "VCN") Then
-            tablas = "VCN"
-        End If
-        AgregarColumnasInv()
-        AgregarColumnasIns()
-        txtPosicion.Text = "1"
-        txtConta.Text = RegistroConsulta.Contador(tablas)
-        ValorCambiado = False
-        Cargar(CodigoInstrumento, 1, 100)
-
-    End Sub
-
-    Sub AgregarColumnasInv()
-        Dim Empresa, Instrumento, Emisor, CalRiesgo, Calif, Pais, TipoMercado, Nombre, Periodicidad, Plazo As New DataGridViewTextBoxColumn
-        Dim CantidadPlazo, TipoRenta, TipoTasa, Numero, Fecha, Codigo, Estado As New DataGridViewTextBoxColumn
-        Codigo.Name = "Codigo de Inversion"
-        Empresa.Name = "Empresa"
-        Instrumento.Name = "Instrumento"
-        Emisor.Name = "Emisor"
-        CalRiesgo.Name = "Calificadora Riesgo"
-        Calif.Name = "Calificadora"
-        Pais.Name = "Pais"
-        TipoMercado.Name = "Tipo Mercado"
-        Nombre.Name = "Nombre"
-        Periodicidad.Name = "Periodicidad"
-        CantidadPlazo.Name = "Cantidad Plazo"
-        Plazo.Name = "Plazo"
-        TipoRenta.Name = "Tipo de Renta"
-        TipoTasa.Name = "Tipo de Tasa"
-        Numero.Name = "Numero"
-        Fecha.Name = "Fecha"
-        Estado.Name = "Estado"
-
-
-
-        dgvLETES.Columns.Add(Codigo)
-        dgvLETES.Columns.Add(Estado)
-        dgvLETES.Columns.Add(Empresa)
-        dgvLETES.Columns.Add(Instrumento)
-        dgvLETES.Columns.Add(Emisor)
-        dgvLETES.Columns.Add(CalRiesgo)
-        dgvLETES.Columns.Add(Calif)
-        dgvLETES.Columns.Add(CantidadPlazo)
-        dgvLETES.Columns.Add(Plazo)
-        dgvLETES.Columns.Add(Fecha)
-        dgvLETES.Columns.Add(TipoMercado)
-        dgvLETES.Columns.Add(Pais)
-        dgvLETES.Columns.Add(Nombre)
-        dgvLETES.Columns.Add(Periodicidad)
-        dgvLETES.Columns.Add(TipoTasa)
-        dgvLETES.Columns.Add(TipoRenta)
-        dgvLETES.Columns.Add(Numero)
-
-
-
-    End Sub
-
-    Sub AgregarColumnasIns()
-        Dim ValorNo, FechaOpe, FechaLiq, FechaVenc, PlazoInv, Casa, ComCasa, PorComCasa, ComBolsa, PorComBolsa, Periodicidad As New DataGridViewTextBoxColumn
-        Dim Base, RendBruto, RendNeto, IngBruto, IngNeto, ValorTra, Precio, TotPagar As New DataGridViewTextBoxColumn
-        ValorNo.Name = "Valor Nominal"
-        FechaOpe.Name = "Fecha de Operacion"
-        FechaLiq.Name = "Fecha de Liquidación"
-        FechaVenc.Name = "Fecha de Vencimiento"
-        PlazoInv.Name = "Plazo de Inversión"
-        Casa.Name = "Casa Corredora"
-        ComCasa.Name = "Comisión Casa"
-        PorComCasa.Name = "Porcentaje Comisión Casa"
-        ComBolsa.Name = "Comision Bolsa"
-        PorComBolsa.Name = "Porcentaje Comisión Bolsa"
-        Periodicidad.Name = "Periodicidad"
-        Base.Name = "Dias Base"
-        RendBruto.Name = "Rendimiento Bruto"
-        RendNeto.Name = "Rendimiento Neto"
-        IngBruto.Name = "Ingreso Bruto"
-        IngNeto.Name = "Ingreso Neto"
-        ValorTra.Name = "Valor Trasado"
-        Precio.Name = "Precio"
-        TotPagar.Name = "Total a Pagar"
-
-
-        dgvLETES.Columns.Add(ValorNo)
-        dgvLETES.Columns.Add(FechaOpe)
-        dgvLETES.Columns.Add(FechaLiq)
-        dgvLETES.Columns.Add(FechaVenc)
-        dgvLETES.Columns.Add(PlazoInv)
-        dgvLETES.Columns.Add(Casa)
-        dgvLETES.Columns.Add(ComCasa)
-        dgvLETES.Columns.Add(PorComCasa)
-        dgvLETES.Columns.Add(ComBolsa)
-        dgvLETES.Columns.Add(PorComBolsa)
-        dgvLETES.Columns.Add(Periodicidad)
-        dgvLETES.Columns.Add(Base)
-        dgvLETES.Columns.Add(RendBruto)
-        dgvLETES.Columns.Add(RendNeto)
-        dgvLETES.Columns.Add(IngBruto)
-        dgvLETES.Columns.Add(IngNeto)
-        dgvLETES.Columns.Add(ValorTra)
-        dgvLETES.Columns.Add(Precio)
-        dgvLETES.Columns.Add(TotPagar)
-
-
-
-
-    End Sub
-
-
-
-
-    Sub Cargar(ByVal Cod As String, ByVal Inicio As Integer, ByVal Final As Integer)
-
-
-        Dim CodigoEmpresa As String = " "
-        Dim CodigoEmisor As String = " "
-        Dim CodigoECal As String = " "
-        Dim PlazoF As String = " "
-        Dim TiposMercado As String = " "
-        Dim Pais As String = " "
-        Dim Periodos As String = " "
-        Dim Periodos2 As String = " "
-        Dim TipoTasa As String = " "
-        Dim TipoRenta As String = " "
-        Dim Estado As String = " "
-        Dim CasasCorredoras As String = " "
-        Dim codigo As String = Variables.Codigo
-        Dim RendNeto As String = ""
-        Dim Prec As String = ""
-        Dim ValTrasado As String = ""
-        Dim CCasa As String = ""
-        Dim CBolsa As String = ""
-        Dim IngBruto As String = ""
-        Dim TotPagar As String = ""
-        Dim IngNeto As String = ""
-        Dim Instrumento As String = ""
-        Dim dr
-        If (CodigoInstrumento = "LETE") Then
-            Instrumento = "LETES"
-        ElseIf (CodigoInstrumento = "PBUR") Then
-            Instrumento = "PAPEL BURSATIL"
-        ElseIf ((CodigoInstrumento = "VCN")) Then
-            Instrumento = "Valores Comerciales"
-        End If
-
-
-
-        If (CodigoInstrumento = "LETE") Then
-            dr = RegistroConsulta.CargarInvLETE(Cod, Inicio, Final)
-        ElseIf (CodigoInstrumento = "PBUR") Then
-
-            dr = RegistroConsulta.CargarInvPBUR(Cod, Inicio, Final)
-
-        ElseIf (CodigoInstrumento = "VCN") Then
-
-            dr = RegistroConsulta.CargarInvVCN(Cod, Inicio, Final)
-
-        End If
-
-
-
-
-
-
-        While dr.Read
-
-            Dim VRenBruto, VPlazo, VAnioBase, VValNom, VComisionCasa, VComisionBolsa
-            VRenBruto = dr("RendBruto").ToString
-
-            VPlazo = dr("Plazo").ToString
-            VAnioBase = dr("AnioBase").ToString
-            VValNom = dr("ValNom").ToString
-
-            VComisionCasa = dr("ComisionCasa").ToString
-            VComisionBolsa = dr("ComisionBolsa").ToString
-
-            If (String.IsNullOrEmpty(VRenBruto)) Then
-                VRenBruto = 0
-            End If
-            If (String.IsNullOrEmpty(VPlazo)) Then
-                VPlazo = 0
-            End If
-            If (String.IsNullOrEmpty(VAnioBase)) Then
-                VAnioBase = 365
-            End If
-            If (String.IsNullOrEmpty(VValNom)) Then
-                VValNom = 0
-            End If
-            If (String.IsNullOrEmpty(VComisionCasa)) Then
-                VComisionCasa = 0
-            End If
-            If (String.IsNullOrEmpty(VComisionBolsa)) Then
-                VComisionBolsa = 0
-            End If
-
-
-
-            Prec = Precio(VRenBruto, VPlazo, VAnioBase)
-            ValTrasado = ValorTrasado(VValNom, Prec)
-            CCasa = ComisionCalculo(ValTrasado, VComisionCasa, VPlazo, VAnioBase)
-            CBolsa = ComisionCalculo(ValTrasado, VComisionBolsa, VPlazo, VAnioBase)
-
-
-            IngBruto = IngresoBruto(VValNom, ValTrasado)
-            TotPagar = TotalPagar(ValTrasado, CCasa, CBolsa)
-
-
-            IngNeto = IngresoNeto(VValNom, TotPagar)
-
-
-            RendNeto = RendimientoNeto(VValNom, TotPagar, VPlazo, VAnioBase)
-
-
-
-
-            For Each pair In CodEmpr
-
-                If (pair.Key.ToString = dr("CodEmpr").ToString) Then
-                    CodigoEmpresa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmpr").ToString)) Then
-                    CodigoEmpresa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodEmis
-
-                If (pair.Key.ToString = dr("CodEmis").ToString) Then
-                    CodigoEmisor = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmis").ToString)) Then
-                    CodigoEmisor = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodECalRi
-
-
-                If (pair.Key.ToString = dr("CodECalRi").ToString) Then
-                    CodigoECal = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodECalRi").ToString)) Then
-                    CodigoECal = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPlazo
-                If (pair.Key.ToString = dr("PlazoFact").ToString) Then
-                    PlazoF = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("PlazoFact").ToString)) Then
-                    PlazoF = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaTiposMercado
-                If (pair.Key.ToString = dr("TipoMerc").ToString) Then
-                    TiposMercado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipoMerc").ToString)) Then
-                    TiposMercado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodPais
-                If (pair.Key.ToString = dr("CodPais").ToString) Then
-                    Pais = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodPais").ToString)) Then
-                    Pais = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPeriodos
-                If (pair.Key.ToString = dr("Periodicidad").ToString) Then
-                    Periodos = pair.Value
-
-                ElseIf (String.IsNullOrEmpty(dr("Periodicidad").ToString)) Then
-                    Periodos = "    ----  ----  ----  ---- "
-
-                End If
-
-                If (pair.Key.ToString = dr("Periodic").ToString) Then
-                    Periodos2 = pair.Value
-
-                ElseIf (String.IsNullOrEmpty(dr("Periodic").ToString)) Then
-                    Periodos2 = "    ----  ----  ----  ---- "
-
-                End If
-            Next
-
-
-
-            For Each pair In ListaTipoTasa
-                If (pair.Key.ToString = dr("TipTasa").ToString) Then
-                    TipoTasa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipTasa").ToString)) Then
-                    TipoTasa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            For Each pair In ListaTipoRenta
-                If (pair.Key.ToString = dr("TipRenta").ToString) Then
-                    TipoRenta = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipRenta").ToString)) Then
-                    TipoRenta = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-
-            For Each pair In ListaEstado
-                If (pair.Key.ToString = dr("DocEst").ToString) Then
-                    Estado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("DocEst").ToString)) Then
-                    Estado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            For Each pair In ListaCasasCorredoras
-                If (pair.Key.ToString = dr("CasasCorredoras").ToString) Then
-                    CasasCorredoras = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CasasCorredoras").ToString)) Then
-                    CasasCorredoras = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            'dgvReportes.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, "Reportos", CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), "", dr("Nombre"), dr("FCompra"), dr("ValTrans"), dr("Dias"), dr("FVenc"), dr("Rend"), ComisionCasa, ComisionBolsa, IOF, 0, TotalCostos, MontoLiq, InteresGenerar, dr("CostoTransfr"), RendimientoAntes, ValorRecompra, Renta, IngresoNeto, ValorNeto, RendimientoDespues, "", PorcentajeComisionCasa, PorcentajeComisionBolsa, PorcentajeComisionIOF)
-            dgvLETES.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, Instrumento, CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), dr("ValNom"), dr("FOper"), dr("FLiq"), dr("FVenc"), dr("Plazo"), CasasCorredoras, dr("ComisionCasa"), CCasa, dr("ComisionBolsa"), CBolsa, Periodos2, dr("AnioBase"), dr("RendBruto"), RendNeto, IngBruto, IngNeto, ValTrasado, Prec, TotPagar)
-
-        End While
-    End Sub
-
-
-
-    Function ValorTrasado(ByVal ValorNominal As Double, ByVal Precio As Double)
-        If (Double.TryParse(ValorNominal, Nothing) And Double.TryParse(Precio, Nothing)) Then
-
-            Return CDec(ValorNominal) * CDec(Precio)
-
-        End If
-        Return Nothing
-    End Function
-
-
-    Function Precio(ByVal RendimientoBruto As Double, ByVal PlazoInversion As Double, ByVal AnioBase As Integer)
-        If (Double.TryParse(RendimientoBruto, Nothing) And Double.TryParse(PlazoInversion, Nothing)) Then
-            Dim DatosOperacion As Double
-            If (AnioBase = 0) Then
-                AnioBase = 365
-            End If
-            Dim Rendimiento = CDec(RendimientoBruto)
-            Dim Plazo = CDec((PlazoInversion))
-            DatosOperacion = (1 - (Rendimiento / (1 + Rendimiento * Plazo / AnioBase)) * Plazo / AnioBase)
-            Return DatosOperacion
-        End If
-
-        Return Nothing
-
-    End Function
-
-
-    Function ComisionCalculo(ByVal ValorTras As Double, ByVal ComisionDeCasa As Double, ByVal PlazoInversion As Double, ByVal AnioBase As Integer)
-        If (Double.TryParse(ValorTras, Nothing) And Double.TryParse(ComisionDeCasa, Nothing) And Double.TryParse(PlazoInversion, Nothing)) Then
-            Dim comision = (CDec(ValorTras) * CDec(ComisionDeCasa)) * (CDec(PlazoInversion) / AnioBase)
-            Return comision
-        End If
-        Return Nothing
-
-    End Function
-
-    Function RendimientoNeto(ByVal ValorNominal As Double, ByVal TotalPagar As Double, ByVal PlazoInversion As Integer, ByVal AnioBase As Integer)
-        If (Double.TryParse(ValorNominal, Nothing) And Double.TryParse(TotalPagar, Nothing) And Double.TryParse(PlazoInversion, Nothing)) Then
-            If CDec(TotalPagar) = 0 Or CDec(PlazoInversion) = 0 Then
-                Return 0
-            End If
-
-            Dim RendimientoNet = ((CDec(ValorNominal) - CDec(TotalPagar)) / CDec(TotalPagar)) * (AnioBase / CDec(PlazoInversion))
-            Return RendimientoNet
-        End If
-        Return Nothing
-    End Function
-
-
-    Function IngresoBruto(ByVal ValorNominal As Double, ByVal ValorTrasado As Double)
-        If (Double.TryParse(ValorNominal, Nothing) And Double.TryParse(ValorTrasado, Nothing)) Then
-            Dim Bruto = CDec(ValorNominal) - CDec(ValorTrasado)
-            Return Bruto
-        End If
-        Return Nothing
-    End Function
-
-
-
-    Function IngresoNeto(ByVal ValorNominal As Double, ByVal TotalPagar As Double)
-        If (Double.TryParse(ValorNominal, Nothing) And Double.TryParse(TotalPagar, Nothing)) Then
-            Dim Neto = CDec(ValorNominal) - CDec(TotalPagar)
-            Return Neto
-        End If
-        Return Nothing
-    End Function
-
-
-    Function TotalPagar(ByVal ValorTrasado As Double, ByVal ComisionCasa As Double, ByVal ComisionBolsa As Double)
-        If (Double.TryParse(ValorTrasado, Nothing) And Double.TryParse(ComisionCasa, Nothing) And Double.TryParse(ComisionBolsa, Nothing)) Then
-            Dim Total = CDec(ValorTrasado) + CDec(ComisionCasa) + CDec(ComisionBolsa)
-
-            Return Total
-        End If
-        Return Nothing
-    End Function
-
-
-
-    Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs)
-        Direccion = "D"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub Mover(ByVal Direccion As String)
-        Dim ReferenciaD = txtPosicion.Text + 1
-        Dim ReferenciaI = txtPosicion.Text - 1
-        Dim Cantidad = txtConta.Text
-        Dim ValorExacto = txtPosicion.Text
-        Dim Inicio, Final As Integer
-        If (Direccion = "D") Then
-            If (Cantidad >= ValorExacto) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    txtPosicion.Text = ReferenciaD
-                    ValorCambiado = False
-                End If
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-        ElseIf (Direccion = "I") Then
-            If (ReferenciaI >= 1) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    If (Not ValorExacto = 1) Then
-                        txtPosicion.Text = ReferenciaI
-
-                    End If
-                Else
-                    ValorCambiado = False
-                End If
-
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-
-
-        ElseIf (Direccion = "SD") Then
-            Final = txtConta.Text * 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = Cantidad
-        ElseIf (Direccion = "SI") Then
-            Final = 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = 1
-        End If
-
-
-
-
-    End Sub
-
-    Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click
-        Direccion = "I"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub txtPosicion_TextChanged(sender As Object, e As EventArgs) Handles txtPosicion.TextChanged
-        ValorCambiado = True
-    End Sub
-
-    Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click
-        Direccion = "SD"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click
-        Direccion = "SI"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs)
-
-    End Sub
-End Class

FRM/frmRegistroPrestamoPersonal.Designer.vb

@@ -1,202 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmRegistroPrestamoPersonal
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRegistroPrestamoPersonal))
-        Dim navSiguienteRegistro As System.Windows.Forms.ToolStripButton
-        Me.Navegador = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.navNuevoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navPrimerRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navRegistroAnterior = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.navUltimoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtConta = New System.Windows.Forms.TextBox()
-        Me.txtPosicion = New System.Windows.Forms.TextBox()
-        Me.dgvLETES = New System.Windows.Forms.DataGridView()
-        navSiguienteRegistro = New System.Windows.Forms.ToolStripButton()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Navegador.SuspendLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'Navegador
-        '
-        Me.Navegador.AddNewItem = Me.navNuevoRegistro
-        Me.Navegador.CountItem = Nothing
-        Me.Navegador.DeleteItem = Nothing
-        Me.Navegador.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.navPrimerRegistro, Me.navRegistroAnterior, Me.BindingNavigatorSeparator, Me.BindingNavigatorSeparator1, navSiguienteRegistro, Me.navUltimoRegistro, Me.BindingNavigatorSeparator2, Me.navNuevoRegistro})
-        Me.Navegador.Location = New System.Drawing.Point(0, 0)
-        Me.Navegador.MoveFirstItem = Nothing
-        Me.Navegador.MoveLastItem = Nothing
-        Me.Navegador.MoveNextItem = Nothing
-        Me.Navegador.MovePreviousItem = Nothing
-        Me.Navegador.Name = "Navegador"
-        Me.Navegador.PositionItem = Nothing
-        Me.Navegador.Size = New System.Drawing.Size(860, 25)
-        Me.Navegador.TabIndex = 115
-        Me.Navegador.Text = "BindingNavigator1"
-        '
-        'navNuevoRegistro
-        '
-        Me.navNuevoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevoRegistro.Enabled = False
-        Me.navNuevoRegistro.Image = CType(resources.GetObject("navNuevoRegistro.Image"), System.Drawing.Image)
-        Me.navNuevoRegistro.Name = "navNuevoRegistro"
-        Me.navNuevoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navNuevoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevoRegistro.Text = "Agregar nuevo"
-        Me.navNuevoRegistro.Visible = False
-        '
-        'navPrimerRegistro
-        '
-        Me.navPrimerRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navPrimerRegistro.Image = CType(resources.GetObject("navPrimerRegistro.Image"), System.Drawing.Image)
-        Me.navPrimerRegistro.Name = "navPrimerRegistro"
-        Me.navPrimerRegistro.RightToLeftAutoMirrorImage = True
-        Me.navPrimerRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navPrimerRegistro.Text = "Mover primero"
-        '
-        'navRegistroAnterior
-        '
-        Me.navRegistroAnterior.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navRegistroAnterior.Image = CType(resources.GetObject("navRegistroAnterior.Image"), System.Drawing.Image)
-        Me.navRegistroAnterior.Name = "navRegistroAnterior"
-        Me.navRegistroAnterior.RightToLeftAutoMirrorImage = True
-        Me.navRegistroAnterior.Size = New System.Drawing.Size(23, 22)
-        Me.navRegistroAnterior.Text = "Mover anterior"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
-        '
-        'navSiguienteRegistro
-        '
-        navSiguienteRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        navSiguienteRegistro.Image = CType(resources.GetObject("navSiguienteRegistro.Image"), System.Drawing.Image)
-        navSiguienteRegistro.Name = "navSiguienteRegistro"
-        navSiguienteRegistro.RightToLeftAutoMirrorImage = True
-        navSiguienteRegistro.Size = New System.Drawing.Size(23, 22)
-        navSiguienteRegistro.Text = "Mover siguiente"
-        '
-        'navUltimoRegistro
-        '
-        Me.navUltimoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navUltimoRegistro.Image = CType(resources.GetObject("navUltimoRegistro.Image"), System.Drawing.Image)
-        Me.navUltimoRegistro.Name = "navUltimoRegistro"
-        Me.navUltimoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navUltimoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navUltimoRegistro.Text = "Mover último"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
-        '
-        'Label1
-        '
-        Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label1.Location = New System.Drawing.Point(120, 8)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 17)
-        Me.Label1.TabIndex = 125
-        Me.Label1.Text = "Posición: "
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(238, 7)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(25, 17)
-        Me.Label5.TabIndex = 124
-        Me.Label5.Text = "de: "
-        '
-        'txtConta
-        '
-        Me.txtConta.Location = New System.Drawing.Point(267, 4)
-        Me.txtConta.Name = "txtConta"
-        Me.txtConta.ReadOnly = True
-        Me.txtConta.Size = New System.Drawing.Size(58, 20)
-        Me.txtConta.TabIndex = 123
-        '
-        'txtPosicion
-        '
-        Me.txtPosicion.Location = New System.Drawing.Point(171, 4)
-        Me.txtPosicion.Name = "txtPosicion"
-        Me.txtPosicion.Size = New System.Drawing.Size(56, 20)
-        Me.txtPosicion.TabIndex = 122
-        '
-        'dgvLETES
-        '
-        Me.dgvLETES.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLETES.Location = New System.Drawing.Point(0, 30)
-        Me.dgvLETES.Name = "dgvLETES"
-        Me.dgvLETES.Size = New System.Drawing.Size(859, 425)
-        Me.dgvLETES.TabIndex = 126
-        '
-        'frmRegistroPrestamoPersonal
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(860, 454)
-        Me.Controls.Add(Me.dgvLETES)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtConta)
-        Me.Controls.Add(Me.txtPosicion)
-        Me.Controls.Add(Me.Navegador)
-        Me.Name = "frmRegistroPrestamoPersonal"
-        Me.Text = "frmRegistroPrestamoPersonal"
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Navegador.ResumeLayout(False)
-        Me.Navegador.PerformLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Navegador As BindingNavigator
-    Friend WithEvents navNuevoRegistro As ToolStripButton
-    Friend WithEvents navPrimerRegistro As ToolStripButton
-    Friend WithEvents navRegistroAnterior As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
-    Friend WithEvents navUltimoRegistro As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents txtConta As TextBox
-    Friend WithEvents txtPosicion As TextBox
-    Friend WithEvents dgvLETES As DataGridView
-End Class

FRM/frmRegistroPrestamoPersonal.resx

@@ -1,179 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="Navegador.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navNuevoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="navPrimerRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navRegistroAnterior.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="navSiguienteRegistro.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <data name="navSiguienteRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navUltimoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-</root>

FRM/frmRegistroPrestamoPersonal.vb

@@ -1,436 +0,0 @@
-Public Class frmRegistroPrestamoPersonal
-    Dim RegistroConsulta As New RegistrosDAO
-    Dim Operaciones As New Operaciones
-    Dim CodEmpr = Operaciones.CodEmpr
-    Dim CodEmis = Operaciones.CodEmis
-    Dim CodECalRi = Operaciones.CodECalRi
-    Dim ListaPlazo = Operaciones.ListaPlazo
-    Dim ListaTiposMercado = Operaciones.ListaTiposMercados
-    Dim ListaPeriodos = Operaciones.ListaPeriodos
-    Dim ListaTipoTasa = Operaciones.ListaTipoTasa
-    Dim ListaTipoRenta = Operaciones.ListaTipoRenta
-    Dim ListaEstado = Operaciones.ListaEstado
-    Dim ListaCasasCorredoras = Operaciones.ListaCasasCorredoras
-    Dim CodPais = Operaciones.CodPais
-    Dim ValorCambiado As Boolean = False
-    Dim Direccion As String = String.Empty
-    Dim CodigoInstrumento As String = Variables.CodigoInstrumento
-    Dim tablas As String
-
-
-
-    Private Sub frmRegistroPrestamoPersonal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        tablas = "PPER0"
-        AgregarColumnasInv()
-        AgregarColumnasIns()
-        txtPosicion.Text = "1"
-        txtConta.Text = RegistroConsulta.Contador(tablas)
-        ValorCambiado = False
-        Cargar(CodigoInstrumento, 1, 100)
-    End Sub
-
-
-
-
-
-    Sub AgregarColumnasInv()
-        Dim Empresa, Instrumento, Emisor, CalRiesgo, Calif, Pais, TipoMercado, Nombre, Periodicidad, Plazo As New DataGridViewTextBoxColumn
-        Dim CantidadPlazo, TipoRenta, TipoTasa, Numero, Fecha, Codigo, Estado As New DataGridViewTextBoxColumn
-        Codigo.Name = "Codigo de Inversion"
-        Empresa.Name = "Empresa"
-        Instrumento.Name = "Instrumento"
-        Emisor.Name = "Emisor"
-        CalRiesgo.Name = "Calificadora Riesgo"
-        Calif.Name = "Calificadora"
-        Pais.Name = "Pais"
-        TipoMercado.Name = "Tipo Mercado"
-        Nombre.Name = "Nombre"
-        Periodicidad.Name = "Periodicidad"
-        CantidadPlazo.Name = "Cantidad Plazo"
-        Plazo.Name = "Plazo"
-        TipoRenta.Name = "Tipo de Renta"
-        TipoTasa.Name = "Tipo de Tasa"
-        Numero.Name = "Numero"
-        Fecha.Name = "Fecha"
-        Estado.Name = "Estado"
-
-
-
-        dgvLETES.Columns.Add(Codigo)
-        dgvLETES.Columns.Add(Estado)
-        dgvLETES.Columns.Add(Empresa)
-        dgvLETES.Columns.Add(Instrumento)
-        dgvLETES.Columns.Add(Emisor)
-        dgvLETES.Columns.Add(CalRiesgo)
-        dgvLETES.Columns.Add(Calif)
-        dgvLETES.Columns.Add(CantidadPlazo)
-        dgvLETES.Columns.Add(Plazo)
-        dgvLETES.Columns.Add(Fecha)
-        dgvLETES.Columns.Add(TipoMercado)
-        dgvLETES.Columns.Add(Pais)
-        dgvLETES.Columns.Add(Nombre)
-        dgvLETES.Columns.Add(Periodicidad)
-        dgvLETES.Columns.Add(TipoTasa)
-        dgvLETES.Columns.Add(TipoRenta)
-        dgvLETES.Columns.Add(Numero)
-
-
-
-    End Sub
-
-    Sub AgregarColumnasIns()
-        Dim nombredeudor, numerodeudor, fechaotorga, fechapago, periodogracia, tasainteres, duracionprestamo, totalcuotas As New DataGridViewTextBoxColumn
-        Dim montoprestamo, seguro, fecha, periodo, saldoinicial, pagocuota, pagointeresIVA, IVAinteres As New DataGridViewTextBoxColumn
-        Dim pagointeres, abono, prestamoremanente, pagodanos, pagovivienda, totalcuota, totalpagado, abonoextra As New DataGridViewTextBoxColumn
-        nombredeudor.Name = "Nombre del Deudor"
-        numerodeudor.Name = "Número del Deudor"
-        fechaotorga.Name = "Fecha de Otorgamiento"
-        fechapago.Name = "Fecha de Pago"
-        periodogracia.Name = "Periodo de Gracia"
-        tasainteres.Name = "Tasa de Interes"
-        duracionprestamo.Name = "Duración del Prestamo"
-        totalcuotas.Name = "Total de cuotas"
-        montoprestamo.Name = "Monto del Prestamo"
-        seguro.Name = "Seguro"
-        fecha.Name = "Fecha"
-        periodo.Name = "Periodo"
-        saldoinicial.Name = "Saldo Inicial"
-        pagocuota.Name = "Pago Cuota"
-        pagointeresIVA.Name = "Pago Interes IVA"
-        IVAinteres.Name = "Interes IVA"
-        pagointeres.Name = "Pago Interes"
-        abono.Name = "Abono"
-        prestamoremanente.Name = "Prestamo Remanente"
-        pagodanos.Name = "Pago Daños"
-        pagovivienda.Name = "Pago Vivienda"
-        totalcuota.Name = "Total Cuota"
-        totalpagado.Name = "Total Pagado"
-        abonoextra.Name = "Abono Extra"
-        'dgvLETES.Columns.Add(TotPagar)
-
-
-        dgvLETES.Columns.Add(nombredeudor)
-        dgvLETES.Columns.Add(numerodeudor)
-        dgvLETES.Columns.Add(fechaotorga)
-        dgvLETES.Columns.Add(fechapago)
-        dgvLETES.Columns.Add(periodogracia)
-        dgvLETES.Columns.Add(tasainteres)
-        dgvLETES.Columns.Add(duracionprestamo)
-        dgvLETES.Columns.Add(totalcuotas)
-        dgvLETES.Columns.Add(montoprestamo)
-        dgvLETES.Columns.Add(seguro)
-        dgvLETES.Columns.Add(fecha)
-        dgvLETES.Columns.Add(periodo)
-        dgvLETES.Columns.Add(saldoinicial)
-        dgvLETES.Columns.Add(pagocuota)
-        dgvLETES.Columns.Add(pagointeresIVA)
-        dgvLETES.Columns.Add(IVAinteres)
-        dgvLETES.Columns.Add(pagointeres)
-        dgvLETES.Columns.Add(abono)
-        dgvLETES.Columns.Add(prestamoremanente)
-        dgvLETES.Columns.Add(pagodanos)
-        dgvLETES.Columns.Add(pagovivienda)
-        dgvLETES.Columns.Add(totalcuota)
-        dgvLETES.Columns.Add(totalpagado)
-        dgvLETES.Columns.Add(abonoextra)
-
-    End Sub
-
-
-
-
-    Sub Cargar(ByVal Cod As String, ByVal Inicio As Integer, ByVal Final As Integer)
-
-
-        Dim CodigoEmpresa As String = " "
-        Dim CodigoEmisor As String = " "
-        Dim CodigoECal As String = " "
-        Dim PlazoF As String = " "
-        Dim TiposMercado As String = " "
-        Dim Pais As String = " "
-        Dim Periodos As String = " "
-        Dim Periodos2 As String = " "
-        Dim TipoTasa As String = " "
-        Dim TipoRenta As String = " "
-        Dim Estado As String = " "
-        Dim CasasCorredoras As String = " "
-        Dim codigo As String = Variables.Codigo
-        Dim Instrumento As String
-        Dim dr
-
-        Instrumento = "Prestamo Personal"
-
-
-
-
-
-        dr = RegistroConsulta.CargarInvPPER(Cod, Inicio, Final)
-
-
-
-
-
-
-
-        While dr.Read
-
-
-
-
-
-
-
-
-
-            For Each pair In CodEmpr
-
-                If (pair.Key.ToString = dr("CodEmpr").ToString) Then
-                    CodigoEmpresa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmpr").ToString)) Then
-                    CodigoEmpresa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodEmis
-
-                If (pair.Key.ToString = dr("CodEmis").ToString) Then
-                    CodigoEmisor = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmis").ToString)) Then
-                    CodigoEmisor = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodECalRi
-
-
-                If (pair.Key.ToString = dr("CodECalRi").ToString) Then
-                    CodigoECal = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodECalRi").ToString)) Then
-                    CodigoECal = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPlazo
-                If (pair.Key.ToString = dr("PlazoFact").ToString) Then
-                    PlazoF = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("PlazoFact").ToString)) Then
-                    PlazoF = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaTiposMercado
-
-
-
-
-
-                If (pair.Key.ToString = dr("TipoMerc").ToString.TrimStart()) Then
-                    TiposMercado = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipoMerc").ToString.TrimStart())) Then
-                    TiposMercado = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodPais
-                If (pair.Key.ToString = dr("CodPais").ToString.TrimStart()) Then
-                    Pais = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodPais").ToString.TrimStart())) Then
-                    Pais = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPeriodos
-                If (pair.Key.ToString = dr("Periodicidad").ToString.TrimStart()) Then
-                    Periodos = pair.Value
-
-                ElseIf (String.IsNullOrEmpty(dr("Periodicidad").ToString.TrimStart())) Then
-                    Periodos = "    ----  ----  ----  ---- "
-
-                End If
-
-
-            Next
-
-
-
-            For Each pair In ListaTipoTasa
-                If (pair.Key.ToString = dr("TipTasa").ToString.TrimStart()) Then
-                    TipoTasa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipTasa").ToString.TrimStart())) Then
-                    TipoTasa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            For Each pair In ListaTipoRenta
-                If (pair.Key.ToString = dr("TipRenta").ToString.TrimStart()) Then
-                    TipoRenta = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipRenta").ToString.TrimStart())) Then
-                    TipoRenta = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-
-            For Each pair In ListaEstado
-                If (pair.Key.ToString = dr("DocEst").ToString.TrimStart()) Then
-                    Estado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("DocEst").ToString.TrimStart())) Then
-                    Estado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            '     For Each pair In ListaCasasCorredoras
-            '          If (pair.Key.ToString = dr("CasasCorredoras").ToString) Then
-            '   CasasCorredoras = pair.Value
-            '    Exit For
-            ' ElseIf (String.IsNullOrEmpty(dr("CasasCorredoras").ToString)) Then
-            '    CasasCorredoras = "    ----  ----  ----  ---- "
-            '      Exit For
-            '   End If
-            'Next
-
-            'dgvReportes.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, "Reportos", CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), "", dr("Nombre"), dr("FCompra"), dr("ValTrans"), dr("Dias"), dr("FVenc"), dr("Rend"), ComisionCasa, ComisionBolsa, IOF, 0, TotalCostos, MontoLiq, InteresGenerar, dr("CostoTransfr"), RendimientoAntes, ValorRecompra, Renta, IngresoNeto, ValorNeto, RendimientoDespues, "", PorcentajeComisionCasa, PorcentajeComisionBolsa, PorcentajeComisionIOF)
-            dgvLETES.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, Instrumento, CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), dr("nombredeudor"), dr("numerodeudor"), dr("fechaotorga"), dr("fechapago"), dr("periodogracia"), dr("tasainteres"), dr("duracionprestamo"), dr("totalcuotas"), dr("montoprestamo"), dr("seguro"), dr("fecha"), dr("periodo"), dr("saldoinicial"), dr("pagocuota"), dr("pagointeresIVA"), dr("IVAinteres"), dr("pagointeres"), dr("abono"), dr("prestamoremanente"), dr("pagodanos"), dr("pagovivienta"), dr("totalcuota"), dr("totalpagado"), dr("abonoextra"))
-
-        End While
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs)
-        Direccion = "D"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub Mover(ByVal Direccion As String)
-        Dim ReferenciaD = txtPosicion.Text + 1
-        Dim ReferenciaI = txtPosicion.Text - 1
-        Dim Cantidad = txtConta.Text
-        Dim ValorExacto = txtPosicion.Text
-        Dim Inicio, Final As Integer
-        If (Direccion = "D") Then
-            If (Cantidad >= ValorExacto) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    txtPosicion.Text = ReferenciaD
-                    ValorCambiado = False
-                End If
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-        ElseIf (Direccion = "I") Then
-            If (ReferenciaI >= 1) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    If (Not ValorExacto = 1) Then
-                        txtPosicion.Text = ReferenciaI
-
-                    End If
-                Else
-                    ValorCambiado = False
-                End If
-
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-
-
-        ElseIf (Direccion = "SD") Then
-            Final = txtConta.Text * 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = Cantidad
-        ElseIf (Direccion = "SI") Then
-            Final = 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = 1
-        End If
-
-
-
-
-    End Sub
-
-    Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click
-        Direccion = "I"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub txtPosicion_TextChanged(sender As Object, e As EventArgs) Handles txtPosicion.TextChanged
-        ValorCambiado = True
-    End Sub
-
-    Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click
-        Direccion = "SD"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click
-        Direccion = "SI"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-End Class

FRM/frmRegistroReportos.Designer.vb

@@ -1,202 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmRegistroReportos
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim navSiguienteRegistro As System.Windows.Forms.ToolStripButton
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRegistroReportos))
-        Me.dgvReportes = New System.Windows.Forms.DataGridView()
-        Me.Navegador = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.navNuevoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navPrimerRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navRegistroAnterior = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.navUltimoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.txtPosicion = New System.Windows.Forms.TextBox()
-        Me.txtConta = New System.Windows.Forms.TextBox()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.Label1 = New System.Windows.Forms.Label()
-        navSiguienteRegistro = New System.Windows.Forms.ToolStripButton()
-        CType(Me.dgvReportes, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Navegador.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'navSiguienteRegistro
-        '
-        navSiguienteRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        navSiguienteRegistro.Image = CType(resources.GetObject("navSiguienteRegistro.Image"), System.Drawing.Image)
-        navSiguienteRegistro.Name = "navSiguienteRegistro"
-        navSiguienteRegistro.RightToLeftAutoMirrorImage = True
-        navSiguienteRegistro.Size = New System.Drawing.Size(23, 22)
-        navSiguienteRegistro.Text = "Mover siguiente"
-        AddHandler navSiguienteRegistro.Click, AddressOf Me.navSiguienteRegistro_Click
-        '
-        'dgvReportes
-        '
-        Me.dgvReportes.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvReportes.Location = New System.Drawing.Point(0, 25)
-        Me.dgvReportes.Name = "dgvReportes"
-        Me.dgvReportes.Size = New System.Drawing.Size(859, 425)
-        Me.dgvReportes.TabIndex = 0
-        '
-        'Navegador
-        '
-        Me.Navegador.AddNewItem = Me.navNuevoRegistro
-        Me.Navegador.CountItem = Nothing
-        Me.Navegador.DeleteItem = Nothing
-        Me.Navegador.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.navPrimerRegistro, Me.navRegistroAnterior, Me.BindingNavigatorSeparator, Me.BindingNavigatorSeparator1, navSiguienteRegistro, Me.navUltimoRegistro, Me.BindingNavigatorSeparator2, Me.navNuevoRegistro})
-        Me.Navegador.Location = New System.Drawing.Point(0, 0)
-        Me.Navegador.MoveFirstItem = Nothing
-        Me.Navegador.MoveLastItem = Nothing
-        Me.Navegador.MovePreviousItem = Nothing
-        Me.Navegador.Name = "Navegador"
-        Me.Navegador.Size = New System.Drawing.Size(859, 25)
-        Me.Navegador.TabIndex = 113
-        Me.Navegador.Text = "BindingNavigator1"
-        '
-        'navNuevoRegistro
-        '
-        Me.navNuevoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevoRegistro.Enabled = False
-        Me.navNuevoRegistro.Image = CType(resources.GetObject("navNuevoRegistro.Image"), System.Drawing.Image)
-        Me.navNuevoRegistro.Name = "navNuevoRegistro"
-        Me.navNuevoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navNuevoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevoRegistro.Text = "Agregar nuevo"
-        Me.navNuevoRegistro.Visible = False
-        '
-        'navPrimerRegistro
-        '
-        Me.navPrimerRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navPrimerRegistro.Image = CType(resources.GetObject("navPrimerRegistro.Image"), System.Drawing.Image)
-        Me.navPrimerRegistro.Name = "navPrimerRegistro"
-        Me.navPrimerRegistro.RightToLeftAutoMirrorImage = True
-        Me.navPrimerRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navPrimerRegistro.Text = "Mover primero"
-        '
-        'navRegistroAnterior
-        '
-        Me.navRegistroAnterior.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navRegistroAnterior.Image = CType(resources.GetObject("navRegistroAnterior.Image"), System.Drawing.Image)
-        Me.navRegistroAnterior.Name = "navRegistroAnterior"
-        Me.navRegistroAnterior.RightToLeftAutoMirrorImage = True
-        Me.navRegistroAnterior.Size = New System.Drawing.Size(23, 22)
-        Me.navRegistroAnterior.Text = "Mover anterior"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
-        '
-        'navUltimoRegistro
-        '
-        Me.navUltimoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navUltimoRegistro.Image = CType(resources.GetObject("navUltimoRegistro.Image"), System.Drawing.Image)
-        Me.navUltimoRegistro.Name = "navUltimoRegistro"
-        Me.navUltimoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navUltimoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navUltimoRegistro.Text = "Mover último"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
-        '
-        'txtPosicion
-        '
-        Me.txtPosicion.Location = New System.Drawing.Point(174, 1)
-        Me.txtPosicion.Name = "txtPosicion"
-        Me.txtPosicion.Size = New System.Drawing.Size(56, 20)
-        Me.txtPosicion.TabIndex = 114
-        '
-        'txtConta
-        '
-        Me.txtConta.Location = New System.Drawing.Point(270, 1)
-        Me.txtConta.Name = "txtConta"
-        Me.txtConta.ReadOnly = True
-        Me.txtConta.Size = New System.Drawing.Size(58, 20)
-        Me.txtConta.TabIndex = 115
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(241, 4)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(25, 17)
-        Me.Label5.TabIndex = 116
-        Me.Label5.Text = "de: "
-        '
-        'Label1
-        '
-        Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label1.Location = New System.Drawing.Point(123, 5)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 17)
-        Me.Label1.TabIndex = 117
-        Me.Label1.Text = "Posición: "
-        '
-        'frmRegistroReportos
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(859, 450)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtConta)
-        Me.Controls.Add(Me.txtPosicion)
-        Me.Controls.Add(Me.Navegador)
-        Me.Controls.Add(Me.dgvReportes)
-        Me.Name = "frmRegistroReportos"
-        Me.Text = "RegistroReportos"
-        CType(Me.dgvReportes, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Navegador.ResumeLayout(False)
-        Me.Navegador.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents dgvReportes As DataGridView
-    Friend WithEvents Navegador As BindingNavigator
-    Friend WithEvents navNuevoRegistro As ToolStripButton
-    Friend WithEvents txtContador As ToolStripLabel
-    Friend WithEvents navPrimerRegistro As ToolStripButton
-    Friend WithEvents navRegistroAnterior As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
-    Friend WithEvents navUltimoRegistro As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
-    Friend WithEvents txtPosicion As TextBox
-    Friend WithEvents txtConta As TextBox
-    Friend WithEvents Label5 As Label
-    Friend WithEvents Label1 As Label
-End Class

FRM/frmRegistroReportos.resx

@@ -1,179 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="navSiguienteRegistro.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navSiguienteRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <metadata name="Navegador.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <data name="navNuevoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="navPrimerRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navRegistroAnterior.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="navUltimoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-</root>

FRM/frmRegistroReportos.vb

@@ -1,390 +0,0 @@
-Public Class frmRegistroReportos
-    Dim RegistroConsulta As New RegistrosDAO
-    Dim Operaciones As New Operaciones
-    Dim ReportosCalculos As New ReportosCE
-    Const PorcentajeComisionCasa As Double = 0.2825
-    Const PorcentajeComisionBolsa As Double = 0.2825
-    Const PorcentajeComisionIOF As Double = 0.25
-    Dim CodEmpr = Operaciones.CodEmpr
-    Dim CodEmis = Operaciones.CodEmis
-    Dim CodECalRi = Operaciones.CodECalRi
-    Dim ListaPlazo = Operaciones.ListaPlazo
-    Dim ListaTiposMercado = Operaciones.ListaTiposMercados
-    Dim ListaPeriodos = Operaciones.ListaPeriodos
-    Dim ListaTipoTasa = Operaciones.ListaTipoTasa
-    Dim ListaTipoRenta = Operaciones.ListaTipoRenta
-    Dim ListaEstado = Operaciones.ListaEstado
-    Dim CodPais = Operaciones.CodPais
-    Dim ValorCambiado As Boolean = False
-    Dim Direccion As String = String.Empty
-    Private Sub frmRegistroReportos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        AgregarColumnasInv()
-        AgregarColumnasIns()
-        txtPosicion.Text = "1"
-        txtConta.Text = RegistroConsulta.Contador("REPO")
-        ValorCambiado = False
-        CargarReporto("REPO", 1, 100)
-
-    End Sub
-
-    Sub AgregarColumnasInv()
-        Dim Empresa, Instrumento, Emisor, CalRiesgo, Calif, Pais, TipoMercado, Nombre, Periodicidad, Plazo As New DataGridViewTextBoxColumn
-        Dim CantidadPlazo, TipoRenta, TipoTasa, Numero, Fecha, Codigo, Estado As New DataGridViewTextBoxColumn
-        Codigo.Name = "Codigo de Inversion"
-        Empresa.Name = "Empresa"
-        Instrumento.Name = "Instrumento"
-        Emisor.Name = "Emisor"
-        CalRiesgo.Name = "Calificadora Riesgo"
-        Calif.Name = "Calificadora"
-        Pais.Name = "Pais"
-        TipoMercado.Name = "Tipo Mercado"
-        Nombre.Name = "Nombre"
-        Periodicidad.Name = "Periodicidad"
-        CantidadPlazo.Name = "Cantidad Plazo"
-        Plazo.Name = "Plazo"
-        TipoRenta.Name = "Tipo de Renta"
-        TipoTasa.Name = "Tipo de Tasa"
-        Numero.Name = "Numero"
-        Fecha.Name = "Fecha"
-        Estado.Name = "Estado"
-
-
-
-        dgvReportes.Columns.Add(Codigo)
-        dgvReportes.Columns.Add(Estado)
-        dgvReportes.Columns.Add(Empresa)
-        dgvReportes.Columns.Add(Instrumento)
-        dgvReportes.Columns.Add(Emisor)
-        dgvReportes.Columns.Add(CalRiesgo)
-        dgvReportes.Columns.Add(Calif)
-        dgvReportes.Columns.Add(CantidadPlazo)
-        dgvReportes.Columns.Add(Plazo)
-        dgvReportes.Columns.Add(Fecha)
-        dgvReportes.Columns.Add(TipoMercado)
-        dgvReportes.Columns.Add(Pais)
-        dgvReportes.Columns.Add(Nombre)
-        dgvReportes.Columns.Add(Periodicidad)
-        dgvReportes.Columns.Add(TipoTasa)
-        dgvReportes.Columns.Add(TipoRenta)
-        dgvReportes.Columns.Add(Numero)
-
-
-
-    End Sub
-
-    Sub AgregarColumnasIns()
-        Dim ValTrans, Dias, FVen, Rend, IOF, ComisionCB, CB, OtrosCostos, TotCostos, MontoLiq, InterGen, codigo As New DataGridViewTextBoxColumn
-        Dim CostoTransfv, RendNetoAntImp, ValReCompra, ImpLiquidacion, IngrNeto, ValNeto, RendNetoDespImp As New DataGridViewTextBoxColumn
-        Dim PComisionC, PComisionB, PIOF, Titulo, FechaC, Casa As New DataGridViewTextBoxColumn
-        codigo.Name = "Codigo"
-        ValTrans.Name = "Valor Trasado"
-        Dias.Name = "Dias"
-        FVen.Name = "Fecha de Vencimiento"
-        Rend.Name = "Rendimiento"
-        IOF.Name = "IOF"
-        ComisionCB.Name = "Comision CB"
-        CB.Name = "Comision Bolsa"
-        OtrosCostos.Name = "Otros Costos"
-        TotCostos.Name = "Total Costos"
-        MontoLiq.Name = "Monto a Liquidar"
-        InterGen.Name = "Interes a Genrerar"
-        CostoTransfv.Name = "Costo de Transferencia"
-        RendNetoAntImp.Name = "R% Neto (Antes de Impuesto)"
-        ValReCompra.Name = "Valor de ReCompra"
-        ImpLiquidacion.Name = "Impuesto de Liquidacion"
-        IngrNeto.Name = "Ingreso Neto"
-        ValNeto.Name = "Valor Neto"
-        RendNetoDespImp.Name = "R% Neto (Despues de Impuesto)"
-        PComisionC.Name = "% Comision Casa"
-        PComisionB.Name = "% Comision Bolsa"
-        PIOF.Name = "% IOF"
-        Titulo.Name = "Titulo"
-        FechaC.Name = "Fecha de Compra"
-        Casa.Name = "Casa"
-
-        dgvReportes.Columns.Add(Casa)
-        dgvReportes.Columns.Add(Titulo)
-        dgvReportes.Columns.Add(FechaC)
-        dgvReportes.Columns.Add(ValTrans)
-        dgvReportes.Columns.Add(Dias)
-        dgvReportes.Columns.Add(FVen)
-        dgvReportes.Columns.Add(Rend)
-        dgvReportes.Columns.Add(ComisionCB)
-        dgvReportes.Columns.Add(CB)
-        dgvReportes.Columns.Add(IOF)
-        dgvReportes.Columns.Add(OtrosCostos)
-        dgvReportes.Columns.Add(TotCostos)
-        dgvReportes.Columns.Add(MontoLiq)
-        dgvReportes.Columns.Add(InterGen)
-        dgvReportes.Columns.Add(CostoTransfv)
-        dgvReportes.Columns.Add(RendNetoAntImp)
-        dgvReportes.Columns.Add(ValReCompra)
-        dgvReportes.Columns.Add(ImpLiquidacion)
-        dgvReportes.Columns.Add(IngrNeto)
-        dgvReportes.Columns.Add(ValNeto)
-        dgvReportes.Columns.Add(RendNetoDespImp)
-        dgvReportes.Columns.Add(codigo)
-        dgvReportes.Columns.Add(PComisionC)
-        dgvReportes.Columns.Add(PComisionB)
-        dgvReportes.Columns.Add(PIOF)
-
-
-    End Sub
-
-
-
-
-    Sub CargarReporto(ByVal Cod As String, ByVal Inicio As Integer, ByVal Final As Integer)
-
-
-        Dim CodigoEmpresa As String = " "
-        Dim CodigoEmisor As String = " "
-        Dim CodigoECal As String = " "
-        Dim PlazoF As String = " "
-        Dim TiposMercado As String = " "
-        Dim Pais As String = " "
-        Dim Periodos As String = " "
-        Dim TipoTasa As String = " "
-        Dim TipoRenta As String = " "
-        Dim Estado As String = " "
-        Dim codigo As String = Variables.Codigo
-        Dim dr = RegistroConsulta.CargarInv(Cod, Inicio, Final)
-
-
-
-
-
-        While dr.Read
-            For Each pair In CodEmpr
-                If (pair.Key.ToString = dr("CodEmpr").ToString) Then
-                    CodigoEmpresa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmpr").ToString)) Then
-                    CodigoEmpresa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodEmis
-                If (pair.Key.ToString = dr("CodEmis").ToString) Then
-                    CodigoEmisor = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmis").ToString)) Then
-                    CodigoEmisor = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodECalRi
-
-
-                If (pair.Key.ToString = dr("CodECalRi").ToString) Then
-                    CodigoECal = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodECalRi").ToString)) Then
-                    CodigoECal = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPlazo
-                If (pair.Key.ToString = dr("PlazoFact").ToString) Then
-                    PlazoF = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("PlazoFact").ToString)) Then
-                    PlazoF = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaTiposMercado
-                If (pair.Key.ToString = dr("TipoMerc").ToString) Then
-                    TiposMercado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipoMerc").ToString)) Then
-                    TiposMercado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodPais
-                If (pair.Key.ToString = dr("CodPais").ToString) Then
-                    Pais = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodPais").ToString)) Then
-                    Pais = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPeriodos
-                If (pair.Key.ToString = dr("Periodicidad").ToString) Then
-                    Periodos = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("Periodicidad").ToString)) Then
-                    Periodos = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaTipoTasa
-                If (pair.Key.ToString = dr("TipTasa").ToString) Then
-                    TipoTasa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipTasa").ToString)) Then
-                    TipoTasa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            For Each pair In ListaTipoRenta
-                If (pair.Key.ToString = dr("TipRenta").ToString) Then
-                    TipoRenta = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipRenta").ToString)) Then
-                    TipoRenta = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-
-            For Each pair In ListaEstado
-                If (pair.Key.ToString = dr("DocEst").ToString) Then
-                    Estado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("DocEst").ToString)) Then
-                    Estado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-
-            'Dim ComisionCasa = ReportosCalculos.Comision(dr("ValTrans"), dr("Dias"), PorcentajeComisionCasa)
-            'Dim ComisionBolsa = ReportosCalculos.Comision(dr("ValTrans"), dr("Dias"), PorcentajeComisionBolsa)
-            'Dim IOF = ReportosCalculos.IOF(dr("ValTrans"), ComisionCasa, ComisionBolsa, dr("Dias"), PorcentajeComisionIOF)
-            'Dim TotalCostos = ReportosCalculos.TotCostos(ComisionCasa, ComisionBolsa, IOF, 0)
-            ''Dim MontoLiq = ReportosCalculos.MontoLiquidacion(dr("ValTrans"), TotalCostos)
-            'Dim InteresGenerar = ReportosCalculos.InteresGenerar(dr("ValTrans"), dr("Rend"), dr("Dias"))
-            'Dim RendimientoAntes = ReportosCalculos.RendimientoAntes(InteresGenerar, TotalCostos, dr("ValTrans"), dr("Dias"))
-            'Dim ValorRecompra = ReportosCalculos.ValorRecompras(dr("ValTrans"), InteresGenerar)
-            'Dim Renta = ReportosCalculos.Renta(InteresGenerar, 0.1)
-            'Dim IngresoNeto = ReportosCalculos.IngresoNet(InteresGenerar, Renta)
-            'Dim ValorNeto = ReportosCalculos.ValorNet(dr("ValTrans"), IngresoNeto, dr("CostoTransfr"))
-            'Dim RendimientoDespues = ReportosCalculos.RendimientoDespues(IngresoNeto, TotalCostos, dr("ValTrans"), dr("Dias"))
-            'dgvReportes.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, "Reportos", CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), "", dr("Nombre"), dr("FCompra"), dr("ValTrans"), dr("Dias"), dr("FVenc"), dr("Rend"), ComisionCasa, ComisionBolsa, IOF, 0, TotalCostos, MontoLiq, InteresGenerar, dr("CostoTransfr"), RendimientoAntes, ValorRecompra, Renta, IngresoNeto, ValorNeto, RendimientoDespues, "", PorcentajeComisionCasa, PorcentajeComisionBolsa, PorcentajeComisionIOF)
-        End While
-    End Sub
-
-
-
-
-
-
-
-    Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs)
-        Direccion = "D"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub Mover(ByVal Direccion As String)
-        Dim ReferenciaD = txtPosicion.Text + 1
-        Dim ReferenciaI = txtPosicion.Text - 1
-        Dim Cantidad = txtConta.Text
-        Dim ValorExacto = txtPosicion.Text
-        Dim Inicio, Final As Integer
-        If (Direccion = "D") Then
-            If (Cantidad >= ValorExacto) Then
-                dgvReportes.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    txtPosicion.Text = ReferenciaD
-                    ValorCambiado = False
-                End If
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                CargarReporto("REPO", Inicio, Final)
-
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-        ElseIf (Direccion = "I") Then
-            If (ReferenciaI >= 1) Then
-                dgvReportes.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    If (Not ValorExacto = 1) Then
-                        txtPosicion.Text = ReferenciaI
-
-                    End If
-                Else
-                    ValorCambiado = False
-                End If
-
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                CargarReporto("REPO", Inicio, Final)
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-
-
-        ElseIf (Direccion = "SD") Then
-            Final = txtConta.Text * 100
-            Inicio = Final - 100
-
-            dgvReportes.Rows.Clear()
-            CargarReporto("REPO", Inicio, Final)
-            txtPosicion.Text = Cantidad
-        ElseIf (Direccion = "SI") Then
-            Final = 100
-            Inicio = Final - 100
-
-            dgvReportes.Rows.Clear()
-            CargarReporto("REPO", Inicio, Final)
-            txtPosicion.Text = 1
-        End If
-
-
-
-
-    End Sub
-
-    Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click
-        Direccion = "I"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub txtPosicion_TextChanged(sender As Object, e As EventArgs) Handles txtPosicion.TextChanged
-        ValorCambiado = True
-    End Sub
-
-    Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click
-        Direccion = "SD"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click
-        Direccion = "SI"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-End Class

FRM/frmRegitrosFondoInversion.Designer.vb

@@ -1,202 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmRegitrosFondoInversion
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRegitrosFondoInversion))
-        Dim navSiguienteRegistro As System.Windows.Forms.ToolStripButton
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtConta = New System.Windows.Forms.TextBox()
-        Me.txtPosicion = New System.Windows.Forms.TextBox()
-        Me.Navegador = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.navNuevoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navPrimerRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navRegistroAnterior = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.navUltimoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.dgvLETES = New System.Windows.Forms.DataGridView()
-        navSiguienteRegistro = New System.Windows.Forms.ToolStripButton()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Navegador.SuspendLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label1.Location = New System.Drawing.Point(123, 8)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 17)
-        Me.Label1.TabIndex = 130
-        Me.Label1.Text = "Posición: "
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(241, 7)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(25, 17)
-        Me.Label5.TabIndex = 129
-        Me.Label5.Text = "de: "
-        '
-        'txtConta
-        '
-        Me.txtConta.Location = New System.Drawing.Point(270, 4)
-        Me.txtConta.Name = "txtConta"
-        Me.txtConta.ReadOnly = True
-        Me.txtConta.Size = New System.Drawing.Size(58, 20)
-        Me.txtConta.TabIndex = 128
-        '
-        'txtPosicion
-        '
-        Me.txtPosicion.Location = New System.Drawing.Point(174, 4)
-        Me.txtPosicion.Name = "txtPosicion"
-        Me.txtPosicion.Size = New System.Drawing.Size(56, 20)
-        Me.txtPosicion.TabIndex = 127
-        '
-        'Navegador
-        '
-        Me.Navegador.AddNewItem = Me.navNuevoRegistro
-        Me.Navegador.CountItem = Nothing
-        Me.Navegador.DeleteItem = Nothing
-        Me.Navegador.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.navPrimerRegistro, Me.navRegistroAnterior, Me.BindingNavigatorSeparator, Me.BindingNavigatorSeparator1, navSiguienteRegistro, Me.navUltimoRegistro, Me.BindingNavigatorSeparator2, Me.navNuevoRegistro})
-        Me.Navegador.Location = New System.Drawing.Point(0, 0)
-        Me.Navegador.MoveFirstItem = Nothing
-        Me.Navegador.MoveLastItem = Nothing
-        Me.Navegador.MoveNextItem = Nothing
-        Me.Navegador.MovePreviousItem = Nothing
-        Me.Navegador.Name = "Navegador"
-        Me.Navegador.PositionItem = Nothing
-        Me.Navegador.Size = New System.Drawing.Size(866, 25)
-        Me.Navegador.TabIndex = 126
-        Me.Navegador.Text = "BindingNavigator1"
-        '
-        'navNuevoRegistro
-        '
-        Me.navNuevoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevoRegistro.Enabled = False
-        Me.navNuevoRegistro.Image = CType(resources.GetObject("navNuevoRegistro.Image"), System.Drawing.Image)
-        Me.navNuevoRegistro.Name = "navNuevoRegistro"
-        Me.navNuevoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navNuevoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevoRegistro.Text = "Agregar nuevo"
-        Me.navNuevoRegistro.Visible = False
-        '
-        'navPrimerRegistro
-        '
-        Me.navPrimerRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navPrimerRegistro.Image = CType(resources.GetObject("navPrimerRegistro.Image"), System.Drawing.Image)
-        Me.navPrimerRegistro.Name = "navPrimerRegistro"
-        Me.navPrimerRegistro.RightToLeftAutoMirrorImage = True
-        Me.navPrimerRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navPrimerRegistro.Text = "Mover primero"
-        '
-        'navRegistroAnterior
-        '
-        Me.navRegistroAnterior.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navRegistroAnterior.Image = CType(resources.GetObject("navRegistroAnterior.Image"), System.Drawing.Image)
-        Me.navRegistroAnterior.Name = "navRegistroAnterior"
-        Me.navRegistroAnterior.RightToLeftAutoMirrorImage = True
-        Me.navRegistroAnterior.Size = New System.Drawing.Size(23, 22)
-        Me.navRegistroAnterior.Text = "Mover anterior"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
-        '
-        'navSiguienteRegistro
-        '
-        navSiguienteRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        navSiguienteRegistro.Image = CType(resources.GetObject("navSiguienteRegistro.Image"), System.Drawing.Image)
-        navSiguienteRegistro.Name = "navSiguienteRegistro"
-        navSiguienteRegistro.RightToLeftAutoMirrorImage = True
-        navSiguienteRegistro.Size = New System.Drawing.Size(23, 22)
-        navSiguienteRegistro.Text = "Mover siguiente"
-        '
-        'navUltimoRegistro
-        '
-        Me.navUltimoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navUltimoRegistro.Image = CType(resources.GetObject("navUltimoRegistro.Image"), System.Drawing.Image)
-        Me.navUltimoRegistro.Name = "navUltimoRegistro"
-        Me.navUltimoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navUltimoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navUltimoRegistro.Text = "Mover último"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
-        '
-        'dgvLETES
-        '
-        Me.dgvLETES.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLETES.Location = New System.Drawing.Point(0, 28)
-        Me.dgvLETES.Name = "dgvLETES"
-        Me.dgvLETES.Size = New System.Drawing.Size(859, 425)
-        Me.dgvLETES.TabIndex = 131
-        '
-        'frmRegitrosFondoInversion
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(866, 450)
-        Me.Controls.Add(Me.dgvLETES)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtConta)
-        Me.Controls.Add(Me.txtPosicion)
-        Me.Controls.Add(Me.Navegador)
-        Me.Name = "frmRegitrosFondoInversion"
-        Me.Text = "frmRegitrosFondoInversion"
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Navegador.ResumeLayout(False)
-        Me.Navegador.PerformLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents txtConta As TextBox
-    Friend WithEvents txtPosicion As TextBox
-    Friend WithEvents Navegador As BindingNavigator
-    Friend WithEvents navNuevoRegistro As ToolStripButton
-    Friend WithEvents navPrimerRegistro As ToolStripButton
-    Friend WithEvents navRegistroAnterior As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
-    Friend WithEvents navUltimoRegistro As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
-    Friend WithEvents dgvLETES As DataGridView
-End Class

FRM/frmRegitrosFondoInversion.resx

@@ -1,179 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="Navegador.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navNuevoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="navPrimerRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navRegistroAnterior.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="navSiguienteRegistro.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <data name="navSiguienteRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navUltimoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-</root>

FRM/frmRegitrosFondoInversion.vb

@@ -1,425 +0,0 @@
-Public Class frmRegitrosFondoInversion
-    Dim RegistroConsulta As New RegistrosDAO
-    Dim Operaciones As New Operaciones
-    Dim CodEmpr = Operaciones.CodEmpr
-    Dim CodEmis = Operaciones.CodEmis
-    Dim CodECalRi = Operaciones.CodECalRi
-    Dim ListaPlazo = Operaciones.ListaPlazo
-    Dim ListaTiposMercado = Operaciones.ListaTiposMercados
-    Dim ListaPeriodos = Operaciones.ListaPeriodos
-    Dim ListaTipoTasa = Operaciones.ListaTipoTasa
-    Dim ListaTipoRenta = Operaciones.ListaTipoRenta
-    Dim ListaEstado = Operaciones.ListaEstado
-    Dim ListaCasasCorredoras = Operaciones.ListaCasasCorredoras
-    Dim CodPais = Operaciones.CodPais
-    Dim ValorCambiado As Boolean = False
-    Dim Direccion As String = String.Empty
-    Dim CodigoInstrumento As String = Variables.CodigoInstrumento
-    Dim tablas As String
-
-
-
-
-    Private Sub frmRegitrosFondoInversion_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        tablas = "FINV"
-        AgregarColumnasInv()
-        AgregarColumnasIns()
-        txtPosicion.Text = "1"
-        txtConta.Text = RegistroConsulta.Contador(tablas)
-        ValorCambiado = False
-        Cargar(CodigoInstrumento, 1, 100)
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub AgregarColumnasInv()
-        Dim Empresa, Instrumento, Emisor, CalRiesgo, Calif, Pais, TipoMercado, Nombre, Periodicidad, Plazo As New DataGridViewTextBoxColumn
-        Dim CantidadPlazo, TipoRenta, TipoTasa, Numero, Fecha, Codigo, Estado As New DataGridViewTextBoxColumn
-        Codigo.Name = "Codigo de Inversion"
-        Empresa.Name = "Empresa"
-        Instrumento.Name = "Instrumento"
-        Emisor.Name = "Emisor"
-        CalRiesgo.Name = "Calificadora Riesgo"
-        Calif.Name = "Calificadora"
-        Pais.Name = "Pais"
-        TipoMercado.Name = "Tipo Mercado"
-        Nombre.Name = "Nombre"
-        Periodicidad.Name = "Periodicidad"
-        CantidadPlazo.Name = "Cantidad Plazo"
-        Plazo.Name = "Plazo"
-        TipoRenta.Name = "Tipo de Renta"
-        TipoTasa.Name = "Tipo de Tasa"
-        Numero.Name = "Numero"
-        Fecha.Name = "Fecha"
-        Estado.Name = "Estado"
-
-
-
-        dgvLETES.Columns.Add(Codigo)
-        dgvLETES.Columns.Add(Estado)
-        dgvLETES.Columns.Add(Empresa)
-        dgvLETES.Columns.Add(Instrumento)
-        dgvLETES.Columns.Add(Emisor)
-        dgvLETES.Columns.Add(CalRiesgo)
-        dgvLETES.Columns.Add(Calif)
-        dgvLETES.Columns.Add(CantidadPlazo)
-        dgvLETES.Columns.Add(Plazo)
-        dgvLETES.Columns.Add(Fecha)
-        dgvLETES.Columns.Add(TipoMercado)
-        dgvLETES.Columns.Add(Pais)
-        dgvLETES.Columns.Add(Nombre)
-        dgvLETES.Columns.Add(Periodicidad)
-        dgvLETES.Columns.Add(TipoTasa)
-        dgvLETES.Columns.Add(TipoRenta)
-        dgvLETES.Columns.Add(Numero)
-
-
-
-    End Sub
-
-    Sub AgregarColumnasIns()
-        Dim CuoPart, VaPart, CoCasa, CoBolsa, DiasLiq, FechaOpe, FechaVen, RendOfre, Periodic, Base, PlaInv, Dividendo As New DataGridViewTextBoxColumn
-        Dim FechaCorte, Dias, Ingreso, RendMensual As New DataGridViewTextBoxColumn
-        CuoPart.Name = "Cuotas de Participción"
-        VaPart.Name = "Valor de Participación"
-        CoCasa.Name = "Comisión Casa"
-        CoBolsa.Name = "Comisión Bolsa"
-        DiasLiq.Name = "Dias Liquidación"
-        FechaOpe.Name = "Fecha de Operación"
-        FechaVen.Name = "Dias de Vencimiento"
-        RendOfre.Name = "Rendimiento Ofrecido"
-        Periodic.Name = "Periodicidad"
-        Base.Name = "Año Base"
-        PlaInv.Name = "Plazo de Inversión"
-        FechaCorte.Name = "Fecha de Corte"
-        Dias.Name = "Dias"
-        Ingreso.Name = "Ingresos"
-        RendMensual.Name = "Rendimiento Mensual"
-        Dividendo.Name = "Dividendo"
-
-
-
-
-        dgvLETES.Columns.Add(CuoPart)
-        dgvLETES.Columns.Add(VaPart)
-        dgvLETES.Columns.Add(CoCasa)
-        dgvLETES.Columns.Add(CoBolsa)
-        dgvLETES.Columns.Add(DiasLiq)
-        dgvLETES.Columns.Add(FechaOpe)
-        dgvLETES.Columns.Add(FechaVen)
-        dgvLETES.Columns.Add(RendOfre)
-        dgvLETES.Columns.Add(Periodic)
-        dgvLETES.Columns.Add(Base)
-        dgvLETES.Columns.Add(PlaInv)
-        dgvLETES.Columns.Add(FechaCorte)
-        dgvLETES.Columns.Add(Dias)
-        dgvLETES.Columns.Add(Ingreso)
-        dgvLETES.Columns.Add(RendMensual)
-        dgvLETES.Columns.Add(Dividendo)
-
-    End Sub
-
-
-
-
-    Sub Cargar(ByVal Cod As String, ByVal Inicio As Integer, ByVal Final As Integer)
-
-
-        Dim CodigoEmpresa As String = " "
-        Dim CodigoEmisor As String = " "
-        Dim CodigoECal As String = " "
-        Dim PlazoF As String = " "
-        Dim TiposMercado As String = " "
-        Dim Pais As String = " "
-        Dim Periodos As String = " "
-        Dim Periodos2 As String = " "
-        Dim TipoTasa As String = " "
-        Dim TipoRenta As String = " "
-        Dim Estado As String = " "
-        Dim CasasCorredoras As String = " "
-        Dim codigo As String = Variables.Codigo
-        Dim Instrumento As String
-        Dim dr
-
-        Instrumento = "Fondo de Inversion"
-
-
-
-
-
-        dr = RegistroConsulta.CargarInvFINV(Cod, Inicio, Final)
-
-
-
-
-
-
-
-        While dr.Read
-
-
-
-
-
-
-
-
-
-            For Each pair In CodEmpr
-
-                If (pair.Key.ToString = dr("CodEmpr").ToString) Then
-                    CodigoEmpresa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmpr").ToString)) Then
-                    CodigoEmpresa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodEmis
-
-                If (pair.Key.ToString = dr("CodEmis").ToString) Then
-                    CodigoEmisor = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmis").ToString)) Then
-                    CodigoEmisor = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodECalRi
-
-
-                If (pair.Key.ToString = dr("CodECalRi").ToString) Then
-                    CodigoECal = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodECalRi").ToString)) Then
-                    CodigoECal = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPlazo
-                If (pair.Key.ToString = dr("PlazoFact").ToString) Then
-                    PlazoF = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("PlazoFact").ToString)) Then
-                    PlazoF = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaTiposMercado
-
-
-
-
-
-                If (pair.Key.ToString = dr("TipoMerc").ToString.TrimStart()) Then
-                    TiposMercado = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipoMerc").ToString.TrimStart())) Then
-                    TiposMercado = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodPais
-                If (pair.Key.ToString = dr("CodPais").ToString.TrimStart()) Then
-                    Pais = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodPais").ToString.TrimStart())) Then
-                    Pais = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPeriodos
-                If (pair.Key.ToString = dr("Periodicidad").ToString.TrimStart()) Then
-                    Periodos = pair.Value
-
-                ElseIf (String.IsNullOrEmpty(dr("Periodicidad").ToString.TrimStart())) Then
-                    Periodos = "    ----  ----  ----  ---- "
-
-                End If
-
-
-            Next
-
-
-
-            For Each pair In ListaTipoTasa
-                If (pair.Key.ToString = dr("TipTasa").ToString.TrimStart()) Then
-                    TipoTasa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipTasa").ToString.TrimStart())) Then
-                    TipoTasa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            For Each pair In ListaTipoRenta
-                If (pair.Key.ToString = dr("TipRenta").ToString.TrimStart()) Then
-                    TipoRenta = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipRenta").ToString.TrimStart())) Then
-                    TipoRenta = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-
-            For Each pair In ListaEstado
-                If (pair.Key.ToString = dr("DocEst").ToString.TrimStart()) Then
-                    Estado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("DocEst").ToString.TrimStart())) Then
-                    Estado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            '     For Each pair In ListaCasasCorredoras
-            '          If (pair.Key.ToString = dr("CasasCorredoras").ToString) Then
-            '   CasasCorredoras = pair.Value
-            '    Exit For
-            ' ElseIf (String.IsNullOrEmpty(dr("CasasCorredoras").ToString)) Then
-            '    CasasCorredoras = "    ----  ----  ----  ---- "
-            '      Exit For
-            '   End If
-            'Next
-
-            'dgvReportes.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, "Reportos", CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), "", dr("Nombre"), dr("FCompra"), dr("ValTrans"), dr("Dias"), dr("FVenc"), dr("Rend"), ComisionCasa, ComisionBolsa, IOF, 0, TotalCostos, MontoLiq, InteresGenerar, dr("CostoTransfr"), RendimientoAntes, ValorRecompra, Renta, IngresoNeto, ValorNeto, RendimientoDespues, "", PorcentajeComisionCasa, PorcentajeComisionBolsa, PorcentajeComisionIOF)
-            dgvLETES.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, Instrumento, CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), dr("CuoPart"), dr("VaPart"), dr("CoCasa"), dr("CoBolsa"), dr("DiasLiq"), dr("FechaOpe"), dr("FechaVen"), dr("RendOfre"), dr("Periodic"), dr("Base"), dr("PlaInv"), dr("FechaCorte"), dr("Dias"), dr("Ingreso"), dr("RendMensual"), dr("Dividendo"))
-
-        End While
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs)
-        Direccion = "D"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub Mover(ByVal Direccion As String)
-        Dim ReferenciaD = txtPosicion.Text + 1
-        Dim ReferenciaI = txtPosicion.Text - 1
-        Dim Cantidad = txtConta.Text
-        Dim ValorExacto = txtPosicion.Text
-        Dim Inicio, Final As Integer
-        If (Direccion = "D") Then
-            If (Cantidad >= ValorExacto) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    txtPosicion.Text = ReferenciaD
-                    ValorCambiado = False
-                End If
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-        ElseIf (Direccion = "I") Then
-            If (ReferenciaI >= 1) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    If (Not ValorExacto = 1) Then
-                        txtPosicion.Text = ReferenciaI
-
-                    End If
-                Else
-                    ValorCambiado = False
-                End If
-
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-
-
-        ElseIf (Direccion = "SD") Then
-            Final = txtConta.Text * 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = Cantidad
-        ElseIf (Direccion = "SI") Then
-            Final = 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = 1
-        End If
-
-
-
-
-    End Sub
-
-    Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click
-        Direccion = "I"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub txtPosicion_TextChanged(sender As Object, e As EventArgs) Handles txtPosicion.TextChanged
-        ValorCambiado = True
-    End Sub
-
-    Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click
-        Direccion = "SD"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click
-        Direccion = "SI"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-End Class

FRM/frmRendimientoConsolidacion.Designer.vb

@@ -1,135 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmRendimientoConsolidacion
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
-        Me.lblTitulo = New System.Windows.Forms.Label()
-        Me.Panel3 = New System.Windows.Forms.Panel()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Panel1.SuspendLayout()
-        Me.Panel2.SuspendLayout()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Panel3.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'Panel1
-        '
-        Me.Panel1.Controls.Add(Me.Panel3)
-        Me.Panel1.Controls.Add(Me.lblTitulo)
-        Me.Panel1.Controls.Add(Me.Panel2)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel1.Location = New System.Drawing.Point(0, 0)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1032, 455)
-        Me.Panel1.TabIndex = 0
-        '
-        'Panel2
-        '
-        Me.Panel2.Controls.Add(Me.DataGridView1)
-        Me.Panel2.Location = New System.Drawing.Point(3, 94)
-        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1026, 358)
-        Me.Panel2.TabIndex = 0
-        '
-        'DataGridView1
-        '
-        Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DataGridView1.Location = New System.Drawing.Point(0, 0)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.Size = New System.Drawing.Size(1026, 358)
-        Me.DataGridView1.TabIndex = 0
-        '
-        'lblTitulo
-        '
-        Me.lblTitulo.Anchor = System.Windows.Forms.AnchorStyles.Top
-        Me.lblTitulo.AutoSize = True
-        Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.Location = New System.Drawing.Point(61, 32)
-        Me.lblTitulo.Name = "lblTitulo"
-        Me.lblTitulo.Size = New System.Drawing.Size(602, 35)
-        Me.lblTitulo.TabIndex = 83
-        Me.lblTitulo.Text = "Consolidacion  de Saldos en Cuentas Bancarias"
-        '
-        'Panel3
-        '
-        Me.Panel3.BackColor = System.Drawing.Color.White
-        Me.Panel3.Controls.Add(Me.Label2)
-        Me.Panel3.Controls.Add(Me.Label1)
-        Me.Panel3.Location = New System.Drawing.Point(816, 3)
-        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(213, 85)
-        Me.Panel3.TabIndex = 84
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Times New Roman", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.ForeColor = System.Drawing.Color.Red
-        Me.Label1.Location = New System.Drawing.Point(60, 17)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(100, 21)
-        Me.Label1.TabIndex = 0
-        Me.Label1.Text = "SALDO AL"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.ForeColor = System.Drawing.Color.Red
-        Me.Label2.Location = New System.Drawing.Point(60, 51)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(99, 23)
-        Me.Label2.TabIndex = 1
-        Me.Label2.Text = "25/9/2018"
-        '
-        'frmRendimientoConsolidacion
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1032, 455)
-        Me.Controls.Add(Me.Panel1)
-        Me.Name = "frmRendimientoConsolidacion"
-        Me.Text = "frmRendimientoConsolidacion"
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
-        Me.Panel2.ResumeLayout(False)
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel3.ResumeLayout(False)
-        Me.Panel3.PerformLayout()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents Panel1 As Panel
-    Friend WithEvents Panel2 As Panel
-    Friend WithEvents DataGridView1 As DataGridView
-    Friend WithEvents Panel3 As Panel
-    Friend WithEvents Label2 As Label
-    Friend WithEvents Label1 As Label
-    Friend WithEvents lblTitulo As Label
-End Class

FRM/frmRendimientoConsolidacion.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmRendimientoConsolidacion.vb

@@ -1,3 +0,0 @@
-Public Class frmRendimientoConsolidacion
-
-End Class

FRM/frmRendimientoFiltro.Designer.vb

@@ -71,6 +71,8 @@ Partial Class frmRendimientoFiltro
         Me.rdbFija = New System.Windows.Forms.RadioButton()
         Me.rdbVariable = New System.Windows.Forms.RadioButton()
         Me.TbRendimientoGeneral = New System.Windows.Forms.TabPage()
+        Me.txtRendSumaProducto = New System.Windows.Forms.TextBox()
+        Me.lblRendSumaProducto = New System.Windows.Forms.Label()
         Me.grpAgrupamiento = New System.Windows.Forms.GroupBox()
         Me.chkTipoRenta = New System.Windows.Forms.CheckBox()
         Me.chkVigencia = New System.Windows.Forms.CheckBox()
@@ -114,8 +116,6 @@ Partial Class frmRendimientoFiltro
         Me.dtpFechaFinalDiario = New System.Windows.Forms.DateTimePicker()
         Me.dtpFechaInicialDiario = New System.Windows.Forms.DateTimePicker()
         Me.lblTitulo = New System.Windows.Forms.Label()
-        Me.txtRendSumaProducto = New System.Windows.Forms.TextBox()
-        Me.lblRendSumaProducto = New System.Windows.Forms.Label()
         Me.Panel1.SuspendLayout()
         Me.TbcRendimiento.SuspendLayout()
         Me.TbConfiguracion.SuspendLayout()
@@ -169,6 +169,7 @@ Partial Class frmRendimientoFiltro
         '
         'TbConfiguracion
         '
+        Me.TbConfiguracion.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TbConfiguracion.Controls.Add(Me.Panel2)
         Me.TbConfiguracion.Controls.Add(Me.Panel3)
         Me.TbConfiguracion.Location = New System.Drawing.Point(4, 22)
@@ -177,7 +178,6 @@ Partial Class frmRendimientoFiltro
         Me.TbConfiguracion.Size = New System.Drawing.Size(1186, 651)
         Me.TbConfiguracion.TabIndex = 0
         Me.TbConfiguracion.Text = "Configuracion"
-        Me.TbConfiguracion.UseVisualStyleBackColor = True
         '
         'Panel2
         '
@@ -662,6 +662,7 @@ Partial Class frmRendimientoFiltro
         '
         'TbRendimientoGeneral
         '
+        Me.TbRendimientoGeneral.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TbRendimientoGeneral.Controls.Add(Me.txtRendSumaProducto)
         Me.TbRendimientoGeneral.Controls.Add(Me.lblRendSumaProducto)
         Me.TbRendimientoGeneral.Controls.Add(Me.grpAgrupamiento)
@@ -678,7 +679,23 @@ Partial Class frmRendimientoFiltro
         Me.TbRendimientoGeneral.Size = New System.Drawing.Size(1186, 651)
         Me.TbRendimientoGeneral.TabIndex = 1
         Me.TbRendimientoGeneral.Text = "Tabla de Rendimientos"
-        Me.TbRendimientoGeneral.UseVisualStyleBackColor = True
+        '
+        'txtRendSumaProducto
+        '
+        Me.txtRendSumaProducto.Location = New System.Drawing.Point(505, 11)
+        Me.txtRendSumaProducto.Name = "txtRendSumaProducto"
+        Me.txtRendSumaProducto.ReadOnly = True
+        Me.txtRendSumaProducto.Size = New System.Drawing.Size(100, 20)
+        Me.txtRendSumaProducto.TabIndex = 25
+        '
+        'lblRendSumaProducto
+        '
+        Me.lblRendSumaProducto.AutoSize = True
+        Me.lblRendSumaProducto.Location = New System.Drawing.Point(386, 14)
+        Me.lblRendSumaProducto.Name = "lblRendSumaProducto"
+        Me.lblRendSumaProducto.Size = New System.Drawing.Size(89, 13)
+        Me.lblRendSumaProducto.TabIndex = 24
+        Me.lblRendSumaProducto.Text = "Rendimiento (SP)"
         '
         'grpAgrupamiento
         '
@@ -822,15 +839,16 @@ Partial Class frmRendimientoFiltro
         Me.dgvRendimientos.AllowUserToAddRows = False
         Me.dgvRendimientos.AllowUserToDeleteRows = False
         Me.dgvRendimientos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.dgvRendimientos.BackgroundColor = System.Drawing.SystemColors.ControlLight
+        Me.dgvRendimientos.BackgroundColor = System.Drawing.Color.White
         Me.dgvRendimientos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvRendimientos.Location = New System.Drawing.Point(3, 117)
         Me.dgvRendimientos.Name = "dgvRendimientos"
-        Me.dgvRendimientos.Size = New System.Drawing.Size(1178, 458)
+        Me.dgvRendimientos.Size = New System.Drawing.Size(1178, 528)
         Me.dgvRendimientos.TabIndex = 0
         '
         'TbRendimientoDiario
         '
+        Me.TbRendimientoDiario.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TbRendimientoDiario.Controls.Add(Me.GroupBox3)
         Me.TbRendimientoDiario.Controls.Add(Me.Label14)
         Me.TbRendimientoDiario.Controls.Add(Me.CheckBox4)
@@ -849,7 +867,6 @@ Partial Class frmRendimientoFiltro
         Me.TbRendimientoDiario.Size = New System.Drawing.Size(1186, 651)
         Me.TbRendimientoDiario.TabIndex = 2
         Me.TbRendimientoDiario.Text = "Rendimientos Diario"
-        Me.TbRendimientoDiario.UseVisualStyleBackColor = True
         '
         'GroupBox3
         '
@@ -888,12 +905,15 @@ Partial Class frmRendimientoFiltro
         '
         'Button1
         '
+        Me.Button1.BackColor = System.Drawing.Color.White
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.Maroon
         Me.Button1.Location = New System.Drawing.Point(60, 64)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(59, 43)
         Me.Button1.TabIndex = 29
         Me.Button1.Text = "V" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "V"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.Button1.UseVisualStyleBackColor = False
         '
         'Label11
         '
@@ -973,12 +993,15 @@ Partial Class frmRendimientoFiltro
         '
         'btnVer
         '
+        Me.btnVer.BackColor = System.Drawing.Color.White
+        Me.btnVer.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVer.ForeColor = System.Drawing.Color.Maroon
         Me.btnVer.Location = New System.Drawing.Point(567, 212)
         Me.btnVer.Name = "btnVer"
         Me.btnVer.Size = New System.Drawing.Size(75, 23)
         Me.btnVer.TabIndex = 27
         Me.btnVer.Text = ">>"
-        Me.btnVer.UseVisualStyleBackColor = True
+        Me.btnVer.UseVisualStyleBackColor = False
         '
         'dgvRendimientoDiario
         '
@@ -1086,12 +1109,15 @@ Partial Class frmRendimientoFiltro
         '
         'btnActualizar
         '
-        Me.btnActualizar.Location = New System.Drawing.Point(136, 82)
+        Me.btnActualizar.BackColor = System.Drawing.Color.White
+        Me.btnActualizar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnActualizar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnActualizar.Location = New System.Drawing.Point(129, 82)
         Me.btnActualizar.Name = "btnActualizar"
-        Me.btnActualizar.Size = New System.Drawing.Size(76, 28)
+        Me.btnActualizar.Size = New System.Drawing.Size(90, 28)
         Me.btnActualizar.TabIndex = 85
         Me.btnActualizar.Text = "Actualizar"
-        Me.btnActualizar.UseVisualStyleBackColor = True
+        Me.btnActualizar.UseVisualStyleBackColor = False
         '
         'Label9
         '
@@ -1139,31 +1165,14 @@ Partial Class frmRendimientoFiltro
         Me.lblTitulo.TabIndex = 82
         Me.lblTitulo.Text = "Portafolio"
         '
-        'txtRendSumaProducto
-        '
-        Me.txtRendSumaProducto.Location = New System.Drawing.Point(505, 11)
-        Me.txtRendSumaProducto.Name = "txtRendSumaProducto"
-        Me.txtRendSumaProducto.ReadOnly = True
-        Me.txtRendSumaProducto.Size = New System.Drawing.Size(100, 20)
-        Me.txtRendSumaProducto.TabIndex = 25
-        '
-        'lblRendSumaProducto
-        '
-        Me.lblRendSumaProducto.AutoSize = True
-        Me.lblRendSumaProducto.Location = New System.Drawing.Point(386, 14)
-        Me.lblRendSumaProducto.Name = "lblRendSumaProducto"
-        Me.lblRendSumaProducto.Size = New System.Drawing.Size(89, 13)
-        Me.lblRendSumaProducto.TabIndex = 24
-        Me.lblRendSumaProducto.Text = "Rendimiento (SP)"
-        '
         'frmRendimientoFiltro
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1200, 749)
         Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmRendimientoFiltro"
-        Me.Text = "frmRendimientoTotal"
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         Me.TbcRendimiento.ResumeLayout(False)

FRM/frmRendimientoSaldos.Designer.vb

@@ -1,124 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmRendimientoSaldos
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.lblTitulo = New System.Windows.Forms.Label()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
-        Me.Panel1.SuspendLayout()
-        Me.Panel2.SuspendLayout()
-        Me.GroupBox1.SuspendLayout()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'Panel1
-        '
-        Me.Panel1.BackColor = System.Drawing.Color.White
-        Me.Panel1.Controls.Add(Me.Panel2)
-        Me.Panel1.Controls.Add(Me.lblTitulo)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel1.Location = New System.Drawing.Point(0, 0)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(995, 624)
-        Me.Panel1.TabIndex = 0
-        '
-        'lblTitulo
-        '
-        Me.lblTitulo.Anchor = System.Windows.Forms.AnchorStyles.Top
-        Me.lblTitulo.AutoSize = True
-        Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.Location = New System.Drawing.Point(46, 25)
-        Me.lblTitulo.Name = "lblTitulo"
-        Me.lblTitulo.Size = New System.Drawing.Size(673, 35)
-        Me.lblTitulo.TabIndex = 82
-        Me.lblTitulo.Text = "Mercados Electricos de Centroamerica, S.A. de C.V."
-        '
-        'Panel2
-        '
-        Me.Panel2.BackColor = System.Drawing.Color.White
-        Me.Panel2.Controls.Add(Me.Label1)
-        Me.Panel2.Controls.Add(Me.GroupBox1)
-        Me.Panel2.Location = New System.Drawing.Point(34, 85)
-        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(917, 507)
-        Me.Panel2.TabIndex = 83
-        '
-        'GroupBox1
-        '
-        Me.GroupBox1.Controls.Add(Me.DataGridView1)
-        Me.GroupBox1.Font = New System.Drawing.Font("Times New Roman", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox1.Location = New System.Drawing.Point(3, 70)
-        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(911, 434)
-        Me.GroupBox1.TabIndex = 0
-        Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "MERCADOS ELECTRICOS"
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Times New Roman", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(239, 12)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(434, 55)
-        Me.Label1.TabIndex = 1
-        Me.Label1.Text = "22/10/2018  00:00:00"
-        '
-        'DataGridView1
-        '
-        Me.DataGridView1.BackgroundColor = System.Drawing.Color.Gainsboro
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DataGridView1.Location = New System.Drawing.Point(3, 35)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.Size = New System.Drawing.Size(905, 396)
-        Me.DataGridView1.TabIndex = 0
-        '
-        'frmRendimientoInversiones
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(995, 624)
-        Me.Controls.Add(Me.Panel1)
-        Me.Name = "frmRendimientoInversiones"
-        Me.Text = "frmRendimientoInversiones"
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
-        Me.Panel2.ResumeLayout(False)
-        Me.Panel2.PerformLayout()
-        Me.GroupBox1.ResumeLayout(False)
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents Panel1 As Panel
-    Friend WithEvents Panel2 As Panel
-    Friend WithEvents Label1 As Label
-    Friend WithEvents GroupBox1 As GroupBox
-    Friend WithEvents DataGridView1 As DataGridView
-    Friend WithEvents lblTitulo As Label
-End Class

FRM/frmRendimientoSaldos.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmRendimientoSaldos.vb

@@ -1,3 +0,0 @@
-Public Class frmRendimientoSaldos
-
-End Class

FRM/frmRendimientoTablas.Designer.vb

@@ -24,34 +24,35 @@ Partial Class frmRendimientoTablas
     Private Sub InitializeComponent()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Panel6 = New System.Windows.Forms.Panel()
+        Me.btnEmpresaTitulo = New System.Windows.Forms.Button()
+        Me.grpPortafolio = New System.Windows.Forms.GroupBox()
+        Me.rdbInstrumentos = New System.Windows.Forms.RadioButton()
+        Me.rdbEmpresas = New System.Windows.Forms.RadioButton()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.dgvPortafolioEmpresaInstrumento = New System.Windows.Forms.DataGridView()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.btnTitulos = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.dgvPortafolioInstrumento = New System.Windows.Forms.DataGridView()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.btnPortafolioEmpresa = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.dgvPortafolioEmpresa = New System.Windows.Forms.DataGridView()
         Me.lblTitulo = New System.Windows.Forms.Label()
-        Me.grpPortafolio = New System.Windows.Forms.GroupBox()
-        Me.rdbEmpresas = New System.Windows.Forms.RadioButton()
-        Me.rdbInstrumentos = New System.Windows.Forms.RadioButton()
-        Me.btnPortafolioEmpresa = New System.Windows.Forms.Button()
-        Me.btnTitulos = New System.Windows.Forms.Button()
-        Me.btnEmpresaTitulo = New System.Windows.Forms.Button()
         Me.Panel1.SuspendLayout()
         Me.Panel6.SuspendLayout()
+        Me.grpPortafolio.SuspendLayout()
         CType(Me.dgvPortafolioEmpresaInstrumento, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel3.SuspendLayout()
         CType(Me.dgvPortafolioInstrumento, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
         CType(Me.dgvPortafolioEmpresa, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.grpPortafolio.SuspendLayout()
         Me.SuspendLayout()
         '
         'Panel1
         '
         Me.Panel1.AutoScroll = True
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel1.Controls.Add(Me.Panel6)
         Me.Panel1.Controls.Add(Me.Panel3)
         Me.Panel1.Controls.Add(Me.Panel2)
@@ -74,6 +75,56 @@ Partial Class frmRendimientoTablas
         Me.Panel6.Size = New System.Drawing.Size(980, 283)
         Me.Panel6.TabIndex = 87
         '
+        'btnEmpresaTitulo
+        '
+        Me.btnEmpresaTitulo.BackColor = System.Drawing.Color.White
+        Me.btnEmpresaTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnEmpresaTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.btnEmpresaTitulo.Location = New System.Drawing.Point(120, 13)
+        Me.btnEmpresaTitulo.Name = "btnEmpresaTitulo"
+        Me.btnEmpresaTitulo.Size = New System.Drawing.Size(110, 35)
+        Me.btnEmpresaTitulo.TabIndex = 88
+        Me.btnEmpresaTitulo.Text = "Ver Detalles"
+        Me.btnEmpresaTitulo.UseVisualStyleBackColor = False
+        '
+        'grpPortafolio
+        '
+        Me.grpPortafolio.Controls.Add(Me.rdbInstrumentos)
+        Me.grpPortafolio.Controls.Add(Me.rdbEmpresas)
+        Me.grpPortafolio.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.grpPortafolio.ForeColor = System.Drawing.Color.White
+        Me.grpPortafolio.Location = New System.Drawing.Point(696, 3)
+        Me.grpPortafolio.Name = "grpPortafolio"
+        Me.grpPortafolio.Size = New System.Drawing.Size(271, 50)
+        Me.grpPortafolio.TabIndex = 85
+        Me.grpPortafolio.TabStop = False
+        '
+        'rdbInstrumentos
+        '
+        Me.rdbInstrumentos.AutoSize = True
+        Me.rdbInstrumentos.Location = New System.Drawing.Point(153, 19)
+        Me.rdbInstrumentos.Name = "rdbInstrumentos"
+        Me.rdbInstrumentos.Size = New System.Drawing.Size(85, 17)
+        Me.rdbInstrumentos.TabIndex = 1
+        Me.rdbInstrumentos.Text = "Instrumentos"
+        Me.rdbInstrumentos.UseVisualStyleBackColor = True
+        '
+        'rdbEmpresas
+        '
+        Me.rdbEmpresas.AutoSize = True
+        Me.rdbEmpresas.Checked = True
+        Me.rdbEmpresas.FlatAppearance.BorderSize = 0
+        Me.rdbEmpresas.FlatAppearance.CheckedBackColor = System.Drawing.Color.Crimson
+        Me.rdbEmpresas.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Crimson
+        Me.rdbEmpresas.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Crimson
+        Me.rdbEmpresas.Location = New System.Drawing.Point(6, 19)
+        Me.rdbEmpresas.Name = "rdbEmpresas"
+        Me.rdbEmpresas.Size = New System.Drawing.Size(71, 17)
+        Me.rdbEmpresas.TabIndex = 0
+        Me.rdbEmpresas.TabStop = True
+        Me.rdbEmpresas.Text = "Empresas"
+        Me.rdbEmpresas.UseVisualStyleBackColor = True
+        '
         'Label5
         '
         Me.Label5.Anchor = System.Windows.Forms.AnchorStyles.Top
@@ -90,7 +141,7 @@ Partial Class frmRendimientoTablas
         Me.dgvPortafolioEmpresaInstrumento.AllowUserToAddRows = False
         Me.dgvPortafolioEmpresaInstrumento.AllowUserToDeleteRows = False
         Me.dgvPortafolioEmpresaInstrumento.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.dgvPortafolioEmpresaInstrumento.BackgroundColor = System.Drawing.SystemColors.Control
+        Me.dgvPortafolioEmpresaInstrumento.BackgroundColor = System.Drawing.Color.White
         Me.dgvPortafolioEmpresaInstrumento.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvPortafolioEmpresaInstrumento.Location = New System.Drawing.Point(0, 59)
         Me.dgvPortafolioEmpresaInstrumento.Name = "dgvPortafolioEmpresaInstrumento"
@@ -108,6 +159,18 @@ Partial Class frmRendimientoTablas
         Me.Panel3.Size = New System.Drawing.Size(472, 283)
         Me.Panel3.TabIndex = 84
         '
+        'btnTitulos
+        '
+        Me.btnTitulos.BackColor = System.Drawing.Color.White
+        Me.btnTitulos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnTitulos.ForeColor = System.Drawing.Color.Maroon
+        Me.btnTitulos.Location = New System.Drawing.Point(269, 17)
+        Me.btnTitulos.Name = "btnTitulos"
+        Me.btnTitulos.Size = New System.Drawing.Size(110, 35)
+        Me.btnTitulos.TabIndex = 88
+        Me.btnTitulos.Text = "Ver Detalles"
+        Me.btnTitulos.UseVisualStyleBackColor = False
+        '
         'Label2
         '
         Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Top
@@ -124,7 +187,7 @@ Partial Class frmRendimientoTablas
         Me.dgvPortafolioInstrumento.AllowUserToAddRows = False
         Me.dgvPortafolioInstrumento.AllowUserToDeleteRows = False
         Me.dgvPortafolioInstrumento.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.dgvPortafolioInstrumento.BackgroundColor = System.Drawing.SystemColors.Control
+        Me.dgvPortafolioInstrumento.BackgroundColor = System.Drawing.Color.White
         Me.dgvPortafolioInstrumento.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvPortafolioInstrumento.Location = New System.Drawing.Point(0, 59)
         Me.dgvPortafolioInstrumento.Name = "dgvPortafolioInstrumento"
@@ -142,6 +205,18 @@ Partial Class frmRendimientoTablas
         Me.Panel2.Size = New System.Drawing.Size(472, 283)
         Me.Panel2.TabIndex = 82
         '
+        'btnPortafolioEmpresa
+        '
+        Me.btnPortafolioEmpresa.BackColor = System.Drawing.Color.White
+        Me.btnPortafolioEmpresa.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPortafolioEmpresa.ForeColor = System.Drawing.Color.Maroon
+        Me.btnPortafolioEmpresa.Location = New System.Drawing.Point(296, 17)
+        Me.btnPortafolioEmpresa.Name = "btnPortafolioEmpresa"
+        Me.btnPortafolioEmpresa.Size = New System.Drawing.Size(110, 35)
+        Me.btnPortafolioEmpresa.TabIndex = 84
+        Me.btnPortafolioEmpresa.Text = "Ver Detalles"
+        Me.btnPortafolioEmpresa.UseVisualStyleBackColor = False
+        '
         'Label1
         '
         Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Top
@@ -158,7 +233,7 @@ Partial Class frmRendimientoTablas
         Me.dgvPortafolioEmpresa.AllowUserToAddRows = False
         Me.dgvPortafolioEmpresa.AllowUserToDeleteRows = False
         Me.dgvPortafolioEmpresa.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.dgvPortafolioEmpresa.BackgroundColor = System.Drawing.SystemColors.Control
+        Me.dgvPortafolioEmpresa.BackgroundColor = System.Drawing.Color.White
         Me.dgvPortafolioEmpresa.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvPortafolioEmpresa.Location = New System.Drawing.Point(0, 59)
         Me.dgvPortafolioEmpresa.Name = "dgvPortafolioEmpresa"
@@ -176,89 +251,20 @@ Partial Class frmRendimientoTablas
         Me.lblTitulo.TabIndex = 81
         Me.lblTitulo.Text = "Portafolio Total"
         '
-        'grpPortafolio
-        '
-        Me.grpPortafolio.Controls.Add(Me.rdbInstrumentos)
-        Me.grpPortafolio.Controls.Add(Me.rdbEmpresas)
-        Me.grpPortafolio.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.grpPortafolio.ForeColor = System.Drawing.Color.White
-        Me.grpPortafolio.Location = New System.Drawing.Point(696, 3)
-        Me.grpPortafolio.Name = "grpPortafolio"
-        Me.grpPortafolio.Size = New System.Drawing.Size(271, 50)
-        Me.grpPortafolio.TabIndex = 85
-        Me.grpPortafolio.TabStop = False
-        '
-        'rdbEmpresas
-        '
-        Me.rdbEmpresas.AutoSize = True
-        Me.rdbEmpresas.Checked = True
-        Me.rdbEmpresas.FlatAppearance.BorderSize = 0
-        Me.rdbEmpresas.FlatAppearance.CheckedBackColor = System.Drawing.Color.Crimson
-        Me.rdbEmpresas.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Crimson
-        Me.rdbEmpresas.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Crimson
-        Me.rdbEmpresas.Location = New System.Drawing.Point(6, 19)
-        Me.rdbEmpresas.Name = "rdbEmpresas"
-        Me.rdbEmpresas.Size = New System.Drawing.Size(71, 17)
-        Me.rdbEmpresas.TabIndex = 0
-        Me.rdbEmpresas.TabStop = True
-        Me.rdbEmpresas.Text = "Empresas"
-        Me.rdbEmpresas.UseVisualStyleBackColor = True
-        '
-        'rdbInstrumentos
-        '
-        Me.rdbInstrumentos.AutoSize = True
-        Me.rdbInstrumentos.Location = New System.Drawing.Point(153, 19)
-        Me.rdbInstrumentos.Name = "rdbInstrumentos"
-        Me.rdbInstrumentos.Size = New System.Drawing.Size(85, 17)
-        Me.rdbInstrumentos.TabIndex = 1
-        Me.rdbInstrumentos.Text = "Instrumentos"
-        Me.rdbInstrumentos.UseVisualStyleBackColor = True
-        '
-        'btnPortafolioEmpresa
-        '
-        Me.btnPortafolioEmpresa.BackColor = System.Drawing.Color.White
-        Me.btnPortafolioEmpresa.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnPortafolioEmpresa.Location = New System.Drawing.Point(296, 17)
-        Me.btnPortafolioEmpresa.Name = "btnPortafolioEmpresa"
-        Me.btnPortafolioEmpresa.Size = New System.Drawing.Size(110, 35)
-        Me.btnPortafolioEmpresa.TabIndex = 84
-        Me.btnPortafolioEmpresa.Text = "Ver Detalles"
-        Me.btnPortafolioEmpresa.UseVisualStyleBackColor = False
-        '
-        'btnTitulos
-        '
-        Me.btnTitulos.BackColor = System.Drawing.Color.White
-        Me.btnTitulos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnTitulos.Location = New System.Drawing.Point(269, 17)
-        Me.btnTitulos.Name = "btnTitulos"
-        Me.btnTitulos.Size = New System.Drawing.Size(110, 35)
-        Me.btnTitulos.TabIndex = 88
-        Me.btnTitulos.Text = "Ver Detalles"
-        Me.btnTitulos.UseVisualStyleBackColor = False
-        '
-        'btnEmpresaTitulo
-        '
-        Me.btnEmpresaTitulo.BackColor = System.Drawing.Color.White
-        Me.btnEmpresaTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnEmpresaTitulo.Location = New System.Drawing.Point(120, 13)
-        Me.btnEmpresaTitulo.Name = "btnEmpresaTitulo"
-        Me.btnEmpresaTitulo.Size = New System.Drawing.Size(110, 35)
-        Me.btnEmpresaTitulo.TabIndex = 88
-        Me.btnEmpresaTitulo.Text = "Ver Detalles"
-        Me.btnEmpresaTitulo.UseVisualStyleBackColor = False
-        '
         'frmRendimientoTablas
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1038, 724)
         Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmRendimientoTablas"
-        Me.Text = "frmRendimientoPrincipal"
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         Me.Panel6.ResumeLayout(False)
         Me.Panel6.PerformLayout()
+        Me.grpPortafolio.ResumeLayout(False)
+        Me.grpPortafolio.PerformLayout()
         CType(Me.dgvPortafolioEmpresaInstrumento, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel3.ResumeLayout(False)
         Me.Panel3.PerformLayout()
@@ -266,8 +272,6 @@ Partial Class frmRendimientoTablas
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         CType(Me.dgvPortafolioEmpresa, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.grpPortafolio.ResumeLayout(False)
-        Me.grpPortafolio.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub

FRM/frmReporteVentaSeleccion.Designer.vb

@@ -1,163 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmReporteVentaSeleccion
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.lblTitulo = New System.Windows.Forms.Label()
-        Me.lblReportoExistente = New System.Windows.Forms.Label()
-        Me.lblReporteNuevo = New System.Windows.Forms.Label()
-        Me.btnExistente = New System.Windows.Forms.Button()
-        Me.btnNuevo = New System.Windows.Forms.Button()
-        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
-        Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
-        Me.chkUnitario = New System.Windows.Forms.CheckBox()
-        Me.TableLayoutPanel1.SuspendLayout()
-        Me.TableLayoutPanel2.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'lblTitulo
-        '
-        Me.lblTitulo.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.lblTitulo.AutoSize = True
-        Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.Location = New System.Drawing.Point(104, 11)
-        Me.lblTitulo.Name = "lblTitulo"
-        Me.lblTitulo.Size = New System.Drawing.Size(244, 24)
-        Me.lblTitulo.TabIndex = 81
-        Me.lblTitulo.Text = "Generar Reporte de Venta"
-        '
-        'lblReportoExistente
-        '
-        Me.lblReportoExistente.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.lblReportoExistente.AutoSize = True
-        Me.lblReportoExistente.Font = New System.Drawing.Font("Trebuchet MS", 12.25!, System.Drawing.FontStyle.Bold)
-        Me.lblReportoExistente.Location = New System.Drawing.Point(36, 16)
-        Me.lblReportoExistente.Name = "lblReportoExistente"
-        Me.lblReportoExistente.Size = New System.Drawing.Size(154, 23)
-        Me.lblReportoExistente.TabIndex = 82
-        Me.lblReportoExistente.Text = "Reporto Existente"
-        '
-        'lblReporteNuevo
-        '
-        Me.lblReporteNuevo.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.lblReporteNuevo.AutoSize = True
-        Me.lblReporteNuevo.Font = New System.Drawing.Font("Trebuchet MS", 12.25!, System.Drawing.FontStyle.Bold)
-        Me.lblReporteNuevo.Location = New System.Drawing.Point(275, 16)
-        Me.lblReporteNuevo.Name = "lblReporteNuevo"
-        Me.lblReporteNuevo.Size = New System.Drawing.Size(129, 23)
-        Me.lblReporteNuevo.TabIndex = 83
-        Me.lblReporteNuevo.Text = "Reporto Nuevo"
-        '
-        'btnExistente
-        '
-        Me.btnExistente.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.btnExistente.BackColor = System.Drawing.SystemColors.Highlight
-        Me.btnExistente.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnExistente.Location = New System.Drawing.Point(73, 59)
-        Me.btnExistente.Name = "btnExistente"
-        Me.btnExistente.Size = New System.Drawing.Size(80, 46)
-        Me.btnExistente.TabIndex = 84
-        Me.btnExistente.UseVisualStyleBackColor = False
-        '
-        'btnNuevo
-        '
-        Me.btnNuevo.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.btnNuevo.BackColor = System.Drawing.SystemColors.Highlight
-        Me.btnNuevo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnNuevo.Location = New System.Drawing.Point(299, 59)
-        Me.btnNuevo.Name = "btnNuevo"
-        Me.btnNuevo.Size = New System.Drawing.Size(80, 46)
-        Me.btnNuevo.TabIndex = 85
-        Me.btnNuevo.UseVisualStyleBackColor = False
-        '
-        'TableLayoutPanel1
-        '
-        Me.TableLayoutPanel1.ColumnCount = 1
-        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
-        Me.TableLayoutPanel1.Controls.Add(Me.lblTitulo, 0, 0)
-        Me.TableLayoutPanel1.Controls.Add(Me.chkUnitario, 0, 1)
-        Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
-        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
-        Me.TableLayoutPanel1.RowCount = 2
-        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
-        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 54.0!))
-        Me.TableLayoutPanel1.Size = New System.Drawing.Size(453, 100)
-        Me.TableLayoutPanel1.TabIndex = 86
-        '
-        'TableLayoutPanel2
-        '
-        Me.TableLayoutPanel2.ColumnCount = 2
-        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
-        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
-        Me.TableLayoutPanel2.Controls.Add(Me.lblReportoExistente, 0, 0)
-        Me.TableLayoutPanel2.Controls.Add(Me.lblReporteNuevo, 1, 0)
-        Me.TableLayoutPanel2.Controls.Add(Me.btnNuevo, 1, 1)
-        Me.TableLayoutPanel2.Controls.Add(Me.btnExistente, 0, 1)
-        Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 100)
-        Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
-        Me.TableLayoutPanel2.RowCount = 2
-        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
-        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
-        Me.TableLayoutPanel2.Size = New System.Drawing.Size(453, 110)
-        Me.TableLayoutPanel2.TabIndex = 87
-        '
-        'chkUnitario
-        '
-        Me.chkUnitario.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.chkUnitario.AutoSize = True
-        Me.chkUnitario.Checked = True
-        Me.chkUnitario.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.chkUnitario.Location = New System.Drawing.Point(195, 64)
-        Me.chkUnitario.Name = "chkUnitario"
-        Me.chkUnitario.Size = New System.Drawing.Size(62, 17)
-        Me.chkUnitario.TabIndex = 82
-        Me.chkUnitario.Text = "Unitario"
-        Me.chkUnitario.UseVisualStyleBackColor = True
-        '
-        'frmReporteVentaSeleccion
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(453, 210)
-        Me.Controls.Add(Me.TableLayoutPanel2)
-        Me.Controls.Add(Me.TableLayoutPanel1)
-        Me.Name = "frmReporteVentaSeleccion"
-        Me.Text = "frmReporteVentaSeleccion"
-        Me.TableLayoutPanel1.ResumeLayout(False)
-        Me.TableLayoutPanel1.PerformLayout()
-        Me.TableLayoutPanel2.ResumeLayout(False)
-        Me.TableLayoutPanel2.PerformLayout()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents lblTitulo As Label
-    Friend WithEvents lblReportoExistente As Label
-    Friend WithEvents lblReporteNuevo As Label
-    Friend WithEvents btnExistente As Button
-    Friend WithEvents btnNuevo As Button
-    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
-    Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
-    Friend WithEvents chkUnitario As CheckBox
-End Class

FRM/frmReporteVentaSeleccion.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmReporteVentaSeleccion.vb

@@ -1,66 +0,0 @@
-Public Class frmReporteVentaSeleccion
-    Private sender As New Object
-    Private CodigoTitulo As String = String.Empty
-    Private Sub frmReporteVentaSeleccion_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
-    End Sub
-    Sub New()
-
-        ' Esta llamada es exigida por el diseñador.
-        InitializeComponent()
-
-        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
-
-    End Sub
-    Sub New(sender As Object, Codigo As String)
-
-        Me.New
-        Me.sender = sender
-        Me.CodigoTitulo = Codigo
-    End Sub
-    Sub ReporteVenta(ByRef Tipo As String)
-        If Tipo = "Nuevo" Then
-            If MsgBox("¿Esta Seguro que Desea Generar un nuevo reporto?", MsgBoxStyle.OkCancel) = DialogResult.OK Then
-                sender.close()
-                Me.Close()
-
-            End If
-        ElseIf Tipo = "Existente" Then
-            If MsgBox("¿Esta Seguro que Desea Usar un registro existente de reporto?", MsgBoxStyle.OkCancel) = DialogResult.OK Then
-                Dim frmBustarVenta As New frmBuscarReporteVenta(Me.CodigoTitulo)
-                frmBustarVenta.ShowDialog()
-            End If
-
-        End If
-
-    End Sub
-
-    Private Sub btnExistente_Click(sender As Object, e As EventArgs) Handles btnExistente.Click
-        ReporteVenta("Existente")
-    End Sub
-
-    Private Sub btnNuevo_Click(sender As Object, e As EventArgs) Handles btnNuevo.Click
-        ReporteVenta("Nuevo")
-    End Sub
-
-    Private Sub TableLayoutPanel1_Paint(sender As Object, e As PaintEventArgs)
-
-    End Sub
-
-    Private Sub TableLayoutPanel1_Paint_1(sender As Object, e As PaintEventArgs)
-
-    End Sub
-    Sub EstadoReporto()
-        If chkUnitario.Checked Then
-            lblReportoExistente.Visible = False
-            btnExistente.Visible = False
-        Else
-            lblReportoExistente.Visible = True
-            btnExistente.Visible = True
-        End If
-    End Sub
-
-    Private Sub chkUnitario_CheckedChanged(sender As Object, e As EventArgs) Handles chkUnitario.CheckedChanged
-        EstadoReporto()
-    End Sub
-End Class

FRM/frmReporto.Designer.vb

@@ -46,9 +46,6 @@ Partial Class frmReporto
         Me.Titulo = New System.Windows.Forms.TabControl()
         Me.TbTitulo = New System.Windows.Forms.TabPage()
         Me.txtMonto = New System.Windows.Forms.TextBox()
-        Me.lblMonto = New System.Windows.Forms.Label()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.btnRequisicion = New System.Windows.Forms.Button()
         Me.lblCodigoInstrumento = New System.Windows.Forms.Label()
         Me.txtCodigoInstrumento = New System.Windows.Forms.TextBox()
         Me.ChkRenta = New System.Windows.Forms.CheckBox()
@@ -66,6 +63,7 @@ Partial Class frmReporto
         Me.PnlIOF = New System.Windows.Forms.Panel()
         Me.FlpIOF = New System.Windows.Forms.FlowLayoutPanel()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         CType(Me.dgvReportos, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.BindingNavigator1.SuspendLayout()
@@ -139,9 +137,9 @@ Partial Class frmReporto
         Me.dgvReportos.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
         Me.dgvReportos.BackgroundColor = System.Drawing.Color.White
         Me.dgvReportos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvReportos.Location = New System.Drawing.Point(8, 197)
+        Me.dgvReportos.Location = New System.Drawing.Point(8, 155)
         Me.dgvReportos.Name = "dgvReportos"
-        Me.dgvReportos.Size = New System.Drawing.Size(957, 180)
+        Me.dgvReportos.Size = New System.Drawing.Size(957, 290)
         Me.dgvReportos.TabIndex = 61
         '
         'cboCasaCorredora
@@ -155,23 +153,29 @@ Partial Class frmReporto
         '
         'btnAccion
         '
+        Me.btnAccion.BackColor = System.Drawing.Color.White
         Me.btnAccion.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAccion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAccion.ForeColor = System.Drawing.Color.Maroon
         Me.btnAccion.Location = New System.Drawing.Point(5, 3)
         Me.btnAccion.Name = "btnAccion"
         Me.btnAccion.Size = New System.Drawing.Size(75, 23)
         Me.btnAccion.TabIndex = 62
         Me.btnAccion.Text = "Aceptar"
-        Me.btnAccion.UseVisualStyleBackColor = True
+        Me.btnAccion.UseVisualStyleBackColor = False
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(106, 3)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 63
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'BindingNavigator1
         '
@@ -269,10 +273,8 @@ Partial Class frmReporto
         '
         'TbTitulo
         '
+        Me.TbTitulo.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TbTitulo.Controls.Add(Me.txtMonto)
-        Me.TbTitulo.Controls.Add(Me.lblMonto)
-        Me.TbTitulo.Controls.Add(Me.Label8)
-        Me.TbTitulo.Controls.Add(Me.btnRequisicion)
         Me.TbTitulo.Controls.Add(Me.lblCodigoInstrumento)
         Me.TbTitulo.Controls.Add(Me.txtCodigoInstrumento)
         Me.TbTitulo.Controls.Add(Me.ChkRenta)
@@ -300,45 +302,14 @@ Partial Class frmReporto
         Me.TbTitulo.Size = New System.Drawing.Size(971, 488)
         Me.TbTitulo.TabIndex = 0
         Me.TbTitulo.Text = "Titulo"
-        Me.TbTitulo.UseVisualStyleBackColor = True
         '
         'txtMonto
         '
-        Me.txtMonto.Location = New System.Drawing.Point(477, 165)
+        Me.txtMonto.Location = New System.Drawing.Point(401, 129)
         Me.txtMonto.Name = "txtMonto"
-        Me.txtMonto.Size = New System.Drawing.Size(150, 20)
-        Me.txtMonto.TabIndex = 178
-        '
-        'lblMonto
-        '
-        Me.lblMonto.AutoSize = True
-        Me.lblMonto.Location = New System.Drawing.Point(434, 168)
-        Me.lblMonto.Name = "lblMonto"
-        Me.lblMonto.Size = New System.Drawing.Size(37, 13)
-        Me.lblMonto.TabIndex = 177
-        Me.lblMonto.Text = "Monto"
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.Location = New System.Drawing.Point(306, 131)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(136, 18)
-        Me.Label8.TabIndex = 176
-        Me.Label8.Text = "Generar Abono o Pago"
-        '
-        'btnRequisicion
-        '
-        Me.btnRequisicion.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.btnRequisicion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnRequisicion.ForeColor = System.Drawing.Color.White
-        Me.btnRequisicion.Location = New System.Drawing.Point(314, 159)
-        Me.btnRequisicion.Name = "btnRequisicion"
-        Me.btnRequisicion.Size = New System.Drawing.Size(86, 29)
-        Me.btnRequisicion.TabIndex = 175
-        Me.btnRequisicion.Text = "Pagar"
-        Me.btnRequisicion.UseVisualStyleBackColor = False
+        Me.txtMonto.Size = New System.Drawing.Size(100, 20)
+        Me.txtMonto.TabIndex = 173
+        Me.txtMonto.Visible = False
         '
         'lblCodigoInstrumento
         '
@@ -508,6 +479,11 @@ Partial Class frmReporto
         Me.Panel1.Size = New System.Drawing.Size(979, 514)
         Me.Panel1.TabIndex = 165
         '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+        '
         'frmReporto
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -516,8 +492,8 @@ Partial Class frmReporto
         Me.ClientSize = New System.Drawing.Size(979, 539)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmReporto"
-        Me.Text = "frmReporto"
         CType(Me.dgvReportos, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
@@ -574,8 +550,6 @@ Partial Class frmReporto
     Friend WithEvents ChkIOF As CheckBox
     Friend WithEvents lblCodigoInstrumento As Label
     Friend WithEvents txtCodigoInstrumento As TextBox
-    Friend WithEvents Label8 As Label
-    Friend WithEvents btnRequisicion As Button
     Friend WithEvents txtMonto As TextBox
-    Friend WithEvents lblMonto As Label
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
 End Class

FRM/frmReporto.resx

@@ -139,29 +139,32 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIbdDu3awsLatWzMnQAxAR06BSc8
-        QpCJQSzpXG9FqEJVpU6wUNSENiCEIyRgRSoQBWEeJkRJIA9QwAYncZr4oaAcfK+SQCKMIn7p09Gxz/2u
-        fS+BkuG+v0nys00J7mdr4nixlee9r/CLRhIO/3idPZx8mwl9excLfCzmg0w/7ZzwUyOU6LBT4nAddgNq
-        cCxltdg3sSC5Nd0kB6e6tZ1O0AO9oHN9oCoSqNp/U/IFGZAECy78X5uzgS5ljmkv6Qdjbdp2B2h7JETS
-        JVOQhCQpsSz41Zzjmff67ifQ/n0A1d8DgiDoXDQFv91/YIX1VVlcWoaD2HWtAB2YwHtbRoYct5ohYdfY
-        czQQk4oQFRWIGERFtUosXawVVNJvG1bEjAysbxUPhM4lmJmdg/l5dxXPghfCKdlcIOUK+FPRQPw6D/zZ
-        JRye1hK/URoTBFN54KKXsGeAaoWTKxOBrU5wnJTA7flbPUAE6k8usiYCa60gclOEkKDcY+wculLx84YE
-        +49cI+qP4nXXWImVHEo/FCTlEiZRrg95VGCxjBYyhmBtfQMPPIWi5mBgYJwvLyUIAHhh/ALrcn0B56gL
-        aOdnXM2gaVq3kQ4fwzAvy4rnhiDuAB0xbASE3qMhAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
+        +ADMyGjc0HVnp2maxph0VdPEGtEWm6ZDmthuTXwQjONjRAJYHhpwRgcYCvMIhuPcG6BCnIb0T76cnJlz
+        vztzL4GS5+Yfp/lFS4p7b02drFt53v8Qv2gn0ejCo8LRXGc+8rYnERqqlMLMCO2ZCVITlOh2UqKrBacB
+        NTaVsducm1iQ3n5nkcNv+rXd56CHBkHnXoKqSKBqf0wplWVAEiy4CM52FUIvlI/M06p+ONWr7TwDbZ+E
+        WK5qCpKQJCXWBJ+6ijzzRN8bBm2rD9TgAAiCoHPxDKz4PsN3NtBg/es3OExcNQvQgQm8v3ti3H2jGRJ2
+        gz1HAwmpAnFRgZhBXFQbJHKVZkE9Iw6XIuZlYAM/8EDkXIIPi0uwvOxrsLrmh2hGNhdIxTL+VDSQvCoB
+        /zsLR2fNJK+V9gThTAm4eBb2DVCtc3ppInC0CE7SEvhWvzQOEIH604uCicDeLIhdVyAiKH8xdo5cqvh5
+        W4KDe64R9cfJlmusx06O5+4K0nIVk6rVu9wrsNkmy3lDsPHzFx74F4pahNHRab62lCAA4IHxC6zX+xo8
+        k16gPa9wNYOmad1BugMMw3TUFP8bgrgFE2VsAYrY1WUAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnJRuUq2XzR+g
-        uIgiTg4OFl26CSoOGkKnTlLQQQelWKFQdREEFwc3byAp6cWmlzS9v54vNLFqa+sHDwmH8z75vnMIV6lO
-        xjDD1oBeRgvjVw1nMhklGAyWisUiapHNZiEIwj7bW1Nio3A6nYaqqiaJRALxeByyLOuSUCgEURR/SSwM
-        G23QNA25XE5/EqlUCoqiIBwO6wLWJegjbrfbkOhlCihsQAIKJJNJRCKRb+MQlKlkvwSFQsHcQO80tzFK
-        NBrVO5Ekqb7gJ9US6oTOIxaLNS8gDAmNQ2dCIlpvWkDk83n9XEhC0Nq/BNTF68kBbhcGEZhoxfVcDwSb
-        RfxTQCGDt1MBD+uj0Hx7KD/6oR6tIWgfKl2OWVcbCqj9m/l+ZFgYBzOAsw3Y6kNkZwy+cf65rqBaQm2X
-        709RXXFXB1wOa9kUeL3eci0JcTXbjbRnEWCh7DqHD8bbCg//FP9OAqoRdj1qvZ/p5XgXd8sDkJx9CG+0
-        4mnJgoDdWrqYbNms5LkuxgiDrqYmnul28czBS9T2uZ2XD0f5bY7juE8coIOHpOGkaQAAAABJRU5ErkJg
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOCndSut18wco
+        LqKIk4ODRZdugoqDhtDJpS466KAUKxSqLoLg4uDmDSQlvdj0kqb31/OFJlZttX7wkHA475PvO4dw1epg
+        DDHsf9DDsDJ+1FA2m1VCoVC5VCqhHrlcDoIg7LK9dSV2CmcyGaiqapJMJpFIJCDLsi4Jh8MQRfGHxMKw
+        0wZN05DP5/UnkU6noSgKIpGILmBdgj7i9XoNiV6mgMIGJKBAKpVCNBr9Mg5BmWr2U1AsFs0N9E5zG6PE
+        YjG9E0mSGgu+UyuhTug84vF48wLCkNA4dCYkovWmBUShUNDPhSQErf1LQF28HO/hZm4AwbEWXM10Q7Bb
+        xF8FFDJ4PRFwv+qA5t9B5SEA9XAFIedg+cJlW/5TQO1fz/Yhy8LYmwLcrcBGL6JbLvhH+KeGgloJtV25
+        O0FtJTzt8IzaKqbA5/NV6kmIy+kuZPbnARbKrXJ4Z7wu8QhM8G8koBpm16M2+pmej7Zxu9gPyd2LyFoL
+        HhcsCDpt5fNx63o1z3Uyhhl0NXXZn2wTT0d5ido+c/LygYPf5DiO+wAWH4N+MGEl+gAAAABJRU5ErkJg
         gg==
 </value>
   </data>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>171, 17</value>
+  </metadata>
 </root>

FRM/frmReporto.vb

@@ -3211,7 +3211,7 @@
 
     End Sub
 
-    Private Sub btnRequisicion_Click(sender As Object, e As EventArgs) Handles btnRequisicion.Click
+    Private Sub btnRequisicion_Click(sender As Object, e As EventArgs) 
 
     End Sub
     Sub CargarTransladoNuevo()

FRM/frmRescate.Designer.vb

@@ -1,461 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmRescate
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.Label17 = New System.Windows.Forms.Label()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.Label14 = New System.Windows.Forms.Label()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.GrpVenta = New System.Windows.Forms.GroupBox()
-        Me.txtValorTransadoVenta = New System.Windows.Forms.TextBox()
-        Me.dtpFechaOperacionVenta = New System.Windows.Forms.DateTimePicker()
-        Me.txtComisionPorcentajeBolsaVenta = New System.Windows.Forms.TextBox()
-        Me.dtpFechaLiquidacionVenta = New System.Windows.Forms.DateTimePicker()
-        Me.txtComisionPorcentajeCasaVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioLimpioVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioSucioVenta = New System.Windows.Forms.TextBox()
-        Me.txtDiasDeTenenciaVenta = New System.Windows.Forms.TextBox()
-        Me.txtComisionBolsaVenta = New System.Windows.Forms.TextBox()
-        Me.txtMontoNetoVenta = New System.Windows.Forms.TextBox()
-        Me.txtGananciaCapitalTotalVenta = New System.Windows.Forms.TextBox()
-        Me.txtGananciaCapitalUnitarioVenta = New System.Windows.Forms.TextBox()
-        Me.txtComisionCasaVenta = New System.Windows.Forms.TextBox()
-        Me.txtRetornoAnualBrutoVenta = New System.Windows.Forms.TextBox()
-        Me.txtRetornoAnualNetoVenta = New System.Windows.Forms.TextBox()
-        Me.txtUnidadesVenta = New System.Windows.Forms.TextBox()
-        Me.txtImpuestosYComisionesVenta = New System.Windows.Forms.TextBox()
-        Me.Label19 = New System.Windows.Forms.Label()
-        Me.GrpVenta.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(12, 392)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(109, 18)
-        Me.Label5.TabIndex = 92
-        Me.Label5.Text = "Comisiones Bolsa"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(10, 363)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(107, 18)
-        Me.Label3.TabIndex = 91
-        Me.Label3.Text = "Comisiones Casa"
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label16.Location = New System.Drawing.Point(12, 93)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(105, 18)
-        Me.Label16.TabIndex = 88
-        Me.Label16.Text = "Fecha Operación"
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(12, 289)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(116, 18)
-        Me.Label4.TabIndex = 90
-        Me.Label4.Text = "Imp. y Comisiones"
-        '
-        'Label17
-        '
-        Me.Label17.AutoSize = True
-        Me.Label17.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label17.Location = New System.Drawing.Point(12, 333)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(79, 18)
-        Me.Label17.TabIndex = 89
-        Me.Label17.Text = "Precio Sucio"
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label15.Location = New System.Drawing.Point(12, 270)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(95, 18)
-        Me.Label15.TabIndex = 87
-        Me.Label15.Text = "Valor Transado"
-        '
-        'Label14
-        '
-        Me.Label14.AutoSize = True
-        Me.Label14.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label14.Location = New System.Drawing.Point(12, 181)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(173, 18)
-        Me.Label14.TabIndex = 86
-        Me.Label14.Text = "Ganancia de capital unitario"
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(12, 71)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(88, 18)
-        Me.Label1.TabIndex = 78
-        Me.Label1.Text = "Precio Limpio"
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(12, 159)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(154, 18)
-        Me.Label13.TabIndex = 85
-        Me.Label13.Text = "Ganancia de capital total"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(12, 311)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(75, 18)
-        Me.Label2.TabIndex = 79
-        Me.Label2.Text = "Monto Neto"
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(12, 115)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(118, 18)
-        Me.Label12.TabIndex = 84
-        Me.Label12.Text = "Fecha Vencimiento"
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(12, 203)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(156, 18)
-        Me.Label6.TabIndex = 80
-        Me.Label6.Text = "Retorno Anualizado Bruto"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(12, 248)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(61, 18)
-        Me.Label11.TabIndex = 83
-        Me.Label11.Text = "Unidades"
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.Location = New System.Drawing.Point(12, 137)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(105, 18)
-        Me.Label8.TabIndex = 81
-        Me.Label8.Text = "Dias de tenencia"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(12, 225)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(152, 18)
-        Me.Label9.TabIndex = 82
-        Me.Label9.Text = "Retorno Anualizado Neto"
-        '
-        'GrpVenta
-        '
-        Me.GrpVenta.Controls.Add(Me.txtValorTransadoVenta)
-        Me.GrpVenta.Controls.Add(Me.dtpFechaOperacionVenta)
-        Me.GrpVenta.Controls.Add(Me.txtComisionPorcentajeBolsaVenta)
-        Me.GrpVenta.Controls.Add(Me.dtpFechaLiquidacionVenta)
-        Me.GrpVenta.Controls.Add(Me.txtComisionPorcentajeCasaVenta)
-        Me.GrpVenta.Controls.Add(Me.txtPrecioLimpioVenta)
-        Me.GrpVenta.Controls.Add(Me.txtPrecioSucioVenta)
-        Me.GrpVenta.Controls.Add(Me.txtDiasDeTenenciaVenta)
-        Me.GrpVenta.Controls.Add(Me.txtComisionBolsaVenta)
-        Me.GrpVenta.Controls.Add(Me.txtMontoNetoVenta)
-        Me.GrpVenta.Controls.Add(Me.txtGananciaCapitalTotalVenta)
-        Me.GrpVenta.Controls.Add(Me.txtGananciaCapitalUnitarioVenta)
-        Me.GrpVenta.Controls.Add(Me.txtComisionCasaVenta)
-        Me.GrpVenta.Controls.Add(Me.txtRetornoAnualBrutoVenta)
-        Me.GrpVenta.Controls.Add(Me.txtRetornoAnualNetoVenta)
-        Me.GrpVenta.Controls.Add(Me.txtUnidadesVenta)
-        Me.GrpVenta.Controls.Add(Me.txtImpuestosYComisionesVenta)
-        Me.GrpVenta.Location = New System.Drawing.Point(217, 52)
-        Me.GrpVenta.Name = "GrpVenta"
-        Me.GrpVenta.Size = New System.Drawing.Size(200, 379)
-        Me.GrpVenta.TabIndex = 96
-        Me.GrpVenta.TabStop = False
-        '
-        'txtValorTransadoVenta
-        '
-        Me.txtValorTransadoVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtValorTransadoVenta.Location = New System.Drawing.Point(30, 218)
-        Me.txtValorTransadoVenta.Name = "txtValorTransadoVenta"
-        Me.txtValorTransadoVenta.ReadOnly = True
-        Me.txtValorTransadoVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtValorTransadoVenta.TabIndex = 0
-        '
-        'dtpFechaOperacionVenta
-        '
-        Me.dtpFechaOperacionVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dtpFechaOperacionVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaOperacionVenta.Location = New System.Drawing.Point(30, 41)
-        Me.dtpFechaOperacionVenta.Name = "dtpFechaOperacionVenta"
-        Me.dtpFechaOperacionVenta.Size = New System.Drawing.Size(140, 20)
-        Me.dtpFechaOperacionVenta.TabIndex = 10
-        '
-        'txtComisionPorcentajeBolsaVenta
-        '
-        Me.txtComisionPorcentajeBolsaVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtComisionPorcentajeBolsaVenta.Location = New System.Drawing.Point(35, 346)
-        Me.txtComisionPorcentajeBolsaVenta.Name = "txtComisionPorcentajeBolsaVenta"
-        Me.txtComisionPorcentajeBolsaVenta.Size = New System.Drawing.Size(37, 20)
-        Me.txtComisionPorcentajeBolsaVenta.TabIndex = 82
-        '
-        'dtpFechaLiquidacionVenta
-        '
-        Me.dtpFechaLiquidacionVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dtpFechaLiquidacionVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaLiquidacionVenta.Location = New System.Drawing.Point(30, 63)
-        Me.dtpFechaLiquidacionVenta.Name = "dtpFechaLiquidacionVenta"
-        Me.dtpFechaLiquidacionVenta.Size = New System.Drawing.Size(140, 20)
-        Me.dtpFechaLiquidacionVenta.TabIndex = 11
-        '
-        'txtComisionPorcentajeCasaVenta
-        '
-        Me.txtComisionPorcentajeCasaVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtComisionPorcentajeCasaVenta.Location = New System.Drawing.Point(35, 310)
-        Me.txtComisionPorcentajeCasaVenta.Name = "txtComisionPorcentajeCasaVenta"
-        Me.txtComisionPorcentajeCasaVenta.Size = New System.Drawing.Size(37, 20)
-        Me.txtComisionPorcentajeCasaVenta.TabIndex = 81
-        '
-        'txtPrecioLimpioVenta
-        '
-        Me.txtPrecioLimpioVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtPrecioLimpioVenta.Location = New System.Drawing.Point(30, 19)
-        Me.txtPrecioLimpioVenta.Name = "txtPrecioLimpioVenta"
-        Me.txtPrecioLimpioVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtPrecioLimpioVenta.TabIndex = 9
-        '
-        'txtPrecioSucioVenta
-        '
-        Me.txtPrecioSucioVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtPrecioSucioVenta.Location = New System.Drawing.Point(30, 284)
-        Me.txtPrecioSucioVenta.Name = "txtPrecioSucioVenta"
-        Me.txtPrecioSucioVenta.ReadOnly = True
-        Me.txtPrecioSucioVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtPrecioSucioVenta.TabIndex = 0
-        '
-        'txtDiasDeTenenciaVenta
-        '
-        Me.txtDiasDeTenenciaVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtDiasDeTenenciaVenta.Location = New System.Drawing.Point(30, 85)
-        Me.txtDiasDeTenenciaVenta.Name = "txtDiasDeTenenciaVenta"
-        Me.txtDiasDeTenenciaVenta.ReadOnly = True
-        Me.txtDiasDeTenenciaVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtDiasDeTenenciaVenta.TabIndex = 12
-        '
-        'txtComisionBolsaVenta
-        '
-        Me.txtComisionBolsaVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtComisionBolsaVenta.Location = New System.Drawing.Point(78, 344)
-        Me.txtComisionBolsaVenta.Name = "txtComisionBolsaVenta"
-        Me.txtComisionBolsaVenta.ReadOnly = True
-        Me.txtComisionBolsaVenta.Size = New System.Drawing.Size(92, 20)
-        Me.txtComisionBolsaVenta.TabIndex = 78
-        '
-        'txtMontoNetoVenta
-        '
-        Me.txtMontoNetoVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtMontoNetoVenta.Location = New System.Drawing.Point(30, 262)
-        Me.txtMontoNetoVenta.Name = "txtMontoNetoVenta"
-        Me.txtMontoNetoVenta.ReadOnly = True
-        Me.txtMontoNetoVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtMontoNetoVenta.TabIndex = 0
-        '
-        'txtGananciaCapitalTotalVenta
-        '
-        Me.txtGananciaCapitalTotalVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtGananciaCapitalTotalVenta.Location = New System.Drawing.Point(30, 107)
-        Me.txtGananciaCapitalTotalVenta.Name = "txtGananciaCapitalTotalVenta"
-        Me.txtGananciaCapitalTotalVenta.ReadOnly = True
-        Me.txtGananciaCapitalTotalVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtGananciaCapitalTotalVenta.TabIndex = 0
-        '
-        'txtGananciaCapitalUnitarioVenta
-        '
-        Me.txtGananciaCapitalUnitarioVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtGananciaCapitalUnitarioVenta.Location = New System.Drawing.Point(30, 129)
-        Me.txtGananciaCapitalUnitarioVenta.Name = "txtGananciaCapitalUnitarioVenta"
-        Me.txtGananciaCapitalUnitarioVenta.ReadOnly = True
-        Me.txtGananciaCapitalUnitarioVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtGananciaCapitalUnitarioVenta.TabIndex = 0
-        '
-        'txtComisionCasaVenta
-        '
-        Me.txtComisionCasaVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtComisionCasaVenta.Location = New System.Drawing.Point(78, 313)
-        Me.txtComisionCasaVenta.Name = "txtComisionCasaVenta"
-        Me.txtComisionCasaVenta.ReadOnly = True
-        Me.txtComisionCasaVenta.Size = New System.Drawing.Size(94, 20)
-        Me.txtComisionCasaVenta.TabIndex = 75
-        '
-        'txtRetornoAnualBrutoVenta
-        '
-        Me.txtRetornoAnualBrutoVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtRetornoAnualBrutoVenta.Location = New System.Drawing.Point(30, 151)
-        Me.txtRetornoAnualBrutoVenta.Name = "txtRetornoAnualBrutoVenta"
-        Me.txtRetornoAnualBrutoVenta.ReadOnly = True
-        Me.txtRetornoAnualBrutoVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtRetornoAnualBrutoVenta.TabIndex = 0
-        '
-        'txtRetornoAnualNetoVenta
-        '
-        Me.txtRetornoAnualNetoVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtRetornoAnualNetoVenta.Location = New System.Drawing.Point(30, 173)
-        Me.txtRetornoAnualNetoVenta.Name = "txtRetornoAnualNetoVenta"
-        Me.txtRetornoAnualNetoVenta.ReadOnly = True
-        Me.txtRetornoAnualNetoVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtRetornoAnualNetoVenta.TabIndex = 0
-        '
-        'txtUnidadesVenta
-        '
-        Me.txtUnidadesVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtUnidadesVenta.Location = New System.Drawing.Point(30, 196)
-        Me.txtUnidadesVenta.Name = "txtUnidadesVenta"
-        Me.txtUnidadesVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtUnidadesVenta.TabIndex = 13
-        '
-        'txtImpuestosYComisionesVenta
-        '
-        Me.txtImpuestosYComisionesVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtImpuestosYComisionesVenta.Location = New System.Drawing.Point(30, 240)
-        Me.txtImpuestosYComisionesVenta.Name = "txtImpuestosYComisionesVenta"
-        Me.txtImpuestosYComisionesVenta.ReadOnly = True
-        Me.txtImpuestosYComisionesVenta.Size = New System.Drawing.Size(140, 20)
-        Me.txtImpuestosYComisionesVenta.TabIndex = 71
-        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label19.Location = New System.Drawing.Point(176, 31)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(55, 18)
-        Me.Label19.TabIndex = 97
-        Me.Label19.Text = "Rescate"
-        '
-        'frmRescate
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(496, 422)
-        Me.Controls.Add(Me.Label19)
-        Me.Controls.Add(Me.GrpVenta)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.Label16)
-        Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.Label17)
-        Me.Controls.Add(Me.Label15)
-        Me.Controls.Add(Me.Label14)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.Label9)
-        Me.Name = "frmRescate"
-        Me.Text = "frmRescate"
-        Me.GrpVenta.ResumeLayout(False)
-        Me.GrpVenta.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label5 As Label
-    Friend WithEvents Label3 As Label
-    Friend WithEvents Label16 As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents Label17 As Label
-    Friend WithEvents Label15 As Label
-    Friend WithEvents Label14 As Label
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label13 As Label
-    Friend WithEvents Label2 As Label
-    Friend WithEvents Label12 As Label
-    Friend WithEvents Label6 As Label
-    Friend WithEvents Label11 As Label
-    Friend WithEvents Label8 As Label
-    Friend WithEvents Label9 As Label
-    Friend WithEvents GrpVenta As GroupBox
-    Friend WithEvents txtValorTransadoVenta As TextBox
-    Friend WithEvents dtpFechaOperacionVenta As DateTimePicker
-    Friend WithEvents txtComisionPorcentajeBolsaVenta As TextBox
-    Friend WithEvents dtpFechaLiquidacionVenta As DateTimePicker
-    Friend WithEvents txtComisionPorcentajeCasaVenta As TextBox
-    Friend WithEvents txtPrecioLimpioVenta As TextBox
-    Friend WithEvents txtPrecioSucioVenta As TextBox
-    Friend WithEvents txtDiasDeTenenciaVenta As TextBox
-    Friend WithEvents txtComisionBolsaVenta As TextBox
-    Friend WithEvents txtMontoNetoVenta As TextBox
-    Friend WithEvents txtGananciaCapitalTotalVenta As TextBox
-    Friend WithEvents txtGananciaCapitalUnitarioVenta As TextBox
-    Friend WithEvents txtComisionCasaVenta As TextBox
-    Friend WithEvents txtRetornoAnualBrutoVenta As TextBox
-    Friend WithEvents txtRetornoAnualNetoVenta As TextBox
-    Friend WithEvents txtUnidadesVenta As TextBox
-    Friend WithEvents txtImpuestosYComisionesVenta As TextBox
-    Friend WithEvents Label19 As Label
-End Class

FRM/frmRescate.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmRescate.vb

@@ -1,3 +0,0 @@
-Public Class frmRescate
-
-End Class

FRM/frmResgistrosPrestamoEmpresarial.Designer.vb

@@ -1,202 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmResgistrosPrestamoEmpresarial
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmResgistrosPrestamoEmpresarial))
-        Dim navSiguienteRegistro As System.Windows.Forms.ToolStripButton
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtConta = New System.Windows.Forms.TextBox()
-        Me.txtPosicion = New System.Windows.Forms.TextBox()
-        Me.Navegador = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.navNuevoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navPrimerRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navRegistroAnterior = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.navUltimoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.dgvLETES = New System.Windows.Forms.DataGridView()
-        navSiguienteRegistro = New System.Windows.Forms.ToolStripButton()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Navegador.SuspendLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label1.Location = New System.Drawing.Point(125, 8)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 17)
-        Me.Label1.TabIndex = 130
-        Me.Label1.Text = "Posición: "
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(243, 7)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(25, 17)
-        Me.Label5.TabIndex = 129
-        Me.Label5.Text = "de: "
-        '
-        'txtConta
-        '
-        Me.txtConta.Location = New System.Drawing.Point(272, 4)
-        Me.txtConta.Name = "txtConta"
-        Me.txtConta.ReadOnly = True
-        Me.txtConta.Size = New System.Drawing.Size(58, 20)
-        Me.txtConta.TabIndex = 128
-        '
-        'txtPosicion
-        '
-        Me.txtPosicion.Location = New System.Drawing.Point(176, 4)
-        Me.txtPosicion.Name = "txtPosicion"
-        Me.txtPosicion.Size = New System.Drawing.Size(56, 20)
-        Me.txtPosicion.TabIndex = 127
-        '
-        'Navegador
-        '
-        Me.Navegador.AddNewItem = Me.navNuevoRegistro
-        Me.Navegador.CountItem = Nothing
-        Me.Navegador.DeleteItem = Nothing
-        Me.Navegador.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.navPrimerRegistro, Me.navRegistroAnterior, Me.BindingNavigatorSeparator, Me.BindingNavigatorSeparator1, navSiguienteRegistro, Me.navUltimoRegistro, Me.BindingNavigatorSeparator2, Me.navNuevoRegistro})
-        Me.Navegador.Location = New System.Drawing.Point(0, 0)
-        Me.Navegador.MoveFirstItem = Nothing
-        Me.Navegador.MoveLastItem = Nothing
-        Me.Navegador.MoveNextItem = Nothing
-        Me.Navegador.MovePreviousItem = Nothing
-        Me.Navegador.Name = "Navegador"
-        Me.Navegador.PositionItem = Nothing
-        Me.Navegador.Size = New System.Drawing.Size(860, 25)
-        Me.Navegador.TabIndex = 126
-        Me.Navegador.Text = "BindingNavigator1"
-        '
-        'navNuevoRegistro
-        '
-        Me.navNuevoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevoRegistro.Enabled = False
-        Me.navNuevoRegistro.Image = CType(resources.GetObject("navNuevoRegistro.Image"), System.Drawing.Image)
-        Me.navNuevoRegistro.Name = "navNuevoRegistro"
-        Me.navNuevoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navNuevoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevoRegistro.Text = "Agregar nuevo"
-        Me.navNuevoRegistro.Visible = False
-        '
-        'navPrimerRegistro
-        '
-        Me.navPrimerRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navPrimerRegistro.Image = CType(resources.GetObject("navPrimerRegistro.Image"), System.Drawing.Image)
-        Me.navPrimerRegistro.Name = "navPrimerRegistro"
-        Me.navPrimerRegistro.RightToLeftAutoMirrorImage = True
-        Me.navPrimerRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navPrimerRegistro.Text = "Mover primero"
-        '
-        'navRegistroAnterior
-        '
-        Me.navRegistroAnterior.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navRegistroAnterior.Image = CType(resources.GetObject("navRegistroAnterior.Image"), System.Drawing.Image)
-        Me.navRegistroAnterior.Name = "navRegistroAnterior"
-        Me.navRegistroAnterior.RightToLeftAutoMirrorImage = True
-        Me.navRegistroAnterior.Size = New System.Drawing.Size(23, 22)
-        Me.navRegistroAnterior.Text = "Mover anterior"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
-        '
-        'navSiguienteRegistro
-        '
-        navSiguienteRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        navSiguienteRegistro.Image = CType(resources.GetObject("navSiguienteRegistro.Image"), System.Drawing.Image)
-        navSiguienteRegistro.Name = "navSiguienteRegistro"
-        navSiguienteRegistro.RightToLeftAutoMirrorImage = True
-        navSiguienteRegistro.Size = New System.Drawing.Size(23, 22)
-        navSiguienteRegistro.Text = "Mover siguiente"
-        '
-        'navUltimoRegistro
-        '
-        Me.navUltimoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navUltimoRegistro.Image = CType(resources.GetObject("navUltimoRegistro.Image"), System.Drawing.Image)
-        Me.navUltimoRegistro.Name = "navUltimoRegistro"
-        Me.navUltimoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navUltimoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navUltimoRegistro.Text = "Mover último"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
-        '
-        'dgvLETES
-        '
-        Me.dgvLETES.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLETES.Location = New System.Drawing.Point(1, 28)
-        Me.dgvLETES.Name = "dgvLETES"
-        Me.dgvLETES.Size = New System.Drawing.Size(859, 425)
-        Me.dgvLETES.TabIndex = 131
-        '
-        'frmResgistrosPrestamoEmpresarial
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(860, 454)
-        Me.Controls.Add(Me.dgvLETES)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtConta)
-        Me.Controls.Add(Me.txtPosicion)
-        Me.Controls.Add(Me.Navegador)
-        Me.Name = "frmResgistrosPrestamoEmpresarial"
-        Me.Text = "frmResgistrosPrestamoEmpresarial"
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Navegador.ResumeLayout(False)
-        Me.Navegador.PerformLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents txtConta As TextBox
-    Friend WithEvents txtPosicion As TextBox
-    Friend WithEvents Navegador As BindingNavigator
-    Friend WithEvents navNuevoRegistro As ToolStripButton
-    Friend WithEvents navPrimerRegistro As ToolStripButton
-    Friend WithEvents navRegistroAnterior As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
-    Friend WithEvents navUltimoRegistro As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
-    Friend WithEvents dgvLETES As DataGridView
-End Class

FRM/frmResgistrosPrestamoEmpresarial.resx

@@ -1,179 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="Navegador.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navNuevoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="navPrimerRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navRegistroAnterior.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="navSiguienteRegistro.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <data name="navSiguienteRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navUltimoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-</root>

FRM/frmResgistrosPrestamoEmpresarial.vb

@@ -1,424 +0,0 @@
-Public Class frmResgistrosPrestamoEmpresarial
-    Dim RegistroConsulta As New RegistrosDAO
-    Dim Operaciones As New Operaciones
-    Dim CodEmpr = Operaciones.CodEmpr
-    Dim CodEmis = Operaciones.CodEmis
-    Dim CodECalRi = Operaciones.CodECalRi
-    Dim ListaPlazo = Operaciones.ListaPlazo
-    Dim ListaTiposMercado = Operaciones.ListaTiposMercados
-    Dim ListaPeriodos = Operaciones.ListaPeriodos
-    Dim ListaTipoTasa = Operaciones.ListaTipoTasa
-    Dim ListaTipoRenta = Operaciones.ListaTipoRenta
-    Dim ListaEstado = Operaciones.ListaEstado
-    Dim ListaCasasCorredoras = Operaciones.ListaCasasCorredoras
-    Dim CodPais = Operaciones.CodPais
-    Dim ValorCambiado As Boolean = False
-    Dim Direccion As String = String.Empty
-    Dim CodigoInstrumento As String = Variables.CodigoInstrumento
-    Dim tablas As String
-
-
-
-    Private Sub frmResgistrosPrestamoEmpresarial_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        tablas = "PEMP0"
-        AgregarColumnasInv()
-        AgregarColumnasIns()
-        txtPosicion.Text = "1"
-        txtConta.Text = RegistroConsulta.Contador(tablas)
-        ValorCambiado = False
-        Cargar(CodigoInstrumento, 1, 100)
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub AgregarColumnasInv()
-        Dim Empresa, Instrumento, Emisor, CalRiesgo, Calif, Pais, TipoMercado, Nombre, Periodicidad, Plazo As New DataGridViewTextBoxColumn
-        Dim CantidadPlazo, TipoRenta, TipoTasa, Numero, Fecha, Codigo, Estado As New DataGridViewTextBoxColumn
-        Codigo.Name = "Codigo de Inversion"
-        Empresa.Name = "Empresa"
-        Instrumento.Name = "Instrumento"
-        Emisor.Name = "Emisor"
-        CalRiesgo.Name = "Calificadora Riesgo"
-        Calif.Name = "Calificadora"
-        Pais.Name = "Pais"
-        TipoMercado.Name = "Tipo Mercado"
-        Nombre.Name = "Nombre"
-        Periodicidad.Name = "Periodicidad"
-        CantidadPlazo.Name = "Cantidad Plazo"
-        Plazo.Name = "Plazo"
-        TipoRenta.Name = "Tipo de Renta"
-        TipoTasa.Name = "Tipo de Tasa"
-        Numero.Name = "Numero"
-        Fecha.Name = "Fecha"
-        Estado.Name = "Estado"
-
-
-
-        dgvLETES.Columns.Add(Codigo)
-        dgvLETES.Columns.Add(Estado)
-        dgvLETES.Columns.Add(Empresa)
-        dgvLETES.Columns.Add(Instrumento)
-        dgvLETES.Columns.Add(Emisor)
-        dgvLETES.Columns.Add(CalRiesgo)
-        dgvLETES.Columns.Add(Calif)
-        dgvLETES.Columns.Add(CantidadPlazo)
-        dgvLETES.Columns.Add(Plazo)
-        dgvLETES.Columns.Add(Fecha)
-        dgvLETES.Columns.Add(TipoMercado)
-        dgvLETES.Columns.Add(Pais)
-        dgvLETES.Columns.Add(Nombre)
-        dgvLETES.Columns.Add(Periodicidad)
-        dgvLETES.Columns.Add(TipoTasa)
-        dgvLETES.Columns.Add(TipoRenta)
-        dgvLETES.Columns.Add(Numero)
-
-
-
-    End Sub
-
-    Sub AgregarColumnasIns()
-        Dim fechaoper, fechaven, tasa, periodicidad, base, tipotasa, comisiondesemb, plazodias, monto As New DataGridViewTextBoxColumn
-        Dim plazo, fechapago, ingresarcomision, iva, amortizacion, montorecibir, saldofinal As New DataGridViewTextBoxColumn
-        fechaoper.Name = "Fecha de Operación"
-        fechaven.Name = "Fecha de Vencimiento"
-        tasa.Name = "Tasa"
-        'periodicidad.Name = "Periodicidad"
-        base.Name = "Base"
-        'tipotasa.Name = "Tipo de Tasa"
-        comisiondesemb.Name = "Comisión Desembolso"
-        plazodias.Name = "Plazo de Dias"
-        monto.Name = "Monto"
-        plazo.Name = "Plazo"
-        fechapago.Name = "Fecha de Pago"
-        ingresarcomision.Name = "Ingresar Comision"
-        iva.Name = "IVA"
-        amortizacion.Name = "Amortización"
-        montorecibir.Name = "Monto a Recibir"
-        saldofinal.Name = "Saldo Final"
-
-
-
-        dgvLETES.Columns.Add(fechaoper)
-        dgvLETES.Columns.Add(fechaven)
-        dgvLETES.Columns.Add(tasa)
-        'dgvLETES.Columns.Add(periodicidad)
-        dgvLETES.Columns.Add(base)
-        'dgvLETES.Columns.Add(tipotasa)
-        dgvLETES.Columns.Add(comisiondesemb)
-        dgvLETES.Columns.Add(plazodias)
-        dgvLETES.Columns.Add(monto)
-        dgvLETES.Columns.Add(plazo)
-        dgvLETES.Columns.Add(fechapago)
-        dgvLETES.Columns.Add(ingresarcomision)
-        dgvLETES.Columns.Add(iva)
-        dgvLETES.Columns.Add(amortizacion)
-        dgvLETES.Columns.Add(montorecibir)
-        dgvLETES.Columns.Add(saldofinal)
-
-
-    End Sub
-
-
-
-
-    Sub Cargar(ByVal Cod As String, ByVal Inicio As Integer, ByVal Final As Integer)
-
-
-        Dim CodigoEmpresa As String = " "
-        Dim CodigoEmisor As String = " "
-        Dim CodigoECal As String = " "
-        Dim PlazoF As String = " "
-        Dim TiposMercado As String = " "
-        Dim Pais As String = " "
-        Dim Periodos As String = " "
-        Dim Periodos2 As String = " "
-        Dim TipoTasa As String = " "
-        Dim TipoRenta As String = " "
-        Dim Estado As String = " "
-        Dim CasasCorredoras As String = " "
-        Dim codigo As String = Variables.Codigo
-        Dim Instrumento As String
-        Dim dr
-
-        Instrumento = "Prestamo Empresarial"
-
-
-
-
-
-        dr = RegistroConsulta.CargarInvPEMP(Cod, Inicio, Final)
-
-
-
-
-
-
-
-        While dr.Read
-
-
-
-
-
-
-
-
-
-            For Each pair In CodEmpr
-
-                If (pair.Key.ToString = dr("CodEmpr").ToString) Then
-                    CodigoEmpresa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmpr").ToString)) Then
-                    CodigoEmpresa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodEmis
-
-                If (pair.Key.ToString = dr("CodEmis").ToString) Then
-                    CodigoEmisor = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodEmis").ToString)) Then
-                    CodigoEmisor = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In CodECalRi
-
-
-                If (pair.Key.ToString = dr("CodECalRi").ToString) Then
-                    CodigoECal = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodECalRi").ToString)) Then
-                    CodigoECal = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPlazo
-                If (pair.Key.ToString = dr("PlazoFact").ToString) Then
-                    PlazoF = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("PlazoFact").ToString)) Then
-                    PlazoF = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaTiposMercado
-
-
-
-
-
-                If (pair.Key.ToString = dr("TipoMerc").ToString.TrimStart()) Then
-                    TiposMercado = pair.Value
-
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipoMerc").ToString.TrimStart())) Then
-                    TiposMercado = "    ----  ----  ----  ---- "
-
-                    Exit For
-                End If
-
-            Next
-
-            For Each pair In CodPais
-                If (pair.Key.ToString = dr("CodPais").ToString.TrimStart()) Then
-                    Pais = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("CodPais").ToString.TrimStart())) Then
-                    Pais = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-            For Each pair In ListaPeriodos
-                If (pair.Key.ToString = dr("Periodicidad").ToString.TrimStart()) Then
-                    Periodos = pair.Value
-
-                ElseIf (String.IsNullOrEmpty(dr("Periodicidad").ToString.TrimStart())) Then
-                    Periodos = "    ----  ----  ----  ---- "
-
-                End If
-
-
-            Next
-
-
-
-            For Each pair In ListaTipoTasa
-                If (pair.Key.ToString = dr("TipTasa").ToString.TrimStart()) Then
-                    TipoTasa = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipTasa").ToString.TrimStart())) Then
-                    TipoTasa = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            For Each pair In ListaTipoRenta
-                If (pair.Key.ToString = dr("TipRenta").ToString.TrimStart()) Then
-                    TipoRenta = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("TipRenta").ToString.TrimStart())) Then
-                    TipoRenta = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-
-            For Each pair In ListaEstado
-                If (pair.Key.ToString = dr("DocEst").ToString.TrimStart()) Then
-                    Estado = pair.Value
-                    Exit For
-                ElseIf (String.IsNullOrEmpty(dr("DocEst").ToString.TrimStart())) Then
-                    Estado = "    ----  ----  ----  ---- "
-                    Exit For
-                End If
-            Next
-
-
-            '     For Each pair In ListaCasasCorredoras
-            '          If (pair.Key.ToString = dr("CasasCorredoras").ToString) Then
-            '   CasasCorredoras = pair.Value
-            '    Exit For
-            ' ElseIf (String.IsNullOrEmpty(dr("CasasCorredoras").ToString)) Then
-            '    CasasCorredoras = "    ----  ----  ----  ---- "
-            '      Exit For
-            '   End If
-            'Next
-
-            'dgvReportes.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, "Reportos", CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), "", dr("Nombre"), dr("FCompra"), dr("ValTrans"), dr("Dias"), dr("FVenc"), dr("Rend"), ComisionCasa, ComisionBolsa, IOF, 0, TotalCostos, MontoLiq, InteresGenerar, dr("CostoTransfr"), RendimientoAntes, ValorRecompra, Renta, IngresoNeto, ValorNeto, RendimientoDespues, "", PorcentajeComisionCasa, PorcentajeComisionBolsa, PorcentajeComisionIOF)
-            dgvLETES.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, Instrumento, CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), dr("fechaoper"), dr("fechaven"), dr("tasa"), dr("base"), dr("comisiondesembolso"), dr("plazodias"), dr("monto"), dr("plazo"), dr("fechapago"), dr("ingresarcomision"), dr("iva"), dr("amortizacion"), dr("montorecibir"), dr("saldofinal"))
-
-        End While
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs)
-        Direccion = "D"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-
-
-
-
-
-
-
-
-
-    Sub Mover(ByVal Direccion As String)
-        Dim ReferenciaD = txtPosicion.Text + 1
-        Dim ReferenciaI = txtPosicion.Text - 1
-        Dim Cantidad = txtConta.Text
-        Dim ValorExacto = txtPosicion.Text
-        Dim Inicio, Final As Integer
-        If (Direccion = "D") Then
-            If (Cantidad >= ValorExacto) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    txtPosicion.Text = ReferenciaD
-                    ValorCambiado = False
-                End If
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-        ElseIf (Direccion = "I") Then
-            If (ReferenciaI >= 1) Then
-                dgvLETES.Rows.Clear()
-                If (Not ValorCambiado) Then
-                    If (Not ValorExacto = 1) Then
-                        txtPosicion.Text = ReferenciaI
-
-                    End If
-                Else
-                    ValorCambiado = False
-                End If
-
-
-                Inicio = txtPosicion.Text - 1
-                Inicio = Inicio * 100
-                Final = Inicio + 100
-                Cargar(CodigoInstrumento, Inicio, Final)
-            Else
-                MsgBox("Rango Fuera de Valor")
-            End If
-
-
-        ElseIf (Direccion = "SD") Then
-            Final = txtConta.Text * 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = Cantidad
-        ElseIf (Direccion = "SI") Then
-            Final = 100
-            Inicio = Final - 100
-
-            dgvLETES.Rows.Clear()
-            Cargar(CodigoInstrumento, Inicio, Final)
-            txtPosicion.Text = 1
-        End If
-
-
-
-
-    End Sub
-
-    Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click
-        Direccion = "I"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub txtPosicion_TextChanged(sender As Object, e As EventArgs) Handles txtPosicion.TextChanged
-        ValorCambiado = True
-    End Sub
-
-    Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click
-        Direccion = "SD"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-    Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click
-        Direccion = "SI"
-        Mover(Direccion)
-        ValorCambiado = False
-    End Sub
-
-End Class

FRM/frmResultadoTitularizacion.Designer.vb

@@ -58,6 +58,7 @@ Partial Class frmResultadoTitularizacion
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.dgvAmortizacion = New System.Windows.Forms.DataGridView()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.btnLimpiar = New System.Windows.Forms.Button()
         Me.btnExcel = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
@@ -68,7 +69,6 @@ Partial Class frmResultadoTitularizacion
         Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.btnLimpiar = New System.Windows.Forms.Button()
         Me.TabControl1.SuspendLayout()
         Me.TbGenerales.SuspendLayout()
         Me.GrpDatos.SuspendLayout()
@@ -95,6 +95,7 @@ Partial Class frmResultadoTitularizacion
         '
         'TbGenerales
         '
+        Me.TbGenerales.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TbGenerales.Controls.Add(Me.txtEmisionTotal)
         Me.TbGenerales.Controls.Add(Me.txtCesionFlujo5)
         Me.TbGenerales.Controls.Add(Me.Label32)
@@ -121,7 +122,6 @@ Partial Class frmResultadoTitularizacion
         Me.TbGenerales.Size = New System.Drawing.Size(792, 441)
         Me.TbGenerales.TabIndex = 0
         Me.TbGenerales.Text = "Datos Generales"
-        Me.TbGenerales.UseVisualStyleBackColor = True
         '
         'txtEmisionTotal
         '
@@ -152,7 +152,7 @@ Partial Class frmResultadoTitularizacion
         '
         'txtPeriodosEmision
         '
-        Me.txtPeriodosEmision.Location = New System.Drawing.Point(517, 323)
+        Me.txtPeriodosEmision.Location = New System.Drawing.Point(497, 323)
         Me.txtPeriodosEmision.Name = "txtPeriodosEmision"
         Me.txtPeriodosEmision.Size = New System.Drawing.Size(150, 20)
         Me.txtPeriodosEmision.TabIndex = 146
@@ -373,12 +373,15 @@ Partial Class frmResultadoTitularizacion
         'btnTit0
         '
         Me.btnTit0.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.btnTit0.Location = New System.Drawing.Point(355, 388)
+        Me.btnTit0.BackColor = System.Drawing.Color.White
+        Me.btnTit0.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnTit0.ForeColor = System.Drawing.Color.Maroon
+        Me.btnTit0.Location = New System.Drawing.Point(355, 319)
         Me.btnTit0.Name = "btnTit0"
-        Me.btnTit0.Size = New System.Drawing.Size(85, 35)
+        Me.btnTit0.Size = New System.Drawing.Size(107, 35)
         Me.btnTit0.TabIndex = 162
         Me.btnTit0.Text = "Aceptar"
-        Me.btnTit0.UseVisualStyleBackColor = True
+        Me.btnTit0.UseVisualStyleBackColor = False
         '
         'lblBono
         '
@@ -415,6 +418,7 @@ Partial Class frmResultadoTitularizacion
         '
         Me.dgvAmortizacion.AllowUserToAddRows = False
         Me.dgvAmortizacion.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvAmortizacion.BackgroundColor = System.Drawing.Color.White
         Me.dgvAmortizacion.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAmortizacion.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvAmortizacion.Location = New System.Drawing.Point(0, 0)
@@ -424,6 +428,7 @@ Partial Class frmResultadoTitularizacion
         '
         'Panel2
         '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel2.Controls.Add(Me.btnLimpiar)
         Me.Panel2.Controls.Add(Me.btnExcel)
         Me.Panel2.Controls.Add(Me.Label6)
@@ -433,14 +438,29 @@ Partial Class frmResultadoTitularizacion
         Me.Panel2.Size = New System.Drawing.Size(792, 45)
         Me.Panel2.TabIndex = 165
         '
+        'btnLimpiar
+        '
+        Me.btnLimpiar.BackColor = System.Drawing.Color.White
+        Me.btnLimpiar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnLimpiar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnLimpiar.Location = New System.Drawing.Point(221, 3)
+        Me.btnLimpiar.Name = "btnLimpiar"
+        Me.btnLimpiar.Size = New System.Drawing.Size(78, 36)
+        Me.btnLimpiar.TabIndex = 165
+        Me.btnLimpiar.Text = "Limpiar"
+        Me.btnLimpiar.UseVisualStyleBackColor = False
+        '
         'btnExcel
         '
+        Me.btnExcel.BackColor = System.Drawing.Color.White
+        Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnExcel.ForeColor = System.Drawing.Color.Maroon
         Me.btnExcel.Location = New System.Drawing.Point(137, 3)
         Me.btnExcel.Name = "btnExcel"
-        Me.btnExcel.Size = New System.Drawing.Size(78, 42)
+        Me.btnExcel.Size = New System.Drawing.Size(78, 36)
         Me.btnExcel.TabIndex = 164
         Me.btnExcel.Text = "Agregar lista"
-        Me.btnExcel.UseVisualStyleBackColor = True
+        Me.btnExcel.UseVisualStyleBackColor = False
         '
         'Label6
         '
@@ -519,15 +539,6 @@ Partial Class frmResultadoTitularizacion
         Me.Panel1.Size = New System.Drawing.Size(800, 467)
         Me.Panel1.TabIndex = 126
         '
-        'btnLimpiar
-        '
-        Me.btnLimpiar.Location = New System.Drawing.Point(221, 3)
-        Me.btnLimpiar.Name = "btnLimpiar"
-        Me.btnLimpiar.Size = New System.Drawing.Size(78, 42)
-        Me.btnLimpiar.TabIndex = 165
-        Me.btnLimpiar.Text = "Limpiar"
-        Me.btnLimpiar.UseVisualStyleBackColor = True
-        '
         'frmResultadoTitularizacion
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

FRM/frmResultadoTitularizacion.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFPSNtQHMezHdzV6WVXr/O2sycVT24edurS
-        6qyV2Che6tncJmMMEXaalylWZxUxRVBvIqgrFaMu1tLW9Y9STTRtU9v8oaM/8x5ttcVI8QsffvyS3/u8
-        5D0CJc1NNib46aY496M1frLUyvOeBvyinoRCU68yxxOv08FvLVF/TyEXYHpp56iPGqREh50SB2qwG1Cf
-        h5NWi30bCxK735vkwNdu7U8n6P4PoHOfQFUkULVbU3J5GZAECy58X5oz/i5la7K9qB8Nv9P2OkA7ICGc
-        KpqCJCRJiSXBTHOWZ97q+x9B22kD1fceBEHQuUgS5ty/YZX1VlhaXoGj6HW1AB2YwHveDPY7/muGhF1n
-        z9FAVCpARFQgbBAR1QrRVKFaUE6vbUAR0zKw3jU8EDyX4Of0L5iddVeYX/BAKCmbC6RsHn8qGohd54D/
-        dwnHZ9XEbpT6BIFkDrjIJRwYoFrm9MpEYKsRnCQkcM8vVg4QgfrTi4yJwFotCN8UICgo9xg7B69U/Lwu
-        weEj14j6v7GaayzHSvanHgoSchETL9WHPCqwWIbyaUOwvrGJB55CUbPQ1zfCl5YSBAC8MH6BdbnGwTnk
-        Ato5hqsZNE3rNtLhZRjmZUnx3BDEHbnhbDTGJY94AAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZE7TNtQFIZdBrryWLqywsbMVCqmtgxMwQmP
+        EGRiqi7pXG9UCNEKiQkWQCSUgBCOKgFTpUrQRqlwoSZESUoeoIANTuKQ+KFUOfheJYFEuIr6S5+Ojn3u
+        d+17CZQM96klyS+2Jbj5rsTJRhfPe5vxi0YSDs89zR5/aM2EZjpigf5iPsgM0c63fmqcEh12Shyrw25A
+        jUymrBb7NyxIHsy2ycHpl9qPF6AHXoPODYKqSKBqt6bkCzIgCRZc+Kfas4E+5evH5yX9aLJb+94L2iEJ
+        kXTJFCQhSUosC5bbczzTqf8cAG2/B1T/KxAEQeeiKVh1f4Zt1ldlY3MLjmLXtQJ0YALvfTY+6virGRJ2
+        hz1HAzGpCFFRgYhBVFSrxNLFWkElQ7YxRczIwPq+4IHQuQQLi0uwsuKu4lnzQjglmwukXAF/KhqIX+eB
+        P7uE4z+1xG+UxgTBVB646CUcGqBa4fTKRGCrE5wkJXB71qsHiED96UXWRGCtFURuihASlHuMnUNXKn7e
+        kODXI9eI+t/xumusxEqOph8KknIJkyjXhzwqsFgmChlDsLO7hwf+haLmYHj4DV9eShAA8MT4Bdbleg/O
+        CRfQzne4mkHTtG4jHT6GYZrKiv8NQdwBs1psMpVkNvQAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG0SURBVDhPlZO5SgNRFIYnmfgANmLhChYiWCWkk2hcOh9A
-        sRFFrCwsErSxUlCxMMOQyspGC1MookLAhQRBsLGwcwnIhGxmnezJ7z1DZoxm4nLgY4bL/b85516Gq1UH
-        w8yw/kIPw8hoKHM2m034fL5KuVyGHvl8HoIg7LK9uhIrhTOZDGRZ1kgmk4jH4wiFQookGAxCFMUGiYFh
-        pQ25XA6FQkF5Eul0GolEAuFwWBGwLkEfcbvdqkQpTUBhFRJQIJVKIRKJfBmHoEwt+ykolUraBnqnudVR
-        otGo0okkSc0F36mXUCd0HrFY7O8CQpXQOHQmJKL1PwuIYrGonAtJCFr7l4C6eD1y4XZ2AN7RFlxPd0Ow
-        GsQfBRRSCXgEPDiGkDvdQfXxHPLBMi5tg5WLYdPSrwJq/2amD1kWhmsScLYCG72IbA3jdIR/biqol1Db
-        1XsP6iu+1o51u6mqCfx+f1VPQlxNdSGzNwewUN7B4Z0RWORxPs6/kYDKwq5HZhLdn+nlcBt3C/2QnL0I
-        r7Tgad4Ar81UORszrtbyXCfDwqCr0WVvok08tvMStX1i40P7Q/wmx3HcB9w9hCPmBqFRAAAAAElFTkSu
+        sRFFrCwsErSxEUHFwgxDKisbLUyhiAoBlwQEwcbCziUgE7KZdbInv/cMmTGaicuBjxku9//mnHsZrlYd
+        DDPD+gs9DCOjoczZbDbh8/kq5XIZeuTzeQiCsMv26kqsFM5kMpBlWSOZTCIejyMUCimSYDAIURQbJAaG
+        lTbkcjkUCgXlSaTTaSQSCYTDYUXAugR9xO12qxKlNAGFVUhAgVQqhUgk8mUcgjK17KegVCppG+id5lZH
+        iUajSieSJDUXfKdeQp3QecRisb8LCFVC49CZkIjW/ywgisWici4kIWjtXwLq4vXIhdvZAXhHW3A93Q3B
+        ahB/FFBIJeAR8OAYQu50B9XHc8gHy7i0DVYuhk1Lvwqo/ZuZPmRZGK5JwNkKbPQisjWM0xH+uamgXkJt
+        V+89qK/4WjvW7aaqJvD7/VU9CXE11YXM3hzAQnkHh3dGYJHH+Tj/RgIqC7semUl0f6aXw23cLfRDcvYi
+        vNKCp3kDvDZT5WzMuFrLc50MC4OuRpe9iTbx2M5L1PaJjQ/tD/GbHMdxH8IQhBX1O8OyAAAAAElFTkSu
         QmCC
 </value>
   </data>

FRM/frmSeleccionPoolTitulos.Designer.vb

@@ -250,21 +250,27 @@ Partial Class frmSeleccionPoolTitulos
         '
         'btnVer
         '
+        Me.btnVer.BackColor = System.Drawing.Color.White
+        Me.btnVer.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVer.ForeColor = System.Drawing.Color.Maroon
         Me.btnVer.Location = New System.Drawing.Point(398, 393)
         Me.btnVer.Name = "btnVer"
         Me.btnVer.Size = New System.Drawing.Size(75, 23)
         Me.btnVer.TabIndex = 89
         Me.btnVer.Text = "Ver Detalles"
-        Me.btnVer.UseVisualStyleBackColor = True
+        Me.btnVer.UseVisualStyleBackColor = False
         '
         'btnAgregar
         '
+        Me.btnAgregar.BackColor = System.Drawing.Color.White
+        Me.btnAgregar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAgregar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAgregar.Location = New System.Drawing.Point(398, 422)
         Me.btnAgregar.Name = "btnAgregar"
         Me.btnAgregar.Size = New System.Drawing.Size(75, 55)
         Me.btnAgregar.TabIndex = 90
         Me.btnAgregar.Text = " l" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "V" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
-        Me.btnAgregar.UseVisualStyleBackColor = True
+        Me.btnAgregar.UseVisualStyleBackColor = False
         '
         'lblInstrumentos
         '
@@ -375,12 +381,15 @@ Partial Class frmSeleccionPoolTitulos
         '
         'btnGenerarPool
         '
+        Me.btnGenerarPool.BackColor = System.Drawing.Color.White
+        Me.btnGenerarPool.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGenerarPool.ForeColor = System.Drawing.Color.Maroon
         Me.btnGenerarPool.Location = New System.Drawing.Point(368, 657)
         Me.btnGenerarPool.Name = "btnGenerarPool"
         Me.btnGenerarPool.Size = New System.Drawing.Size(127, 42)
         Me.btnGenerarPool.TabIndex = 96
         Me.btnGenerarPool.Text = "Guardar Lista de Titulos"
-        Me.btnGenerarPool.UseVisualStyleBackColor = True
+        Me.btnGenerarPool.UseVisualStyleBackColor = False
         '
         'lblCodigo
         '
@@ -401,17 +410,21 @@ Partial Class frmSeleccionPoolTitulos
         '
         'btnLimpiar
         '
+        Me.btnLimpiar.BackColor = System.Drawing.Color.White
+        Me.btnLimpiar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnLimpiar.ForeColor = System.Drawing.Color.Maroon
         Me.btnLimpiar.Location = New System.Drawing.Point(650, 426)
         Me.btnLimpiar.Name = "btnLimpiar"
         Me.btnLimpiar.Size = New System.Drawing.Size(87, 23)
         Me.btnLimpiar.TabIndex = 99
         Me.btnLimpiar.Text = "Limpiar"
-        Me.btnLimpiar.UseVisualStyleBackColor = True
+        Me.btnLimpiar.UseVisualStyleBackColor = False
         '
         'frmSeleccionPoolTitulos
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(820, 711)
         Me.Controls.Add(Me.btnLimpiar)
         Me.Controls.Add(Me.txtcodigo)
@@ -430,8 +443,8 @@ Partial Class frmSeleccionPoolTitulos
         Me.Controls.Add(Me.cboEmpresa)
         Me.Controls.Add(Me.dgvTitulos)
         Me.Controls.Add(Me.lblTitulo)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmSeleccionPoolTitulos"
-        Me.Text = "frmSeleccionPoolTitulos"
         CType(Me.dgvTitulos, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()

FRM/frmSeleccionTitulosReportos.Designer.vb

@@ -30,6 +30,14 @@ Partial Class frmSeleccionTitulosReportos
         Me.pnlContenedor = New System.Windows.Forms.Panel()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.dgvDetalles = New System.Windows.Forms.DataGridView()
+        Me.NombreInstrumento = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.NombreTitulo = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.NombreEmpresa = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.NombreEmpr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Monto = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.SaldoDisponible = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.SaldoUsado = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.PorcentajeRestantes = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.btnCancelar = New System.Windows.Forms.Button()
         Me.pnlControladores = New System.Windows.Forms.Panel()
         Me.txtMover = New System.Windows.Forms.TextBox()
@@ -57,14 +65,6 @@ Partial Class frmSeleccionTitulosReportos
         Me.lblCodigoAsociado = New System.Windows.Forms.Label()
         Me.lblMonto = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.NombreInstrumento = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.NombreTitulo = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.NombreEmpresa = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.NombreEmpr = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Monto = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.SaldoDisponible = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.SaldoUsado = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.PorcentajeRestantes = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.grpAsignar.SuspendLayout()
         Me.pnlContenedor.SuspendLayout()
         CType(Me.dgvDetalles, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -165,14 +165,59 @@ Partial Class frmSeleccionTitulosReportos
         Me.dgvDetalles.Size = New System.Drawing.Size(432, 136)
         Me.dgvDetalles.TabIndex = 0
         '
+        'NombreInstrumento
+        '
+        Me.NombreInstrumento.HeaderText = "Instrumento"
+        Me.NombreInstrumento.Name = "NombreInstrumento"
+        Me.NombreInstrumento.Visible = False
+        '
+        'NombreTitulo
+        '
+        Me.NombreTitulo.HeaderText = "Nombre Titulo"
+        Me.NombreTitulo.Name = "NombreTitulo"
+        '
+        'NombreEmpresa
+        '
+        Me.NombreEmpresa.HeaderText = "Empresa"
+        Me.NombreEmpresa.Name = "NombreEmpresa"
+        Me.NombreEmpresa.Visible = False
+        '
+        'NombreEmpr
+        '
+        Me.NombreEmpr.HeaderText = "NombreEmpr"
+        Me.NombreEmpr.Name = "NombreEmpr"
+        '
+        'Monto
+        '
+        Me.Monto.HeaderText = "Monto"
+        Me.Monto.Name = "Monto"
+        '
+        'SaldoDisponible
+        '
+        Me.SaldoDisponible.HeaderText = "Saldo Disponible"
+        Me.SaldoDisponible.Name = "SaldoDisponible"
+        '
+        'SaldoUsado
+        '
+        Me.SaldoUsado.HeaderText = "Saldo Usado"
+        Me.SaldoUsado.Name = "SaldoUsado"
+        '
+        'PorcentajeRestantes
+        '
+        Me.PorcentajeRestantes.HeaderText = "Porcentaje Restantes"
+        Me.PorcentajeRestantes.Name = "PorcentajeRestantes"
+        '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(429, 179)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 14
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'pnlControladores
         '
@@ -193,30 +238,39 @@ Partial Class frmSeleccionTitulosReportos
         '
         'btnMover
         '
+        Me.btnMover.BackColor = System.Drawing.Color.White
+        Me.btnMover.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMover.ForeColor = System.Drawing.Color.Maroon
         Me.btnMover.Location = New System.Drawing.Point(20, 33)
         Me.btnMover.Name = "btnMover"
         Me.btnMover.Size = New System.Drawing.Size(75, 23)
         Me.btnMover.TabIndex = 7
         Me.btnMover.Text = ">>"
-        Me.btnMover.UseVisualStyleBackColor = True
+        Me.btnMover.UseVisualStyleBackColor = False
         '
         'btnAgregarSiguiente
         '
+        Me.btnAgregarSiguiente.BackColor = System.Drawing.Color.White
+        Me.btnAgregarSiguiente.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAgregarSiguiente.ForeColor = System.Drawing.Color.Maroon
         Me.btnAgregarSiguiente.Location = New System.Drawing.Point(871, 23)
         Me.btnAgregarSiguiente.Name = "btnAgregarSiguiente"
         Me.btnAgregarSiguiente.Size = New System.Drawing.Size(44, 32)
         Me.btnAgregarSiguiente.TabIndex = 17
         Me.btnAgregarSiguiente.Text = ">>"
-        Me.btnAgregarSiguiente.UseVisualStyleBackColor = True
+        Me.btnAgregarSiguiente.UseVisualStyleBackColor = False
         '
         'btnAgregar
         '
+        Me.btnAgregar.BackColor = System.Drawing.Color.White
+        Me.btnAgregar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAgregar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAgregar.Location = New System.Drawing.Point(157, 30)
         Me.btnAgregar.Name = "btnAgregar"
         Me.btnAgregar.Size = New System.Drawing.Size(117, 32)
         Me.btnAgregar.TabIndex = 15
         Me.btnAgregar.Text = "Generar Otro Titulo"
-        Me.btnAgregar.UseVisualStyleBackColor = True
+        Me.btnAgregar.UseVisualStyleBackColor = False
         '
         'lblTitulos
         '
@@ -229,6 +283,7 @@ Partial Class frmSeleccionTitulosReportos
         '
         'flpValor
         '
+        Me.flpValor.BackColor = System.Drawing.Color.White
         Me.flpValor.Location = New System.Drawing.Point(537, 68)
         Me.flpValor.Name = "flpValor"
         Me.flpValor.Size = New System.Drawing.Size(354, 134)
@@ -236,6 +291,7 @@ Partial Class frmSeleccionTitulosReportos
         '
         'flpTitulos
         '
+        Me.flpTitulos.BackColor = System.Drawing.Color.White
         Me.flpTitulos.Location = New System.Drawing.Point(15, 68)
         Me.flpTitulos.Name = "flpTitulos"
         Me.flpTitulos.Size = New System.Drawing.Size(378, 134)
@@ -323,12 +379,15 @@ Partial Class frmSeleccionTitulosReportos
         '
         'btnGenerar
         '
+        Me.btnGenerar.BackColor = System.Drawing.Color.White
+        Me.btnGenerar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGenerar.ForeColor = System.Drawing.Color.Maroon
         Me.btnGenerar.Location = New System.Drawing.Point(407, 414)
         Me.btnGenerar.Name = "btnGenerar"
         Me.btnGenerar.Size = New System.Drawing.Size(164, 35)
         Me.btnGenerar.TabIndex = 63
         Me.btnGenerar.Text = "Generar Más Titulos"
-        Me.btnGenerar.UseVisualStyleBackColor = True
+        Me.btnGenerar.UseVisualStyleBackColor = False
         '
         'txtValorTitulo
         '
@@ -407,52 +466,11 @@ Partial Class frmSeleccionTitulosReportos
         Me.Panel1.Size = New System.Drawing.Size(621, 100)
         Me.Panel1.TabIndex = 71
         '
-        'NombreInstrumento
-        '
-        Me.NombreInstrumento.HeaderText = "Instrumento"
-        Me.NombreInstrumento.Name = "NombreInstrumento"
-        Me.NombreInstrumento.Visible = False
-        '
-        'NombreTitulo
-        '
-        Me.NombreTitulo.HeaderText = "Nombre Titulo"
-        Me.NombreTitulo.Name = "NombreTitulo"
-        '
-        'NombreEmpresa
-        '
-        Me.NombreEmpresa.HeaderText = "Empresa"
-        Me.NombreEmpresa.Name = "NombreEmpresa"
-        Me.NombreEmpresa.Visible = False
-        '
-        'NombreEmpr
-        '
-        Me.NombreEmpr.HeaderText = "NombreEmpr"
-        Me.NombreEmpr.Name = "NombreEmpr"
-        '
-        'Monto
-        '
-        Me.Monto.HeaderText = "Monto"
-        Me.Monto.Name = "Monto"
-        '
-        'SaldoDisponible
-        '
-        Me.SaldoDisponible.HeaderText = "Saldo Disponible"
-        Me.SaldoDisponible.Name = "SaldoDisponible"
-        '
-        'SaldoUsado
-        '
-        Me.SaldoUsado.HeaderText = "Saldo Usado"
-        Me.SaldoUsado.Name = "SaldoUsado"
-        '
-        'PorcentajeRestantes
-        '
-        Me.PorcentajeRestantes.HeaderText = "Porcentaje Restantes"
-        Me.PorcentajeRestantes.Name = "PorcentajeRestantes"
-        '
         'frmSeleccionTitulosReportos
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(1356, 451)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.btnGenerar)
@@ -466,8 +484,8 @@ Partial Class frmSeleccionTitulosReportos
         Me.Controls.Add(Me.lblSaldoDisponible)
         Me.Controls.Add(Me.lblSaldoUsado)
         Me.Controls.Add(Me.lblMontoDisponible)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmSeleccionTitulosReportos"
-        Me.Text = "frmSeleccionTitulosReportos"
         Me.grpAsignar.ResumeLayout(False)
         Me.grpAsignar.PerformLayout()
         Me.pnlContenedor.ResumeLayout(False)

FRM/frmTitularizacion.Designer.vb

@@ -1,1509 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmTitularizacion
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.Label14 = New System.Windows.Forms.Label()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.Label18 = New System.Windows.Forms.Label()
-        Me.Label19 = New System.Windows.Forms.Label()
-        Me.Label20 = New System.Windows.Forms.Label()
-        Me.Label21 = New System.Windows.Forms.Label()
-        Me.dtpUltimaFechaCuponCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpSiguienteFechaCuponCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaLiquidacionCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaVencimientoCompra = New System.Windows.Forms.DateTimePicker()
-        Me.txtValorNominalCompra = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeCuponCompra = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoComisionCompra = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioCompra = New System.Windows.Forms.TextBox()
-        Me.txtDiasAcumuladosCompra = New System.Windows.Forms.TextBox()
-        Me.txtComisionCasaCompra = New System.Windows.Forms.TextBox()
-        Me.txtComisionBolsaCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioSucioCompra = New System.Windows.Forms.TextBox()
-        Me.txtInteresAcumuladoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeInteresAcumuladoCompra = New System.Windows.Forms.TextBox()
-        Me.txtValorTransadoCompra = New System.Windows.Forms.TextBox()
-        Me.txtMontoAPagar = New System.Windows.Forms.TextBox()
-        Me.txtCostoTransferenciaCompra = New System.Windows.Forms.TextBox()
-        Me.txtDiasAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeComisionCasaCompra = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeComisionBolsaCompra = New System.Windows.Forms.TextBox()
-        Me.Label17 = New System.Windows.Forms.Label()
-        Me.lblBono = New System.Windows.Forms.Label()
-        Me.txtPorcentajeComisionBolsaVenta = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeComisionCasaVenta = New System.Windows.Forms.TextBox()
-        Me.txtDiasAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtCostoTransferenciaVenta = New System.Windows.Forms.TextBox()
-        Me.txtMontoARecibir = New System.Windows.Forms.TextBox()
-        Me.txtValorTransadoVenta = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeInteresAcumuladoVenta = New System.Windows.Forms.TextBox()
-        Me.txtInteresAcumuladoVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioSucioVenta = New System.Windows.Forms.TextBox()
-        Me.txtComisionBolsaVenta = New System.Windows.Forms.TextBox()
-        Me.txtComisionCasaVenta = New System.Windows.Forms.TextBox()
-        Me.txtDiasAcumuladosVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoComisionVenta = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeCuponVenta = New System.Windows.Forms.TextBox()
-        Me.txtValorNominalVenta = New System.Windows.Forms.TextBox()
-        Me.dtpFechaVencimientoVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaLiquidacionVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpSiguienteFechaCuponVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpUltimaFechaCuponVenta = New System.Windows.Forms.DateTimePicker()
-        Me.Label22 = New System.Windows.Forms.Label()
-        Me.Label23 = New System.Windows.Forms.Label()
-        Me.Label24 = New System.Windows.Forms.Label()
-        Me.Label25 = New System.Windows.Forms.Label()
-        Me.Label26 = New System.Windows.Forms.Label()
-        Me.label27 = New System.Windows.Forms.Label()
-        Me.lblIngresosPorIntereses_Op = New System.Windows.Forms.Label()
-        Me.lblCostosTotales_Op = New System.Windows.Forms.Label()
-        Me.lblGananciaPerdidaTotal_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoGananciaPerdida_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoIntereses_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoAntesISR_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoDespuesISR_Op = New System.Windows.Forms.Label()
-        Me.Label35 = New System.Windows.Forms.Label()
-        Me.txtValorNominal_Op = New System.Windows.Forms.TextBox()
-        Me.txtPlazo_Op = New System.Windows.Forms.TextBox()
-        Me.txtPrecioCompra_Op = New System.Windows.Forms.TextBox()
-        Me.txtPrecioVenta_Op = New System.Windows.Forms.TextBox()
-        Me.txtGananciaPerdidaCapital_Op = New System.Windows.Forms.TextBox()
-        Me.txtIngresosPorIntereses_Op = New System.Windows.Forms.TextBox()
-        Me.txtCostosTotales_Op = New System.Windows.Forms.TextBox()
-        Me.txtGananciaPerdidaTotal_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoGananciaPerdida_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoIntereses_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoAntesISR_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoDespuesISR_Op = New System.Windows.Forms.TextBox()
-        Me.btnAceptar = New System.Windows.Forms.Button()
-        Me.btnCancelar = New System.Windows.Forms.Button()
-        Me.cboCasa_C = New System.Windows.Forms.ComboBox()
-        Me.cboCasa_V = New System.Windows.Forms.ComboBox()
-        Me.Label28 = New System.Windows.Forms.Label()
-        Me.cboAnioBaseC = New System.Windows.Forms.ComboBox()
-        Me.cboAnioBaseV = New System.Windows.Forms.ComboBox()
-        Me.cboPeriodosC = New System.Windows.Forms.ComboBox()
-        Me.cboPeriodosV = New System.Windows.Forms.ComboBox()
-        Me.Label29 = New System.Windows.Forms.Label()
-        Me.dgvIngresos = New System.Windows.Forms.DataGridView()
-        Me.btnRefrescarIngresos = New System.Windows.Forms.Button()
-        Me.Label30 = New System.Windows.Forms.Label()
-        Me.txtTotalIngresoCupones = New System.Windows.Forms.TextBox()
-        Me.Label31 = New System.Windows.Forms.Label()
-        Me.dgvAmortizacionDeCapital = New System.Windows.Forms.DataGridView()
-        Me.txtEmisionTotal = New System.Windows.Forms.TextBox()
-        Me.Label32 = New System.Windows.Forms.Label()
-        Me.dtpFechaEmision = New System.Windows.Forms.DateTimePicker()
-        Me.Label33 = New System.Windows.Forms.Label()
-        Me.txtTasaEmision = New System.Windows.Forms.TextBox()
-        Me.Label34 = New System.Windows.Forms.Label()
-        Me.txtPeriodicidadEmision = New System.Windows.Forms.TextBox()
-        Me.Label36 = New System.Windows.Forms.Label()
-        Me.txtPeriodosEmision = New System.Windows.Forms.TextBox()
-        Me.Label37 = New System.Windows.Forms.Label()
-        Me.txtMontoCompraEmision = New System.Windows.Forms.TextBox()
-        Me.Label38 = New System.Windows.Forms.Label()
-        Me.txtMontoCompraPrimario = New System.Windows.Forms.TextBox()
-        Me.Label39 = New System.Windows.Forms.Label()
-        Me.txtCesionFlujo1 = New System.Windows.Forms.TextBox()
-        Me.Label40 = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
-        CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.dgvAmortizacionDeCapital, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(12, 108)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(88, 18)
-        Me.Label1.TabIndex = 0
-        Me.Label1.Text = "Valor Nominal"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(12, 130)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(142, 18)
-        Me.Label2.TabIndex = 1
-        Me.Label2.Text = "Ultima Fecha de Cupon"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(12, 152)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(159, 18)
-        Me.Label3.TabIndex = 2
-        Me.Label3.Text = "Siguiente Fecha de Cupon"
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(12, 174)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(131, 18)
-        Me.Label4.TabIndex = 3
-        Me.Label4.Text = "Fecha de Liquidacion"
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(12, 196)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(136, 18)
-        Me.Label5.TabIndex = 4
-        Me.Label5.Text = "Fecha de Vencimiento"
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(12, 285)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 18)
-        Me.Label6.TabIndex = 5
-        Me.Label6.Text = "Cupon %"
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(12, 329)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(182, 18)
-        Me.Label7.TabIndex = 6
-        Me.Label7.Text = "YTM Al Vencimiento Comision"
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.ForeColor = System.Drawing.Color.Red
-        Me.Label8.Location = New System.Drawing.Point(12, 307)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(124, 18)
-        Me.Label8.TabIndex = 7
-        Me.Label8.Text = "YTM Al vencimiento"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(12, 351)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(134, 18)
-        Me.Label9.TabIndex = 8
-        Me.Label9.Text = "Precio al Vencimiento"
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label10.ForeColor = System.Drawing.Color.Red
-        Me.Label10.Location = New System.Drawing.Point(12, 373)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(133, 18)
-        Me.Label10.TabIndex = 9
-        Me.Label10.Text = "Precio Compra/Venta"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(12, 218)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(74, 18)
-        Me.Label11.TabIndex = 10
-        Me.Label11.Text = "Base (Dias)"
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(12, 263)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(106, 18)
-        Me.Label12.TabIndex = 11
-        Me.Label12.Text = "Dias Acumulados"
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(12, 241)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(123, 18)
-        Me.Label13.TabIndex = 12
-        Me.Label13.Text = "Dias al Vencimiento"
-        '
-        'Label14
-        '
-        Me.Label14.AutoSize = True
-        Me.Label14.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label14.Location = New System.Drawing.Point(12, 418)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(94, 18)
-        Me.Label14.TabIndex = 13
-        Me.Label14.Text = "Comision Casa"
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label15.Location = New System.Drawing.Point(12, 440)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(96, 18)
-        Me.Label15.TabIndex = 14
-        Me.Label15.Text = "Comision Bolsa"
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label16.Location = New System.Drawing.Point(12, 462)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(116, 18)
-        Me.Label16.TabIndex = 15
-        Me.Label16.Text = "Interes Acumulado"
-        '
-        'Label18
-        '
-        Me.Label18.AutoSize = True
-        Me.Label18.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label18.Location = New System.Drawing.Point(12, 484)
-        Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(91, 18)
-        Me.Label18.TabIndex = 17
-        Me.Label18.Text = "Precio Sucio %"
-        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label19.Location = New System.Drawing.Point(12, 506)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(95, 18)
-        Me.Label19.TabIndex = 18
-        Me.Label19.Text = "Valor Transado"
-        '
-        'Label20
-        '
-        Me.Label20.AutoSize = True
-        Me.Label20.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label20.Location = New System.Drawing.Point(12, 528)
-        Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(140, 18)
-        Me.Label20.TabIndex = 19
-        Me.Label20.Text = "Monto a Pagar/Recibir"
-        '
-        'Label21
-        '
-        Me.Label21.AutoSize = True
-        Me.Label21.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label21.Location = New System.Drawing.Point(12, 550)
-        Me.Label21.Name = "Label21"
-        Me.Label21.Size = New System.Drawing.Size(126, 18)
-        Me.Label21.TabIndex = 20
-        Me.Label21.Text = "Costo Transferencia"
-        '
-        'dtpUltimaFechaCuponCompra
-        '
-        Me.dtpUltimaFechaCuponCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpUltimaFechaCuponCompra.Location = New System.Drawing.Point(195, 129)
-        Me.dtpUltimaFechaCuponCompra.Name = "dtpUltimaFechaCuponCompra"
-        Me.dtpUltimaFechaCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpUltimaFechaCuponCompra.TabIndex = 3
-        '
-        'dtpSiguienteFechaCuponCompra
-        '
-        Me.dtpSiguienteFechaCuponCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpSiguienteFechaCuponCompra.Location = New System.Drawing.Point(195, 151)
-        Me.dtpSiguienteFechaCuponCompra.Name = "dtpSiguienteFechaCuponCompra"
-        Me.dtpSiguienteFechaCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpSiguienteFechaCuponCompra.TabIndex = 4
-        '
-        'dtpFechaLiquidacionCompra
-        '
-        Me.dtpFechaLiquidacionCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaLiquidacionCompra.Location = New System.Drawing.Point(195, 173)
-        Me.dtpFechaLiquidacionCompra.Name = "dtpFechaLiquidacionCompra"
-        Me.dtpFechaLiquidacionCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaLiquidacionCompra.TabIndex = 5
-        '
-        'dtpFechaVencimientoCompra
-        '
-        Me.dtpFechaVencimientoCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaVencimientoCompra.Location = New System.Drawing.Point(195, 195)
-        Me.dtpFechaVencimientoCompra.Name = "dtpFechaVencimientoCompra"
-        Me.dtpFechaVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaVencimientoCompra.TabIndex = 6
-        '
-        'txtValorNominalCompra
-        '
-        Me.txtValorNominalCompra.Location = New System.Drawing.Point(195, 107)
-        Me.txtValorNominalCompra.Name = "txtValorNominalCompra"
-        Me.txtValorNominalCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominalCompra.TabIndex = 2
-        '
-        'txtPorcentajeCuponCompra
-        '
-        Me.txtPorcentajeCuponCompra.Location = New System.Drawing.Point(195, 284)
-        Me.txtPorcentajeCuponCompra.Name = "txtPorcentajeCuponCompra"
-        Me.txtPorcentajeCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPorcentajeCuponCompra.TabIndex = 8
-        '
-        'txtYTMAlVencimientoComisionCompra
-        '
-        Me.txtYTMAlVencimientoComisionCompra.Location = New System.Drawing.Point(195, 328)
-        Me.txtYTMAlVencimientoComisionCompra.Name = "txtYTMAlVencimientoComisionCompra"
-        Me.txtYTMAlVencimientoComisionCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoComisionCompra.TabIndex = 10
-        '
-        'txtYTMAlVencimientoCompra
-        '
-        Me.txtYTMAlVencimientoCompra.Location = New System.Drawing.Point(195, 306)
-        Me.txtYTMAlVencimientoCompra.Name = "txtYTMAlVencimientoCompra"
-        Me.txtYTMAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoCompra.TabIndex = 9
-        '
-        'txtPrecioAlVencimientoCompra
-        '
-        Me.txtPrecioAlVencimientoCompra.Location = New System.Drawing.Point(195, 350)
-        Me.txtPrecioAlVencimientoCompra.Name = "txtPrecioAlVencimientoCompra"
-        Me.txtPrecioAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioAlVencimientoCompra.TabIndex = 11
-        '
-        'txtPrecioCompra
-        '
-        Me.txtPrecioCompra.Location = New System.Drawing.Point(195, 372)
-        Me.txtPrecioCompra.Name = "txtPrecioCompra"
-        Me.txtPrecioCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioCompra.TabIndex = 12
-        '
-        'txtDiasAcumuladosCompra
-        '
-        Me.txtDiasAcumuladosCompra.Location = New System.Drawing.Point(195, 262)
-        Me.txtDiasAcumuladosCompra.Name = "txtDiasAcumuladosCompra"
-        Me.txtDiasAcumuladosCompra.ReadOnly = True
-        Me.txtDiasAcumuladosCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAcumuladosCompra.TabIndex = 0
-        '
-        'txtComisionCasaCompra
-        '
-        Me.txtComisionCasaCompra.Location = New System.Drawing.Point(237, 417)
-        Me.txtComisionCasaCompra.Name = "txtComisionCasaCompra"
-        Me.txtComisionCasaCompra.ReadOnly = True
-        Me.txtComisionCasaCompra.Size = New System.Drawing.Size(108, 20)
-        Me.txtComisionCasaCompra.TabIndex = 0
-        '
-        'txtComisionBolsaCompra
-        '
-        Me.txtComisionBolsaCompra.Location = New System.Drawing.Point(237, 439)
-        Me.txtComisionBolsaCompra.Name = "txtComisionBolsaCompra"
-        Me.txtComisionBolsaCompra.ReadOnly = True
-        Me.txtComisionBolsaCompra.Size = New System.Drawing.Size(108, 20)
-        Me.txtComisionBolsaCompra.TabIndex = 0
-        '
-        'txtPrecioSucioCompra
-        '
-        Me.txtPrecioSucioCompra.Location = New System.Drawing.Point(195, 483)
-        Me.txtPrecioSucioCompra.Name = "txtPrecioSucioCompra"
-        Me.txtPrecioSucioCompra.ReadOnly = True
-        Me.txtPrecioSucioCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioSucioCompra.TabIndex = 0
-        '
-        'txtInteresAcumuladoCompra
-        '
-        Me.txtInteresAcumuladoCompra.Location = New System.Drawing.Point(195, 461)
-        Me.txtInteresAcumuladoCompra.Name = "txtInteresAcumuladoCompra"
-        Me.txtInteresAcumuladoCompra.ReadOnly = True
-        Me.txtInteresAcumuladoCompra.Size = New System.Drawing.Size(108, 20)
-        Me.txtInteresAcumuladoCompra.TabIndex = 0
-        '
-        'txtPorcentajeInteresAcumuladoCompra
-        '
-        Me.txtPorcentajeInteresAcumuladoCompra.Location = New System.Drawing.Point(305, 461)
-        Me.txtPorcentajeInteresAcumuladoCompra.Name = "txtPorcentajeInteresAcumuladoCompra"
-        Me.txtPorcentajeInteresAcumuladoCompra.ReadOnly = True
-        Me.txtPorcentajeInteresAcumuladoCompra.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeInteresAcumuladoCompra.TabIndex = 0
-        '
-        'txtValorTransadoCompra
-        '
-        Me.txtValorTransadoCompra.Location = New System.Drawing.Point(195, 505)
-        Me.txtValorTransadoCompra.Name = "txtValorTransadoCompra"
-        Me.txtValorTransadoCompra.ReadOnly = True
-        Me.txtValorTransadoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorTransadoCompra.TabIndex = 0
-        '
-        'txtMontoAPagar
-        '
-        Me.txtMontoAPagar.Location = New System.Drawing.Point(195, 527)
-        Me.txtMontoAPagar.Name = "txtMontoAPagar"
-        Me.txtMontoAPagar.ReadOnly = True
-        Me.txtMontoAPagar.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoAPagar.TabIndex = 0
-        '
-        'txtCostoTransferenciaCompra
-        '
-        Me.txtCostoTransferenciaCompra.Location = New System.Drawing.Point(195, 549)
-        Me.txtCostoTransferenciaCompra.Name = "txtCostoTransferenciaCompra"
-        Me.txtCostoTransferenciaCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostoTransferenciaCompra.TabIndex = 16
-        '
-        'txtDiasAlVencimientoCompra
-        '
-        Me.txtDiasAlVencimientoCompra.Location = New System.Drawing.Point(195, 240)
-        Me.txtDiasAlVencimientoCompra.Name = "txtDiasAlVencimientoCompra"
-        Me.txtDiasAlVencimientoCompra.ReadOnly = True
-        Me.txtDiasAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAlVencimientoCompra.TabIndex = 0
-        '
-        'txtPorcentajeComisionCasaCompra
-        '
-        Me.txtPorcentajeComisionCasaCompra.Location = New System.Drawing.Point(195, 417)
-        Me.txtPorcentajeComisionCasaCompra.Name = "txtPorcentajeComisionCasaCompra"
-        Me.txtPorcentajeComisionCasaCompra.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeComisionCasaCompra.TabIndex = 14
-        '
-        'txtPorcentajeComisionBolsaCompra
-        '
-        Me.txtPorcentajeComisionBolsaCompra.Location = New System.Drawing.Point(195, 439)
-        Me.txtPorcentajeComisionBolsaCompra.Name = "txtPorcentajeComisionBolsaCompra"
-        Me.txtPorcentajeComisionBolsaCompra.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeComisionBolsaCompra.TabIndex = 15
-        '
-        'Label17
-        '
-        Me.Label17.AutoSize = True
-        Me.Label17.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label17.Location = New System.Drawing.Point(248, 50)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(55, 18)
-        Me.Label17.TabIndex = 55
-        Me.Label17.Text = "Compra"
-        '
-        'lblBono
-        '
-        Me.lblBono.AutoSize = True
-        Me.lblBono.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBono.Location = New System.Drawing.Point(13, 9)
-        Me.lblBono.Name = "lblBono"
-        Me.lblBono.Size = New System.Drawing.Size(154, 24)
-        Me.lblBono.TabIndex = 56
-        Me.lblBono.Text = "Titularizaciones"
-        '
-        'txtPorcentajeComisionBolsaVenta
-        '
-        Me.txtPorcentajeComisionBolsaVenta.Location = New System.Drawing.Point(351, 439)
-        Me.txtPorcentajeComisionBolsaVenta.Name = "txtPorcentajeComisionBolsaVenta"
-        Me.txtPorcentajeComisionBolsaVenta.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeComisionBolsaVenta.TabIndex = 31
-        '
-        'txtPorcentajeComisionCasaVenta
-        '
-        Me.txtPorcentajeComisionCasaVenta.Location = New System.Drawing.Point(351, 417)
-        Me.txtPorcentajeComisionCasaVenta.Name = "txtPorcentajeComisionCasaVenta"
-        Me.txtPorcentajeComisionCasaVenta.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeComisionCasaVenta.TabIndex = 30
-        '
-        'txtDiasAlVencimientoVenta
-        '
-        Me.txtDiasAlVencimientoVenta.Location = New System.Drawing.Point(351, 240)
-        Me.txtDiasAlVencimientoVenta.Name = "txtDiasAlVencimientoVenta"
-        Me.txtDiasAlVencimientoVenta.ReadOnly = True
-        Me.txtDiasAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAlVencimientoVenta.TabIndex = 77
-        '
-        'txtCostoTransferenciaVenta
-        '
-        Me.txtCostoTransferenciaVenta.Location = New System.Drawing.Point(351, 549)
-        Me.txtCostoTransferenciaVenta.Name = "txtCostoTransferenciaVenta"
-        Me.txtCostoTransferenciaVenta.ReadOnly = True
-        Me.txtCostoTransferenciaVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostoTransferenciaVenta.TabIndex = 32
-        '
-        'txtMontoARecibir
-        '
-        Me.txtMontoARecibir.Location = New System.Drawing.Point(351, 527)
-        Me.txtMontoARecibir.Name = "txtMontoARecibir"
-        Me.txtMontoARecibir.ReadOnly = True
-        Me.txtMontoARecibir.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoARecibir.TabIndex = 0
-        '
-        'txtValorTransadoVenta
-        '
-        Me.txtValorTransadoVenta.Location = New System.Drawing.Point(351, 505)
-        Me.txtValorTransadoVenta.Name = "txtValorTransadoVenta"
-        Me.txtValorTransadoVenta.ReadOnly = True
-        Me.txtValorTransadoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorTransadoVenta.TabIndex = 0
-        '
-        'txtPorcentajeInteresAcumuladoVenta
-        '
-        Me.txtPorcentajeInteresAcumuladoVenta.Location = New System.Drawing.Point(461, 461)
-        Me.txtPorcentajeInteresAcumuladoVenta.Name = "txtPorcentajeInteresAcumuladoVenta"
-        Me.txtPorcentajeInteresAcumuladoVenta.ReadOnly = True
-        Me.txtPorcentajeInteresAcumuladoVenta.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeInteresAcumuladoVenta.TabIndex = 0
-        '
-        'txtInteresAcumuladoVenta
-        '
-        Me.txtInteresAcumuladoVenta.Location = New System.Drawing.Point(351, 461)
-        Me.txtInteresAcumuladoVenta.Name = "txtInteresAcumuladoVenta"
-        Me.txtInteresAcumuladoVenta.ReadOnly = True
-        Me.txtInteresAcumuladoVenta.Size = New System.Drawing.Size(108, 20)
-        Me.txtInteresAcumuladoVenta.TabIndex = 0
-        '
-        'txtPrecioSucioVenta
-        '
-        Me.txtPrecioSucioVenta.Location = New System.Drawing.Point(351, 483)
-        Me.txtPrecioSucioVenta.Name = "txtPrecioSucioVenta"
-        Me.txtPrecioSucioVenta.ReadOnly = True
-        Me.txtPrecioSucioVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioSucioVenta.TabIndex = 0
-        '
-        'txtComisionBolsaVenta
-        '
-        Me.txtComisionBolsaVenta.Location = New System.Drawing.Point(393, 439)
-        Me.txtComisionBolsaVenta.Name = "txtComisionBolsaVenta"
-        Me.txtComisionBolsaVenta.ReadOnly = True
-        Me.txtComisionBolsaVenta.Size = New System.Drawing.Size(108, 20)
-        Me.txtComisionBolsaVenta.TabIndex = 0
-        '
-        'txtComisionCasaVenta
-        '
-        Me.txtComisionCasaVenta.Location = New System.Drawing.Point(393, 417)
-        Me.txtComisionCasaVenta.Name = "txtComisionCasaVenta"
-        Me.txtComisionCasaVenta.ReadOnly = True
-        Me.txtComisionCasaVenta.Size = New System.Drawing.Size(108, 20)
-        Me.txtComisionCasaVenta.TabIndex = 0
-        '
-        'txtDiasAcumuladosVenta
-        '
-        Me.txtDiasAcumuladosVenta.Location = New System.Drawing.Point(351, 262)
-        Me.txtDiasAcumuladosVenta.Name = "txtDiasAcumuladosVenta"
-        Me.txtDiasAcumuladosVenta.ReadOnly = True
-        Me.txtDiasAcumuladosVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAcumuladosVenta.TabIndex = 68
-        '
-        'txtPrecioVenta
-        '
-        Me.txtPrecioVenta.Location = New System.Drawing.Point(351, 372)
-        Me.txtPrecioVenta.Name = "txtPrecioVenta"
-        Me.txtPrecioVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioVenta.TabIndex = 28
-        '
-        'txtPrecioAlVencimientoVenta
-        '
-        Me.txtPrecioAlVencimientoVenta.Location = New System.Drawing.Point(351, 350)
-        Me.txtPrecioAlVencimientoVenta.Name = "txtPrecioAlVencimientoVenta"
-        Me.txtPrecioAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioAlVencimientoVenta.TabIndex = 27
-        '
-        'txtYTMAlVencimientoVenta
-        '
-        Me.txtYTMAlVencimientoVenta.Location = New System.Drawing.Point(351, 306)
-        Me.txtYTMAlVencimientoVenta.Name = "txtYTMAlVencimientoVenta"
-        Me.txtYTMAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoVenta.TabIndex = 25
-        '
-        'txtYTMAlVencimientoComisionVenta
-        '
-        Me.txtYTMAlVencimientoComisionVenta.Location = New System.Drawing.Point(351, 328)
-        Me.txtYTMAlVencimientoComisionVenta.Name = "txtYTMAlVencimientoComisionVenta"
-        Me.txtYTMAlVencimientoComisionVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoComisionVenta.TabIndex = 26
-        '
-        'txtPorcentajeCuponVenta
-        '
-        Me.txtPorcentajeCuponVenta.Location = New System.Drawing.Point(351, 284)
-        Me.txtPorcentajeCuponVenta.Name = "txtPorcentajeCuponVenta"
-        Me.txtPorcentajeCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPorcentajeCuponVenta.TabIndex = 24
-        '
-        'txtValorNominalVenta
-        '
-        Me.txtValorNominalVenta.Location = New System.Drawing.Point(351, 107)
-        Me.txtValorNominalVenta.Name = "txtValorNominalVenta"
-        Me.txtValorNominalVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominalVenta.TabIndex = 18
-        '
-        'dtpFechaVencimientoVenta
-        '
-        Me.dtpFechaVencimientoVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaVencimientoVenta.Location = New System.Drawing.Point(351, 195)
-        Me.dtpFechaVencimientoVenta.Name = "dtpFechaVencimientoVenta"
-        Me.dtpFechaVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaVencimientoVenta.TabIndex = 22
-        '
-        'dtpFechaLiquidacionVenta
-        '
-        Me.dtpFechaLiquidacionVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaLiquidacionVenta.Location = New System.Drawing.Point(351, 173)
-        Me.dtpFechaLiquidacionVenta.Name = "dtpFechaLiquidacionVenta"
-        Me.dtpFechaLiquidacionVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaLiquidacionVenta.TabIndex = 21
-        '
-        'dtpSiguienteFechaCuponVenta
-        '
-        Me.dtpSiguienteFechaCuponVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpSiguienteFechaCuponVenta.Location = New System.Drawing.Point(351, 151)
-        Me.dtpSiguienteFechaCuponVenta.Name = "dtpSiguienteFechaCuponVenta"
-        Me.dtpSiguienteFechaCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpSiguienteFechaCuponVenta.TabIndex = 20
-        '
-        'dtpUltimaFechaCuponVenta
-        '
-        Me.dtpUltimaFechaCuponVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpUltimaFechaCuponVenta.Location = New System.Drawing.Point(351, 129)
-        Me.dtpUltimaFechaCuponVenta.Name = "dtpUltimaFechaCuponVenta"
-        Me.dtpUltimaFechaCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpUltimaFechaCuponVenta.TabIndex = 19
-        '
-        'Label22
-        '
-        Me.Label22.AutoSize = True
-        Me.Label22.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label22.Location = New System.Drawing.Point(358, 50)
-        Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(43, 18)
-        Me.Label22.TabIndex = 80
-        Me.Label22.Text = "Venta"
-        '
-        'Label23
-        '
-        Me.Label23.AutoSize = True
-        Me.Label23.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label23.Location = New System.Drawing.Point(533, 63)
-        Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(88, 18)
-        Me.Label23.TabIndex = 81
-        Me.Label23.Text = "Valor Nominal"
-        '
-        'Label24
-        '
-        Me.Label24.AutoSize = True
-        Me.Label24.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label24.Location = New System.Drawing.Point(533, 85)
-        Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(38, 18)
-        Me.Label24.TabIndex = 82
-        Me.Label24.Text = "Plazo"
-        '
-        'Label25
-        '
-        Me.Label25.AutoSize = True
-        Me.Label25.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label25.Location = New System.Drawing.Point(533, 107)
-        Me.Label25.Name = "Label25"
-        Me.Label25.Size = New System.Drawing.Size(93, 18)
-        Me.Label25.TabIndex = 83
-        Me.Label25.Text = "Precio Compra"
-        '
-        'Label26
-        '
-        Me.Label26.AutoSize = True
-        Me.Label26.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label26.Location = New System.Drawing.Point(533, 129)
-        Me.Label26.Name = "Label26"
-        Me.Label26.Size = New System.Drawing.Size(81, 18)
-        Me.Label26.TabIndex = 84
-        Me.Label26.Text = "Precio Venta"
-        '
-        'label27
-        '
-        Me.label27.AutoSize = True
-        Me.label27.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.label27.Location = New System.Drawing.Point(533, 151)
-        Me.label27.Name = "label27"
-        Me.label27.Size = New System.Drawing.Size(176, 18)
-        Me.label27.TabIndex = 85
-        Me.label27.Text = "Ganancia/Perdida de Capital"
-        '
-        'lblIngresosPorIntereses_Op
-        '
-        Me.lblIngresosPorIntereses_Op.AutoSize = True
-        Me.lblIngresosPorIntereses_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblIngresosPorIntereses_Op.Location = New System.Drawing.Point(533, 173)
-        Me.lblIngresosPorIntereses_Op.Name = "lblIngresosPorIntereses_Op"
-        Me.lblIngresosPorIntereses_Op.Size = New System.Drawing.Size(132, 18)
-        Me.lblIngresosPorIntereses_Op.TabIndex = 86
-        Me.lblIngresosPorIntereses_Op.Text = "Ingreso por Intereses"
-        '
-        'lblCostosTotales_Op
-        '
-        Me.lblCostosTotales_Op.AutoSize = True
-        Me.lblCostosTotales_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblCostosTotales_Op.Location = New System.Drawing.Point(533, 195)
-        Me.lblCostosTotales_Op.Name = "lblCostosTotales_Op"
-        Me.lblCostosTotales_Op.Size = New System.Drawing.Size(94, 18)
-        Me.lblCostosTotales_Op.TabIndex = 87
-        Me.lblCostosTotales_Op.Text = "Costos Totales"
-        '
-        'lblGananciaPerdidaTotal_Op
-        '
-        Me.lblGananciaPerdidaTotal_Op.AutoSize = True
-        Me.lblGananciaPerdidaTotal_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblGananciaPerdidaTotal_Op.Location = New System.Drawing.Point(533, 217)
-        Me.lblGananciaPerdidaTotal_Op.Name = "lblGananciaPerdidaTotal_Op"
-        Me.lblGananciaPerdidaTotal_Op.Size = New System.Drawing.Size(147, 18)
-        Me.lblGananciaPerdidaTotal_Op.TabIndex = 88
-        Me.lblGananciaPerdidaTotal_Op.Text = "Ganancia/Perdida Total"
-        '
-        'lblRendimientoGananciaPerdida_Op
-        '
-        Me.lblRendimientoGananciaPerdida_Op.AutoSize = True
-        Me.lblRendimientoGananciaPerdida_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoGananciaPerdida_Op.Location = New System.Drawing.Point(533, 239)
-        Me.lblRendimientoGananciaPerdida_Op.Name = "lblRendimientoGananciaPerdida_Op"
-        Me.lblRendimientoGananciaPerdida_Op.Size = New System.Drawing.Size(191, 18)
-        Me.lblRendimientoGananciaPerdida_Op.TabIndex = 89
-        Me.lblRendimientoGananciaPerdida_Op.Text = "Rendimiento Ganancia/Perdida"
-        '
-        'lblRendimientoIntereses_Op
-        '
-        Me.lblRendimientoIntereses_Op.AutoSize = True
-        Me.lblRendimientoIntereses_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoIntereses_Op.Location = New System.Drawing.Point(533, 261)
-        Me.lblRendimientoIntereses_Op.Name = "lblRendimientoIntereses_Op"
-        Me.lblRendimientoIntereses_Op.Size = New System.Drawing.Size(140, 18)
-        Me.lblRendimientoIntereses_Op.TabIndex = 90
-        Me.lblRendimientoIntereses_Op.Text = "Rendimiento Intereses"
-        '
-        'lblRendimientoAntesISR_Op
-        '
-        Me.lblRendimientoAntesISR_Op.AutoSize = True
-        Me.lblRendimientoAntesISR_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoAntesISR_Op.Location = New System.Drawing.Point(533, 283)
-        Me.lblRendimientoAntesISR_Op.Name = "lblRendimientoAntesISR_Op"
-        Me.lblRendimientoAntesISR_Op.Size = New System.Drawing.Size(141, 18)
-        Me.lblRendimientoAntesISR_Op.TabIndex = 91
-        Me.lblRendimientoAntesISR_Op.Text = "Rendimiento antes ISR"
-        '
-        'lblRendimientoDespuesISR_Op
-        '
-        Me.lblRendimientoDespuesISR_Op.AutoSize = True
-        Me.lblRendimientoDespuesISR_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoDespuesISR_Op.Location = New System.Drawing.Point(533, 305)
-        Me.lblRendimientoDespuesISR_Op.Name = "lblRendimientoDespuesISR_Op"
-        Me.lblRendimientoDespuesISR_Op.Size = New System.Drawing.Size(156, 18)
-        Me.lblRendimientoDespuesISR_Op.TabIndex = 92
-        Me.lblRendimientoDespuesISR_Op.Text = "Rendimiento despues ISR"
-        '
-        'Label35
-        '
-        Me.Label35.AutoSize = True
-        Me.Label35.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label35.Location = New System.Drawing.Point(635, 28)
-        Me.Label35.Name = "Label35"
-        Me.Label35.Size = New System.Drawing.Size(169, 18)
-        Me.Label35.TabIndex = 93
-        Me.Label35.Text = "Resultado de la Operacion"
-        '
-        'txtValorNominal_Op
-        '
-        Me.txtValorNominal_Op.Location = New System.Drawing.Point(732, 62)
-        Me.txtValorNominal_Op.Name = "txtValorNominal_Op"
-        Me.txtValorNominal_Op.ReadOnly = True
-        Me.txtValorNominal_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominal_Op.TabIndex = 0
-        '
-        'txtPlazo_Op
-        '
-        Me.txtPlazo_Op.Location = New System.Drawing.Point(732, 84)
-        Me.txtPlazo_Op.Name = "txtPlazo_Op"
-        Me.txtPlazo_Op.ReadOnly = True
-        Me.txtPlazo_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPlazo_Op.TabIndex = 0
-        '
-        'txtPrecioCompra_Op
-        '
-        Me.txtPrecioCompra_Op.Location = New System.Drawing.Point(732, 106)
-        Me.txtPrecioCompra_Op.Name = "txtPrecioCompra_Op"
-        Me.txtPrecioCompra_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioCompra_Op.TabIndex = 0
-        '
-        'txtPrecioVenta_Op
-        '
-        Me.txtPrecioVenta_Op.Location = New System.Drawing.Point(732, 128)
-        Me.txtPrecioVenta_Op.Name = "txtPrecioVenta_Op"
-        Me.txtPrecioVenta_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioVenta_Op.TabIndex = 0
-        '
-        'txtGananciaPerdidaCapital_Op
-        '
-        Me.txtGananciaPerdidaCapital_Op.Location = New System.Drawing.Point(732, 150)
-        Me.txtGananciaPerdidaCapital_Op.Name = "txtGananciaPerdidaCapital_Op"
-        Me.txtGananciaPerdidaCapital_Op.ReadOnly = True
-        Me.txtGananciaPerdidaCapital_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtGananciaPerdidaCapital_Op.TabIndex = 0
-        '
-        'txtIngresosPorIntereses_Op
-        '
-        Me.txtIngresosPorIntereses_Op.Location = New System.Drawing.Point(732, 172)
-        Me.txtIngresosPorIntereses_Op.Name = "txtIngresosPorIntereses_Op"
-        Me.txtIngresosPorIntereses_Op.ReadOnly = True
-        Me.txtIngresosPorIntereses_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtIngresosPorIntereses_Op.TabIndex = 0
-        '
-        'txtCostosTotales_Op
-        '
-        Me.txtCostosTotales_Op.Location = New System.Drawing.Point(732, 194)
-        Me.txtCostosTotales_Op.Name = "txtCostosTotales_Op"
-        Me.txtCostosTotales_Op.ReadOnly = True
-        Me.txtCostosTotales_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostosTotales_Op.TabIndex = 0
-        '
-        'txtGananciaPerdidaTotal_Op
-        '
-        Me.txtGananciaPerdidaTotal_Op.Location = New System.Drawing.Point(732, 216)
-        Me.txtGananciaPerdidaTotal_Op.Name = "txtGananciaPerdidaTotal_Op"
-        Me.txtGananciaPerdidaTotal_Op.ReadOnly = True
-        Me.txtGananciaPerdidaTotal_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtGananciaPerdidaTotal_Op.TabIndex = 0
-        '
-        'txtRendimientoGananciaPerdida_Op
-        '
-        Me.txtRendimientoGananciaPerdida_Op.Location = New System.Drawing.Point(732, 238)
-        Me.txtRendimientoGananciaPerdida_Op.Name = "txtRendimientoGananciaPerdida_Op"
-        Me.txtRendimientoGananciaPerdida_Op.ReadOnly = True
-        Me.txtRendimientoGananciaPerdida_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoGananciaPerdida_Op.TabIndex = 0
-        '
-        'txtRendimientoIntereses_Op
-        '
-        Me.txtRendimientoIntereses_Op.Location = New System.Drawing.Point(732, 260)
-        Me.txtRendimientoIntereses_Op.Name = "txtRendimientoIntereses_Op"
-        Me.txtRendimientoIntereses_Op.ReadOnly = True
-        Me.txtRendimientoIntereses_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoIntereses_Op.TabIndex = 0
-        '
-        'txtRendimientoAntesISR_Op
-        '
-        Me.txtRendimientoAntesISR_Op.Location = New System.Drawing.Point(732, 282)
-        Me.txtRendimientoAntesISR_Op.Name = "txtRendimientoAntesISR_Op"
-        Me.txtRendimientoAntesISR_Op.ReadOnly = True
-        Me.txtRendimientoAntesISR_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoAntesISR_Op.TabIndex = 0
-        '
-        'txtRendimientoDespuesISR_Op
-        '
-        Me.txtRendimientoDespuesISR_Op.Location = New System.Drawing.Point(732, 304)
-        Me.txtRendimientoDespuesISR_Op.Name = "txtRendimientoDespuesISR_Op"
-        Me.txtRendimientoDespuesISR_Op.ReadOnly = True
-        Me.txtRendimientoDespuesISR_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoDespuesISR_Op.TabIndex = 0
-        '
-        'btnAceptar
-        '
-        Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnAceptar.Location = New System.Drawing.Point(15, 1004)
-        Me.btnAceptar.Margin = New System.Windows.Forms.Padding(3, 3, 3, 20)
-        Me.btnAceptar.Name = "btnAceptar"
-        Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
-        Me.btnAceptar.TabIndex = 106
-        Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
-        '
-        'btnCancelar
-        '
-        Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancelar.Location = New System.Drawing.Point(96, 1004)
-        Me.btnCancelar.Name = "btnCancelar"
-        Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
-        Me.btnCancelar.TabIndex = 107
-        Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
-        '
-        'cboCasa_C
-        '
-        Me.cboCasa_C.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboCasa_C.FormattingEnabled = True
-        Me.cboCasa_C.Location = New System.Drawing.Point(195, 394)
-        Me.cboCasa_C.Name = "cboCasa_C"
-        Me.cboCasa_C.Size = New System.Drawing.Size(150, 21)
-        Me.cboCasa_C.TabIndex = 13
-        '
-        'cboCasa_V
-        '
-        Me.cboCasa_V.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboCasa_V.FormattingEnabled = True
-        Me.cboCasa_V.Location = New System.Drawing.Point(351, 394)
-        Me.cboCasa_V.Name = "cboCasa_V"
-        Me.cboCasa_V.Size = New System.Drawing.Size(150, 21)
-        Me.cboCasa_V.TabIndex = 29
-        '
-        'Label28
-        '
-        Me.Label28.AutoSize = True
-        Me.Label28.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label28.Location = New System.Drawing.Point(12, 395)
-        Me.Label28.Name = "Label28"
-        Me.Label28.Size = New System.Drawing.Size(36, 18)
-        Me.Label28.TabIndex = 110
-        Me.Label28.Text = "Casa"
-        '
-        'cboAnioBaseC
-        '
-        Me.cboAnioBaseC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboAnioBaseC.FormattingEnabled = True
-        Me.cboAnioBaseC.Items.AddRange(New Object() {"360", "365"})
-        Me.cboAnioBaseC.Location = New System.Drawing.Point(195, 217)
-        Me.cboAnioBaseC.Name = "cboAnioBaseC"
-        Me.cboAnioBaseC.Size = New System.Drawing.Size(150, 21)
-        Me.cboAnioBaseC.TabIndex = 7
-        '
-        'cboAnioBaseV
-        '
-        Me.cboAnioBaseV.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboAnioBaseV.FormattingEnabled = True
-        Me.cboAnioBaseV.Items.AddRange(New Object() {"360", "365"})
-        Me.cboAnioBaseV.Location = New System.Drawing.Point(351, 217)
-        Me.cboAnioBaseV.Name = "cboAnioBaseV"
-        Me.cboAnioBaseV.Size = New System.Drawing.Size(150, 21)
-        Me.cboAnioBaseV.TabIndex = 23
-        '
-        'cboPeriodosC
-        '
-        Me.cboPeriodosC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPeriodosC.FormattingEnabled = True
-        Me.cboPeriodosC.Location = New System.Drawing.Point(195, 84)
-        Me.cboPeriodosC.Name = "cboPeriodosC"
-        Me.cboPeriodosC.Size = New System.Drawing.Size(150, 21)
-        Me.cboPeriodosC.TabIndex = 1
-        '
-        'cboPeriodosV
-        '
-        Me.cboPeriodosV.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPeriodosV.FormattingEnabled = True
-        Me.cboPeriodosV.Location = New System.Drawing.Point(351, 84)
-        Me.cboPeriodosV.Name = "cboPeriodosV"
-        Me.cboPeriodosV.Size = New System.Drawing.Size(150, 21)
-        Me.cboPeriodosV.TabIndex = 17
-        '
-        'Label29
-        '
-        Me.Label29.AutoSize = True
-        Me.Label29.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label29.Location = New System.Drawing.Point(12, 85)
-        Me.Label29.Name = "Label29"
-        Me.Label29.Size = New System.Drawing.Size(80, 18)
-        Me.Label29.TabIndex = 115
-        Me.Label29.Text = "Periodicidad"
-        '
-        'dgvIngresos
-        '
-        Me.dgvIngresos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvIngresos.Location = New System.Drawing.Point(536, 395)
-        Me.dgvIngresos.Name = "dgvIngresos"
-        Me.dgvIngresos.Size = New System.Drawing.Size(349, 174)
-        Me.dgvIngresos.TabIndex = 116
-        '
-        'btnRefrescarIngresos
-        '
-        Me.btnRefrescarIngresos.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnRefrescarIngresos.Location = New System.Drawing.Point(536, 575)
-        Me.btnRefrescarIngresos.Name = "btnRefrescarIngresos"
-        Me.btnRefrescarIngresos.Size = New System.Drawing.Size(75, 23)
-        Me.btnRefrescarIngresos.TabIndex = 117
-        Me.btnRefrescarIngresos.Text = "Refrescar"
-        Me.btnRefrescarIngresos.UseVisualStyleBackColor = True
-        '
-        'Label30
-        '
-        Me.Label30.AutoSize = True
-        Me.Label30.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label30.Location = New System.Drawing.Point(536, 373)
-        Me.Label30.Name = "Label30"
-        Me.Label30.Size = New System.Drawing.Size(59, 18)
-        Me.Label30.TabIndex = 118
-        Me.Label30.Text = "Ingresos"
-        '
-        'txtTotalIngresoCupones
-        '
-        Me.txtTotalIngresoCupones.Location = New System.Drawing.Point(735, 578)
-        Me.txtTotalIngresoCupones.Name = "txtTotalIngresoCupones"
-        Me.txtTotalIngresoCupones.ReadOnly = True
-        Me.txtTotalIngresoCupones.Size = New System.Drawing.Size(150, 20)
-        Me.txtTotalIngresoCupones.TabIndex = 119
-        '
-        'Label31
-        '
-        Me.Label31.AutoSize = True
-        Me.Label31.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label31.Location = New System.Drawing.Point(689, 579)
-        Me.Label31.Name = "Label31"
-        Me.Label31.Size = New System.Drawing.Size(38, 18)
-        Me.Label31.TabIndex = 120
-        Me.Label31.Text = "Total"
-        '
-        'dgvAmortizacionDeCapital
-        '
-        Me.dgvAmortizacionDeCapital.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvAmortizacionDeCapital.Location = New System.Drawing.Point(15, 818)
-        Me.dgvAmortizacionDeCapital.Name = "dgvAmortizacionDeCapital"
-        Me.dgvAmortizacionDeCapital.Size = New System.Drawing.Size(870, 176)
-        Me.dgvAmortizacionDeCapital.TabIndex = 121
-        '
-        'txtEmisionTotal
-        '
-        Me.txtEmisionTotal.Location = New System.Drawing.Point(195, 595)
-        Me.txtEmisionTotal.Name = "txtEmisionTotal"
-        Me.txtEmisionTotal.Size = New System.Drawing.Size(150, 20)
-        Me.txtEmisionTotal.TabIndex = 122
-        '
-        'Label32
-        '
-        Me.Label32.AutoSize = True
-        Me.Label32.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label32.Location = New System.Drawing.Point(12, 596)
-        Me.Label32.Name = "Label32"
-        Me.Label32.Size = New System.Drawing.Size(88, 18)
-        Me.Label32.TabIndex = 123
-        Me.Label32.Text = "Emisión Total"
-        '
-        'dtpFechaEmision
-        '
-        Me.dtpFechaEmision.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaEmision.Location = New System.Drawing.Point(195, 617)
-        Me.dtpFechaEmision.Name = "dtpFechaEmision"
-        Me.dtpFechaEmision.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaEmision.TabIndex = 125
-        '
-        'Label33
-        '
-        Me.Label33.AutoSize = True
-        Me.Label33.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label33.Location = New System.Drawing.Point(12, 618)
-        Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(92, 18)
-        Me.Label33.TabIndex = 124
-        Me.Label33.Text = "Fecha Emisión"
-        '
-        'txtTasaEmision
-        '
-        Me.txtTasaEmision.Location = New System.Drawing.Point(195, 639)
-        Me.txtTasaEmision.Name = "txtTasaEmision"
-        Me.txtTasaEmision.Size = New System.Drawing.Size(150, 20)
-        Me.txtTasaEmision.TabIndex = 127
-        '
-        'Label34
-        '
-        Me.Label34.AutoSize = True
-        Me.Label34.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label34.ForeColor = System.Drawing.Color.Red
-        Me.Label34.Location = New System.Drawing.Point(12, 640)
-        Me.Label34.Name = "Label34"
-        Me.Label34.Size = New System.Drawing.Size(36, 18)
-        Me.Label34.TabIndex = 126
-        Me.Label34.Text = "Tasa"
-        '
-        'txtPeriodicidadEmision
-        '
-        Me.txtPeriodicidadEmision.Location = New System.Drawing.Point(195, 661)
-        Me.txtPeriodicidadEmision.Name = "txtPeriodicidadEmision"
-        Me.txtPeriodicidadEmision.Size = New System.Drawing.Size(150, 20)
-        Me.txtPeriodicidadEmision.TabIndex = 128
-        '
-        'Label36
-        '
-        Me.Label36.AutoSize = True
-        Me.Label36.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label36.Location = New System.Drawing.Point(12, 662)
-        Me.Label36.Name = "Label36"
-        Me.Label36.Size = New System.Drawing.Size(80, 18)
-        Me.Label36.TabIndex = 129
-        Me.Label36.Text = "Periodicidad"
-        '
-        'txtPeriodosEmision
-        '
-        Me.txtPeriodosEmision.Location = New System.Drawing.Point(195, 683)
-        Me.txtPeriodosEmision.Name = "txtPeriodosEmision"
-        Me.txtPeriodosEmision.Size = New System.Drawing.Size(150, 20)
-        Me.txtPeriodosEmision.TabIndex = 130
-        '
-        'Label37
-        '
-        Me.Label37.AutoSize = True
-        Me.Label37.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label37.Location = New System.Drawing.Point(12, 684)
-        Me.Label37.Name = "Label37"
-        Me.Label37.Size = New System.Drawing.Size(58, 18)
-        Me.Label37.TabIndex = 131
-        Me.Label37.Text = "Periodos"
-        '
-        'txtMontoCompraEmision
-        '
-        Me.txtMontoCompraEmision.Location = New System.Drawing.Point(195, 705)
-        Me.txtMontoCompraEmision.Name = "txtMontoCompraEmision"
-        Me.txtMontoCompraEmision.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoCompraEmision.TabIndex = 132
-        '
-        'Label38
-        '
-        Me.Label38.AutoSize = True
-        Me.Label38.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label38.Location = New System.Drawing.Point(12, 706)
-        Me.Label38.Name = "Label38"
-        Me.Label38.Size = New System.Drawing.Size(93, 18)
-        Me.Label38.TabIndex = 133
-        Me.Label38.Text = "Monto Compra"
-        '
-        'txtMontoCompraPrimario
-        '
-        Me.txtMontoCompraPrimario.Location = New System.Drawing.Point(195, 727)
-        Me.txtMontoCompraPrimario.Name = "txtMontoCompraPrimario"
-        Me.txtMontoCompraPrimario.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoCompraPrimario.TabIndex = 134
-        '
-        'Label39
-        '
-        Me.Label39.AutoSize = True
-        Me.Label39.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label39.Location = New System.Drawing.Point(12, 732)
-        Me.Label39.Name = "Label39"
-        Me.Label39.Size = New System.Drawing.Size(165, 18)
-        Me.Label39.TabIndex = 135
-        Me.Label39.Text = "Monto Compra en Primario"
-        '
-        'txtCesionFlujo1
-        '
-        Me.txtCesionFlujo1.Location = New System.Drawing.Point(195, 749)
-        Me.txtCesionFlujo1.Name = "txtCesionFlujo1"
-        Me.txtCesionFlujo1.Size = New System.Drawing.Size(150, 20)
-        Me.txtCesionFlujo1.TabIndex = 136
-        '
-        'Label40
-        '
-        Me.Label40.AutoSize = True
-        Me.Label40.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label40.Location = New System.Drawing.Point(12, 758)
-        Me.Label40.Name = "Label40"
-        Me.Label40.Size = New System.Drawing.Size(109, 18)
-        Me.Label40.TabIndex = 137
-        Me.Label40.Text = "Cesión de Flujo 1"
-        '
-        'Button1
-        '
-        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.Button1.Location = New System.Drawing.Point(351, 746)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 138
-        Me.Button1.Text = "Refrescar"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'frmTitularizacion
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.AutoScroll = True
-        Me.ClientSize = New System.Drawing.Size(970, 431)
-        Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.txtCesionFlujo1)
-        Me.Controls.Add(Me.Label40)
-        Me.Controls.Add(Me.txtMontoCompraPrimario)
-        Me.Controls.Add(Me.Label39)
-        Me.Controls.Add(Me.txtMontoCompraEmision)
-        Me.Controls.Add(Me.Label38)
-        Me.Controls.Add(Me.txtPeriodosEmision)
-        Me.Controls.Add(Me.Label37)
-        Me.Controls.Add(Me.txtPeriodicidadEmision)
-        Me.Controls.Add(Me.Label36)
-        Me.Controls.Add(Me.txtTasaEmision)
-        Me.Controls.Add(Me.Label34)
-        Me.Controls.Add(Me.dtpFechaEmision)
-        Me.Controls.Add(Me.Label33)
-        Me.Controls.Add(Me.txtEmisionTotal)
-        Me.Controls.Add(Me.Label32)
-        Me.Controls.Add(Me.dgvAmortizacionDeCapital)
-        Me.Controls.Add(Me.txtTotalIngresoCupones)
-        Me.Controls.Add(Me.Label31)
-        Me.Controls.Add(Me.Label30)
-        Me.Controls.Add(Me.btnRefrescarIngresos)
-        Me.Controls.Add(Me.dgvIngresos)
-        Me.Controls.Add(Me.Label29)
-        Me.Controls.Add(Me.cboPeriodosV)
-        Me.Controls.Add(Me.cboPeriodosC)
-        Me.Controls.Add(Me.cboAnioBaseV)
-        Me.Controls.Add(Me.cboAnioBaseC)
-        Me.Controls.Add(Me.Label28)
-        Me.Controls.Add(Me.cboCasa_V)
-        Me.Controls.Add(Me.cboCasa_C)
-        Me.Controls.Add(Me.btnCancelar)
-        Me.Controls.Add(Me.btnAceptar)
-        Me.Controls.Add(Me.txtRendimientoDespuesISR_Op)
-        Me.Controls.Add(Me.txtRendimientoAntesISR_Op)
-        Me.Controls.Add(Me.txtRendimientoIntereses_Op)
-        Me.Controls.Add(Me.txtRendimientoGananciaPerdida_Op)
-        Me.Controls.Add(Me.txtGananciaPerdidaTotal_Op)
-        Me.Controls.Add(Me.txtCostosTotales_Op)
-        Me.Controls.Add(Me.txtIngresosPorIntereses_Op)
-        Me.Controls.Add(Me.txtGananciaPerdidaCapital_Op)
-        Me.Controls.Add(Me.txtPrecioVenta_Op)
-        Me.Controls.Add(Me.txtPrecioCompra_Op)
-        Me.Controls.Add(Me.txtPlazo_Op)
-        Me.Controls.Add(Me.txtValorNominal_Op)
-        Me.Controls.Add(Me.Label35)
-        Me.Controls.Add(Me.lblRendimientoDespuesISR_Op)
-        Me.Controls.Add(Me.lblRendimientoAntesISR_Op)
-        Me.Controls.Add(Me.lblRendimientoIntereses_Op)
-        Me.Controls.Add(Me.lblRendimientoGananciaPerdida_Op)
-        Me.Controls.Add(Me.lblGananciaPerdidaTotal_Op)
-        Me.Controls.Add(Me.lblCostosTotales_Op)
-        Me.Controls.Add(Me.lblIngresosPorIntereses_Op)
-        Me.Controls.Add(Me.label27)
-        Me.Controls.Add(Me.Label26)
-        Me.Controls.Add(Me.Label25)
-        Me.Controls.Add(Me.Label24)
-        Me.Controls.Add(Me.Label23)
-        Me.Controls.Add(Me.Label22)
-        Me.Controls.Add(Me.txtPorcentajeComisionBolsaVenta)
-        Me.Controls.Add(Me.txtPorcentajeComisionCasaVenta)
-        Me.Controls.Add(Me.txtDiasAlVencimientoVenta)
-        Me.Controls.Add(Me.txtCostoTransferenciaVenta)
-        Me.Controls.Add(Me.txtMontoARecibir)
-        Me.Controls.Add(Me.txtValorTransadoVenta)
-        Me.Controls.Add(Me.txtPorcentajeInteresAcumuladoVenta)
-        Me.Controls.Add(Me.txtInteresAcumuladoVenta)
-        Me.Controls.Add(Me.txtPrecioSucioVenta)
-        Me.Controls.Add(Me.txtComisionBolsaVenta)
-        Me.Controls.Add(Me.txtComisionCasaVenta)
-        Me.Controls.Add(Me.txtDiasAcumuladosVenta)
-        Me.Controls.Add(Me.txtPrecioVenta)
-        Me.Controls.Add(Me.txtPrecioAlVencimientoVenta)
-        Me.Controls.Add(Me.txtYTMAlVencimientoVenta)
-        Me.Controls.Add(Me.txtYTMAlVencimientoComisionVenta)
-        Me.Controls.Add(Me.txtPorcentajeCuponVenta)
-        Me.Controls.Add(Me.txtValorNominalVenta)
-        Me.Controls.Add(Me.dtpFechaVencimientoVenta)
-        Me.Controls.Add(Me.dtpFechaLiquidacionVenta)
-        Me.Controls.Add(Me.dtpSiguienteFechaCuponVenta)
-        Me.Controls.Add(Me.dtpUltimaFechaCuponVenta)
-        Me.Controls.Add(Me.lblBono)
-        Me.Controls.Add(Me.Label17)
-        Me.Controls.Add(Me.txtPorcentajeComisionBolsaCompra)
-        Me.Controls.Add(Me.txtPorcentajeComisionCasaCompra)
-        Me.Controls.Add(Me.txtDiasAlVencimientoCompra)
-        Me.Controls.Add(Me.txtCostoTransferenciaCompra)
-        Me.Controls.Add(Me.txtMontoAPagar)
-        Me.Controls.Add(Me.txtValorTransadoCompra)
-        Me.Controls.Add(Me.txtPorcentajeInteresAcumuladoCompra)
-        Me.Controls.Add(Me.txtInteresAcumuladoCompra)
-        Me.Controls.Add(Me.txtPrecioSucioCompra)
-        Me.Controls.Add(Me.txtComisionBolsaCompra)
-        Me.Controls.Add(Me.txtComisionCasaCompra)
-        Me.Controls.Add(Me.txtDiasAcumuladosCompra)
-        Me.Controls.Add(Me.txtPrecioCompra)
-        Me.Controls.Add(Me.txtPrecioAlVencimientoCompra)
-        Me.Controls.Add(Me.txtYTMAlVencimientoCompra)
-        Me.Controls.Add(Me.txtYTMAlVencimientoComisionCompra)
-        Me.Controls.Add(Me.txtPorcentajeCuponCompra)
-        Me.Controls.Add(Me.txtValorNominalCompra)
-        Me.Controls.Add(Me.dtpFechaVencimientoCompra)
-        Me.Controls.Add(Me.dtpFechaLiquidacionCompra)
-        Me.Controls.Add(Me.dtpSiguienteFechaCuponCompra)
-        Me.Controls.Add(Me.dtpUltimaFechaCuponCompra)
-        Me.Controls.Add(Me.Label21)
-        Me.Controls.Add(Me.Label20)
-        Me.Controls.Add(Me.Label19)
-        Me.Controls.Add(Me.Label18)
-        Me.Controls.Add(Me.Label16)
-        Me.Controls.Add(Me.Label15)
-        Me.Controls.Add(Me.Label14)
-        Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.Label10)
-        Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.Label1)
-        Me.Name = "frmTitularizacion"
-        Me.Text = "Bonos Corporativos"
-        CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.dgvAmortizacionDeCapital, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label2 As Label
-    Friend WithEvents Label3 As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents Label6 As Label
-    Friend WithEvents Label7 As Label
-    Friend WithEvents Label8 As Label
-    Friend WithEvents Label9 As Label
-    Friend WithEvents Label10 As Label
-    Friend WithEvents Label11 As Label
-    Friend WithEvents Label12 As Label
-    Friend WithEvents Label13 As Label
-    Friend WithEvents Label14 As Label
-    Friend WithEvents Label15 As Label
-    Friend WithEvents Label16 As Label
-    Friend WithEvents Label18 As Label
-    Friend WithEvents Label19 As Label
-    Friend WithEvents Label20 As Label
-    Friend WithEvents Label21 As Label
-    Friend WithEvents dtpUltimaFechaCuponCompra As DateTimePicker
-    Friend WithEvents dtpSiguienteFechaCuponCompra As DateTimePicker
-    Friend WithEvents dtpFechaLiquidacionCompra As DateTimePicker
-    Friend WithEvents dtpFechaVencimientoCompra As DateTimePicker
-    Friend WithEvents txtValorNominalCompra As TextBox
-    Friend WithEvents txtPorcentajeCuponCompra As TextBox
-    Friend WithEvents txtYTMAlVencimientoComisionCompra As TextBox
-    Friend WithEvents txtYTMAlVencimientoCompra As TextBox
-    Friend WithEvents txtPrecioAlVencimientoCompra As TextBox
-    Friend WithEvents txtPrecioCompra As TextBox
-    Friend WithEvents txtDiasAcumuladosCompra As TextBox
-    Friend WithEvents txtComisionCasaCompra As TextBox
-    Friend WithEvents txtComisionBolsaCompra As TextBox
-    Friend WithEvents txtPrecioSucioCompra As TextBox
-    Friend WithEvents txtInteresAcumuladoCompra As TextBox
-    Friend WithEvents txtPorcentajeInteresAcumuladoCompra As TextBox
-    Friend WithEvents txtValorTransadoCompra As TextBox
-    Friend WithEvents txtMontoAPagar As TextBox
-    Friend WithEvents txtCostoTransferenciaCompra As TextBox
-    Friend WithEvents txtDiasAlVencimientoCompra As TextBox
-    Friend WithEvents txtPorcentajeComisionCasaCompra As TextBox
-    Friend WithEvents txtPorcentajeComisionBolsaCompra As TextBox
-    Friend WithEvents Label17 As Label
-    Friend WithEvents lblBono As Label
-    Friend WithEvents txtPorcentajeComisionBolsaVenta As TextBox
-    Friend WithEvents txtPorcentajeComisionCasaVenta As TextBox
-    Friend WithEvents txtDiasAlVencimientoVenta As TextBox
-    Friend WithEvents txtCostoTransferenciaVenta As TextBox
-    Friend WithEvents txtMontoARecibir As TextBox
-    Friend WithEvents txtValorTransadoVenta As TextBox
-    Friend WithEvents txtPorcentajeInteresAcumuladoVenta As TextBox
-    Friend WithEvents txtInteresAcumuladoVenta As TextBox
-    Friend WithEvents txtPrecioSucioVenta As TextBox
-    Friend WithEvents txtComisionBolsaVenta As TextBox
-    Friend WithEvents txtComisionCasaVenta As TextBox
-    Friend WithEvents txtDiasAcumuladosVenta As TextBox
-    Friend WithEvents txtPrecioVenta As TextBox
-    Friend WithEvents txtPrecioAlVencimientoVenta As TextBox
-    Friend WithEvents txtYTMAlVencimientoVenta As TextBox
-    Friend WithEvents txtYTMAlVencimientoComisionVenta As TextBox
-    Friend WithEvents txtPorcentajeCuponVenta As TextBox
-    Friend WithEvents txtValorNominalVenta As TextBox
-    Friend WithEvents dtpFechaVencimientoVenta As DateTimePicker
-    Friend WithEvents dtpFechaLiquidacionVenta As DateTimePicker
-    Friend WithEvents dtpSiguienteFechaCuponVenta As DateTimePicker
-    Friend WithEvents dtpUltimaFechaCuponVenta As DateTimePicker
-    Friend WithEvents Label22 As Label
-    Friend WithEvents Label23 As Label
-    Friend WithEvents Label24 As Label
-    Friend WithEvents Label25 As Label
-    Friend WithEvents Label26 As Label
-    Friend WithEvents label27 As Label
-    Friend WithEvents lblIngresosPorIntereses_Op As Label
-    Friend WithEvents lblCostosTotales_Op As Label
-    Friend WithEvents lblGananciaPerdidaTotal_Op As Label
-    Friend WithEvents lblRendimientoGananciaPerdida_Op As Label
-    Friend WithEvents lblRendimientoIntereses_Op As Label
-    Friend WithEvents lblRendimientoAntesISR_Op As Label
-    Friend WithEvents lblRendimientoDespuesISR_Op As Label
-    Friend WithEvents Label35 As Label
-    Friend WithEvents txtValorNominal_Op As TextBox
-    Friend WithEvents txtPlazo_Op As TextBox
-    Friend WithEvents txtPrecioCompra_Op As TextBox
-    Friend WithEvents txtPrecioVenta_Op As TextBox
-    Friend WithEvents txtGananciaPerdidaCapital_Op As TextBox
-    Friend WithEvents txtIngresosPorIntereses_Op As TextBox
-    Friend WithEvents txtCostosTotales_Op As TextBox
-    Friend WithEvents txtGananciaPerdidaTotal_Op As TextBox
-    Friend WithEvents txtRendimientoGananciaPerdida_Op As TextBox
-    Friend WithEvents txtRendimientoIntereses_Op As TextBox
-    Friend WithEvents txtRendimientoAntesISR_Op As TextBox
-    Friend WithEvents txtRendimientoDespuesISR_Op As TextBox
-    Friend WithEvents btnAceptar As Button
-    Friend WithEvents btnCancelar As Button
-    Friend WithEvents cboCasa_C As ComboBox
-    Friend WithEvents cboCasa_V As ComboBox
-    Friend WithEvents Label28 As Label
-    Friend WithEvents cboAnioBaseC As ComboBox
-    Friend WithEvents cboAnioBaseV As ComboBox
-    Friend WithEvents cboPeriodosC As ComboBox
-    Friend WithEvents cboPeriodosV As ComboBox
-    Friend WithEvents Label29 As Label
-    Friend WithEvents dgvIngresos As DataGridView
-    Friend WithEvents btnRefrescarIngresos As Button
-    Friend WithEvents Label30 As Label
-    Friend WithEvents txtTotalIngresoCupones As TextBox
-    Friend WithEvents Label31 As Label
-    Friend WithEvents dgvAmortizacionDeCapital As DataGridView
-    Friend WithEvents txtEmisionTotal As TextBox
-    Friend WithEvents Label32 As Label
-    Friend WithEvents dtpFechaEmision As DateTimePicker
-    Friend WithEvents Label33 As Label
-    Friend WithEvents txtTasaEmision As TextBox
-    Friend WithEvents Label34 As Label
-    Friend WithEvents txtPeriodicidadEmision As TextBox
-    Friend WithEvents Label36 As Label
-    Friend WithEvents txtPeriodosEmision As TextBox
-    Friend WithEvents Label37 As Label
-    Friend WithEvents txtMontoCompraEmision As TextBox
-    Friend WithEvents Label38 As Label
-    Friend WithEvents txtMontoCompraPrimario As TextBox
-    Friend WithEvents Label39 As Label
-    Friend WithEvents txtCesionFlujo1 As TextBox
-    Friend WithEvents Label40 As Label
-    Friend WithEvents Button1 As Button
-End Class

FRM/frmTitularizacion.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmTitularizacion.vb

@@ -1,2501 +0,0 @@
-Public Class frmTitularizacion
-    Dim oCEBonos As BonosCE
-    Dim oDAOBonos As BonosDAO
-    Dim oDAOGeneral As New DAOGeneral
-    Dim TotalValorCupones As Double
-
-    Private _Modo As String
-    Private _IdDocumento As Integer
-    Private _TipoDocumento As String
-
-    'PROPIEDADES EMISION DEL TITULO
-    Private _EmisionTotal As Double
-    Private _FechaEmision As Date
-    Private _TasaEmision As Double
-    Private _PeriodicidadEmision As Integer
-    Private _NumeroPeriodosEmision As Integer = 0
-    Private _MontoCompraEmision As Double
-    Private _MontoCompraPrimario As Double
-    Private _CesionFlujo1 As Double
-
-
-
-
-
-
-
-    Public Property Modo As String
-        Get
-            Return _Modo
-        End Get
-        Set(value As String)
-            _Modo = value
-        End Set
-    End Property
-    Private Property IdDocumento As Integer
-        Get
-            Return _IdDocumento
-        End Get
-        Set(value As Integer)
-            _IdDocumento = value
-        End Set
-    End Property
-    Private Property TipoDocumento As String
-        Get
-            Return _TipoDocumento
-        End Get
-        Set(value As String)
-            _TipoDocumento = value
-        End Set
-    End Property
-
-    'PROPIEDADES EMISION DEL TITULO
-    Private Property EmisionTotal As Double
-        Get
-            Return _EmisionTotal
-        End Get
-        Set(value As Double)
-            _EmisionTotal = value
-        End Set
-    End Property
-
-    Private Property FechaEmision As Date
-        Get
-            Return _FechaEmision
-        End Get
-        Set(value As Date)
-            _FechaEmision = value
-        End Set
-    End Property
-    Private Property TasaEmision As Double
-        Get
-            Return _TasaEmision
-        End Get
-        Set(value As Double)
-            _TasaEmision = value / 100
-        End Set
-    End Property
-    Private Property PeriodicidadEmision As Integer
-        Get
-            Return _PeriodicidadEmision
-        End Get
-        Set(value As Integer)
-            _PeriodicidadEmision = value
-        End Set
-    End Property
-    Private Property NumeroPeriodosEmision As Integer
-        Get
-            Return _NumeroPeriodosEmision
-        End Get
-        Set(value As Integer)
-            _NumeroPeriodosEmision = value
-        End Set
-    End Property
-    Private Property MontoCompraEmision As Double
-        Get
-            Return _MontoCompraEmision
-        End Get
-        Set(value As Double)
-            _MontoCompraEmision = value
-        End Set
-    End Property
-    Private Property MontoCompraPrimario As Double
-        Get
-            Return _MontoCompraPrimario
-        End Get
-        Set(value As Double)
-            _MontoCompraPrimario = value
-        End Set
-    End Property
-    Private Property CesionFlujo1 As Double
-        Get
-            Return _CesionFlujo1
-        End Get
-        Set(value As Double)
-            _CesionFlujo1 = value
-        End Set
-    End Property
-
-
-
-
-
-
-
-    Private Sub frmBonos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Call CargarCasas()
-        Call CargarPeriodos()
-
-        'VARIOS
-        FechaEmision = dtpFechaEmision.Value.Date
-    End Sub
-
-
-    'GETS COMPRA
-    Function GetValorNominalCompra() As Double
-        Dim valor As Double
-
-        If Me.txtValorNominalCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtValorNominalCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-
-    Function GetUltimaFechaCuponCompra() As Date
-        Dim valor As Date
-
-        valor = Me.dtpUltimaFechaCuponCompra.Value.Date
-
-        Return valor
-    End Function
-
-    Function GetSiguienteFechaCuponCompra() As Date
-        Dim valor As Date
-
-        valor = Me.dtpSiguienteFechaCuponCompra.Value.Date
-
-        Return valor
-    End Function
-
-    Function GetFechaLiquidacionCompra() As Date
-        Dim valor As Date
-
-        valor = Me.dtpFechaLiquidacionCompra.Value.Date
-
-        Return valor
-    End Function
-
-    Function GetFechaVencimientoCompra() As Date
-        Dim valor As Date
-
-        valor = Me.dtpFechaVencimientoCompra.Value.Date
-
-        Return valor
-    End Function
-
-    Function GetPorcentajeCuponCompra() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeCuponCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPorcentajeCuponCompra.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-
-    Function GetYTMAlVencimientoCompra() As Double
-        Dim valor As Double
-
-        If Me.txtYTMAlVencimientoCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtYTMAlVencimientoCompra.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-
-    Function GetComisionCasaCompra() As Double
-        Dim valor As Double
-
-        If Me.txtComisionCasaCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtComisionCasaCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetDiasAlVencimientoCompra() As Double
-        Dim valor As Double
-
-        If Me.txtDiasAlVencimientoCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtDiasAlVencimientoCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-
-    Function GetComisionBolsaCompra() As Double
-        Dim valor As Double
-
-        If Me.txtComisionBolsaCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtComisionBolsaCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetDiasAcumuladosCompra() As Integer
-        Dim valor As Integer
-
-        If Me.txtDiasAcumuladosCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtDiasAcumuladosCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetInteresAcumuladoCompra() As Double
-        Dim valor As Double
-
-        If Me.txtInteresAcumuladoCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtInteresAcumuladoCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPrecioCompra() As Double
-        Dim valor As Double
-
-        If Me.txtPrecioCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPrecioCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPorcentajeInteresAcumuladoCompra() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeInteresAcumuladoCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPorcentajeInteresAcumuladoCompra.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPorcentajeComisionCasaCompra() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeComisionCasaCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPorcentajeComisionCasaCompra.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetValorTransadoCompra() As Double
-        Dim valor As Double
-
-        If Me.txtValorTransadoCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtValorTransadoCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPorcentajeComisionBolsaCompra() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeComisionBolsaCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPorcentajeComisionBolsaCompra.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetCostoTransferenciaCompra() As Double
-        Dim valor As Double
-
-        If Me.txtCostoTransferenciaCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtCostoTransferenciaCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetCasaCompra() As String
-        Dim valor As String
-
-        If Me.cboCasa_C.SelectedIndex = -1 Then
-            valor = ""
-        Else
-            valor = Me.cboCasa_C.SelectedValue
-        End If
-
-        Return valor
-    End Function
-    Function GetYTMAlVencimientoComisionCompra() As Double
-        Dim valor As Double
-
-        If Me.txtYTMAlVencimientoComisionCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtYTMAlVencimientoComisionCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPrecioAlVencimientoCompra() As Double
-        Dim valor As Double
-
-        If Me.txtPrecioAlVencimientoCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPrecioAlVencimientoCompra.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetDiasBaseCompra() As Integer
-        Dim valor As Integer
-
-        If Me.cboAnioBaseC.SelectedIndex = -1 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.cboAnioBaseC.SelectedItem
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPrecioSucioCompra() As Double
-        Dim valor As Double
-
-        If Me.txtPrecioSucioCompra.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPrecioSucioCompra.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-
-        End If
-
-        Return valor
-    End Function
-    Function GetMontoAPagarCompra() As Double
-        Dim valor As Double
-
-        If Me.txtMontoAPagar.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtMontoAPagar.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPeriodicidadCompra() As String
-        Dim valor As String
-
-        If Me.cboPeriodosC.SelectedIndex = -1 Then
-            valor = "NA"
-        Else
-            valor = Me.cboPeriodosC.SelectedValue.ToString
-        End If
-
-        Return valor
-    End Function
-
-
-
-    'CALCULOS COMPRA
-    Function CalcularSiguienteFechaCuponCompra() As Date
-        Dim valor As Date
-        Dim vUltimaFechCupon As Date = GetUltimaFechaCuponCompra()
-        Dim vPeriodicidad As String = GetPeriodicidadCompra()
-        Dim vDiasPeriodo As Integer = Utilidades.DiasDeUnPeriodo(vPeriodicidad)
-
-        valor = vUltimaFechCupon.AddDays(vDiasPeriodo + 1)
-
-        Return valor
-    End Function
-    Function CalcularYTMAlVencimientoCompra() As Double
-        Dim valor As Double
-
-
-
-        Return valor
-    End Function
-
-    Function CalcularYTMAlVencimientoComisionCompra() As Double
-        Dim valor As Double
-        Dim vYTMAlVencimiento As Double = GetYTMAlVencimientoCompra()
-        Dim vComisionCasa As Double = GetPorcentajeComisionCasaCompra()
-        Dim vAnioBase As Integer = GetDiasBaseCompra()
-        Dim vDiasAlVencimiento As Integer = GetDiasAlVencimientoCompra()
-        Dim vComisionBolsa As Double = GetPorcentajeComisionBolsaCompra()
-
-        Try
-            valor = vYTMAlVencimiento - (vComisionBolsa * vAnioBase / vDiasAlVencimiento) - (vComisionBolsa * vAnioBase / vDiasAlVencimiento)
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-
-    Function CalcularDiasAcumuladosCompra() As Integer
-        Dim valor As Integer
-        Dim vUltimaFechaCupon As DateTime = GetUltimaFechaCuponCompra()
-        Dim vFechaLiquidacion As DateTime = GetFechaLiquidacionCompra()
-
-        valor = Utilidades.Days360(vUltimaFechaCupon, vFechaLiquidacion)
-
-        Return valor
-    End Function
-    Function CalcularDiasAlVencimientoCompra() As Integer
-        Dim valor As Integer
-        Dim vFechaVencimiento As DateTime = GetFechaVencimientoCompra()
-        Dim vFechaLiquidacion As DateTime = GetFechaLiquidacionCompra()
-
-        If GetDiasBaseCompra() = 360 Then
-            valor = Utilidades.Days360(vFechaLiquidacion, vFechaVencimiento)
-        Else
-            valor = DateDiff(DateInterval.Day, vFechaLiquidacion, vFechaVencimiento)
-        End If
-
-        Return valor
-    End Function
-
-    Function CalcularInteresAcumuladoCompra() As Double
-        Dim valor As Double
-        Dim vValorNominal As Double = GetValorNominalCompra()
-        Dim vPorcentajeCupon As Double = GetPorcentajeCuponCompra()
-        Dim vDiasAcumulados As Integer = GetDiasAcumuladosCompra()
-        Dim vAnioBase As Integer = GetDiasBaseCompra()
-
-        Try
-            valor = vValorNominal * vPorcentajeCupon * vDiasAcumulados / vAnioBase
-
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-
-    Function CalcularPorcentajeInteresAcumuladoCompra() As Double
-        Dim valor As Double
-        Dim vInteresAcumulado As Double = GetInteresAcumuladoCompra()
-        Dim vValorNominal As Double = GetValorNominalCompra()
-        Dim vAnioBase As Integer = GetDiasBaseCompra()
-        Dim vPeriodididad As String = GetPeriodicidadCompra()
-        Dim vDiasPeriodo As Integer = Utilidades.DiasDeUnPeriodo(vPeriodididad)
-        Try
-            valor = vInteresAcumulado / vValorNominal * vAnioBase / vDiasPeriodo
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularPrecioSucioCompra() As Double
-        Dim valor As Double
-        Dim vPrecioCompra As Double = GetPrecioCompra()
-        Dim vPorcentajeInteresAcumuladoCompra As Double = GetPorcentajeInteresAcumuladoCompra()
-
-        Try
-            valor = vPrecioCompra * 0.01 + vPorcentajeInteresAcumuladoCompra
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularValorTransadoCompra() As Double
-        Dim valor As Double
-        Dim vPrecioCompra As Double = GetPrecioCompra()
-        Dim vValorNominal As Double = GetValorNominalCompra()
-
-        valor = (vPrecioCompra / 100) * vValorNominal
-
-        Return valor
-    End Function
-    Function CalcularComisionCasaCompra() As Double
-        Dim valor As Double
-        Dim vPorcentajeComisionCasa As Double = GetPorcentajeComisionCasaCompra()
-        Dim vValorTransado As Double = GetValorTransadoCompra()
-
-        Try
-            valor = vPorcentajeComisionCasa * vValorTransado
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularComisionBolsaCompra() As Double
-        Dim valor As Double
-        Dim vPorcentajeComisionBolsa As Double = GetPorcentajeComisionBolsaCompra()
-        Dim vValorTransado As Double = GetValorTransadoCompra()
-
-        Try
-            valor = vPorcentajeComisionBolsa * vValorTransado
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularMontoAPagarCompra() As Double
-        Dim valor As Double
-        Dim vValorTransado As Double = GetValorTransadoCompra()
-        Dim vComisionCasa As Double = GetComisionCasaCompra()
-        Dim vComisionBolsa As Double = GetComisionBolsaCompra()
-        Dim vInteresAcumulado As Double = GetInteresAcumuladoCompra()
-        Dim vCostoTransferencia As Double = GetCostoTransferenciaCompra()
-
-        Try
-            valor = vValorTransado + vComisionCasa + vComisionBolsa + vInteresAcumulado + vCostoTransferencia
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-
-    'GETS VENTA
-    Function GetFechaLiquidacionVenta() As Date
-        Dim valor As Date
-
-        valor = dtpFechaLiquidacionVenta.Value.Date
-
-        Return valor
-    End Function
-    Function GetFechaVencimientoVenta() As Date
-        Dim valor As Date
-
-        valor = Me.dtpFechaVencimientoVenta.Value.Date
-
-        Return valor
-    End Function
-    Function GetUltimaFechaCuponVenta() As Date
-        Dim valor As Date
-
-        valor = Me.dtpUltimaFechaCuponVenta.Value.Date
-
-        Return valor
-    End Function
-    Function GetYTMAlVencimientoVenta() As Double
-        Dim valor As Double
-
-        If Me.txtYTMAlVencimientoVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtYTMAlVencimientoVenta.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPorcentajeComisionCasaVenta() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeComisionCasaVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPorcentajeComisionCasaVenta.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetDiasAlVencimientoVenta() As Integer
-        Dim valor As Integer
-
-        If Me.txtDiasAlVencimientoVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtDiasAlVencimientoVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPorcentajeComisionBolsaVenta() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeComisionBolsaVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPorcentajeComisionBolsaVenta.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPorcentajeCuponVenta() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeCuponVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPorcentajeCuponVenta.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPrecioVenta() As Double
-        Dim valor As Double
-
-        If Me.txtPrecioVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPrecioVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPrecioAlVencimientoVenta() As Double
-        Dim valor As Double
-
-        If Me.txtPrecioAlVencimientoVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPrecioAlVencimientoVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetValorNominalVenta() As Double
-        Dim valor As Double
-
-        If Me.txtValorNominalVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtValorNominalVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetSiguienteFechaCuponVenta() As Date
-        Dim valor As Date
-
-        valor = dtpSiguienteFechaCuponVenta.Value.Date
-
-        Return valor
-    End Function
-    Function GetYTMAlVencimientoComisionVenta() As Double
-        Dim valor As Double
-
-        If Me.txtYTMAlVencimientoComisionVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtYTMAlVencimientoComisionVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetDiasBaseVenta() As Integer
-        Dim valor As Integer
-
-        If Me.cboAnioBaseV.SelectedIndex = -1 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.cboAnioBaseV.SelectedItem
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetDiasAcumuladosVenta() As Integer
-        Dim valor As Integer
-
-        If Me.txtDiasAcumuladosVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtDiasAcumuladosVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPorcentajeInteresAcumuladoVenta() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeInteresAcumuladoVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPorcentajeInteresAcumuladoVenta.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetInteresAcumuladoVenta() As Double
-        Dim valor As Double
-
-        If Me.txtInteresAcumuladoVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtInteresAcumuladoVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPrecioSucioVenta() As Double
-        Dim valor As Double
-
-        If Me.txtPrecioSucioVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPrecioSucioVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetValorTransadoVenta() As Double
-        Dim valor As Double
-
-        If Me.txtValorTransadoVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtValorTransadoVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetMontoAPagarVenta() As Double
-        Dim valor As Double
-
-        If Me.txtMontoARecibir.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtMontoARecibir.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetCostoTransferenciaVenta() As Double
-        Dim valor As Double
-
-        If Me.txtCostoTransferenciaVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtCostoTransferenciaVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetComisionBolsaVenta() As Double
-        Dim valor As Double
-
-        If Me.txtComisionBolsaVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtComisionBolsaVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetComisionCasaVenta() As Double
-        Dim valor As Double
-
-        If Me.txtComisionCasaVenta.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtComisionCasaVenta.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPeriodicidadVenta() As String
-        Dim valor As String
-
-        If Me.cboPeriodosV.SelectedIndex = -1 Then
-            valor = "NA"
-        Else
-            Try
-                valor = Me.cboPeriodosV.SelectedValue
-            Catch ex As Exception
-                valor = ""
-            End Try
-
-        End If
-
-        Return valor
-    End Function
-
-
-    'GETS RO
-    Function GetValorNominalRO() As Double
-        Dim valor As Double
-
-        If Me.txtValorNominal_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtValorNominal_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPlazoRO() As Double
-        Dim valor As Double
-
-        If Me.txtPlazo_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPlazo_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPrecioCompraRO() As Double
-        Dim valor As Double
-
-        If Me.txtPrecioCompra_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPrecioCompra_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetPrecioVentaRO() As Double
-        Dim valor As Double
-
-        If Me.txtPrecioVenta_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtPrecioVenta_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetGananciaPerdidaDeCapital() As Double
-        Dim valor As Double
-
-        If Me.txtGananciaPerdidaCapital_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtGananciaPerdidaCapital_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetIngresoPorInteres() As Double
-        Dim valor As Double
-
-        If Me.txtIngresosPorIntereses_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtIngresosPorIntereses_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetCostosTotales() As Double
-        Dim valor As Double
-
-        If Me.txtCostosTotales_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtCostosTotales_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetGananciaPerdidaTotal() As Double
-        Dim valor As Double
-
-        If Me.txtGananciaPerdidaTotal_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtGananciaPerdidaTotal_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetRendimientoGananciaPerdida() As Double
-        Dim valor As Double
-
-        If Me.txtRendimientoGananciaPerdida_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtRendimientoGananciaPerdida_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetRendimientoDeIntereses() As Double
-        Dim valor As Double
-
-        If Me.txtRendimientoIntereses_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtRendimientoIntereses_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetRendimientoAntesImpuestos() As Double
-        Dim valor As Double
-
-        If Me.txtRendimientoAntesISR_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtRendimientoAntesISR_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetRendimientoDespuesImpuestos() As Double
-        Dim valor As Double
-
-        If Me.txtRendimientoDespuesISR_Op.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtRendimientoDespuesISR_Op.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-
-
-
-    'CALCULOS VENTA
-    Function CalcularPeriodicidadVenta() As String
-        Dim valor As String
-        If Me.cboPeriodosC.SelectedIndex = -1 Then
-            valor = ""
-        Else
-            Try
-                valor = cboPeriodosC.SelectedValue
-            Catch ex As Exception
-                valor = ""
-            End Try
-        End If
-
-
-        Return valor
-    End Function
-    Function CalcularUltimaFechaCuponVenta() As Date
-        Dim valor As Date
-        Dim vSiguienteFechaCupon As Date = GetSiguienteFechaCuponCompra()
-        Dim vPeriodicidad As String = GetPeriodicidadVenta()
-        Dim vDiasPeriodo As Integer = Utilidades.DiasDeUnPeriodo(vPeriodicidad)
-
-        Try
-            vSiguienteFechaCupon.AddDays(vDiasPeriodo + 1)
-            valor = vSiguienteFechaCupon
-        Catch ex As Exception
-            valor = Date.Now.Date
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularSiguienteFechaCuponVenta() As Date
-        Dim valor As Date
-        Dim vUltimaFechaCupon As DateTime = GetUltimaFechaCuponVenta()
-        Dim vPeriodicidad As String = GetPeriodicidadVenta()
-        Dim vDiasPeriodo As Integer = Utilidades.DiasDeUnPeriodo(vPeriodicidad)
-
-        valor = vUltimaFechaCupon.AddDays(vDiasPeriodo + 1)
-
-        Return valor
-    End Function
-    Function CalcularFechaLiquidacionVenta() As Date
-        Dim valor As Date
-
-        valor = DateTime.Now.Date + DateTime.Now.AddDays(3)
-
-        Return valor
-    End Function
-    Function CalcularYTMAlVencimientoComisionVenta() As Double
-        Dim valor As Double
-        Dim vYTMAlVencimiento As Double = GetYTMAlVencimientoVenta()
-        Dim vPorcentajeComisionCasa As Double = GetPorcentajeComisionCasaVenta()
-        Dim vAnioBase As Integer = GetDiasBaseVenta()
-        Dim vDiasAlVencimiento As Integer = GetDiasAlVencimientoVenta()
-        Dim vPorcentajeComisionBolsa As Double = GetPorcentajeComisionBolsaVenta()
-
-        Try
-            valor = vYTMAlVencimiento - (vPorcentajeComisionCasa * vAnioBase / vDiasAlVencimiento) - (vPorcentajeComisionBolsa * vAnioBase / vDiasAlVencimiento)
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularYTMAlVencimientoVenta() As Double
-        Dim valor As Double
-        Dim vFechaLiquidacion As DateTime = GetFechaLiquidacionVenta()
-        Dim vFechaVencimiento As DateTime = GetFechaVencimientoVenta()
-        Dim vPorcentajeCupon As Double = GetPorcentajeCuponVenta()
-        Dim vPrecioVenta As Double = GetPrecioVenta()
-        Dim vPrecioAlVencimiento As Double = GetPrecioAlVencimientoVenta()
-
-        'FALTA CALCULO
-        valor = 0
-
-        Return valor
-    End Function
-    Function CalcularDiasAcumuladosVenta() As Integer
-        Dim valor As Integer
-        Dim vUltimaFechaCupon As Date
-        Dim vFechaLiquidacion As Date
-        Dim vAnioBase As Integer = GetDiasBaseVenta()
-        vUltimaFechaCupon = GetUltimaFechaCuponVenta()
-        vFechaLiquidacion = GetFechaLiquidacionVenta()
-
-        If vAnioBase = 360 Then
-            valor = Utilidades.Days360(vUltimaFechaCupon, vFechaLiquidacion)
-        Else
-            valor = DateDiff(DateInterval.Day, vUltimaFechaCupon, vFechaLiquidacion)
-        End If
-
-
-        Return valor
-    End Function
-    Function CalcularDiasAlVencimientoVenta() As Integer
-        Dim valor As Integer
-        Dim vFechaLiquidacion As Date
-        Dim vFechaVencimiento As Date
-        Dim vAnioBase As Integer = GetDiasBaseVenta()
-
-        vFechaLiquidacion = GetFechaLiquidacionVenta()
-        vFechaVencimiento = GetFechaVencimientoVenta()
-        If vAnioBase = 360 Then
-            valor = Utilidades.Days360(vFechaLiquidacion, vFechaVencimiento)
-        Else
-            valor = DateDiff(DateInterval.Day, vFechaLiquidacion, vFechaVencimiento)
-        End If
-
-
-        Return valor
-    End Function
-    Function CalcularInteresAcumuladoVenta() As Double
-        Dim valor As Double
-        Dim vValorNominal As Double
-        Dim vPorcentajeCupon As Double
-        Dim vDiasAcumulados As Integer
-        Dim vDiasBase As Integer = GetDiasBaseVenta()
-
-        vValorNominal = GetValorNominalVenta()
-        vPorcentajeCupon = GetPorcentajeCuponVenta()
-        vDiasAcumulados = GetDiasAcumuladosVenta()
-
-        Try
-            valor = vValorNominal * vPorcentajeCupon * vDiasAcumulados / vDiasBase
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularInteresAcumuladoPorcentajeVenta() As Double
-        Dim valor As Double
-        Dim vInteresAcumulado As Double
-        Dim vValorNominal As Double
-        Dim vDiasBase As Integer = GetDiasBaseVenta()
-        Dim vPeriodicidad As String = GetPeriodicidadVenta()
-        Dim vDiasPeriodo As Integer = Utilidades.DiasDeUnPeriodo(vPeriodicidad)
-
-        vInteresAcumulado = GetInteresAcumuladoVenta()
-        vValorNominal = GetValorNominalVenta()
-
-        Try
-            valor = vInteresAcumulado / vValorNominal * vDiasBase / vDiasPeriodo
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularPrecioSucioVenta() As Double
-        Dim valor As Double
-        Dim vPrecioVenta As Double
-        Dim vNumero As Double
-        Dim vPorcentajeInteresAcumulado As Double
-
-        vPrecioVenta = GetPrecioVenta()
-        vNumero = 0.01
-        vPorcentajeInteresAcumulado = GetPorcentajeInteresAcumuladoVenta()
-
-        Try
-            valor = vPrecioVenta * vNumero + vPorcentajeInteresAcumulado
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularValorTransadoVenta() As Double
-        Dim valor As Double
-        Dim vPrecioVenta As Double
-        Dim vValorNominal As Double
-
-        vPrecioVenta = GetPrecioVenta()
-        vValorNominal = GetValorNominalVenta()
-
-        Try
-            valor = (vPrecioVenta / 100) * vValorNominal
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularComisionCasaVenta() As Double
-        Dim valor As Double
-        Dim vPorcentajeComisionCasa As Double
-        Dim vValorTransado As Double
-
-        vPorcentajeComisionCasa = GetPorcentajeComisionCasaVenta()
-        vValorTransado = GetValorTransadoVenta()
-
-        Try
-            valor = vPorcentajeComisionCasa * vValorTransado
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularComisionBolsaVenta() As Double
-        Dim valor As Double
-        Dim vPorcentajeComisionBolsa As Double
-        Dim vValorTransado As Double
-
-        vPorcentajeComisionBolsa = GetPorcentajeComisionBolsaVenta()
-        vValorTransado = GetValorTransadoVenta()
-
-        Try
-            valor = vPorcentajeComisionBolsa * vValorTransado
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularMontoARecibirVenta() As Double
-        Dim valor As Double
-        Dim vValorTransado As Double
-        Dim vComisionBolsa As Double
-        Dim vComisionCasa As Double
-        Dim vInteresAcumulado As Double
-
-        vValorTransado = GetValorTransadoVenta()
-        vComisionBolsa = GetComisionBolsaVenta()
-        vComisionCasa = GetComisionCasaVenta()
-        vInteresAcumulado = GetInteresAcumuladoVenta()
-
-        Try
-            valor = vValorTransado - vComisionBolsa - vComisionCasa + vInteresAcumulado
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-
-    'CALCULOS RO
-    Function CalcularDiasPlazoRO() As Integer
-        Dim valor As Integer
-        Dim vFechaLiquidacionCompra As Date = GetFechaLiquidacionCompra()
-        Dim vFechaLiquidacionVenta As Date = GetFechaLiquidacionVenta()
-        Dim vAnioBase As Integer = GetDiasBaseCompra()
-
-        If vAnioBase = 360 Then
-            valor = Utilidades.Days360(vFechaLiquidacionCompra, vFechaLiquidacionVenta)
-        Else
-            valor = DateDiff(DateInterval.Day, vFechaLiquidacionCompra, vFechaLiquidacionVenta)
-        End If
-
-        Return valor
-    End Function
-    Function CalcularGananciaDeCapital() As Double
-        Dim valor As Double
-        Dim vValorTransadoVenta As Double = GetValorTransadoVenta()
-        Dim vValorTransadoCompra As Double = GetValorTransadoCompra()
-
-        valor = vValorTransadoVenta - vValorTransadoCompra
-
-        Return valor
-    End Function
-    Function CalcularGananciaDeIntereses() As Double
-        Dim valor As Double
-        'Dim vCuponesPagados As Double = 0 'FALTA VALOR
-        'Dim vInteresAcumulado As Double = GetInteresAcumuladoCompra()
-
-        'valor = vCuponesPagados + vInteresAcumulado
-        valor = TotalValorCupones
-
-        Return valor
-    End Function
-    Function CalcularGananciaTotal() As Double
-        Dim valor As Double
-        Dim vGananciaDeCapital As Double = GetGananciaPerdidaDeCapital()
-        Dim vGananciaDeIntereses As Double = GetIngresoPorInteres()
-
-        valor = vGananciaDeCapital + vGananciaDeIntereses
-
-        Return valor
-    End Function
-    Function CalcularRentabilidadPorGananciaDeCapital() As Double
-        Dim valor As Double
-        Dim vGananciaDeCapital As Double = GetGananciaPerdidaDeCapital()
-        Dim vValorTransadoCompra As Double = GetValorTransadoCompra()
-        Dim vDiasPLazo As Integer = GetPlazoRO()
-        Dim vAnioBase As Integer = GetDiasBaseCompra()
-
-        Try
-            valor = vGananciaDeCapital / vValorTransadoCompra * vAnioBase / vDiasPLazo
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularRentabilidadPorIntereses() As Double
-        Dim valor As Double
-        Dim vGananciaPorIntereses As Double = GetIngresoPorInteres()
-        Dim vValorTransadoCompra As Double = GetValorTransadoCompra()
-        Dim vAnioBase As Integer = GetDiasBaseCompra()
-        Dim vDiasPlazo As Integer = GetPlazoRO()
-
-        Try
-            valor = vGananciaPorIntereses / vValorTransadoCompra * vAnioBase / vDiasPlazo
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-    Function CalcularRentabilidadTotal() As Double
-        Dim valor As Double
-        Dim vGAnanciaTotal As Double = GetGananciaPerdidaTotal()
-        Dim vValorTransadoCompra As Double = GetValorTransadoCompra()
-        Dim vAnioBase As Integer = GetDiasBaseCompra()
-        Dim vDiasPlazo As Integer = GetPlazoRO()
-
-        Try
-            valor = vGAnanciaTotal / vValorTransadoCompra * vAnioBase / vDiasPlazo
-            valor = valor * 100
-        Catch ex As Exception
-            valor = 0
-        End Try
-
-        Return valor
-    End Function
-
-    'REFRESCAR
-    Sub RefrescarSiguienteFechaCuponCompra()
-        Me.dtpSiguienteFechaCuponCompra.Value = CalcularSiguienteFechaCuponCompra()
-    End Sub
-    Sub RefrescarYTMAlVencimientoComisionCompra()
-        Me.txtYTMAlVencimientoComisionCompra.Text = CalcularYTMAlVencimientoComisionCompra().ToString
-    End Sub
-    Sub RefrescarYTMAlVencimientoCompra()
-        'Me.txtYTMAlVencimientoCompra.Text = CalcularYTMAlVencimientoCompra().ToString
-
-        'ACTIVAR DESPUES DE ENCONTRAR FORMULA
-    End Sub
-    Sub RefrescarDiasAcumuladosCompra()
-        Me.txtDiasAcumuladosCompra.Text = CalcularDiasAcumuladosCompra().ToString
-    End Sub
-    Sub RefrescarDiasAlVencimientoCompra()
-        Me.txtDiasAlVencimientoCompra.Text = CalcularDiasAlVencimientoCompra().ToString
-    End Sub
-    Sub RefrescarInteresAcumuladoCompra()
-        Me.txtInteresAcumuladoCompra.Text = CalcularInteresAcumuladoCompra().ToString
-    End Sub
-    Sub RefrescarPorcentajeInteresAcumuladoCompra()
-        Me.txtPorcentajeInteresAcumuladoCompra.Text = CalcularPorcentajeInteresAcumuladoCompra().ToString
-    End Sub
-    Sub RefrescarPorcentajePrecioSucioCompra()
-        Me.txtPrecioSucioCompra.Text = CalcularPrecioSucioCompra().ToString
-    End Sub
-    Sub RefrescarValorTransadoCompra()
-        Me.txtValorTransadoCompra.Text = CalcularValorTransadoCompra().ToString
-    End Sub
-    Sub RefrescarComisionCasaCompra()
-        Me.txtComisionCasaCompra.Text = CalcularComisionCasaCompra().ToString
-    End Sub
-    Sub RefrescarComisionBolsaCompra()
-        Me.txtComisionBolsaCompra.Text = CalcularComisionBolsaCompra().ToString
-    End Sub
-    Sub RefrescarMontoAPagarCompra()
-        Me.txtMontoAPagar.Text = CalcularMontoAPagarCompra().ToString
-    End Sub
-
-    'VENTA
-    Sub RefrescarPeriodicidadVenta()
-        Me.cboPeriodosV.SelectedValue = CalcularPeriodicidadVenta()
-    End Sub
-    Sub RefrescarUltimaFechaCuponVenta()
-        Me.dtpUltimaFechaCuponVenta.Value = CalcularUltimaFechaCuponVenta()
-    End Sub
-    Sub RefrescarSiguienteFechaCuponVenta()
-        Me.dtpSiguienteFechaCuponVenta.Value = CalcularSiguienteFechaCuponVenta()
-    End Sub
-    Sub RefrescarFechaLiquidacionVenta()
-        Me.dtpFechaLiquidacionVenta.Value = CalcularFechaLiquidacionVenta()
-    End Sub
-    Sub RefrescarFechaVencimientoVenta()
-        Me.dtpFechaVencimientoVenta.Value = Me.dtpFechaVencimientoCompra.Value
-    End Sub
-    Sub RefrescarPorcentajeCuponVenta()
-        Me.txtPorcentajeCuponVenta.Text = Me.txtPorcentajeCuponCompra.Text
-    End Sub
-    Sub RefrescarYTMAlVencimientoComisionVenta()
-        Me.txtYTMAlVencimientoComisionVenta.Text = CalcularYTMAlVencimientoComisionVenta().ToString
-    End Sub
-    Sub RefrescarYTMAlVencimientoVenta()
-        'Me.txtYTMAlVencimientoVenta.Text = CalcularYTMAlVencimientoVenta().ToString
-    End Sub
-    Sub RefrescarDiasAcumuladosVenta()
-        Me.txtDiasAcumuladosVenta.Text = CalcularDiasAcumuladosVenta().ToString
-    End Sub
-    Sub RefrescarDiasAlVencimientoVenta()
-        Me.txtDiasAlVencimientoVenta.Text = CalcularDiasAlVencimientoVenta().ToString
-    End Sub
-    Sub RefrescarInteresAcumuladoVenta()
-        Me.txtInteresAcumuladoVenta.Text = CalcularInteresAcumuladoVenta().ToString
-    End Sub
-    Sub RefrescarPorcentajeInteresAcumuladoVenta()
-        Me.txtPorcentajeInteresAcumuladoVenta.Text = CalcularInteresAcumuladoPorcentajeVenta().ToString
-    End Sub
-    Sub RefrescarPrecioSucioVenta()
-        Me.txtPrecioSucioVenta.Text = CalcularPrecioSucioVenta().ToString
-    End Sub
-    Sub RefrescarValorTransadoVenta()
-        Me.txtValorTransadoVenta.Text = CalcularValorTransadoVenta().ToString
-    End Sub
-    Sub RefrescarComisionCasaVenta()
-        Me.txtComisionCasaVenta.Text = CalcularComisionCasaVenta().ToString
-    End Sub
-    Sub RefrescarComisionBolsaVenta()
-        Me.txtComisionBolsaVenta.Text = CalcularComisionBolsaVenta().ToString
-    End Sub
-    Sub RefrescarMontoARecibirVenta()
-        Me.txtMontoARecibir.Text = CalcularMontoARecibirVenta()
-    End Sub
-    Sub RefrescarValorNominalVenta()
-        Me.txtValorNominalVenta.Text = GetValorNominalCompra()
-
-    End Sub
-    Sub RefrescarPorcentajeComisionCasaVenta()
-        Me.txtPorcentajeComisionCasaVenta.Text = GetPorcentajeComisionCasaCompra().ToString
-    End Sub
-    Sub RefrescarPorcentajeComisionBolsaVenta()
-        Me.txtPorcentajeComisionBolsaVenta.Text = GetPorcentajeComisionBolsaCompra().ToString
-    End Sub
-
-    'RO
-    Sub RefrescarValorNominalRO()
-        Me.txtValorNominal_Op.Text = GetValorNominalCompra.ToString
-    End Sub
-    Sub RefrescarPLazoRO()
-        Me.txtPlazo_Op.Text = CalcularDiasPlazoRO()
-
-    End Sub
-    Sub RefrescarPrecioCompraRO()
-        Me.txtPrecioCompra_Op.Text = GetPrecioCompra()
-    End Sub
-    Sub RefrescarPrecioVentaRO()
-        Me.txtPrecioVenta_Op.Text = GetPrecioVenta()
-
-    End Sub
-    Sub RefrescarGananciaDeCapital()
-        Me.txtGananciaPerdidaCapital_Op.Text = CalcularGananciaDeCapital()
-
-    End Sub
-    Sub RefrescarGananciaDeIntereses()
-        Me.txtIngresosPorIntereses_Op.Text = CalcularGananciaDeIntereses()
-    End Sub
-    Sub RefrescarGananciaTotal()
-        Me.txtGananciaPerdidaTotal_Op.Text = CalcularGananciaTotal()
-
-    End Sub
-    Sub RefrescarRentabilidadPorGananciaDeCapital()
-        Me.txtRendimientoGananciaPerdida_Op.Text = CalcularRentabilidadPorGananciaDeCapital()
-    End Sub
-    Sub RefrescarRentabilidadPorIntereses()
-        Me.txtRendimientoIntereses_Op.Text = CalcularRentabilidadPorIntereses()
-    End Sub
-    Sub RefrescarRentabilidadTotal()
-        Me.txtRendimientoDespuesISR_Op.Text = CalcularRentabilidadTotal()
-    End Sub
-
-
-
-
-
-    Sub CargarCasas()
-        Me.cboCasa_C.DataSource = oDAOGeneral.ListaCasasCorredoras.Tables("CasasCorredoras")
-        Me.cboCasa_C.DisplayMember = "Descripcion"
-        Me.cboCasa_C.ValueMember = "Codigo"
-        Me.cboCasa_C.SelectedValue = -1
-
-        Me.cboCasa_V.DataSource = oDAOGeneral.ListaCasasCorredoras.Tables("CasasCorredoras")
-        Me.cboCasa_V.DisplayMember = "Descripcion"
-        Me.cboCasa_V.ValueMember = "Codigo"
-        Me.cboCasa_V.SelectedValue = -1
-
-    End Sub
-
-
-    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
-        oCEBonos = New BonosCE
-
-        'oCEBonos.CodigoCasaCompra = Me.GetCasaCompra
-        oCEBonos.ValorNominalCompra = Me.GetValorNominalCompra
-        oCEBonos.UltimaFechaCuponCompra = Me.GetUltimaFechaCuponCompra
-        oCEBonos.SiguienteFechaCuponCompra = Me.GetSiguienteFechaCuponCompra
-        oCEBonos.FechaLiquidacionCompra = Me.GetFechaLiquidacionCompra
-        oCEBonos.FechaVencimientoCompra = Me.GetFechaVencimientoCompra
-        oCEBonos.PorcentajeCuponCompra = Me.GetPorcentajeCuponCompra
-        'oCEBonos.YTMAlVencimientoComisionCompra = Me.GetYTMAlVencimientoComisionCompra
-        'oCEBonos.YTMAlVencimientoCompra = GetYTMAlVencimientoCompra()
-        oCEBonos.PrecioAlVencimientoCompra = GetPrecioAlVencimientoCompra()
-        oCEBonos.PrecioCompra = GetPrecioCompra()
-        oCEBonos.DiasBaseCompra = GetDiasBaseCompra()
-        'oCEBonos.DiasAcumuladosCompra = GetDiasAcumuladosCompra()
-        'oCEBonos.DiasAlVencimientoCompra = GetDiasAlVencimientoCompra()
-        'oCEBonos.PorcentajeInteresAcumuladoCompra = GetPorcentajeInteresAcumuladoCompra()
-        'oCEBonos.InteresAcumuladoCompra = GetInteresAcumuladoCompra()
-        'oCEBonos.PrecioSucioCompra = GetPrecioSucioCompra()
-        'oCEBonos.ValorTransadoCompra = GetValorTransadoCompra()
-        'oCEBonos.MontoAPagarCompra = GetMontoAPagarCompra()
-        oCEBonos.CostoDeTransferenciaCompra = GetCostoTransferenciaCompra()
-
-        oCEBonos.ValorNominalVenta = GetValorNominalVenta()
-        oCEBonos.UltimaFechaCuponVenta = GetUltimaFechaCuponVenta()
-        oCEBonos.SiguienteFechaCuponVenta = GetSiguienteFechaCuponVenta()
-        oCEBonos.FechaLiquidacionVenta = GetFechaLiquidacionVenta()
-        oCEBonos.FechaVencimientoVenta = GetFechaVencimientoVenta()
-        oCEBonos.PorcentajeCuponVenta = GetPorcentajeCuponVenta()
-        'oCEBonos.YTMAlVencimientoComisionVenta = GetYTMAlVencimientoComisionVenta()
-        'oCEBonos.YTMAlVencimientoVenta = GetYTMAlVencimientoVenta()
-        oCEBonos.PrecioAlVencimientoVenta = GetPrecioAlVencimientoVenta()
-        oCEBonos.PrecioVenta = GetPrecioVenta()
-        oCEBonos.DiasBaseVenta = GetDiasBaseVenta()
-        'oCEBonos.DiasAcumuladosVenta = GetDiasAcumuladosVenta()
-        'oCEBonos.DiasAlVencimientoVenta = GetDiasAlVencimientoVenta()
-        'oCEBonos.PorcentajeInteresAcumuladoVenta = GetPorcentajeInteresAcumuladoVenta()
-        'oCEBonos.InteresAcumuladoVenta = GetInteresAcumuladoVenta()
-        'oCEBonos.PrecioSucioVenta = GetPrecioSucioVenta()
-        'oCEBonos.ValorTransadoVenta = GetValorTransadoVenta()
-        'oCEBonos.MontoAPagarVenta = GetMontoAPagarVenta()
-        oCEBonos.CostoDeTransferenciaVenta = GetCostoTransferenciaVenta()
-        'oCEBonos.ValorNominalRO = GetValorNominalRO()
-        'oCEBonos.PlazoRO = GetPlazoRO()
-        'oCEBonos.PrecioCompraRO = GetPrecioCompraRO()
-        'oCEBonos.PrecioVentaRO = GetPrecioVentaRO()
-        'oCEBonos.GananciaPerdidaDeCapital = GetGananciaPerdidaDeCapital()
-        'oCEBonos.IngresoPorInteres = GetIngresoPorInteres()
-        'oCEBonos.CostosTotales = GetCostosTotales()
-        'oCEBonos.GananciaPerdidaTotal = GetGananciaPerdidaTotal()
-        'oCEBonos.RendimientoGananciaPerdida = GetRendimientoGananciaPerdida()
-        'oCEBonos.RendimientoDeIntereses = GetRendimientoDeIntereses()
-        'oCEBonos.RendimientoAntesImpuestos = GetRendimientoAntesImpuestos()
-        'oCEBonos.RendimientoDespuesImpuestos = GetRendimientoDespuesImpuestos()
-    End Sub
-
-    Function RetornarObjeto()
-        Return oCEBonos
-    End Function
-
-    Public Sub CargarRegistro(vId As Integer, vTipo As String)
-        Modo = "C"
-        IdDocumento = vId
-        TipoDocumento = vTipo
-    End Sub
-    Private Sub CargarRegistroBD()
-        oCEBonos = New BonosCE
-        oDAOBonos = New BonosDAO
-
-        oDAOBonos.CargarRegistro(oCEBonos, TipoDocumento, IdDocumento)
-
-        'Dim vCodigoCasaCompra As String = oCEBonos.CodigoCasaCompra
-        Dim vValorNominalCompra As Double = oCEBonos.ValorNominalCompra
-        Dim vUltimaFechaCuponCompra As Date = oCEBonos.UltimaFechaCuponCompra
-        Dim vSiguienteFechaCuponCompra As Date = oCEBonos.SiguienteFechaCuponCompra
-        Dim vFechaLiquidacionCompra As Date = oCEBonos.FechaLiquidacionCompra
-        Dim vFechaVencimientoCompra As Date = oCEBonos.FechaVencimientoCompra
-        Dim vPorcentajeCuponCompra As Double = oCEBonos.PorcentajeCuponCompra
-        Dim vYTMAlVencimientoComisionCompra As Double = oCEBonos.YTMAlVencimientoComisionCompra
-        Dim vYTMAlVencimientoCompra As Double = oCEBonos.YTMAlVencimientoCompra
-        Dim vPrecioAlVencimientoCompra As Double = oCEBonos.PrecioAlVencimientoCompra
-        Dim vPrecioCompra As Double = oCEBonos.PrecioCompra
-        Dim vDiasBaseCompra As Integer = oCEBonos.DiasBaseCompra
-        Dim vDiasAcumuladosCompra As Integer = oCEBonos.DiasAcumuladosCompra
-        Dim vDiasAlVencimientoCompra As Integer = oCEBonos.DiasAlVencimientoCompra
-        Dim vPorcentajeInteresAcumuladoCompra As Double = oCEBonos.PorcentajeInteresAcumuladoCompra
-        Dim vInteresAcumuladoCompra As Double = oCEBonos.InteresAcumuladoCompra
-        Dim vPrecioSucioCompra As Double = oCEBonos.PrecioSucioCompra
-        Dim vValorTransadoCompra As Double = oCEBonos.ValorTransadoCompra
-        Dim vMontoAPagarCompra As Double = oCEBonos.MontoAPagarCompra
-        Dim vCostoDeTransferenciaCompra As Double = oCEBonos.CostoDeTransferenciaCompra
-
-        'Dim vCodigoCasaVenta As String = oCEBonos.CodigoCasaVenta
-        Dim vValorNominalVenta As Double = oCEBonos.ValorNominalVenta
-        Dim vUltimaFechaCuponVenta As Date = oCEBonos.UltimaFechaCuponVenta
-        Dim vSiguienteFechaCuponVenta As Date = oCEBonos.SiguienteFechaCuponVenta
-        Dim vFechaLiquidacionVenta As Date = oCEBonos.FechaLiquidacionVenta
-        Dim vFechaVencimientoVenta As Date = oCEBonos.FechaVencimientoVenta
-        Dim vPorcentajeCuponVenta As Double = oCEBonos.PorcentajeCuponVenta
-        Dim vYTMAlVencimientoComisionVenta As Double = oCEBonos.YTMAlVencimientoComisionVenta
-        Dim vYTMAlVencimientoVenta As Double = oCEBonos.YTMAlVencimientoVenta
-        Dim vPrecioAlVencimientoVenta As Double = oCEBonos.PrecioAlVencimientoVenta
-        Dim vPrecioVenta As Double = oCEBonos.PrecioVenta
-        Dim vDiasBaseVenta As Integer = oCEBonos.DiasBaseVenta
-        Dim vDiasAcumuladosVenta As Integer = oCEBonos.DiasAcumuladosVenta
-        Dim vDiasAlVencimientoVenta As Integer = oCEBonos.DiasAlVencimientoVenta
-        Dim vPorcentajeInteresAcumuladoVenta As Double = oCEBonos.InteresAcumuladoPorcentajeVenta
-        Dim vInteresAcumuladoVenta As Integer = oCEBonos.InteresAcumuladoVenta
-        Dim vPrecioSucioVenta As Double = oCEBonos.PrecioSucioVenta
-        Dim vValorTransadoVenta As Double = oCEBonos.ValorTransadoVenta
-        'Dim vMontoAPagarVenta As Double = oCEBonos.MontoAPagarVenta
-        Dim vCostoDeTransferenciaVenta As Double = oCEBonos.CostoDeTransferenciaVenta
-
-        Dim vValorNominalRO As Double = oCEBonos.ValorNominalRO
-        'Dim vPlazoRO As Double = oCEBonos.PlazoRO
-        Dim vPrecioCompraRO As Double = oCEBonos.PrecioCompraRO
-        Dim vPrecioVentaRO As Double = oCEBonos.PrecioVentaRO
-        Dim vGananciaPerdidaDeCapital As Double = oCEBonos.GananciaPerdidaDeCapital
-        Dim vIngresoPorInteres As Double = oCEBonos.IngresoPorInteres
-        Dim vCostosTotales As Double = oCEBonos.CostosTotales
-        Dim vGananciaPerdidaTotal As Double = oCEBonos.GananciaPerdidaTotal
-        Dim vRendimientoGananciaPerdida As Double = oCEBonos.RendimientoGananciaPerdida
-        Dim vRendimientoDeIntereses As Double = oCEBonos.RendimientoDeIntereses
-        Dim vRendimientoAntesImpuestos As Double = oCEBonos.RendimientoAntesImpuestos
-        Dim vRendimientoDespuesImpuestos As Double = oCEBonos.RendimientoDespuesImpuestos
-
-
-        'Me.cboCasa_C.SelectedValue = vCodigoCasaCompra
-        Me.txtValorNominalCompra.Text = vValorNominalCompra
-        Me.dtpUltimaFechaCuponCompra.Value = vUltimaFechaCuponCompra
-        Me.dtpSiguienteFechaCuponCompra.Value = vSiguienteFechaCuponCompra
-        Me.dtpFechaLiquidacionCompra.Value = vFechaLiquidacionCompra
-        Me.dtpFechaVencimientoCompra.Value = vFechaVencimientoCompra
-        Me.txtPorcentajeCuponCompra.Text = vPorcentajeCuponCompra
-        Me.txtYTMAlVencimientoComisionCompra.Text = vYTMAlVencimientoComisionCompra
-        Me.txtYTMAlVencimientoCompra.Text = vYTMAlVencimientoCompra
-        Me.txtPrecioAlVencimientoCompra.Text = vPrecioAlVencimientoCompra
-        Me.txtPrecioCompra.Text = vPrecioCompra
-        Me.cboAnioBaseC.SelectedItem = vDiasBaseCompra
-        Me.txtDiasAcumuladosCompra.Text = vDiasAcumuladosCompra
-        Me.txtDiasAlVencimientoCompra.Text = vDiasAlVencimientoCompra
-        Me.txtPorcentajeInteresAcumuladoCompra.Text = vPorcentajeInteresAcumuladoCompra
-        Me.txtInteresAcumuladoCompra.Text = vInteresAcumuladoCompra
-        Me.txtPrecioSucioCompra.Text = vPrecioSucioCompra
-        Me.txtValorTransadoCompra.Text = vValorTransadoCompra
-        Me.txtMontoAPagar.Text = vMontoAPagarCompra
-        Me.txtCostoTransferenciaCompra.Text = vCostoDeTransferenciaCompra
-
-        'Me.cboCasa_V.SelectedValue = vCodigoCasaVenta
-        Me.txtValorNominalVenta.Text = vValorNominalVenta
-        Me.dtpUltimaFechaCuponVenta.Value = vUltimaFechaCuponVenta
-        Me.dtpSiguienteFechaCuponVenta.Value = vSiguienteFechaCuponVenta
-        Me.dtpFechaLiquidacionVenta.Value = vFechaLiquidacionVenta
-        Me.dtpFechaVencimientoVenta.Value = vFechaVencimientoVenta
-        Me.txtPorcentajeCuponVenta.Text = vPorcentajeCuponVenta
-        Me.txtYTMAlVencimientoComisionVenta.Text = vYTMAlVencimientoComisionVenta
-        Me.txtYTMAlVencimientoVenta.Text = vYTMAlVencimientoVenta
-        Me.txtPrecioAlVencimientoVenta.Text = vPrecioAlVencimientoVenta
-        Me.txtPrecioVenta.Text = vPrecioVenta
-        Me.cboAnioBaseV.SelectedItem = vDiasBaseVenta
-        Me.txtDiasAcumuladosVenta.Text = vDiasAcumuladosVenta
-        Me.txtDiasAlVencimientoVenta.Text = vDiasAlVencimientoVenta
-        Me.txtPorcentajeInteresAcumuladoVenta.Text = vPorcentajeInteresAcumuladoVenta
-        Me.txtInteresAcumuladoVenta.Text = vInteresAcumuladoVenta
-        Me.txtPrecioSucioVenta.Text = vPrecioSucioVenta
-        Me.txtValorTransadoVenta.Text = vValorTransadoVenta
-        'Me.txtMontoARecibir.Text = vMontoAPagarVenta
-        Me.txtCostoTransferenciaVenta.Text = vCostoDeTransferenciaVenta
-
-        Me.txtValorNominal_Op.Text = vValorNominalRO
-        'Me.txtPlazo_Op.Text = vPlazoRO
-        Me.txtPrecioCompra_Op.Text = vPrecioCompraRO
-        Me.txtPrecioVenta_Op.Text = vPrecioVentaRO
-        Me.txtGananciaPerdidaCapital_Op.Text = vGananciaPerdidaDeCapital
-        Me.txtIngresosPorIntereses_Op.Text = vIngresoPorInteres
-        Me.txtCostosTotales_Op.Text = vCostosTotales
-        Me.txtGananciaPerdidaTotal_Op.Text = vGananciaPerdidaTotal
-        Me.txtRendimientoGananciaPerdida_Op.Text = vRendimientoGananciaPerdida
-        Me.txtRendimientoIntereses_Op.Text = vRendimientoDeIntereses
-        Me.txtRendimientoAntesISR_Op.Text = vRendimientoAntesImpuestos
-        Me.txtRendimientoDespuesISR_Op.Text = vRendimientoDespuesImpuestos
-
-    End Sub
-
-    Private Sub txtValorNominalCompra_TextChanged(sender As Object, e As EventArgs) Handles txtValorNominalCompra.TextChanged
-        RefrescarInteresAcumuladoCompra()
-        RefrescarPorcentajeInteresAcumuladoCompra()
-        RefrescarValorTransadoCompra()
-        RefrescarValorNominalVenta()
-        RefrescarValorNominalRO()
-        RefrescarTablaIngresos()
-    End Sub
-
-    Private Sub dtpUltimaFechaCuponCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpUltimaFechaCuponCompra.ValueChanged
-        RefrescarSiguienteFechaCuponCompra()
-    End Sub
-
-    Private Sub dtpSiguienteFechaCuponCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpSiguienteFechaCuponCompra.ValueChanged
-        RefrescarDiasAcumuladosCompra()
-        RefrescarUltimaFechaCuponVenta()
-        RefrescarTablaIngresos()
-    End Sub
-
-    Private Sub dtpFechaLiquidacionCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaLiquidacionCompra.ValueChanged
-        RefrescarYTMAlVencimientoCompra()
-        RefrescarDiasAcumuladosCompra()
-        RefrescarDiasAlVencimientoCompra()
-        RefrescarPLazoRO()
-        RefrescarTablaIngresos()
-    End Sub
-
-    Private Sub dtpFechaVencimientoCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoCompra.ValueChanged
-        RefrescarYTMAlVencimientoCompra()
-        RefrescarDiasAlVencimientoCompra()
-        RefrescarFechaVencimientoVenta()
-
-    End Sub
-
-    Private Sub txtPorcentajeCuponCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeCuponCompra.TextChanged
-        RefrescarYTMAlVencimientoCompra()
-        RefrescarInteresAcumuladoCompra()
-        RefrescarPorcentajeCuponVenta()
-        RefrescarTablaIngresos()
-    End Sub
-
-    Private Sub txtYTMAlVencimientoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtYTMAlVencimientoCompra.TextChanged
-        RefrescarYTMAlVencimientoComisionCompra()
-
-    End Sub
-
-    Private Sub txtPorcentajeComisionCasaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeComisionCasaCompra.TextChanged
-        RefrescarYTMAlVencimientoComisionCompra()
-        RefrescarComisionCasaCompra()
-        RefrescarPorcentajeComisionCasaVenta()
-
-    End Sub
-
-    Private Sub txtDiasAlVencimientoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtDiasAlVencimientoCompra.TextChanged
-        RefrescarYTMAlVencimientoComisionCompra()
-
-    End Sub
-
-    Private Sub txtPrecioCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioCompra.TextChanged
-        RefrescarValorTransadoCompra()
-        RefrescarPorcentajePrecioSucioCompra()
-        RefrescarValorTransadoCompra()
-        RefrescarPrecioCompraRO()
-    End Sub
-
-    Private Sub txtPrecioAlVencimientoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoCompra.TextChanged
-        RefrescarYTMAlVencimientoCompra()
-
-    End Sub
-
-    Private Sub txtDiasAcumuladosCompra_TextChanged(sender As Object, e As EventArgs) Handles txtDiasAcumuladosCompra.TextChanged
-        RefrescarInteresAcumuladoCompra()
-
-    End Sub
-
-
-
-    Private Sub txtInteresAcumuladoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtInteresAcumuladoCompra.TextChanged
-        RefrescarPorcentajeInteresAcumuladoCompra()
-        RefrescarPorcentajePrecioSucioCompra()
-        RefrescarMontoAPagarCompra()
-        RefrescarGananciaDeIntereses()
-    End Sub
-
-    Private Sub txtValorTransadoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtValorTransadoCompra.TextChanged
-        RefrescarComisionCasaCompra()
-        RefrescarComisionBolsaCompra()
-        RefrescarMontoAPagarCompra()
-        RefrescarGananciaDeCapital()
-        RefrescarRentabilidadPorGananciaDeCapital()
-        RefrescarRentabilidadPorIntereses()
-        RefrescarRentabilidadTotal()
-    End Sub
-
-    Private Sub txtPorcentajeComisionBolsaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeComisionBolsaCompra.TextChanged
-        RefrescarComisionBolsaCompra()
-        RefrescarPorcentajeComisionBolsaVenta()
-
-    End Sub
-
-    Private Sub txtComisionBolsaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtComisionBolsaCompra.TextChanged
-        RefrescarMontoAPagarCompra()
-
-    End Sub
-
-    Private Sub txtComisionCasaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtComisionCasaCompra.TextChanged
-        RefrescarMontoAPagarCompra()
-
-    End Sub
-
-    Private Sub txtCostoTransferenciaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtCostoTransferenciaCompra.TextChanged
-        RefrescarMontoAPagarCompra()
-    End Sub
-
-    Private Sub dtpFechaLiquidacionVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaLiquidacionVenta.ValueChanged
-        'RefrescarUltimaFechaCuponVenta()
-        RefrescarYTMAlVencimientoVenta()
-        RefrescarDiasAcumuladosVenta()
-        RefrescarDiasAlVencimientoVenta()
-        RefrescarPLazoRO()
-        RefrescarTablaIngresos()
-    End Sub
-
-    Private Sub dtpFechaVencimientoVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoVenta.ValueChanged
-        'RefrescarUltimaFechaCuponVenta()
-        RefrescarYTMAlVencimientoVenta()
-        RefrescarDiasAlVencimientoVenta()
-
-    End Sub
-
-    Private Sub dtpUltimaFechaCuponVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpUltimaFechaCuponVenta.ValueChanged
-        RefrescarSiguienteFechaCuponVenta()
-        RefrescarDiasAcumuladosVenta()
-
-    End Sub
-
-    Private Sub txtYTMAlVencimientoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtYTMAlVencimientoVenta.TextChanged
-        RefrescarYTMAlVencimientoComisionVenta()
-
-    End Sub
-
-    Private Sub txtPorcentajeComisionCasaVenta_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeComisionCasaVenta.TextChanged
-        RefrescarYTMAlVencimientoComisionVenta()
-        RefrescarComisionCasaVenta()
-
-    End Sub
-
-    Private Sub txtDiasAlVencimientoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtDiasAlVencimientoVenta.TextChanged
-        RefrescarYTMAlVencimientoComisionVenta()
-
-    End Sub
-
-    Private Sub txtPorcentajeComisionBolsaVenta_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeComisionBolsaVenta.TextChanged
-        RefrescarYTMAlVencimientoComisionVenta()
-        RefrescarComisionBolsaVenta()
-
-    End Sub
-
-    Private Sub txtPorcentajeCuponVenta_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeCuponVenta.TextChanged
-        RefrescarYTMAlVencimientoVenta()
-        RefrescarInteresAcumuladoVenta()
-
-    End Sub
-
-    Private Sub txtPrecioVenta_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioVenta.TextChanged
-        RefrescarYTMAlVencimientoVenta()
-        RefrescarPrecioSucioVenta()
-        RefrescarValorTransadoVenta()
-        RefrescarPrecioVentaRO()
-    End Sub
-
-    Private Sub txtPrecioAlVencimientoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoVenta.TextChanged
-        RefrescarYTMAlVencimientoVenta()
-
-    End Sub
-
-    Private Sub txtValorNominalVenta_TextChanged(sender As Object, e As EventArgs) Handles txtValorNominalVenta.TextChanged
-        RefrescarInteresAcumuladoVenta()
-        RefrescarPorcentajeInteresAcumuladoVenta()
-        RefrescarValorTransadoVenta()
-
-    End Sub
-
-    Private Sub txtDiasAcumuladosVenta_TextChanged(sender As Object, e As EventArgs) Handles txtDiasAcumuladosVenta.TextChanged
-        RefrescarInteresAcumuladoVenta()
-
-    End Sub
-
-    Private Sub txtInteresAcumuladoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtInteresAcumuladoVenta.TextChanged
-        RefrescarPorcentajeInteresAcumuladoVenta()
-        RefrescarMontoARecibirVenta()
-        RefrescarGananciaDeIntereses()
-    End Sub
-
-    Private Sub txtPorcentajeInteresAcumuladoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeInteresAcumuladoVenta.TextChanged
-        RefrescarPrecioSucioVenta()
-
-    End Sub
-
-    Private Sub txtValorTransadoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtValorTransadoVenta.TextChanged
-        RefrescarComisionCasaVenta()
-        RefrescarComisionBolsaVenta()
-        RefrescarMontoARecibirVenta()
-        RefrescarGananciaDeCapital()
-    End Sub
-
-    Private Sub txtComisionBolsaVenta_TextChanged(sender As Object, e As EventArgs) Handles txtComisionBolsaVenta.TextChanged
-        RefrescarMontoARecibirVenta()
-
-    End Sub
-
-    Private Sub txtComisionCasaVenta_TextChanged(sender As Object, e As EventArgs) Handles txtComisionCasaVenta.TextChanged
-        RefrescarMontoARecibirVenta()
-
-    End Sub
-
-    Private Sub Label13_Click(sender As Object, e As EventArgs) Handles Label13.Click
-
-    End Sub
-
-    Private Sub cboAnioBaseC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAnioBaseC.SelectedIndexChanged
-        RefrescarInteresAcumuladoCompra()
-        RefrescarDiasAlVencimientoCompra()
-        RefrescarDiasAcumuladosCompra()
-        RefrescarRentabilidadPorGananciaDeCapital()
-        RefrescarRentabilidadPorIntereses()
-        RefrescarRentabilidadTotal()
-        RefrescarTablaIngresos()
-    End Sub
-
-    Private Sub cboAnioBaseV_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAnioBaseV.SelectedIndexChanged
-        RefrescarInteresAcumuladoVenta()
-        RefrescarDiasAlVencimientoVenta()
-        RefrescarDiasAcumuladosVenta()
-    End Sub
-    Sub CargarPeriodos()
-        Me.cboPeriodosC.DataSource = oDAOGeneral.ListaPeriodicidad
-        Me.cboPeriodosC.ValueMember = "Codigo"
-        Me.cboPeriodosC.DisplayMember = "Descripcion"
-        Me.cboPeriodosC.SelectedIndex = -1
-
-        Me.cboPeriodosV.DataSource = oDAOGeneral.ListaPeriodicidad
-        Me.cboPeriodosV.ValueMember = "Codigo"
-        Me.cboPeriodosV.DisplayMember = "Descripcion"
-        Me.cboPeriodosV.SelectedIndex = -1
-    End Sub
-
-    Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click
-
-    End Sub
-
-    Private Sub cboPeriodosC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodosC.SelectedIndexChanged
-        RefrescarSiguienteFechaCuponCompra()
-        RefrescarPorcentajeInteresAcumuladoCompra()
-        RefrescarPeriodicidadVenta()
-        RefrescarTablaIngresos()
-    End Sub
-
-    Private Sub cboPeriodosV_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodosV.SelectedIndexChanged
-        RefrescarUltimaFechaCuponVenta()
-        RefrescarSiguienteFechaCuponVenta()
-        RefrescarPorcentajeInteresAcumuladoVenta()
-
-    End Sub
-
-    Private Sub txtPrecioCompra_Op_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioCompra_Op.TextChanged
-
-    End Sub
-
-    Private Sub txtPrecioVenta_Op_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioVenta_Op.TextChanged
-
-    End Sub
-
-    Private Sub txtGananciaPerdidaCapital_Op_TextChanged(sender As Object, e As EventArgs) Handles txtGananciaPerdidaCapital_Op.TextChanged
-        RefrescarGananciaTotal()
-        RefrescarRentabilidadPorGananciaDeCapital()
-    End Sub
-
-    Private Sub txtIngresosPorIntereses_Op_TextChanged(sender As Object, e As EventArgs) Handles txtIngresosPorIntereses_Op.TextChanged
-        RefrescarGananciaTotal()
-        RefrescarRentabilidadPorIntereses()
-
-    End Sub
-
-    Private Sub txtGananciaPerdidaTotal_Op_TextChanged(sender As Object, e As EventArgs) Handles txtGananciaPerdidaTotal_Op.TextChanged
-        RefrescarRentabilidadTotal()
-
-    End Sub
-
-    Private Sub txtPlazo_Op_TextChanged(sender As Object, e As EventArgs) Handles txtPlazo_Op.TextChanged
-        RefrescarRentabilidadPorGananciaDeCapital()
-        RefrescarRentabilidadPorIntereses()
-        RefrescarRentabilidadTotal()
-    End Sub
-
-
-    Function CalcularCupones() As DataTable
-        Dim dtCupones As New DataTable
-        Dim vFechaLiquidacionCompra As Date = GetFechaLiquidacionCompra()
-        Dim vFechaLiquidacionVenta As Date = GetFechaLiquidacionVenta()
-        Dim vSiguienteFechaCuponCompra As Date = GetSiguienteFechaCuponCompra()
-        Dim vPeriodicidad As String = GetPeriodicidadCompra()
-        Dim vValorNominalCompra As Double = GetValorNominalCompra()
-        Dim vPorcentajeCuponCompra As Double = GetPorcentajeCuponCompra()
-        Dim vAnioBaseCompra As Integer = GetDiasBaseCompra()
-        Dim vColumnas As DataColumn
-        Dim vFilas As DataRow
-
-        Dim vEstaFecha As Date
-        Dim vSiguienteFecha As Date
-        Dim vDias As Integer
-        Dim vValor As Double
-
-        'CREAMOS COLUMNAS
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Date)
-        vColumnas.ColumnName = "FechaCupon"
-        vColumnas.Caption = "Fecha Cupon"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Integer)
-        vColumnas.ColumnName = "Dias"
-        vColumnas.Caption = "Dias"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "Valor"
-        vColumnas.Caption = "Valor Cupon"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vSiguienteFecha = vSiguienteFechaCuponCompra
-        vDias = DateDiff(DateInterval.Day, vFechaLiquidacionCompra, vSiguienteFechaCuponCompra)
-
-        Dim ControlBucle As Integer = 1
-
-        While vSiguienteFecha <= vFechaLiquidacionVenta
-            vEstaFecha = vSiguienteFecha
-            vFilas = dtCupones.NewRow
-            vFilas("FechaCupon") = vSiguienteFecha
-            vFilas("Dias") = vDias
-
-            Try
-                vValor = vValorNominalCompra * vPorcentajeCuponCompra * vDias / vAnioBaseCompra
-            Catch ex As Exception
-                vValor = 0
-            End Try
-
-            vFilas("Valor") = vValor
-            dtCupones.Rows.Add(vFilas)
-
-            If vPeriodicidad = "S" Then
-                vSiguienteFecha = vSiguienteFecha.AddMonths(6)
-            ElseIf vPeriodicidad = "M" Then
-                vSiguienteFecha = vSiguienteFecha.AddMonths(1)
-            Else
-                Exit While
-            End If
-
-            If vAnioBaseCompra = 360 Then
-                vDias = Utilidades.Days360(vEstaFecha, vSiguienteFecha)
-            Else
-                vDias = DateDiff(DateInterval.Day, vEstaFecha, vSiguienteFecha)
-            End If
-
-
-
-        End While
-
-        Try
-            TotalValorCupones = dtCupones.Compute("SUM(Valor)", "")
-        Catch ex As Exception
-            TotalValorCupones = 0
-        End Try
-
-        Me.txtTotalIngresoCupones.Text = TotalValorCupones.ToString
-
-        Return dtCupones
-        dtCupones.Dispose()
-    End Function
-
-    Private Sub btnRefrescarIngresos_Click(sender As Object, e As EventArgs) Handles btnRefrescarIngresos.Click
-        Me.dgvIngresos.DataSource = CalcularCupones()
-    End Sub
-
-    Sub RefrescarTablaIngresos()
-        Me.dgvIngresos.DataSource = CalcularCupones()
-    End Sub
-
-
-    Function AmortizacionDeCapital() As DataTable
-        Dim dtAmortizacionDeCapital As New DataTable
-        Dim vColumnas As DataColumn
-        Dim vFilas As DataRow
-        Dim vSiguienteFecha As Date
-        Dim vCesionDeFlujo As Double
-        'AGREGO COLUMNAS
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Date)
-        vColumnas.ColumnName = "Fecha"
-        vColumnas.Caption = "Fecha"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "CesionDeFlujo"
-        vColumnas.Caption = "Cesion De Flujo"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "AmortDeCapEmis"
-        vColumnas.Caption = "Amortización de Capital Emision"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "InteresEmis"
-        vColumnas.Caption = "Interes Emision"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "PorcCapAmort"
-        vColumnas.Caption = "Porcentaje Cap. Amortizado"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "SaldoEmis"
-        vColumnas.Caption = "Saldo Emision"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Integer)
-        vColumnas.ColumnName = "Dias"
-        vColumnas.Caption = "Dias"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "Cuota"
-        vColumnas.Caption = "Cuota"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "AmortCap"
-        vColumnas.Caption = "Amortizacion de Capital"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "InteresTit"
-        vColumnas.Caption = "Interes Titularizacion"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "SaldoTit"
-        vColumnas.Caption = "Saldo Titularizacion"
-        vColumnas.AllowDBNull = False
-        dtAmortizacionDeCapital.Columns.Add(vColumnas)
-
-
-
-
-        vSiguienteFecha = FechaEmision.AddMonths(1)
-        vCesionDeFlujo = CesionFlujo1
-        For i As Integer = 1 To NumeroPeriodosEmision
-            vFilas = dtAmortizacionDeCapital.NewRow
-            vFilas("Fecha") = vSiguienteFecha
-            vFilas("CesionDeFlujo") = 1
-            vFilas("AmortDeCapEmis") = 2
-            vFilas("InteresEmis") = 3
-            vFilas("PorcCapAmort") = 4
-            vFilas("SaldoEmis") = 5
-            vFilas("Dias") = 6
-            vFilas("Cuota") = 7
-            vFilas("AmortCap") = 8
-            vFilas("InteresTit") = 9
-            vFilas("SaldoTit") = 10
-            dtAmortizacionDeCapital.Rows.Add(vFilas)
-
-
-
-
-
-            vSiguienteFecha = FechaEmision.AddMonths(1)
-        Next
-
-
-
-
-        Return dtAmortizacionDeCapital
-        dtAmortizacionDeCapital.Dispose()
-    End Function
-
-    Private Sub txtEmisionTotal_TextChanged(sender As Object, e As EventArgs) Handles txtEmisionTotal.TextChanged
-        Double.TryParse(txtEmisionTotal.Text, EmisionTotal)
-    End Sub
-
-    Private Sub txtEmisionTotal_LostFocus(sender As Object, e As EventArgs) Handles txtEmisionTotal.LostFocus
-        Double.TryParse(txtEmisionTotal.Text, EmisionTotal)
-        txtEmisionTotal.Text = EmisionTotal.ToString(Configuraciones.CodigoTXTMontos)
-    End Sub
-
-    Private Sub txtTasaEmision_TextChanged(sender As Object, e As EventArgs) Handles txtTasaEmision.TextChanged
-        Double.TryParse(txtTasaEmision.Text, TasaEmision)
-    End Sub
-
-    Private Sub txtTasaEmision_LostFocus(sender As Object, e As EventArgs) Handles txtTasaEmision.LostFocus
-        Double.TryParse(txtTasaEmision.Text, TasaEmision)
-        txtTasaEmision.Text = TasaEmision.ToString(Configuraciones.CodigoTXTPorcentaje)
-    End Sub
-
-    Private Sub txtPeriodicidadEmision_TextChanged(sender As Object, e As EventArgs) Handles txtPeriodicidadEmision.TextChanged
-        Integer.TryParse(Me.txtPeriodicidadEmision.Text, PeriodicidadEmision)
-    End Sub
-
-    Private Sub txtPeriodosEmision_TextChanged(sender As Object, e As EventArgs) Handles txtPeriodosEmision.TextChanged
-        Integer.TryParse(Me.txtPeriodosEmision.Text, NumeroPeriodosEmision)
-    End Sub
-
-    Private Sub txtMontoCompraEmision_TextChanged(sender As Object, e As EventArgs) Handles txtMontoCompraEmision.TextChanged
-        Double.TryParse(Me.txtMontoCompraEmision.Text, MontoCompraEmision)
-    End Sub
-
-    Private Sub txtMontoCompraPrimario_TextChanged(sender As Object, e As EventArgs) Handles txtMontoCompraPrimario.TextChanged
-        Double.TryParse(Me.txtMontoCompraPrimario.Text, MontoCompraPrimario)
-    End Sub
-
-    Private Sub txtCesionFlujo1_TextChanged(sender As Object, e As EventArgs) Handles txtCesionFlujo1.TextChanged
-        Double.TryParse(Me.txtCesionFlujo1.Text, CesionFlujo1)
-    End Sub
-
-    Private Sub txtPeriodicidadEmision_LostFocus(sender As Object, e As EventArgs) Handles txtPeriodicidadEmision.LostFocus
-        Integer.TryParse(Me.txtPeriodicidadEmision.Text, PeriodicidadEmision)
-        Me.txtPeriodicidadEmision.Text = PeriodicidadEmision.ToString
-    End Sub
-
-    Private Sub txtPeriodosEmision_LostFocus(sender As Object, e As EventArgs) Handles txtPeriodosEmision.LostFocus
-        Integer.TryParse(txtPeriodosEmision.Text, NumeroPeriodosEmision)
-        txtPeriodosEmision.Text = NumeroPeriodosEmision.ToString
-    End Sub
-
-    Private Sub txtMontoCompraEmision_LostFocus(sender As Object, e As EventArgs) Handles txtMontoCompraEmision.LostFocus
-        Double.TryParse(Me.txtMontoCompraEmision.Text, MontoCompraEmision)
-        Me.txtMontoCompraEmision.Text = MontoCompraEmision.ToString(Configuraciones.CodigoTXTMontos)
-    End Sub
-
-    Private Sub txtMontoCompraPrimario_LostFocus(sender As Object, e As EventArgs) Handles txtMontoCompraPrimario.LostFocus
-        Double.TryParse(txtMontoCompraPrimario.Text, MontoCompraPrimario)
-        txtMontoCompraPrimario.Text = MontoCompraPrimario.ToString(Configuraciones.CodigoTXTMontos)
-    End Sub
-
-    Private Sub txtCesionFlujo1_LostFocus(sender As Object, e As EventArgs) Handles txtCesionFlujo1.LostFocus
-        Double.TryParse(txtCesionFlujo1.Text, CesionFlujo1)
-        txtCesionFlujo1.Text = CesionFlujo1.ToString(Configuraciones.CodigoTXTMontos)
-    End Sub
-
-    Private Sub dtpFechaEmision_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaEmision.ValueChanged
-        FechaEmision = dtpFechaEmision.Value.Date
-    End Sub
-
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        dgvAmortizacionDeCapital.DataSource = AmortizacionDeCapital()
-
-    End Sub
-
-    Private Sub label27_Click(sender As Object, e As EventArgs) Handles label27.Click
-
-    End Sub
-
-    Private Sub Label23_Click(sender As Object, e As EventArgs) Handles Label23.Click
-
-    End Sub
-
-    Private Sub Label25_Click(sender As Object, e As EventArgs) Handles Label25.Click
-
-    End Sub
-
-    Private Sub Label35_Click(sender As Object, e As EventArgs) Handles Label35.Click
-
-    End Sub
-
-    Private Sub Label26_Click(sender As Object, e As EventArgs) Handles Label26.Click
-
-    End Sub
-
-    Private Sub lblIngresosPorIntereses_Op_Click(sender As Object, e As EventArgs) Handles lblIngresosPorIntereses_Op.Click
-
-    End Sub
-
-    Private Sub Label24_Click(sender As Object, e As EventArgs) Handles Label24.Click
-
-    End Sub
-
-    Private Sub lblCostosTotales_Op_Click(sender As Object, e As EventArgs) Handles lblCostosTotales_Op.Click
-
-    End Sub
-
-    Private Sub lblGananciaPerdidaTotal_Op_Click(sender As Object, e As EventArgs) Handles lblGananciaPerdidaTotal_Op.Click
-
-    End Sub
-
-    Private Sub lblRendimientoGananciaPerdida_Op_Click(sender As Object, e As EventArgs) Handles lblRendimientoGananciaPerdida_Op.Click
-
-    End Sub
-
-    Private Sub lblRendimientoIntereses_Op_Click(sender As Object, e As EventArgs) Handles lblRendimientoIntereses_Op.Click
-
-    End Sub
-
-    Private Sub lblRendimientoAntesISR_Op_Click(sender As Object, e As EventArgs) Handles lblRendimientoAntesISR_Op.Click
-
-    End Sub
-
-    Private Sub lblRendimientoDespuesISR_Op_Click(sender As Object, e As EventArgs) Handles lblRendimientoDespuesISR_Op.Click
-
-    End Sub
-
-    Private Sub txtRendimientoDespuesISR_Op_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoDespuesISR_Op.TextChanged
-
-    End Sub
-
-    Private Sub txtRendimientoAntesISR_Op_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoAntesISR_Op.TextChanged
-
-    End Sub
-
-    Private Sub txtRendimientoIntereses_Op_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoIntereses_Op.TextChanged
-
-    End Sub
-
-    Private Sub txtRendimientoGananciaPerdida_Op_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoGananciaPerdida_Op.TextChanged
-
-    End Sub
-
-    Private Sub txtCostosTotales_Op_TextChanged(sender As Object, e As EventArgs) Handles txtCostosTotales_Op.TextChanged
-
-    End Sub
-
-    Private Sub txtValorNominal_Op_TextChanged(sender As Object, e As EventArgs) Handles txtValorNominal_Op.TextChanged
-
-    End Sub
-End Class

Inversiones.vbproj

@@ -434,12 +434,6 @@
     <Compile Include="frmPIN.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmPIN_Temporal.Designer.vb">
-      <DependentUpon>frmPIN_Temporal.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmPIN_Temporal.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmPortafolio.Designer.vb">
       <DependentUpon>frmPortafolio.vb</DependentUpon>
     </Compile>
@@ -482,18 +476,6 @@
     <Compile Include="frmValidarIngreso.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="FRM\frmActualizar.Designer.vb">
-      <DependentUpon>frmActualizar.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmActualizar.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmAsociarAcciones.Designer.vb">
-      <DependentUpon>frmAsociarAcciones.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmAsociarAcciones.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\frmBuscarReporteVenta.Designer.vb">
       <DependentUpon>frmBuscarReporteVenta.vb</DependentUpon>
     </Compile>
@@ -506,12 +488,6 @@
     <Compile Include="FRM\frmColaTitulos.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="FRM\frmCostosReportos.Designer.vb">
-      <DependentUpon>frmCostosReportos.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmCostosReportos.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\frmDetallesPortafolioGeneralRendimiento.Designer.vb">
       <DependentUpon>frmDetallesPortafolioGeneralRendimiento.vb</DependentUpon>
     </Compile>
@@ -524,12 +500,6 @@
     <Compile Include="FRM\frmFechasAcciones.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="FRM\frmFiltrosReporte.Designer.vb">
-      <DependentUpon>frmFiltrosReporte.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmFiltrosReporte.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\frmAcciones.Designer.vb">
       <DependentUpon>frmAcciones.vb</DependentUpon>
     </Compile>
@@ -542,12 +512,6 @@
     <Compile Include="FRM\frmCertificadosDeInversion.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="FRM\frmDAP.Designer.vb">
-      <DependentUpon>frmDAP.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmDAP.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\frmFlujoArbitraje.Designer.vb">
       <DependentUpon>frmFlujoArbitraje.vb</DependentUpon>
     </Compile>
@@ -608,48 +572,6 @@
     <Compile Include="FRM\frmProgreso.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="FRM\frmRegistroAcciones.Designer.vb">
-      <DependentUpon>frmRegistroAcciones.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRegistroAcciones.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmRegistroFuturosOpciones.Designer.vb">
-      <DependentUpon>frmRegistroFuturosOpciones.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRegistroFuturosOpciones.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmRegistroLetes.Designer.vb">
-      <DependentUpon>frmRegistroLetes.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRegistroLetes.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmRegistroPrestamoPersonal.Designer.vb">
-      <DependentUpon>frmRegistroPrestamoPersonal.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRegistroPrestamoPersonal.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmRegitrosFondoInversion.Designer.vb">
-      <DependentUpon>frmRegitrosFondoInversion.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRegitrosFondoInversion.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmRendimientoConsolidacion.Designer.vb">
-      <DependentUpon>frmRendimientoConsolidacion.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRendimientoConsolidacion.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmRendimientoSaldos.Designer.vb">
-      <DependentUpon>frmRendimientoSaldos.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRendimientoSaldos.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\frmRendimientoTablas.Designer.vb">
       <DependentUpon>frmRendimientoTablas.vb</DependentUpon>
     </Compile>
@@ -662,30 +584,12 @@
     <Compile Include="FRM\frmRendimientoFiltro.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="FRM\frmReporteVentaSeleccion.Designer.vb">
-      <DependentUpon>frmReporteVentaSeleccion.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmReporteVentaSeleccion.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\frmReportoArbitraje.Designer.vb">
       <DependentUpon>frmReportoArbitraje.vb</DependentUpon>
     </Compile>
     <Compile Include="FRM\frmReportoArbitraje.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="FRM\frmRescate.Designer.vb">
-      <DependentUpon>frmRescate.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRescate.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmResgistrosPrestamoEmpresarial.Designer.vb">
-      <DependentUpon>frmResgistrosPrestamoEmpresarial.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmResgistrosPrestamoEmpresarial.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\frmResultadoTitularizacion.Designer.vb">
       <DependentUpon>frmResultadoTitularizacion.vb</DependentUpon>
     </Compile>
@@ -704,18 +608,6 @@
     <Compile Include="FRM\frmSeleccionTitulosReportos.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="FRM\frmTitularizacion.Designer.vb">
-      <DependentUpon>frmTitularizacion.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmTitularizacion.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="FRM\frmBonos.Designer.vb">
-      <DependentUpon>frmBonos.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmBonos.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\frmDepositosAPlazo.Designer.vb">
       <DependentUpon>frmDepositosAPlazo.vb</DependentUpon>
     </Compile>
@@ -735,12 +627,6 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="FRM\InstrumentosFinancieros.vb" />
-    <Compile Include="FRM\frmRegistroReportos.Designer.vb">
-      <DependentUpon>frmRegistroReportos.vb</DependentUpon>
-    </Compile>
-    <Compile Include="FRM\frmRegistroReportos.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="FRM\JSON.Designer.vb">
       <DependentUpon>JSON.vb</DependentUpon>
     </Compile>
@@ -957,9 +843,6 @@
     <EmbeddedResource Include="frmPIN.resx">
       <DependentUpon>frmPIN.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmPIN_Temporal.resx">
-      <DependentUpon>frmPIN_Temporal.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmPortafolio.resx">
       <DependentUpon>frmPortafolio.vb</DependentUpon>
     </EmbeddedResource>
@@ -981,30 +864,18 @@
     <EmbeddedResource Include="frmValidarIngreso.resx">
       <DependentUpon>frmValidarIngreso.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmActualizar.resx">
-      <DependentUpon>frmActualizar.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmAsociarAcciones.resx">
-      <DependentUpon>frmAsociarAcciones.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmBuscarReporteVenta.resx">
       <DependentUpon>frmBuscarReporteVenta.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmColaTitulos.resx">
       <DependentUpon>frmColaTitulos.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmCostosReportos.resx">
-      <DependentUpon>frmCostosReportos.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmDetallesPortafolioGeneralRendimiento.resx">
       <DependentUpon>frmDetallesPortafolioGeneralRendimiento.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmFechasAcciones.resx">
       <DependentUpon>frmFechasAcciones.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmFiltrosReporte.resx">
-      <DependentUpon>frmFiltrosReporte.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmAcciones.resx">
       <DependentUpon>frmAcciones.vb</DependentUpon>
     </EmbeddedResource>
@@ -1023,9 +894,6 @@
     <EmbeddedResource Include="FRM\frmCertificadosDeInversion.resx">
       <DependentUpon>frmCertificadosDeInversion.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmDAP.resx">
-      <DependentUpon>frmDAP.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmFlujoArbitraje.resx">
       <DependentUpon>frmFlujoArbitraje.vb</DependentUpon>
     </EmbeddedResource>
@@ -1056,45 +924,15 @@
     <EmbeddedResource Include="FRM\frmProgreso.resx">
       <DependentUpon>frmProgreso.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRegistroAcciones.resx">
-      <DependentUpon>frmRegistroAcciones.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRegistroFuturosOpciones.resx">
-      <DependentUpon>frmRegistroFuturosOpciones.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRegistroLetes.resx">
-      <DependentUpon>frmRegistroLetes.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRegistroPrestamoPersonal.resx">
-      <DependentUpon>frmRegistroPrestamoPersonal.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRegitrosFondoInversion.resx">
-      <DependentUpon>frmRegitrosFondoInversion.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRendimientoConsolidacion.resx">
-      <DependentUpon>frmRendimientoConsolidacion.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRendimientoSaldos.resx">
-      <DependentUpon>frmRendimientoSaldos.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmRendimientoTablas.resx">
       <DependentUpon>frmRendimientoTablas.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmRendimientoFiltro.resx">
       <DependentUpon>frmRendimientoFiltro.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmReporteVentaSeleccion.resx">
-      <DependentUpon>frmReporteVentaSeleccion.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmReportoArbitraje.resx">
       <DependentUpon>frmReportoArbitraje.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRescate.resx">
-      <DependentUpon>frmRescate.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmResgistrosPrestamoEmpresarial.resx">
-      <DependentUpon>frmResgistrosPrestamoEmpresarial.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmResultadoTitularizacion.resx">
       <DependentUpon>frmResultadoTitularizacion.vb</DependentUpon>
     </EmbeddedResource>
@@ -1104,12 +942,6 @@
     <EmbeddedResource Include="FRM\frmSeleccionTitulosReportos.resx">
       <DependentUpon>frmSeleccionTitulosReportos.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmTitularizacion.resx">
-      <DependentUpon>frmTitularizacion.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmBonos.resx">
-      <DependentUpon>frmBonos.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\frmDepositosAPlazo.resx">
       <DependentUpon>frmDepositosAPlazo.vb</DependentUpon>
     </EmbeddedResource>
@@ -1119,9 +951,6 @@
     <EmbeddedResource Include="FRM\frmReporto.resx">
       <DependentUpon>frmReporto.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="FRM\frmRegistroReportos.resx">
-      <DependentUpon>frmRegistroReportos.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="FRM\JSON.resx">
       <DependentUpon>JSON.vb</DependentUpon>
     </EmbeddedResource>

frmBancos.Designer.vb

@@ -74,12 +74,20 @@ Partial Class frmBancos
         Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
         Me.TableAdapterManager.BAN0TableAdapter = Me.BAN0TableAdapter
         Me.TableAdapterManager.BAN1TableAdapter = Nothing
+        Me.TableAdapterManager.BAN2TableAdapter = Nothing
+        Me.TableAdapterManager.CALRITableAdapter = Nothing
+        Me.TableAdapterManager.DEP0TableAdapter = Nothing
         Me.TableAdapterManager.ECALRITableAdapter = Nothing
         Me.TableAdapterManager.EMISTableAdapter = Nothing
         Me.TableAdapterManager.EMPRTableAdapter = Nothing
+        Me.TableAdapterManager.FPAGTableAdapter = Nothing
         Me.TableAdapterManager.INFITableAdapter = Nothing
+        Me.TableAdapterManager.OFONTableAdapter = Nothing
         Me.TableAdapterManager.PAISTableAdapter = Me.PAISTableAdapter
+        Me.TableAdapterManager.PIN0TableAdapter = Nothing
+        Me.TableAdapterManager.RPAGTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Inversiones.InversionesDataSet1TableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.USR0TableAdapter = Nothing
         '
         'PAISTableAdapter
         '
@@ -99,7 +107,7 @@ Partial Class frmBancos
         Me.BAN0BindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
         Me.BAN0BindingNavigator.Name = "BAN0BindingNavigator"
         Me.BAN0BindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
-        Me.BAN0BindingNavigator.Size = New System.Drawing.Size(407, 25)
+        Me.BAN0BindingNavigator.Size = New System.Drawing.Size(676, 25)
         Me.BAN0BindingNavigator.TabIndex = 0
         Me.BAN0BindingNavigator.Text = "BindingNavigator1"
         '
@@ -203,12 +211,13 @@ Partial Class frmBancos
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvBancos.AutoGenerateColumns = False
         Me.dgvBancos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvBancos.BackgroundColor = System.Drawing.Color.White
         Me.dgvBancos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvBancos.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn2})
         Me.dgvBancos.DataSource = Me.BAN0BindingSource
         Me.dgvBancos.Location = New System.Drawing.Point(12, 38)
         Me.dgvBancos.Name = "dgvBancos"
-        Me.dgvBancos.Size = New System.Drawing.Size(383, 267)
+        Me.dgvBancos.Size = New System.Drawing.Size(652, 267)
         Me.dgvBancos.TabIndex = 1
         '
         'DataGridViewTextBoxColumn1
@@ -243,11 +252,12 @@ Partial Class frmBancos
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(407, 317)
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.ClientSize = New System.Drawing.Size(676, 317)
         Me.Controls.Add(Me.dgvBancos)
         Me.Controls.Add(Me.BAN0BindingNavigator)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmBancos"
-        Me.Text = "Bancos"
         CType(Me.InversionesDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BAN0BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BAN0BindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()

frmBancos.resx

@@ -210,7 +210,4 @@
   <metadata name="PAISBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>195, 56</value>
   </metadata>
-  <metadata name="PAISBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>195, 56</value>
-  </metadata>
 </root>