Version 1.0.0

App.config

@@ -7,14 +7,14 @@
     </configSections>
     <connectionStrings>
         <add name="Inversiones.My.MySettings.InversionesConnectionString"
-            connectionString="Data Source=INVSVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=ahernandez;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
+            connectionString="Data Source=192.168.98.133;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=inversiones;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"
+            connectionString="Data Source=MESVSAP;Initial Catalog=SAP_INVERLEC_ES;User ID=inversiones;Password=1234"
             providerName="System.Data.SqlClient" />
-        <add name="cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=ahernandez;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
+        <add name="cnInversiones" connectionString="Data Source=192.168.98.133;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=inversiones;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
             providerName="System.Data.SqlClient" />
-        <add name="Inversiones.My.MySettings.cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=ahernandez;Password=1234"
+        <add name="Inversiones.My.MySettings.cnInversiones" connectionString="Data Source=192.168.98.133;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=inversiones;Password=1234"
             providerName="System.Data.SqlClient" />
     </connectionStrings>
   
@@ -24,7 +24,7 @@
     <applicationSettings>
         <Inversiones.My.MySettings>
             <setting name="RutaReportes" serializeAs="String">
-                <value>C:\Users\ahernandez\Desktop\Inv\RPT\</value>
+                <value>RPT\</value>
             </setting>
             <setting name="VERS_SQL" serializeAs="String">
                 <value />
@@ -54,7 +54,7 @@
                 <value>inversiones</value>
             </setting>
             <setting name="ServidorSQL" serializeAs="String">
-                <value>INVSVSAP</value>
+                <value>192.168.98.133</value>
             </setting>
             <setting name="BaseDeDatos" serializeAs="String">
                 <value>InversionesDEV</value>

DAO/DAOGeneral.vb

@@ -20,7 +20,68 @@ Public Class DAOGeneral
         Return dt
     End Function
 
+    Public Function ListaBancos() As DataTable
+        Dim objCon As New Conexion
+        Dim cn As SqlConnection = objCon.Conectar
+        Dim ds As New DataSet
+        Dim dt As DataTable
+        If cn Is Nothing Then
+            cn = objCon.Conectar
+        End If
+        If cn.State = ConnectionState.Open Then
+            cn.Close()
+            cn.Dispose()
+            cn = objCon.Conectar
+            cn.Open()
+        Else
+            cn = objCon.Conectar
+            cn.Open()
+        End If
+        da = New SqlDataAdapter("SP_ListaBancos", cn)
+        da.Fill(ds)
+        dt = ds.Tables(0)
+
+
+        da.Dispose()
+        cn.Dispose()
+        Return dt
+
 
+    End Function
+    Public Function IdPropuesta(ByVal CodTitulo As String)
+        Dim objCon As New Conexion
+        Dim cn As SqlConnection = objCon.Conectar
+        Dim valor As Integer = 0
+        Dim Existe As Boolean = False
+        Dim cmd As SqlCommand
+        If Not String.IsNullOrEmpty(CodTitulo) Then
+
+            If cn Is Nothing Then
+                cn = objCon.Conectar
+            End If
+            If cn.State = ConnectionState.Open Then
+                cn.Close()
+                cn.Dispose()
+                cn = objCon.Conectar
+                cn.Open()
+            Else
+                cn = objCon.Conectar
+                cn.Open()
+            End If
+
+
+
+            cmd = New SqlCommand("select DocId from PIN0 WHERE CodInv='" + CodTitulo + "'", cn)
+            valor = CInt(cmd.ExecuteScalar)
+            cmd.Dispose()
+
+
+
+
+            cn.Dispose()
+        End If
+        Return valor
+    End Function
 
 
     Public Function ListaTiposImpuesto() As DataTable
@@ -338,7 +399,7 @@ Public Class DAOGeneral
         cmd.CommandType = CommandType.StoredProcedure
 
         cmd.Parameters.Add("@TipoFuncion", SqlDbType.VarChar).Value = TipoFuncion
-        cmd.Parameters.Add("@Version", SqlDbType.Int).Value = 8
+        cmd.Parameters.Add("@Version", SqlDbType.Int).Value = 1
         da = New SqlDataAdapter(cmd)
 
         da.Fill(ds)

DAO/DAOPropuestaInversion.vb

@@ -835,8 +835,9 @@ Public Class DAOPropuestaInversion
         Dim cmd As SqlCommand = cn.CreateCommand
         'TRAE ULTIMO DOCID
         'cmd.CommandText = "SELECT ISNULL(MAX(DocId),0) FROM [dbo].[PIN0]"
+        Try
 
-        query = "INSERT INTO [dbo].[PIN0]
+            query = "INSERT INTO [dbo].[PIN0]
            ([CodInv]
            ,[DocEst]
            ,[Asunto]
@@ -1041,6 +1042,10 @@ Public Class DAOPropuestaInversion
 
 
 
+        Catch ex As Exception
+
+        End Try
+
 
         cmd.Dispose()
         da.Dispose()

FRM/frmAcciones.Designer.vb

@@ -542,6 +542,7 @@ Partial Class frmAcciones
         '
         Me.txtRetornoAnualNetoCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtRetornoAnualNetoCompra.Location = New System.Drawing.Point(16, 271)
+        Me.txtRetornoAnualNetoCompra.MaxLength = 20
         Me.txtRetornoAnualNetoCompra.Name = "txtRetornoAnualNetoCompra"
         Me.txtRetornoAnualNetoCompra.ReadOnly = True
         Me.txtRetornoAnualNetoCompra.Size = New System.Drawing.Size(140, 20)
@@ -561,6 +562,7 @@ Partial Class frmAcciones
         '
         Me.txtComisionPorcentajeBolsaCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtComisionPorcentajeBolsaCompra.Location = New System.Drawing.Point(16, 226)
+        Me.txtComisionPorcentajeBolsaCompra.MaxLength = 20
         Me.txtComisionPorcentajeBolsaCompra.Name = "txtComisionPorcentajeBolsaCompra"
         Me.txtComisionPorcentajeBolsaCompra.Size = New System.Drawing.Size(37, 20)
         Me.txtComisionPorcentajeBolsaCompra.TabIndex = 80
@@ -578,6 +580,7 @@ Partial Class frmAcciones
         '
         Me.txtComisionPorcentajeCasaCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtComisionPorcentajeCasaCompra.Location = New System.Drawing.Point(16, 203)
+        Me.txtComisionPorcentajeCasaCompra.MaxLength = 20
         Me.txtComisionPorcentajeCasaCompra.Name = "txtComisionPorcentajeCasaCompra"
         Me.txtComisionPorcentajeCasaCompra.Size = New System.Drawing.Size(37, 20)
         Me.txtComisionPorcentajeCasaCompra.TabIndex = 79
@@ -586,6 +589,7 @@ Partial Class frmAcciones
         '
         Me.txtUnidadesCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtUnidadesCompra.Location = New System.Drawing.Point(16, 115)
+        Me.txtUnidadesCompra.MaxLength = 20
         Me.txtUnidadesCompra.Name = "txtUnidadesCompra"
         Me.txtUnidadesCompra.Size = New System.Drawing.Size(140, 20)
         Me.txtUnidadesCompra.TabIndex = 5
@@ -594,6 +598,7 @@ Partial Class frmAcciones
         '
         Me.txtComisionBolsaCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtComisionBolsaCompra.Location = New System.Drawing.Point(56, 227)
+        Me.txtComisionBolsaCompra.MaxLength = 20
         Me.txtComisionBolsaCompra.Name = "txtComisionBolsaCompra"
         Me.txtComisionBolsaCompra.ReadOnly = True
         Me.txtComisionBolsaCompra.Size = New System.Drawing.Size(99, 20)
@@ -603,6 +608,7 @@ Partial Class frmAcciones
         '
         Me.txtValorTransadoCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtValorTransadoCompra.Location = New System.Drawing.Point(16, 137)
+        Me.txtValorTransadoCompra.MaxLength = 20
         Me.txtValorTransadoCompra.Name = "txtValorTransadoCompra"
         Me.txtValorTransadoCompra.ReadOnly = True
         Me.txtValorTransadoCompra.Size = New System.Drawing.Size(140, 20)
@@ -612,6 +618,7 @@ Partial Class frmAcciones
         '
         Me.txtComisionCasaCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtComisionCasaCompra.Location = New System.Drawing.Point(56, 204)
+        Me.txtComisionCasaCompra.MaxLength = 20
         Me.txtComisionCasaCompra.Name = "txtComisionCasaCompra"
         Me.txtComisionCasaCompra.ReadOnly = True
         Me.txtComisionCasaCompra.Size = New System.Drawing.Size(100, 20)
@@ -621,6 +628,7 @@ Partial Class frmAcciones
         '
         Me.txtPrecioSucioCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtPrecioSucioCompra.Location = New System.Drawing.Point(16, 181)
+        Me.txtPrecioSucioCompra.MaxLength = 20
         Me.txtPrecioSucioCompra.Name = "txtPrecioSucioCompra"
         Me.txtPrecioSucioCompra.ReadOnly = True
         Me.txtPrecioSucioCompra.Size = New System.Drawing.Size(140, 20)
@@ -630,6 +638,7 @@ Partial Class frmAcciones
         '
         Me.txtPrecioLimpioCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtPrecioLimpioCompra.Location = New System.Drawing.Point(16, 47)
+        Me.txtPrecioLimpioCompra.MaxLength = 20
         Me.txtPrecioLimpioCompra.Name = "txtPrecioLimpioCompra"
         Me.txtPrecioLimpioCompra.Size = New System.Drawing.Size(140, 20)
         Me.txtPrecioLimpioCompra.TabIndex = 1
@@ -638,6 +647,7 @@ Partial Class frmAcciones
         '
         Me.txtRetornoAnualBrutoCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtRetornoAnualBrutoCompra.Location = New System.Drawing.Point(16, 248)
+        Me.txtRetornoAnualBrutoCompra.MaxLength = 20
         Me.txtRetornoAnualBrutoCompra.Name = "txtRetornoAnualBrutoCompra"
         Me.txtRetornoAnualBrutoCompra.ReadOnly = True
         Me.txtRetornoAnualBrutoCompra.Size = New System.Drawing.Size(140, 20)
@@ -648,6 +658,7 @@ Partial Class frmAcciones
         '
         Me.txtMontoNetoCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtMontoNetoCompra.Location = New System.Drawing.Point(16, 159)
+        Me.txtMontoNetoCompra.MaxLength = 20
         Me.txtMontoNetoCompra.Name = "txtMontoNetoCompra"
         Me.txtMontoNetoCompra.ReadOnly = True
         Me.txtMontoNetoCompra.Size = New System.Drawing.Size(140, 20)
@@ -677,6 +688,7 @@ Partial Class frmAcciones
         '
         Me.txtGananciaCapitalTotalCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtGananciaCapitalTotalCompra.Location = New System.Drawing.Point(16, 316)
+        Me.txtGananciaCapitalTotalCompra.MaxLength = 20
         Me.txtGananciaCapitalTotalCompra.Name = "txtGananciaCapitalTotalCompra"
         Me.txtGananciaCapitalTotalCompra.ReadOnly = True
         Me.txtGananciaCapitalTotalCompra.Size = New System.Drawing.Size(140, 20)
@@ -687,6 +699,7 @@ Partial Class frmAcciones
         '
         Me.txtDiasDeTenenciaCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtDiasDeTenenciaCompra.Location = New System.Drawing.Point(16, 294)
+        Me.txtDiasDeTenenciaCompra.MaxLength = 5
         Me.txtDiasDeTenenciaCompra.Name = "txtDiasDeTenenciaCompra"
         Me.txtDiasDeTenenciaCompra.ReadOnly = True
         Me.txtDiasDeTenenciaCompra.Size = New System.Drawing.Size(140, 20)
@@ -697,6 +710,7 @@ Partial Class frmAcciones
         '
         Me.txtGananciaCapitalUnitarioCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtGananciaCapitalUnitarioCompra.Location = New System.Drawing.Point(16, 339)
+        Me.txtGananciaCapitalUnitarioCompra.MaxLength = 20
         Me.txtGananciaCapitalUnitarioCompra.Name = "txtGananciaCapitalUnitarioCompra"
         Me.txtGananciaCapitalUnitarioCompra.ReadOnly = True
         Me.txtGananciaCapitalUnitarioCompra.Size = New System.Drawing.Size(140, 20)
@@ -734,6 +748,7 @@ Partial Class frmAcciones
         '
         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(19, 138)
+        Me.txtValorTransadoVenta.MaxLength = 20
         Me.txtValorTransadoVenta.Name = "txtValorTransadoVenta"
         Me.txtValorTransadoVenta.ReadOnly = True
         Me.txtValorTransadoVenta.Size = New System.Drawing.Size(140, 20)
@@ -752,6 +767,7 @@ Partial Class frmAcciones
         '
         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(20, 225)
+        Me.txtComisionPorcentajeBolsaVenta.MaxLength = 20
         Me.txtComisionPorcentajeBolsaVenta.Name = "txtComisionPorcentajeBolsaVenta"
         Me.txtComisionPorcentajeBolsaVenta.Size = New System.Drawing.Size(37, 20)
         Me.txtComisionPorcentajeBolsaVenta.TabIndex = 82
@@ -769,6 +785,7 @@ Partial Class frmAcciones
         '
         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(20, 204)
+        Me.txtComisionPorcentajeCasaVenta.MaxLength = 20
         Me.txtComisionPorcentajeCasaVenta.Name = "txtComisionPorcentajeCasaVenta"
         Me.txtComisionPorcentajeCasaVenta.Size = New System.Drawing.Size(37, 20)
         Me.txtComisionPorcentajeCasaVenta.TabIndex = 81
@@ -777,6 +794,7 @@ Partial Class frmAcciones
         '
         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(19, 50)
+        Me.txtPrecioLimpioVenta.MaxLength = 20
         Me.txtPrecioLimpioVenta.Name = "txtPrecioLimpioVenta"
         Me.txtPrecioLimpioVenta.Size = New System.Drawing.Size(140, 20)
         Me.txtPrecioLimpioVenta.TabIndex = 9
@@ -785,6 +803,7 @@ Partial Class frmAcciones
         '
         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(20, 291)
+        Me.txtDiasDeTenenciaVenta.MaxLength = 5
         Me.txtDiasDeTenenciaVenta.Name = "txtDiasDeTenenciaVenta"
         Me.txtDiasDeTenenciaVenta.ReadOnly = True
         Me.txtDiasDeTenenciaVenta.Size = New System.Drawing.Size(140, 20)
@@ -794,6 +813,7 @@ Partial Class frmAcciones
         '
         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(19, 182)
+        Me.txtPrecioSucioVenta.MaxLength = 20
         Me.txtPrecioSucioVenta.Name = "txtPrecioSucioVenta"
         Me.txtPrecioSucioVenta.ReadOnly = True
         Me.txtPrecioSucioVenta.Size = New System.Drawing.Size(140, 20)
@@ -803,6 +823,7 @@ Partial Class frmAcciones
         '
         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(61, 226)
+        Me.txtComisionBolsaVenta.MaxLength = 20
         Me.txtComisionBolsaVenta.Name = "txtComisionBolsaVenta"
         Me.txtComisionBolsaVenta.ReadOnly = True
         Me.txtComisionBolsaVenta.Size = New System.Drawing.Size(98, 20)
@@ -812,6 +833,7 @@ Partial Class frmAcciones
         '
         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(19, 160)
+        Me.txtMontoNetoVenta.MaxLength = 20
         Me.txtMontoNetoVenta.Name = "txtMontoNetoVenta"
         Me.txtMontoNetoVenta.ReadOnly = True
         Me.txtMontoNetoVenta.Size = New System.Drawing.Size(139, 20)
@@ -821,6 +843,7 @@ Partial Class frmAcciones
         '
         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(20, 314)
+        Me.txtGananciaCapitalTotalVenta.MaxLength = 20
         Me.txtGananciaCapitalTotalVenta.Name = "txtGananciaCapitalTotalVenta"
         Me.txtGananciaCapitalTotalVenta.ReadOnly = True
         Me.txtGananciaCapitalTotalVenta.Size = New System.Drawing.Size(140, 20)
@@ -830,6 +853,7 @@ Partial Class frmAcciones
         '
         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(60, 204)
+        Me.txtComisionCasaVenta.MaxLength = 20
         Me.txtComisionCasaVenta.Name = "txtComisionCasaVenta"
         Me.txtComisionCasaVenta.ReadOnly = True
         Me.txtComisionCasaVenta.Size = New System.Drawing.Size(99, 20)
@@ -839,6 +863,7 @@ Partial Class frmAcciones
         '
         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(21, 337)
+        Me.txtGananciaCapitalUnitarioVenta.MaxLength = 20
         Me.txtGananciaCapitalUnitarioVenta.Name = "txtGananciaCapitalUnitarioVenta"
         Me.txtGananciaCapitalUnitarioVenta.ReadOnly = True
         Me.txtGananciaCapitalUnitarioVenta.Size = New System.Drawing.Size(140, 20)
@@ -848,6 +873,7 @@ Partial Class frmAcciones
         '
         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(20, 247)
+        Me.txtRetornoAnualBrutoVenta.MaxLength = 20
         Me.txtRetornoAnualBrutoVenta.Name = "txtRetornoAnualBrutoVenta"
         Me.txtRetornoAnualBrutoVenta.ReadOnly = True
         Me.txtRetornoAnualBrutoVenta.Size = New System.Drawing.Size(140, 20)
@@ -857,6 +883,7 @@ Partial Class frmAcciones
         '
         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(19, 116)
+        Me.txtUnidadesVenta.MaxLength = 20
         Me.txtUnidadesVenta.Name = "txtUnidadesVenta"
         Me.txtUnidadesVenta.Size = New System.Drawing.Size(140, 20)
         Me.txtUnidadesVenta.TabIndex = 13
@@ -875,6 +902,7 @@ Partial Class frmAcciones
         '
         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(20, 269)
+        Me.txtRetornoAnualNetoVenta.MaxLength = 20
         Me.txtRetornoAnualNetoVenta.Name = "txtRetornoAnualNetoVenta"
         Me.txtRetornoAnualNetoVenta.ReadOnly = True
         Me.txtRetornoAnualNetoVenta.Size = New System.Drawing.Size(140, 20)

FRM/frmAcciones.resx

@@ -139,28 +139,29 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
-        +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+N8QxC3OwmvsWlVoEQAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIZdhnblsbB2LRtzJ0BMQIdOqRMe
+        IcjEIJZ0rreiqqoqpE5loagJbUAIR0jAilQgCsI8TIiSQB6ggA1O4jTxQ0E5+F4lgUQYRfzSp6Njn/td
+        +14CJcN9b07ys60J7kdH4nixg+e9L/GLRhIOz7zKHk63ZEJfX8cC74r5IDNIO6f81BglOuyUOFqH3YAa
+        nkhZLfZNLEhufWuVg1/6tJ0e0AMDoHMfQFUkULX/puQLMiAJFlz4P7dlA73KNNNV0g8mOrXtbtD2SIik
+        S6YgCUlSYlnwqy3HM2/03feg/XsLqr8fBEHQuWgKfrv/wArrq7K4tAwHsetaATowgfe2j404bjVDwq6x
+        52ggJhUhKioQMYiKapVYulgrqGTQNqqIGRlY3yoeCJ1L8HN2Dubn3VU8C14Ip2RzgZQr4E9FA/HrPPBn
+        l3B4Wkv8RmlMEEzlgYtewp4BqhVOrkwEtjrBcVICt+dv9QARqD+5yJoIrLWCyE0RQoJyj7Fz6ErFzxsS
+        7D9yjag/itddYyVWciT9UJCUS5hEuT7kUYHFMl7IGIK19Q088BSKmoOhoUm+vJQgAOCF8Qusy/UJnOMu
+        oJ0fcTWDpmndRjp8DMM0lRXPDUHcAct+a+v+ZunfAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFW6ldbr5g9Q
-        XEQRJweHFl26CSodbAidnFx00EERFQpVF0FwcXDzBpKSXkx6Se/t6/lCE6ttvXzwkHA475PvO4dwtepi
-        2BmOX+hjWBkNZc9ms2o4HK6Uy2U0I5/PQxCEHba3qcRB4UwmA03TTJLJJBRFgSzLuiQSiUAUxQaJheGg
-        DblcDoVCQX8S6XQaqqoiGo3qAtYl6CPBYNCQ6GUKKGxAAgqkUinEYrEv4xCUqWU/BaVSydxA7zS3MUo8
-        Htc7kSSpteA79RLqhM4jkUj8XUAYEhqHzoREtP5nAVEsFvVzIQlBa/8SUBcvhwHczA8hNN6Gq9leCA6L
-        +KOAQgavRwLuPU7kTv2oPpxD219F2DVcuXDbVn4VUPvXcwPIsjAC04C3HdjoR2zLjdNR/qmloF5CbVfv
-        jlBfiq8TvjFb1RT4/f5qMwlxOdODzO4CwEJ5D4d3xusyj/NJ/o0EVCPserRWP9PzwTZulwYhefsRXWvD
-        46IFIZetcjZhXa/luW7GCIOupim7Ux3i8RgvUdsnLl7ec/KbHMdxH+iJgz/BouckAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZM7S8NQGIZT0/4AF3HwVnAQwamlm1TrZfMH
+        KC6iiJODQ0UXN0Gtgw2hUycXHeygFBWEqIsguDi4eSlISpvWXtN7+3q+0NRqW6sfPCQczvvk+84hXLV6
+        GBaGrQ0DjA5GQ1kymUxckqRyqVRCM3K5HARBOGB7m0psFE6n01BVtUYikUAsFkMoFNIkwWAQoig2SAwM
+        G23IZrPI5/Pak0ilUojH4wiHw5qAdQn6iMfj0SVa1QQU1iEBBZLJJBRF+TYOQZlq9ktQLBZrG+id5tZH
+        iUQiWieyLLcW/KReQp3QeUSj0b8LCF1C49CZkIjW/ywgCoWCdi4kIWjtXwLq4u3EjbuFYVxNmHAz1w/B
+        ZhB/FVBIJ+AT8OgcRda/j8rTBdSjNUj2kfLlmHG1rYDav50fRIaF4Z4B1juBbTOU3TH4x/mXloJ6CbVd
+        efChvmJb3dhyGCs1gcvlqjSTENezfUh7FwEWyjk5fDACKzwupvh3ElBZ2fWorX6m1+M93C8PQV43I7xh
+        wvOSAVd2Y/l8smOzmud6GVYGXU1TvNNd4qmDl6ntMzsfOhzldziO4z4B5l6DPKpAaFMAAAAASUVORK5C
+        YII=
 </value>
   </data>
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

FRM/frmCertificadosDeInversion.Designer.vb

@@ -382,6 +382,7 @@ Partial Class frmCertificadosDeInversion
         'txtValorNominalCompra
         '
         Me.txtValorNominalCompra.Location = New System.Drawing.Point(27, 79)
+        Me.txtValorNominalCompra.MaxLength = 20
         Me.txtValorNominalCompra.Name = "txtValorNominalCompra"
         Me.txtValorNominalCompra.Size = New System.Drawing.Size(150, 20)
         Me.txtValorNominalCompra.TabIndex = 2
@@ -389,6 +390,7 @@ Partial Class frmCertificadosDeInversion
         'txtPorcentajeCuponCompra
         '
         Me.txtPorcentajeCuponCompra.Location = New System.Drawing.Point(27, 254)
+        Me.txtPorcentajeCuponCompra.MaxLength = 20
         Me.txtPorcentajeCuponCompra.Name = "txtPorcentajeCuponCompra"
         Me.txtPorcentajeCuponCompra.Size = New System.Drawing.Size(150, 20)
         Me.txtPorcentajeCuponCompra.TabIndex = 8
@@ -396,6 +398,7 @@ Partial Class frmCertificadosDeInversion
         'txtYTMAlVencimientoComisionCompra
         '
         Me.txtYTMAlVencimientoComisionCompra.Location = New System.Drawing.Point(27, 275)
+        Me.txtYTMAlVencimientoComisionCompra.MaxLength = 20
         Me.txtYTMAlVencimientoComisionCompra.Name = "txtYTMAlVencimientoComisionCompra"
         Me.txtYTMAlVencimientoComisionCompra.ReadOnly = True
         Me.txtYTMAlVencimientoComisionCompra.Size = New System.Drawing.Size(150, 20)
@@ -404,6 +407,7 @@ Partial Class frmCertificadosDeInversion
         'txtYTMAlVencimientoCompra
         '
         Me.txtYTMAlVencimientoCompra.Location = New System.Drawing.Point(27, 297)
+        Me.txtYTMAlVencimientoCompra.MaxLength = 20
         Me.txtYTMAlVencimientoCompra.Name = "txtYTMAlVencimientoCompra"
         Me.txtYTMAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
         Me.txtYTMAlVencimientoCompra.TabIndex = 9
@@ -411,6 +415,7 @@ Partial Class frmCertificadosDeInversion
         'txtPrecioAlVencimientoCompra
         '
         Me.txtPrecioAlVencimientoCompra.Location = New System.Drawing.Point(27, 319)
+        Me.txtPrecioAlVencimientoCompra.MaxLength = 20
         Me.txtPrecioAlVencimientoCompra.Name = "txtPrecioAlVencimientoCompra"
         Me.txtPrecioAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
         Me.txtPrecioAlVencimientoCompra.TabIndex = 11
@@ -418,6 +423,7 @@ Partial Class frmCertificadosDeInversion
         'txtPrecioCompra
         '
         Me.txtPrecioCompra.Location = New System.Drawing.Point(27, 341)
+        Me.txtPrecioCompra.MaxLength = 20
         Me.txtPrecioCompra.Name = "txtPrecioCompra"
         Me.txtPrecioCompra.Size = New System.Drawing.Size(150, 20)
         Me.txtPrecioCompra.TabIndex = 12
@@ -425,6 +431,7 @@ Partial Class frmCertificadosDeInversion
         'txtDiasAcumuladosCompra
         '
         Me.txtDiasAcumuladosCompra.Location = New System.Drawing.Point(27, 233)
+        Me.txtDiasAcumuladosCompra.MaxLength = 5
         Me.txtDiasAcumuladosCompra.Name = "txtDiasAcumuladosCompra"
         Me.txtDiasAcumuladosCompra.ReadOnly = True
         Me.txtDiasAcumuladosCompra.Size = New System.Drawing.Size(150, 20)
@@ -433,6 +440,7 @@ Partial Class frmCertificadosDeInversion
         'txtPrecioSucioCompra
         '
         Me.txtPrecioSucioCompra.Location = New System.Drawing.Point(27, 385)
+        Me.txtPrecioSucioCompra.MaxLength = 20
         Me.txtPrecioSucioCompra.Name = "txtPrecioSucioCompra"
         Me.txtPrecioSucioCompra.ReadOnly = True
         Me.txtPrecioSucioCompra.Size = New System.Drawing.Size(150, 20)
@@ -441,6 +449,7 @@ Partial Class frmCertificadosDeInversion
         'txtInteresAcumuladoCompra
         '
         Me.txtInteresAcumuladoCompra.Location = New System.Drawing.Point(27, 363)
+        Me.txtInteresAcumuladoCompra.MaxLength = 20
         Me.txtInteresAcumuladoCompra.Name = "txtInteresAcumuladoCompra"
         Me.txtInteresAcumuladoCompra.ReadOnly = True
         Me.txtInteresAcumuladoCompra.Size = New System.Drawing.Size(108, 20)
@@ -449,6 +458,7 @@ Partial Class frmCertificadosDeInversion
         'txtValorTransadoCompra
         '
         Me.txtValorTransadoCompra.Location = New System.Drawing.Point(27, 453)
+        Me.txtValorTransadoCompra.MaxLength = 20
         Me.txtValorTransadoCompra.Name = "txtValorTransadoCompra"
         Me.txtValorTransadoCompra.ReadOnly = True
         Me.txtValorTransadoCompra.Size = New System.Drawing.Size(150, 20)
@@ -457,6 +467,7 @@ Partial Class frmCertificadosDeInversion
         'txtMontoAPagar
         '
         Me.txtMontoAPagar.Location = New System.Drawing.Point(27, 474)
+        Me.txtMontoAPagar.MaxLength = 20
         Me.txtMontoAPagar.Name = "txtMontoAPagar"
         Me.txtMontoAPagar.ReadOnly = True
         Me.txtMontoAPagar.Size = New System.Drawing.Size(150, 20)
@@ -465,6 +476,7 @@ Partial Class frmCertificadosDeInversion
         'txtCostoTransferenciaCompra
         '
         Me.txtCostoTransferenciaCompra.Location = New System.Drawing.Point(27, 496)
+        Me.txtCostoTransferenciaCompra.MaxLength = 20
         Me.txtCostoTransferenciaCompra.Name = "txtCostoTransferenciaCompra"
         Me.txtCostoTransferenciaCompra.Size = New System.Drawing.Size(150, 20)
         Me.txtCostoTransferenciaCompra.TabIndex = 16
@@ -472,6 +484,7 @@ Partial Class frmCertificadosDeInversion
         'txtDiasAlVencimientoCompra
         '
         Me.txtDiasAlVencimientoCompra.Location = New System.Drawing.Point(27, 211)
+        Me.txtDiasAlVencimientoCompra.MaxLength = 5
         Me.txtDiasAlVencimientoCompra.Name = "txtDiasAlVencimientoCompra"
         Me.txtDiasAlVencimientoCompra.ReadOnly = True
         Me.txtDiasAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
@@ -492,7 +505,7 @@ Partial Class frmCertificadosDeInversion
         Me.lblBono.Anchor = System.Windows.Forms.AnchorStyles.None
         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(29, -38)
+        Me.lblBono.Location = New System.Drawing.Point(29, 30)
         Me.lblBono.Name = "lblBono"
         Me.lblBono.Size = New System.Drawing.Size(234, 24)
         Me.lblBono.TabIndex = 56
@@ -501,6 +514,7 @@ Partial Class frmCertificadosDeInversion
         'txtDiasAlVencimientoVenta
         '
         Me.txtDiasAlVencimientoVenta.Location = New System.Drawing.Point(29, 212)
+        Me.txtDiasAlVencimientoVenta.MaxLength = 5
         Me.txtDiasAlVencimientoVenta.Name = "txtDiasAlVencimientoVenta"
         Me.txtDiasAlVencimientoVenta.ReadOnly = True
         Me.txtDiasAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
@@ -509,6 +523,7 @@ Partial Class frmCertificadosDeInversion
         'txtMontoARecibir
         '
         Me.txtMontoARecibir.Location = New System.Drawing.Point(29, 473)
+        Me.txtMontoARecibir.MaxLength = 20
         Me.txtMontoARecibir.Name = "txtMontoARecibir"
         Me.txtMontoARecibir.ReadOnly = True
         Me.txtMontoARecibir.Size = New System.Drawing.Size(150, 20)
@@ -517,6 +532,7 @@ Partial Class frmCertificadosDeInversion
         'txtValorTransadoVenta
         '
         Me.txtValorTransadoVenta.Location = New System.Drawing.Point(29, 451)
+        Me.txtValorTransadoVenta.MaxLength = 20
         Me.txtValorTransadoVenta.Name = "txtValorTransadoVenta"
         Me.txtValorTransadoVenta.ReadOnly = True
         Me.txtValorTransadoVenta.Size = New System.Drawing.Size(150, 20)
@@ -525,6 +541,7 @@ Partial Class frmCertificadosDeInversion
         'txtInteresAcumuladoVenta
         '
         Me.txtInteresAcumuladoVenta.Location = New System.Drawing.Point(29, 364)
+        Me.txtInteresAcumuladoVenta.MaxLength = 20
         Me.txtInteresAcumuladoVenta.Name = "txtInteresAcumuladoVenta"
         Me.txtInteresAcumuladoVenta.ReadOnly = True
         Me.txtInteresAcumuladoVenta.Size = New System.Drawing.Size(108, 20)
@@ -533,6 +550,7 @@ Partial Class frmCertificadosDeInversion
         'txtPrecioSucioVenta
         '
         Me.txtPrecioSucioVenta.Location = New System.Drawing.Point(29, 386)
+        Me.txtPrecioSucioVenta.MaxLength = 20
         Me.txtPrecioSucioVenta.Name = "txtPrecioSucioVenta"
         Me.txtPrecioSucioVenta.ReadOnly = True
         Me.txtPrecioSucioVenta.Size = New System.Drawing.Size(150, 20)
@@ -541,6 +559,7 @@ Partial Class frmCertificadosDeInversion
         'txtDiasAcumuladosVenta
         '
         Me.txtDiasAcumuladosVenta.Location = New System.Drawing.Point(29, 234)
+        Me.txtDiasAcumuladosVenta.MaxLength = 5
         Me.txtDiasAcumuladosVenta.Name = "txtDiasAcumuladosVenta"
         Me.txtDiasAcumuladosVenta.ReadOnly = True
         Me.txtDiasAcumuladosVenta.Size = New System.Drawing.Size(150, 20)
@@ -549,6 +568,7 @@ Partial Class frmCertificadosDeInversion
         'txtPrecioVenta
         '
         Me.txtPrecioVenta.Location = New System.Drawing.Point(29, 342)
+        Me.txtPrecioVenta.MaxLength = 20
         Me.txtPrecioVenta.Name = "txtPrecioVenta"
         Me.txtPrecioVenta.Size = New System.Drawing.Size(150, 20)
         Me.txtPrecioVenta.TabIndex = 28
@@ -556,6 +576,7 @@ Partial Class frmCertificadosDeInversion
         'txtPrecioAlVencimientoVenta
         '
         Me.txtPrecioAlVencimientoVenta.Location = New System.Drawing.Point(29, 320)
+        Me.txtPrecioAlVencimientoVenta.MaxLength = 20
         Me.txtPrecioAlVencimientoVenta.Name = "txtPrecioAlVencimientoVenta"
         Me.txtPrecioAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
         Me.txtPrecioAlVencimientoVenta.TabIndex = 27
@@ -563,6 +584,7 @@ Partial Class frmCertificadosDeInversion
         'txtYTMAlVencimientoVenta
         '
         Me.txtYTMAlVencimientoVenta.Location = New System.Drawing.Point(29, 299)
+        Me.txtYTMAlVencimientoVenta.MaxLength = 20
         Me.txtYTMAlVencimientoVenta.Name = "txtYTMAlVencimientoVenta"
         Me.txtYTMAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
         Me.txtYTMAlVencimientoVenta.TabIndex = 25
@@ -570,6 +592,7 @@ Partial Class frmCertificadosDeInversion
         'txtYTMAlVencimientoComisionVenta
         '
         Me.txtYTMAlVencimientoComisionVenta.Location = New System.Drawing.Point(29, 278)
+        Me.txtYTMAlVencimientoComisionVenta.MaxLength = 20
         Me.txtYTMAlVencimientoComisionVenta.Name = "txtYTMAlVencimientoComisionVenta"
         Me.txtYTMAlVencimientoComisionVenta.ReadOnly = True
         Me.txtYTMAlVencimientoComisionVenta.Size = New System.Drawing.Size(150, 20)
@@ -578,6 +601,7 @@ Partial Class frmCertificadosDeInversion
         'txtPorcentajeCuponVenta
         '
         Me.txtPorcentajeCuponVenta.Location = New System.Drawing.Point(29, 256)
+        Me.txtPorcentajeCuponVenta.MaxLength = 20
         Me.txtPorcentajeCuponVenta.Name = "txtPorcentajeCuponVenta"
         Me.txtPorcentajeCuponVenta.Size = New System.Drawing.Size(150, 20)
         Me.txtPorcentajeCuponVenta.TabIndex = 24
@@ -585,6 +609,7 @@ Partial Class frmCertificadosDeInversion
         'txtValorNominalVenta
         '
         Me.txtValorNominalVenta.Location = New System.Drawing.Point(29, 79)
+        Me.txtValorNominalVenta.MaxLength = 20
         Me.txtValorNominalVenta.Name = "txtValorNominalVenta"
         Me.txtValorNominalVenta.Size = New System.Drawing.Size(150, 20)
         Me.txtValorNominalVenta.TabIndex = 18
@@ -963,7 +988,7 @@ Partial Class frmCertificadosDeInversion
         Me.TabCampos.Location = New System.Drawing.Point(0, 0)
         Me.TabCampos.Name = "TabCampos"
         Me.TabCampos.SelectedIndex = 0
-        Me.TabCampos.Size = New System.Drawing.Size(937, 542)
+        Me.TabCampos.Size = New System.Drawing.Size(937, 678)
         Me.TabCampos.TabIndex = 121
         '
         'TabPage1
@@ -978,7 +1003,7 @@ Partial Class frmCertificadosDeInversion
         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(929, 516)
+        Me.TabPage1.Size = New System.Drawing.Size(929, 652)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Operación"
         '
@@ -1023,7 +1048,7 @@ Partial Class frmCertificadosDeInversion
         Me.GrpVenta.Controls.Add(Me.txtDiasAlVencimientoVenta)
         Me.GrpVenta.Controls.Add(Me.dtpFechaLiquidacionVenta)
         Me.GrpVenta.Controls.Add(Me.dtpSiguienteFechaCuponVenta)
-        Me.GrpVenta.Location = New System.Drawing.Point(691, 18)
+        Me.GrpVenta.Location = New System.Drawing.Point(691, 86)
         Me.GrpVenta.Name = "GrpVenta"
         Me.GrpVenta.Size = New System.Drawing.Size(209, 586)
         Me.GrpVenta.TabIndex = 141
@@ -1032,6 +1057,7 @@ Partial Class frmCertificadosDeInversion
         'txtComisionPorBolsaVenta
         '
         Me.txtComisionPorBolsaVenta.Location = New System.Drawing.Point(28, 429)
+        Me.txtComisionPorBolsaVenta.MaxLength = 20
         Me.txtComisionPorBolsaVenta.Name = "txtComisionPorBolsaVenta"
         Me.txtComisionPorBolsaVenta.Size = New System.Drawing.Size(43, 20)
         Me.txtComisionPorBolsaVenta.TabIndex = 138
@@ -1039,6 +1065,7 @@ Partial Class frmCertificadosDeInversion
         'txtComisionPorVentaCasa
         '
         Me.txtComisionPorVentaCasa.Location = New System.Drawing.Point(28, 408)
+        Me.txtComisionPorVentaCasa.MaxLength = 20
         Me.txtComisionPorVentaCasa.Name = "txtComisionPorVentaCasa"
         Me.txtComisionPorVentaCasa.Size = New System.Drawing.Size(43, 20)
         Me.txtComisionPorVentaCasa.TabIndex = 136
@@ -1046,6 +1073,7 @@ Partial Class frmCertificadosDeInversion
         'txtCuponesRecibidos
         '
         Me.txtCuponesRecibidos.Location = New System.Drawing.Point(29, 515)
+        Me.txtCuponesRecibidos.MaxLength = 20
         Me.txtCuponesRecibidos.Name = "txtCuponesRecibidos"
         Me.txtCuponesRecibidos.ReadOnly = True
         Me.txtCuponesRecibidos.Size = New System.Drawing.Size(150, 20)
@@ -1054,6 +1082,7 @@ Partial Class frmCertificadosDeInversion
         'txtComisionVentaBolsa
         '
         Me.txtComisionVentaBolsa.Location = New System.Drawing.Point(77, 430)
+        Me.txtComisionVentaBolsa.MaxLength = 20
         Me.txtComisionVentaBolsa.Name = "txtComisionVentaBolsa"
         Me.txtComisionVentaBolsa.ReadOnly = True
         Me.txtComisionVentaBolsa.Size = New System.Drawing.Size(102, 20)
@@ -1062,6 +1091,7 @@ Partial Class frmCertificadosDeInversion
         'txtComisionVentaCasa
         '
         Me.txtComisionVentaCasa.Location = New System.Drawing.Point(77, 408)
+        Me.txtComisionVentaCasa.MaxLength = 20
         Me.txtComisionVentaCasa.Name = "txtComisionVentaCasa"
         Me.txtComisionVentaCasa.ReadOnly = True
         Me.txtComisionVentaCasa.Size = New System.Drawing.Size(102, 20)
@@ -1070,6 +1100,7 @@ Partial Class frmCertificadosDeInversion
         'txtPorcentajeInteresAcumuladoVenta
         '
         Me.txtPorcentajeInteresAcumuladoVenta.Location = New System.Drawing.Point(139, 364)
+        Me.txtPorcentajeInteresAcumuladoVenta.MaxLength = 20
         Me.txtPorcentajeInteresAcumuladoVenta.Name = "txtPorcentajeInteresAcumuladoVenta"
         Me.txtPorcentajeInteresAcumuladoVenta.ReadOnly = True
         Me.txtPorcentajeInteresAcumuladoVenta.Size = New System.Drawing.Size(40, 20)
@@ -1103,7 +1134,7 @@ Partial Class frmCertificadosDeInversion
         Me.GrpCompra.Controls.Add(Me.cboAnioBaseC)
         Me.GrpCompra.Controls.Add(Me.dtpSiguienteFechaCuponCompra)
         Me.GrpCompra.Controls.Add(Me.dtpUltimaFechaCuponCompra)
-        Me.GrpCompra.Location = New System.Drawing.Point(353, 18)
+        Me.GrpCompra.Location = New System.Drawing.Point(353, 86)
         Me.GrpCompra.Name = "GrpCompra"
         Me.GrpCompra.Size = New System.Drawing.Size(202, 547)
         Me.GrpCompra.TabIndex = 140
@@ -1112,6 +1143,7 @@ Partial Class frmCertificadosDeInversion
         'txtComisionPorBolsaCompra
         '
         Me.txtComisionPorBolsaCompra.Location = New System.Drawing.Point(27, 430)
+        Me.txtComisionPorBolsaCompra.MaxLength = 20
         Me.txtComisionPorBolsaCompra.Name = "txtComisionPorBolsaCompra"
         Me.txtComisionPorBolsaCompra.Size = New System.Drawing.Size(44, 20)
         Me.txtComisionPorBolsaCompra.TabIndex = 137
@@ -1119,6 +1151,7 @@ Partial Class frmCertificadosDeInversion
         'txtComisionPorCompraCasa
         '
         Me.txtComisionPorCompraCasa.Location = New System.Drawing.Point(27, 408)
+        Me.txtComisionPorCompraCasa.MaxLength = 20
         Me.txtComisionPorCompraCasa.Name = "txtComisionPorCompraCasa"
         Me.txtComisionPorCompraCasa.Size = New System.Drawing.Size(44, 20)
         Me.txtComisionPorCompraCasa.TabIndex = 135
@@ -1126,6 +1159,7 @@ Partial Class frmCertificadosDeInversion
         'txtPorcentajeInteresAcumuladoCompra
         '
         Me.txtPorcentajeInteresAcumuladoCompra.Location = New System.Drawing.Point(137, 363)
+        Me.txtPorcentajeInteresAcumuladoCompra.MaxLength = 20
         Me.txtPorcentajeInteresAcumuladoCompra.Name = "txtPorcentajeInteresAcumuladoCompra"
         Me.txtPorcentajeInteresAcumuladoCompra.ReadOnly = True
         Me.txtPorcentajeInteresAcumuladoCompra.Size = New System.Drawing.Size(40, 20)
@@ -1134,6 +1168,7 @@ Partial Class frmCertificadosDeInversion
         'txtComisionCompraBolsa
         '
         Me.txtComisionCompraBolsa.Location = New System.Drawing.Point(77, 431)
+        Me.txtComisionCompraBolsa.MaxLength = 20
         Me.txtComisionCompraBolsa.Name = "txtComisionCompraBolsa"
         Me.txtComisionCompraBolsa.ReadOnly = True
         Me.txtComisionCompraBolsa.Size = New System.Drawing.Size(100, 20)
@@ -1142,6 +1177,7 @@ Partial Class frmCertificadosDeInversion
         'txtComisionCompraCasa
         '
         Me.txtComisionCompraCasa.Location = New System.Drawing.Point(77, 408)
+        Me.txtComisionCompraCasa.MaxLength = 20
         Me.txtComisionCompraCasa.Name = "txtComisionCompraCasa"
         Me.txtComisionCompraCasa.ReadOnly = True
         Me.txtComisionCompraCasa.Size = New System.Drawing.Size(100, 20)
@@ -1172,7 +1208,7 @@ Partial Class frmCertificadosDeInversion
         Me.GrpInfo.Controls.Add(Me.Label1)
         Me.GrpInfo.Controls.Add(Me.Label3)
         Me.GrpInfo.Controls.Add(Me.Label2)
-        Me.GrpInfo.Location = New System.Drawing.Point(33, 18)
+        Me.GrpInfo.Location = New System.Drawing.Point(33, 86)
         Me.GrpInfo.Name = "GrpInfo"
         Me.GrpInfo.Size = New System.Drawing.Size(200, 586)
         Me.GrpInfo.TabIndex = 139
@@ -1300,7 +1336,7 @@ Partial Class frmCertificadosDeInversion
         Me.pnlPie.Controls.Add(Me.btnQuitar)
         Me.pnlPie.Controls.Add(Me.btnCancelar)
         Me.pnlPie.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlPie.Location = New System.Drawing.Point(0, 567)
+        Me.pnlPie.Location = New System.Drawing.Point(0, 703)
         Me.pnlPie.Name = "pnlPie"
         Me.pnlPie.Size = New System.Drawing.Size(937, 46)
         Me.pnlPie.TabIndex = 122
@@ -1380,7 +1416,7 @@ Partial Class frmCertificadosDeInversion
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel1.Location = New System.Drawing.Point(0, 25)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(937, 542)
+        Me.Panel1.Size = New System.Drawing.Size(937, 678)
         Me.Panel1.TabIndex = 127
         '
         'frmCertificadosDeInversion
@@ -1388,7 +1424,7 @@ Partial Class frmCertificadosDeInversion
         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(937, 613)
+        Me.ClientSize = New System.Drawing.Size(937, 749)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.lblIngresarRenta)
         Me.Controls.Add(Me.BindingNavigator1)

FRM/frmCertificadosDeInversion.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
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFNTNpgGMe7Hbar08uuu86b553mspPTgydW
-        PhQxlbp4YWd727Isy2LiSS/ODFQ0xhIT59VEN4Kx6ioSwPGhQVotUAb9CAuPfd8AE0IN8Z/88uRpn/f3
-        tu9LoOS5r11pfr47xc32pk5We3ne/wi/6CTR6MzjwvHHJ/nI52eJ0FClFGbstHsqSI1TostJiWMtOA2o
-        kcmM1eLcwYL03pduOfxpQPv1CvTQIOjcW1AVCVTtrymlsgxIggUXwQ89hdBrZY15WdWPJvu0n/2gHZAQ
-        y1VNQRKSpMSa4FtPkWee6/vDoO2+ADX4BgRB0Ll4Br57l2GDDTRYXVuHo8RVswAdmMD7n46Puv5phoTd
-        Ys/RQEKqQFxUIGYQF9UGiVylWVCP3TamiHkZ2MAmHoicSzA3vwCLi94GviU/RDOyuUAqlvGnooHkVQn4
-        P5dwfNZM8lrpTBDOlICLX8KBAap1TrMmAluL4CQtgde30jhABOpPLwomAmuzIHZdgYig/MfYOZJV8fOO
-        BIdtrhH1v5Mt11iPlRzN3Rak5SomVau3aSuwWCbKeUOw9WMbD9yFohbB4XjH15YSBAA8MH6B9XimwT3h
-        Adr9HlczaJrWbaQrwDDMw5riviGIG0RhbBComwuwAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZFNTNpgGMe7Hbbrphevu47bzp7cspMfh52w
+        oBMxlWq8sLO9zSzLYpbsNC/TiE4wy0qWOK8mfhCMVVeRAJMPCdpqKUXoRzA89n0DKMQuZP/klydP+7y/
+        t31fAkXmZp9k+LmONPfFlj4K2Hje/wi/aCex2OfHhcOZp3L047NkeKBSijBDtGcqRI1RottFiaMtuEyo
+        txM5h921gQWZrU8dSuRDr77zCoxwPxjcIGiqBJp+ZUmprACSYEE29L6zEH6tBpieqnEw8ULffgn6Hgnx
+        fNUSJCFJSqwJ5juLPPPc2H0D+mY3aKE+EATB4BI5WPR9h59ssEFg9QccJC+aBejABN7fNTbivtZNCbvG
+        nqKBpFSBhKhC3CQhag2S+UqzoJ4h56gqygqwwV94IHoqwde5b7Cw4GuwtOyHWE6xFkjFMv5UNJC6KAF/
+        cgaHf5tJXartCSK5EnCJM9gzQbXO8bmFwNkiOMpI4FtaaRwgAvXH2YKFwNEsiF9WICqot5g7R881/Lwt
+        wf4914j6P6mWa6zHQY7k7woyShWTrtW73Cuw28fLsilY+72OB/6FqhVheHiSry0lCAB4YP4C6/VOg2fc
+        C7TnHa5W0DRtOEl3kGGYhzXF/4YgbgBBHWwPyAFZ7wAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOLV0K631svkD
-        FBdRxMnBoaKLm6DioCF06uSig4UqRQUh6iIILg5uXgqS0pu9pk2vr+cLTa221frBQ8LhvE++7xzCVauH
+        FBdRxMnBoaKLm6DioCF06uSig6UoRQUh6iIILg5uXgqS0pu9pk2vr+cLTa221frBQ8LhvE++7xzCVauH
         YWZY/2CAYWQ0lDmbzSYkSSqXSiU0Q1VVCIKwz/Y2lVgpnMlkoChKjWQyiXg8jlAopEmCwSBEUWyQGBhW
         2pDL5ZDP57UnkU6nkUgkEA6HNQHrEvQRt9utS7SqCSisQwIKpFIpRCKRb+MQlKlmvwTFYrG2gd5pbn2U
         aDSqdSLLcmvBT+ol1AmdRywWa19A6BIah86ERLTetoAoFArauZCEoLV/CaiLt5MD3M2P4Gq8Azez/RCs
         BvFXAYV0Al4Bjy4bcv49VJ4uoBytQrKPli8dppU/BdT+7dwQsiyMg2lgrRPYGkRkxwH/GP/SUlAvobYr
         D17UV3yzG5tOU6Um8Pl8lWYS4nqmDxnPAsBCqovDByOwzONikn8nAZWFXY/S6md6Pd7F/dIw5LVBhNc7
-        8LxowJXdVD6fMG5U81wvw8Kgq2mKZ6pLPHXyMrV9ZudDhzZ+m+M47hM2pIOrSi+qCgAAAABJRU5ErkJg
+        8LxowJXdVD6fMG5U81wvw8Kgq2mKZ6pLPHXyMrV9ZudDhzZ+m+M47hM0eYOokB86VgAAAABJRU5ErkJg
         gg==
 </value>
   </data>

FRM/frmColaTitulos.Designer.vb

@@ -91,7 +91,7 @@ Partial Class frmColaTitulos
         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.Maroon
-        Me.lblTitulo.Location = New System.Drawing.Point(6, 9)
+        Me.lblTitulo.Location = New System.Drawing.Point(-2, 9)
         Me.lblTitulo.Name = "lblTitulo"
         Me.lblTitulo.Size = New System.Drawing.Size(256, 24)
         Me.lblTitulo.TabIndex = 81

FRM/frmDepositosAPlazo.Designer.vb

@@ -77,6 +77,7 @@ Partial Class frmDepositosAPlazo
         'txtMontoInversion
         '
         Me.txtMontoInversion.Location = New System.Drawing.Point(417, 77)
+        Me.txtMontoInversion.MaxLength = 20
         Me.txtMontoInversion.Name = "txtMontoInversion"
         Me.txtMontoInversion.Size = New System.Drawing.Size(150, 20)
         Me.txtMontoInversion.TabIndex = 1
@@ -84,6 +85,7 @@ Partial Class frmDepositosAPlazo
         'txtTasa
         '
         Me.txtTasa.Location = New System.Drawing.Point(417, 165)
+        Me.txtTasa.MaxLength = 20
         Me.txtTasa.Name = "txtTasa"
         Me.txtTasa.Size = New System.Drawing.Size(150, 20)
         Me.txtTasa.TabIndex = 5
@@ -121,6 +123,7 @@ Partial Class frmDepositosAPlazo
         'txtRendimientoBruto
         '
         Me.txtRendimientoBruto.Location = New System.Drawing.Point(417, 229)
+        Me.txtRendimientoBruto.MaxLength = 20
         Me.txtRendimientoBruto.Name = "txtRendimientoBruto"
         Me.txtRendimientoBruto.ReadOnly = True
         Me.txtRendimientoBruto.Size = New System.Drawing.Size(150, 20)
@@ -139,6 +142,7 @@ Partial Class frmDepositosAPlazo
         'txtRendimientoNeto
         '
         Me.txtRendimientoNeto.Location = New System.Drawing.Point(417, 251)
+        Me.txtRendimientoNeto.MaxLength = 20
         Me.txtRendimientoNeto.Name = "txtRendimientoNeto"
         Me.txtRendimientoNeto.ReadOnly = True
         Me.txtRendimientoNeto.Size = New System.Drawing.Size(150, 20)
@@ -301,6 +305,7 @@ Partial Class frmDepositosAPlazo
         'txtPlazo
         '
         Me.txtPlazo.Location = New System.Drawing.Point(417, 142)
+        Me.txtPlazo.MaxLength = 5
         Me.txtPlazo.Name = "txtPlazo"
         Me.txtPlazo.Size = New System.Drawing.Size(150, 20)
         Me.txtPlazo.TabIndex = 129
@@ -353,6 +358,7 @@ Partial Class frmDepositosAPlazo
         'txtIngresoNeto
         '
         Me.txtIngresoNeto.Location = New System.Drawing.Point(358, 47)
+        Me.txtIngresoNeto.MaxLength = 20
         Me.txtIngresoNeto.Name = "txtIngresoNeto"
         Me.txtIngresoNeto.ReadOnly = True
         Me.txtIngresoNeto.Size = New System.Drawing.Size(100, 20)
@@ -361,6 +367,7 @@ Partial Class frmDepositosAPlazo
         'txtRenta
         '
         Me.txtRenta.Location = New System.Drawing.Point(207, 47)
+        Me.txtRenta.MaxLength = 20
         Me.txtRenta.Name = "txtRenta"
         Me.txtRenta.ReadOnly = True
         Me.txtRenta.Size = New System.Drawing.Size(100, 20)
@@ -369,6 +376,7 @@ Partial Class frmDepositosAPlazo
         'txtIngresoBruto
         '
         Me.txtIngresoBruto.Location = New System.Drawing.Point(57, 47)
+        Me.txtIngresoBruto.MaxLength = 20
         Me.txtIngresoBruto.Name = "txtIngresoBruto"
         Me.txtIngresoBruto.ReadOnly = True
         Me.txtIngresoBruto.Size = New System.Drawing.Size(100, 20)
@@ -377,6 +385,7 @@ Partial Class frmDepositosAPlazo
         'txtImpuesto
         '
         Me.txtImpuesto.Location = New System.Drawing.Point(417, 183)
+        Me.txtImpuesto.MaxLength = 20
         Me.txtImpuesto.Name = "txtImpuesto"
         Me.txtImpuesto.Size = New System.Drawing.Size(150, 20)
         Me.txtImpuesto.TabIndex = 132

FRM/frmDepositosAPlazo.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
-        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
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIZdBrryWLqylq0zEyAmHkOn1AmU
+        EGRiEEs61xtVVVUVEhMsLSIUAkI4QgqsSDyiVLiACVGSNg9QwAYncZr4oVQ5+F4lgUQYRfzSp6Njn/td
+        +14CJcN9a0nyC20Jbq4zcbbWyfOeZvyikYTDsy+zJ59aM6EvHbHAUDEfZIZp57SfGqdEh50Sx+qwG1Dv
+        J1NWi30XC5L7X9vk4Od+7bAX9MAg6Nw7UBUJVO2fKfmCDEiCBZf+mfZsoE/xzXSX9OPJN9pBD2hHJETS
+        JVOQhCQpsSz40Z7jmdf6r7eg7XWB6h8AQRB0LpqCJfcKbLLeKmvrG3Acu6kVoAMTeM+r8VHHf82QsD72
+        Ag3EpCJERQUiBlFRrRJLF2sFlQzbxhQxIwPr3cIDoQsJ5he+w+Kiu8ryTw+EU7K5QMoV8KeigfhNHvi/
+        V3Dyp5b4rdKYIJjKAxe9giMDVCucX5sIbHWCs6QE7uXV6gEiUH9+mTURWGsFkdsihATlHmPn0LWKnzck
+        +P3INaL+NF53jZVYydH0Q0FSLmES5fqQRwUWy0QhYwh82zt44CkUNQcjI1N8eSlBAMAL4xdYl+sjOCdc
+        QDs/4GoGTdO6jXR4GYZpKiueG4K4A38ibCJpDyIBAAAAAElFTkSuQmCC
 </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
-        F1HEycFB0cVNUHHQEDo5uehgB6WoII26CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
-        Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
-        YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
-        VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
-        VUAhm1e/gPulfhiBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAYJB/qimolFDbxTs/
-        KktZa8bakKtYFgSDwWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
-        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AFLTg9ItGsa4AAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnFq6Sb1v/gDF
+        RRRxcnCo6OImqDhoCJ2cXHTQQREVAlUXQXBxcPNSkJQmrUkvadPr6/lCE6u2Xj54SDic98n3nUO4SrUy
+        PAzfL3QyGhjfypPJZPRQKFQqFouohWmaEARhm+2tKfFROJ1OwzAMh0QiAU3TEI1GLUkkEoEoit8kLoaP
+        NmSzWeRyOetJpFIp6LoORVEsAesS9JFgMGhLrHIEFLYhAQWSySRUVf00DkGZSvZDUCgUnA30TnPbo8Ri
+        MasTWZbrC75SLaFO6Dzi8fjfBYQtoXHoTEhE638WEPl83joXkhC09i8BdfFyuIOb6V5Iw424muyA4HOJ
+        PwooZBM+EnAf6Ef2dAvlh3MY+4sI+ftKFwPuhV8F1P71VDcyLIydcWCpCVjrgroxgNNB/qmuoFpCbZfv
+        jlBd2moLVofcZUcgSVK5loS4nGhHencGYCEzwOGNEZ7ncT7Kv5KAysuux6j3Mz0fbOJ2rgfyUheU5UY8
+        zrog+d2ls5GGlUqea2N4GXQ1NdkdaxaPh3iZ2j7x89G9fn6d4zjuHU59g8wsWuxLAAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmDepositosAPlazo.vb

@@ -63,6 +63,10 @@
         If (String.IsNullOrEmpty(txtTasa.Text.ToString.Trim("%"))) Then
             txtTasa.Text = "0.0%"
         End If
+
+        If (String.IsNullOrEmpty(txtImpuesto.Text.ToString.Trim("%"))) Then
+            txtImpuesto.Text = "0.0%"
+        End If
     End Sub
 
 
@@ -87,6 +91,11 @@
         ExisteInversion()
         ValidarExistencia()
         CargarTransladoNuevo()
+
+    End Sub
+    Sub BloquearClickDerecho()
+        txtPlazo.ContextMenuStrip = New ContextMenuStrip
+
     End Sub
 
     Function ExisteInversion()
@@ -358,9 +367,14 @@
             Me.txtRendimientoBruto.Text = oDAPCE.RendimientoBruto.ToString(Configuraciones.CodigoTXTMontos)
             Me.txtRendimientoNeto.Text = oDAPCE.RendimientoNeto.ToString(Configuraciones.CodigoTXTMontos)
 
-            For Each item As DataRow In oDAPCE.dtIntereses.Rows
-                Me.txtImpuesto.Text = Operaciones.ConvertirDecimal(item("PorcImp").ToString) * 100
-            Next
+            If oDAPCE.dtIntereses.Rows.Count > 0 Then
+                For Each item As DataRow In oDAPCE.dtIntereses.Rows
+                    Me.txtImpuesto.Text = Operaciones.ConvertirDecimal(item("PorcImp").ToString) * 100
+                Next
+            Else
+                Me.txtImpuesto.Text = "0.0%"
+            End If
+
 
 
 
@@ -869,7 +883,9 @@
     End Sub
 
     Private Sub txtImpuesto_TextChanged(sender As Object, e As EventArgs) Handles txtImpuesto.TextChanged
-
+        If (txtImpuesto.ToString.IndexOf("%") = -1) Then
+            txtImpuesto.Text += "%"
+        End If
         CalcularPlazo()
         Calculo()
     End Sub
@@ -890,4 +906,32 @@
     Private Sub BindingNavigator1_RefreshItems(sender As Object, e As EventArgs) Handles BindingNavigator1.RefreshItems
 
     End Sub
+
+    Private Sub txtImpuesto_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtImpuesto.KeyPress
+        If String.IsNullOrEmpty(txtImpuesto.Text) Then
+            If e.KeyChar = "." Then
+                txtImpuesto.Text = "0"
+                Exit Sub
+            End If
+        End If
+
+        If (Not txtImpuesto.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 txtImpuesto_KeyUp(sender As Object, e As KeyEventArgs) Handles txtImpuesto.KeyUp
+        If txtImpuesto.Text = "." Then
+            txtImpuesto.Text = ".0"
+        End If
+    End Sub
+
+    Private Sub txtImpuesto_Leave(sender As Object, e As EventArgs) Handles txtImpuesto.Leave
+        RellenarDatos()
+    End Sub
 End Class

FRM/frmDetallesPortafolioGeneralRendimiento.Designer.vb

@@ -137,6 +137,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         'txtMontoTotal
         '
         Me.txtMontoTotal.Location = New System.Drawing.Point(99, 57)
+        Me.txtMontoTotal.MaxLength = 20
         Me.txtMontoTotal.Name = "txtMontoTotal"
         Me.txtMontoTotal.Size = New System.Drawing.Size(162, 20)
         Me.txtMontoTotal.TabIndex = 91
@@ -144,6 +145,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         'txtRendimientoPromedio
         '
         Me.txtRendimientoPromedio.Location = New System.Drawing.Point(389, 60)
+        Me.txtRendimientoPromedio.MaxLength = 20
         Me.txtRendimientoPromedio.Name = "txtRendimientoPromedio"
         Me.txtRendimientoPromedio.Size = New System.Drawing.Size(166, 20)
         Me.txtRendimientoPromedio.TabIndex = 92
@@ -151,6 +153,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         'txtPesoPromedio
         '
         Me.txtPesoPromedio.Location = New System.Drawing.Point(649, 60)
+        Me.txtPesoPromedio.MaxLength = 20
         Me.txtPesoPromedio.Name = "txtPesoPromedio"
         Me.txtPesoPromedio.Size = New System.Drawing.Size(174, 20)
         Me.txtPesoPromedio.TabIndex = 93

FRM/frmFOIN.Designer.vb

@@ -133,6 +133,7 @@ Partial Class frmFOIN
         'txtValorNominal
         '
         Me.txtValorNominal.Location = New System.Drawing.Point(200, 25)
+        Me.txtValorNominal.MaxLength = 20
         Me.txtValorNominal.Name = "txtValorNominal"
         Me.txtValorNominal.ReadOnly = True
         Me.txtValorNominal.Size = New System.Drawing.Size(150, 20)
@@ -151,6 +152,7 @@ Partial Class frmFOIN
         'txtCuotasDeParticipacion
         '
         Me.txtCuotasDeParticipacion.Location = New System.Drawing.Point(200, 48)
+        Me.txtCuotasDeParticipacion.MaxLength = 20
         Me.txtCuotasDeParticipacion.Name = "txtCuotasDeParticipacion"
         Me.txtCuotasDeParticipacion.Size = New System.Drawing.Size(150, 20)
         Me.txtCuotasDeParticipacion.TabIndex = 1
@@ -168,6 +170,7 @@ Partial Class frmFOIN
         'txtValorDeParticipacion
         '
         Me.txtValorDeParticipacion.Location = New System.Drawing.Point(200, 74)
+        Me.txtValorDeParticipacion.MaxLength = 20
         Me.txtValorDeParticipacion.Name = "txtValorDeParticipacion"
         Me.txtValorDeParticipacion.Size = New System.Drawing.Size(150, 20)
         Me.txtValorDeParticipacion.TabIndex = 2
@@ -185,6 +188,7 @@ Partial Class frmFOIN
         'txtPorcentajeComisionBolsa
         '
         Me.txtPorcentajeComisionBolsa.Location = New System.Drawing.Point(200, 118)
+        Me.txtPorcentajeComisionBolsa.MaxLength = 20
         Me.txtPorcentajeComisionBolsa.Name = "txtPorcentajeComisionBolsa"
         Me.txtPorcentajeComisionBolsa.Size = New System.Drawing.Size(40, 20)
         Me.txtPorcentajeComisionBolsa.TabIndex = 4
@@ -192,6 +196,7 @@ Partial Class frmFOIN
         'txtPorcentajeComisionCasa
         '
         Me.txtPorcentajeComisionCasa.Location = New System.Drawing.Point(200, 96)
+        Me.txtPorcentajeComisionCasa.MaxLength = 20
         Me.txtPorcentajeComisionCasa.Name = "txtPorcentajeComisionCasa"
         Me.txtPorcentajeComisionCasa.Size = New System.Drawing.Size(40, 20)
         Me.txtPorcentajeComisionCasa.TabIndex = 3
@@ -199,6 +204,7 @@ Partial Class frmFOIN
         'txtComisionBolsa
         '
         Me.txtComisionBolsa.Location = New System.Drawing.Point(242, 118)
+        Me.txtComisionBolsa.MaxLength = 20
         Me.txtComisionBolsa.Name = "txtComisionBolsa"
         Me.txtComisionBolsa.ReadOnly = True
         Me.txtComisionBolsa.Size = New System.Drawing.Size(108, 20)
@@ -207,6 +213,7 @@ Partial Class frmFOIN
         'txtComisionCasa
         '
         Me.txtComisionCasa.Location = New System.Drawing.Point(242, 96)
+        Me.txtComisionCasa.MaxLength = 20
         Me.txtComisionCasa.Name = "txtComisionCasa"
         Me.txtComisionCasa.ReadOnly = True
         Me.txtComisionCasa.Size = New System.Drawing.Size(108, 20)
@@ -235,6 +242,7 @@ Partial Class frmFOIN
         'txtValorTransado
         '
         Me.txtValorTransado.Location = New System.Drawing.Point(200, 144)
+        Me.txtValorTransado.MaxLength = 20
         Me.txtValorTransado.Name = "txtValorTransado"
         Me.txtValorTransado.ReadOnly = True
         Me.txtValorTransado.Size = New System.Drawing.Size(150, 20)
@@ -290,6 +298,7 @@ Partial Class frmFOIN
         'txtRendimientoOfrecido
         '
         Me.txtRendimientoOfrecido.Location = New System.Drawing.Point(200, 232)
+        Me.txtRendimientoOfrecido.MaxLength = 20
         Me.txtRendimientoOfrecido.Name = "txtRendimientoOfrecido"
         Me.txtRendimientoOfrecido.Size = New System.Drawing.Size(150, 20)
         Me.txtRendimientoOfrecido.TabIndex = 8
@@ -326,6 +335,7 @@ Partial Class frmFOIN
         'txtPlazo
         '
         Me.txtPlazo.Location = New System.Drawing.Point(200, 304)
+        Me.txtPlazo.MaxLength = 5
         Me.txtPlazo.Name = "txtPlazo"
         Me.txtPlazo.Size = New System.Drawing.Size(150, 20)
         Me.txtPlazo.TabIndex = 11
@@ -424,6 +434,7 @@ Partial Class frmFOIN
         'txtDiasLiq
         '
         Me.txtDiasLiq.Location = New System.Drawing.Point(200, 188)
+        Me.txtDiasLiq.MaxLength = 5
         Me.txtDiasLiq.Name = "txtDiasLiq"
         Me.txtDiasLiq.Size = New System.Drawing.Size(40, 20)
         Me.txtDiasLiq.TabIndex = 154
@@ -550,6 +561,7 @@ Partial Class frmFOIN
         'txtDividendo
         '
         Me.txtDividendo.Location = New System.Drawing.Point(200, 325)
+        Me.txtDividendo.MaxLength = 20
         Me.txtDividendo.Name = "txtDividendo"
         Me.txtDividendo.Size = New System.Drawing.Size(150, 20)
         Me.txtDividendo.TabIndex = 148

FRM/frmFOIN.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
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZE7TNtQFIZdBrryWLqywsbMVCqmtgxMwQmP
-        EGRiqi7pXG9UCKoKiQkWQCSUgBCOKgFDl0rQRqlwoSZESUoeoIANTuKQ+KFUOfheJYFEuIr6S5+Ojn3u
-        d+17CZQM96klyS+2Jbj5rsTJRhfPe5vxi0YSDs89zR5/aM2EZjpigf5iPsgM0c63fmqcEh12Shyrw25A
-        jUymrBb7NyxIHnxsk4PTL7UfL0APvAadGwRVkUDVbk3JF2RAEiy48E+1ZwN9ytfZ5yX9aLJb+94L2iEJ
-        kXTJFCQhSUosC5bbczzTqf8cAG2/B1T/KxAEQeeiKVh1f4Zt1ldlY3MLjmLXtQJ0YALvfTY+6virGRJ2
-        hz1HAzGpCFFRgYhBVFSrxNLFWkElQ7YxRczIwPq+4IHQuQQLi0uwsuKu4lnzQjglmwukXAF/KhqIX+eB
-        P7uE4z+1xG+UxgTBVB646CUcGqBa4fTKRGCrE5wkJXB71qsHiED96UXWRGCtFURuihASlHuMnUNXKn7e
-        kODXI9eI+t/xumusxEqOph8KknIJkyjXhzwqsFgmChlDsLO7hwf+haLmYHj4DV9eShAA8MT4Bdbleg/O
-        CRfQzne4mkHTtG4jHT6GYZrKiv8NQdwBpkxsLsblvHAAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFPSNtQHMezHdzV6WVXr/O2sycVT24edurS
+        6qyV2Che6tncJkPGEHaalylWZxUxRVDBk6CuVIy6WEtb1z9KNdG0TW3zh47+zHu01RYjxS98+PFLfu/z
+        kvcIlDT3vTHBTzfFuR+t8ZOlVp73NOAX9SQUmnqVOZ54nQ5OtkT9PYVcgOmlnaM+apASHXZKHKjBbkB9
+        Hk5aLfZtLEjsfmuSA1+7tT+doPs/gM59AlWRQNVuTcnlZUASLLjwfWnO+LuUrcn2on40/E7b6wDtgIRw
+        qmgKkpAkJZYEM81Znnmr738EbacNVN97EARB5yJJmHP/hlXWW2FpeQWOotfVAnRgAu95M9jv+K8ZEnad
+        PUcDUakAEVGBsEFEVCtEU4VqQTm9tgFFTMvAetfwQPBcgp/Tv2B21l1hfsEDoaRsLpCyefypaCB2nQP+
+        3yUcn1UTu1HqEwSSOeAil3BggGqZ0ysTga1GcJKQwD2/WDlABOpPLzImAmu1IHxTgKCg3GPsHLxS8fO6
+        BIePXCPq/8ZqrrEcK9mfeihIyEVMvFQf8qjAYhnKpw3B+sYmHngKRc1CX98IX1pKEADwwvgF1uUaB+eQ
+        C2jnGK5m0DSt20iHl2GYlyXFc0MQd5/FbCxY99uJAAAAAElFTkSuQmCC
 </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
-        4iKKODk4WHQRHAQVBxtCJycXHeygFCsI2i6C4OLg5g0kpTd7Te/N6/lCE6tNbf3gIeFw3iffdw7hqtXF
-        GGHYmtDHMDPqaiSbzSb8fn+lXC7DiHw+D0EQDtleQ4mNwplMBrIs6ySTScTjcYRCIVUSDAYhimKdxMSw
-        0YZcLodCoaA+iXQ6jUQigXA4rApYl6CPuN1uTaKWLqCwBgkokEqlEIlEfoxDUKaa/RaUSiV9A73T3Noo
-        0WhU7USSpMaC39RKqBM6j1gs1rqA0CQ0Dp0JiWi9ZQFRLBbVcyEJQWv/ElAXb2cu3C0M4XqiDf65Xgg2
-        k/ingEIa7x4Bj+ujyHkPoDz5IJ+s4cY+XLkas6w2FVD7gfkBZFkYrhnA2Q7s9COyNwbvOP/SUFArobaV
-        Bw9qK77ViW2HRdEFgUBAMZIQt7M9yBwtAiyUX+fwyXhf4eGb4j9IQGVl1yMzieHP9Hq6j/vlQUjOfoQ3
-        2vC8ZMK13VK5nDRvVvNcN8PKoKsx5Gi6Qzx38BK1fWHnQ8ej/C7HcdwXjbaD+a99aYcAAAAASUVORK5C
-        YII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG0SURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOCnZpFovmz9A
+        cRFFnBwcFF3ERVBxsCF0cnLRwQ5KsYJg6yIILg5u3kBSmrYmvaT39vV8oalVU60fPCQczvvk+84hXKXa
+        GAMM4Q+6GHbGjxpIp9NaIBAoFYtFWJHNZiGK4j7baykRKJxKpaDrepV4PA5VVREOhw1JKBSCJEk/JDaG
+        QBsymQxyuZzxJJLJJDRNg6IohoB1CfqIx+MxJUZVBRQ2IQEFEokEIpHIl3EIylSyn4JCoVDdQO80tzlK
+        NBo1OpFlub7gO7US6oTOIxaLNS4gTAmNQ2dCIlpvWEDk83njXEhC0Nq/BNTFy4kbN7N9uBxtQnC6E6Jg
+        k34VUMjk1SvifmUIGd8eyg9+6EfLuHL2ly6GHUt/Cqj965kepFkY7klgtRnY6kZkZxi+Ef6prqBWQm2X
+        77yoLXWjFZsuR7kqCAaDZSsJEZjqQOpgDmCh7AqHd8brIg//OP9GAqpBdj06k1j+TM/Hu7hd6IW82g1l
+        rQmP8zZcOh2l8zH7eiXPtTMGGXQ1lhxMtEinLl6mts+cfPhwiN/mOI77AHOJg+sKO6pQAAAAAElFTkSu
+        QmCC
 </value>
   </data>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

FRM/frmFuturos.Designer.vb

@@ -132,6 +132,7 @@ Partial Class frmFuturos
         '
         Me.txtIdentificacionContratoCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtIdentificacionContratoCompra.Location = New System.Drawing.Point(13, 193)
+        Me.txtIdentificacionContratoCompra.MaxLength = 20
         Me.txtIdentificacionContratoCompra.Name = "txtIdentificacionContratoCompra"
         Me.txtIdentificacionContratoCompra.Size = New System.Drawing.Size(140, 20)
         Me.txtIdentificacionContratoCompra.TabIndex = 1
@@ -150,6 +151,7 @@ Partial Class frmFuturos
         '
         Me.txtValorRecibidoVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtValorRecibidoVenta.Location = New System.Drawing.Point(16, 172)
+        Me.txtValorRecibidoVenta.MaxLength = 20
         Me.txtValorRecibidoVenta.Name = "txtValorRecibidoVenta"
         Me.txtValorRecibidoVenta.ReadOnly = True
         Me.txtValorRecibidoVenta.Size = New System.Drawing.Size(140, 20)
@@ -169,6 +171,7 @@ Partial Class frmFuturos
         '
         Me.txtComisionBrokerVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtComisionBrokerVenta.Location = New System.Drawing.Point(16, 151)
+        Me.txtComisionBrokerVenta.MaxLength = 20
         Me.txtComisionBrokerVenta.Name = "txtComisionBrokerVenta"
         Me.txtComisionBrokerVenta.Size = New System.Drawing.Size(140, 20)
         Me.txtComisionBrokerVenta.TabIndex = 0
@@ -187,6 +190,7 @@ Partial Class frmFuturos
         '
         Me.txtCantidadContratosCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtCantidadContratosCompra.Location = New System.Drawing.Point(13, 214)
+        Me.txtCantidadContratosCompra.MaxLength = 20
         Me.txtCantidadContratosCompra.Name = "txtCantidadContratosCompra"
         Me.txtCantidadContratosCompra.Size = New System.Drawing.Size(140, 20)
         Me.txtCantidadContratosCompra.TabIndex = 4
@@ -205,6 +209,7 @@ Partial Class frmFuturos
         '
         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(16, 130)
+        Me.txtValorTransadoVenta.MaxLength = 20
         Me.txtValorTransadoVenta.Name = "txtValorTransadoVenta"
         Me.txtValorTransadoVenta.ReadOnly = True
         Me.txtValorTransadoVenta.Size = New System.Drawing.Size(140, 20)
@@ -224,6 +229,7 @@ Partial Class frmFuturos
         '
         Me.txtUnidadesContratoCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtUnidadesContratoCompra.Location = New System.Drawing.Point(13, 235)
+        Me.txtUnidadesContratoCompra.MaxLength = 20
         Me.txtUnidadesContratoCompra.Name = "txtUnidadesContratoCompra"
         Me.txtUnidadesContratoCompra.Size = New System.Drawing.Size(140, 20)
         Me.txtUnidadesContratoCompra.TabIndex = 0
@@ -242,6 +248,7 @@ Partial Class frmFuturos
         '
         Me.txtValorUnidadVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtValorUnidadVenta.Location = New System.Drawing.Point(16, 109)
+        Me.txtValorUnidadVenta.MaxLength = 20
         Me.txtValorUnidadVenta.Name = "txtValorUnidadVenta"
         Me.txtValorUnidadVenta.Size = New System.Drawing.Size(140, 20)
         Me.txtValorUnidadVenta.TabIndex = 0
@@ -250,6 +257,7 @@ Partial Class frmFuturos
         '
         Me.txtValorUnidadCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtValorUnidadCompra.Location = New System.Drawing.Point(13, 109)
+        Me.txtValorUnidadCompra.MaxLength = 20
         Me.txtValorUnidadCompra.Name = "txtValorUnidadCompra"
         Me.txtValorUnidadCompra.Size = New System.Drawing.Size(140, 20)
         Me.txtValorUnidadCompra.TabIndex = 0
@@ -287,6 +295,7 @@ Partial Class frmFuturos
         '
         Me.txtUnidadesContratoVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtUnidadesContratoVenta.Location = New System.Drawing.Point(16, 235)
+        Me.txtUnidadesContratoVenta.MaxLength = 20
         Me.txtUnidadesContratoVenta.Name = "txtUnidadesContratoVenta"
         Me.txtUnidadesContratoVenta.Size = New System.Drawing.Size(140, 20)
         Me.txtUnidadesContratoVenta.TabIndex = 0
@@ -295,6 +304,7 @@ Partial Class frmFuturos
         '
         Me.txtValorTransadoCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtValorTransadoCompra.Location = New System.Drawing.Point(13, 130)
+        Me.txtValorTransadoCompra.MaxLength = 20
         Me.txtValorTransadoCompra.Name = "txtValorTransadoCompra"
         Me.txtValorTransadoCompra.ReadOnly = True
         Me.txtValorTransadoCompra.Size = New System.Drawing.Size(140, 20)
@@ -304,6 +314,7 @@ Partial Class frmFuturos
         '
         Me.txtCantidadContratosVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtCantidadContratosVenta.Location = New System.Drawing.Point(16, 214)
+        Me.txtCantidadContratosVenta.MaxLength = 20
         Me.txtCantidadContratosVenta.Name = "txtCantidadContratosVenta"
         Me.txtCantidadContratosVenta.Size = New System.Drawing.Size(140, 20)
         Me.txtCantidadContratosVenta.TabIndex = 12
@@ -322,6 +333,7 @@ Partial Class frmFuturos
         '
         Me.txtValorRecibidoCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtValorRecibidoCompra.Location = New System.Drawing.Point(13, 172)
+        Me.txtValorRecibidoCompra.MaxLength = 20
         Me.txtValorRecibidoCompra.Name = "txtValorRecibidoCompra"
         Me.txtValorRecibidoCompra.ReadOnly = True
         Me.txtValorRecibidoCompra.Size = New System.Drawing.Size(140, 20)
@@ -331,6 +343,7 @@ Partial Class frmFuturos
         '
         Me.txtComisionBrokerCompra.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtComisionBrokerCompra.Location = New System.Drawing.Point(13, 151)
+        Me.txtComisionBrokerCompra.MaxLength = 20
         Me.txtComisionBrokerCompra.Name = "txtComisionBrokerCompra"
         Me.txtComisionBrokerCompra.Size = New System.Drawing.Size(140, 20)
         Me.txtComisionBrokerCompra.TabIndex = 0
@@ -349,6 +362,7 @@ Partial Class frmFuturos
         '
         Me.txtIdentificacionContratoVenta.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtIdentificacionContratoVenta.Location = New System.Drawing.Point(16, 193)
+        Me.txtIdentificacionContratoVenta.MaxLength = 20
         Me.txtIdentificacionContratoVenta.Name = "txtIdentificacionContratoVenta"
         Me.txtIdentificacionContratoVenta.Size = New System.Drawing.Size(140, 20)
         Me.txtIdentificacionContratoVenta.TabIndex = 9
@@ -468,6 +482,7 @@ Partial Class frmFuturos
         '
         Me.txtGananciaPerdida.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtGananciaPerdida.Location = New System.Drawing.Point(13, 256)
+        Me.txtGananciaPerdida.MaxLength = 20
         Me.txtGananciaPerdida.Name = "txtGananciaPerdida"
         Me.txtGananciaPerdida.ReadOnly = True
         Me.txtGananciaPerdida.Size = New System.Drawing.Size(140, 20)
@@ -477,6 +492,7 @@ Partial Class frmFuturos
         '
         Me.txtRendimiento.Font = New System.Drawing.Font("Trebuchet MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtRendimiento.Location = New System.Drawing.Point(13, 277)
+        Me.txtRendimiento.MaxLength = 20
         Me.txtRendimiento.Name = "txtRendimiento"
         Me.txtRendimiento.ReadOnly = True
         Me.txtRendimiento.Size = New System.Drawing.Size(140, 20)

FRM/frmFuturos.resx

@@ -140,28 +140,27 @@
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
-        +ADMyGjc0HVnp2maxph0VRe1RrTFpumQJrZbEx8E4/gYkQCWhwac0QGGwjyC4Tj3BqgQpyH9ky8nZ+bc
-        787cS6DkufnHaX7RkuLeW1Mn61ae9z/EL9pJNLrwqHA015mPvO1JhIYqpTAzQntmgtQEJbqdlOhqwWlA
-        jU1l7DbnJhakt99Z5PCbfm33OeihQdC5l6AqEqjaH1NKZRmQBAsugrNdhdAL5SPztKofTvVqO89A2ych
-        lquagiQkSYk1waeuIs880feGQdvqAzU4AIIg6Fw8Ayu+z/CdDTRY//oNDhNXzQJ0YALv754Yd99ohoTd
-        YM/RQEKqQFxUIGYQF9UGiVylWVDPiMOliHkZ2MAPPBA5l+DD4hIsL/sarK75IZqRzQVSsYw/FQ0kr0rA
-        /87C0VkzyWulPUE4UwIunoV9A1TrnF6aCBwtgpO0BL7VL40DRKD+9KJgIrA3C2LXFYgIyl+MnSOXKn7e
-        luDgnmtE/XGy5RrrsZPjubuCtFzFpGr1LvcKbLbJct4QbPz8hQf+haIWYXR0mq8tJQgAeGD8Auv1vgbP
-        pBdozytczaBpWneQ7gDDMB01xf+GIG4BGe1sA0MLMcAAAAAASUVORK5CYII=
+        +ADMyGjc0HVnp2maxph0VZPGGtEWm6ZDmthuTXwQjONjRAJYHhpwRgcYCvMIhuPcG6BCnIb0T76cnJlz
+        vztzL4GS5+Yfp/lFS4p7b02drFt53v8Qv2gn0ejCo8LRXGc+8rYnERqqlMLMCO2ZCVITlOh2UqKrBacB
+        NTaVsducm1iQ3n5nkcNv+rXd56CHBkHnXoKqSKBqf0wplWVAEiy4CM52FUIvlI/M06p+ONWr7TwDbZ+E
+        WK5qCpKQJCXWBJ+6ijzzRN8bBm2rD9TgAAiCoHPxDKz4PsN3NtBg/es3OExcNQvQgQm8v3ti3H2jGRJ2
+        gz1HAwmpAnFRgZhBXFQbJHKVZkE9Iw6XIuZlYAM/8EDkXIIPi0uwvOxrsLrmh2hGNhdIxTL+VDSQvCoB
+        /zsLR2fNJK+V9gThTAm4eBb2DVCtc3ppInC0CE7SEvhWvzQOEIH604uCicDeLIhdVyAiKH8xdo5cqvh5
+        W4KDe64R9cfJlmusx06O5+4K0nIVk6rVu9wrsNkmy3lDsPHzFx74F4pahNHRab62lCAA4IHxC6zX+xo8
+        k16gPa9wNYOmad1BugMMw3TUFP8bgrgFFqlsAm4T2i8AAAAASUVORK5CYII=
 </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
-        uIgiTg4OFl26CSoOGkKnTnbQQQelWKFQdREEFwc3byAp6cWmlzS9v54vNLFqa+sHDwmH8z75vnMIV6lO
-        xjDD1oBeRgvjVw1nMhklGAyWisUiapHNZiEIwj7bW1Nio3A6nYaqqiaJRALxeByyLOuSUCgEURR/SSwM
-        G23QNA25XE5/EqlUCoqiIBwO6wLWJegjbrfbkOhlCihsQAIKJJNJRCKRb+MQlKlkvwSFQsHcQO80tzFK
-        NBrVO5Ekqb7gJ9US6oTOIxaLNS8gDAmNQ2dCIlpvWkDk83n9XEhC0Nq/BNTF68kBbhcGEZhoxfVcDwSb
-        RfxTQCGDt1MBD+uj0Hx7KD/6oR6tIWgfKl2OWVcbCqj9m/l+ZFgYBzOAsw3Y6kNkZwy+cf65rqBaQm2X
-        709RXXFXB1wOa9kUeL3eci0JcTXbjbRnEWCh7DqHD8bbCg//FP9OAqoRdj1qvZ/p5XgXd8sDkJx9CG+0
-        4mnJgoDdWrqYbNms5LkuxgiDrqYmnul28czBS9T2uZ2XD0f5bY7juE8adYOECRaKRwAAAABJRU5ErkJg
-        gg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv0BLuLgFRxEcKp0k2q9bP4A
+        xUUUcXJwUHRxE1QcNIROnbrooINSrFCIugiCi4ObN5CU9GJ6S9P76/lCU6ttrX7wkHA475PvO4dwlepk
+        OBjOFvQyrIy6cmQymbgkSaVisYhGZLNZCIJwwPY2lDgpnE6noWlalUQiAVVVoSiKIQmFQhBFsU5iYThp
+        g67ryOVyxpNIpVKIx+MIh8OGgHUJ+ojH4zElRlUFFDYhAQWSySQikci3cQjKVLJfgkKhUN1A7zS3OUo0
+        GjU6kWW5ueAntRLqhM4jFov9XUCYEhqHzoREtP5nAZHP541zIQlBa/8SUBevJ4e4nR9EcNyO69keCE6L
+        +KuAQiZvpwIe1kag+/dRfgxAO1qF5BoqXY7aVloKqP2buX5kWBiH08B6G7Ddh8juKPxj/HNTQa2E2i7f
+        n6K21K0ObLlt5arA5/OVG0mIq5lupL0LAAtl1zh8MN6WeQQm+XcSUA2z69Ga/Uwvx3u4WxqAvN6H8IYd
+        T4sWBF220sWEdbOS57oYwwy6moZ4p9rFMzcvU9vnLl7xjfA7HMdxnxhKg4FngDpdAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="EcalriTableAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

FRM/frmLetes.Designer.vb

@@ -104,6 +104,7 @@ Partial Class frmLetes
         'txtValorNominal
         '
         Me.txtValorNominal.Location = New System.Drawing.Point(197, 122)
+        Me.txtValorNominal.MaxLength = 20
         Me.txtValorNominal.Name = "txtValorNominal"
         Me.txtValorNominal.Size = New System.Drawing.Size(150, 20)
         Me.txtValorNominal.TabIndex = 1
@@ -111,6 +112,7 @@ Partial Class frmLetes
         'txtValorTransado
         '
         Me.txtValorTransado.Location = New System.Drawing.Point(198, 362)
+        Me.txtValorTransado.MaxLength = 20
         Me.txtValorTransado.Name = "txtValorTransado"
         Me.txtValorTransado.ReadOnly = True
         Me.txtValorTransado.Size = New System.Drawing.Size(150, 20)
@@ -128,6 +130,7 @@ Partial Class frmLetes
         'txtPrecio
         '
         Me.txtPrecio.Location = New System.Drawing.Point(198, 383)
+        Me.txtPrecio.MaxLength = 20
         Me.txtPrecio.Name = "txtPrecio"
         Me.txtPrecio.ReadOnly = True
         Me.txtPrecio.Size = New System.Drawing.Size(150, 20)
@@ -145,6 +148,7 @@ Partial Class frmLetes
         'txtComisionCasa
         '
         Me.txtComisionCasa.Location = New System.Drawing.Point(248, 212)
+        Me.txtComisionCasa.MaxLength = 20
         Me.txtComisionCasa.Name = "txtComisionCasa"
         Me.txtComisionCasa.ReadOnly = True
         Me.txtComisionCasa.Size = New System.Drawing.Size(99, 20)
@@ -162,6 +166,7 @@ Partial Class frmLetes
         'txtComisionBolsa
         '
         Me.txtComisionBolsa.Location = New System.Drawing.Point(248, 233)
+        Me.txtComisionBolsa.MaxLength = 20
         Me.txtComisionBolsa.Name = "txtComisionBolsa"
         Me.txtComisionBolsa.ReadOnly = True
         Me.txtComisionBolsa.Size = New System.Drawing.Size(99, 20)
@@ -179,6 +184,7 @@ Partial Class frmLetes
         'txtTotalAPagar
         '
         Me.txtTotalAPagar.Location = New System.Drawing.Point(198, 404)
+        Me.txtTotalAPagar.MaxLength = 20
         Me.txtTotalAPagar.Name = "txtTotalAPagar"
         Me.txtTotalAPagar.ReadOnly = True
         Me.txtTotalAPagar.Size = New System.Drawing.Size(150, 20)
@@ -223,6 +229,7 @@ Partial Class frmLetes
         'txtRendimientoBruto
         '
         Me.txtRendimientoBruto.Location = New System.Drawing.Point(198, 278)
+        Me.txtRendimientoBruto.MaxLength = 20
         Me.txtRendimientoBruto.Name = "txtRendimientoBruto"
         Me.txtRendimientoBruto.Size = New System.Drawing.Size(150, 20)
         Me.txtRendimientoBruto.TabIndex = 10
@@ -239,6 +246,7 @@ Partial Class frmLetes
         'txtRendimientoNeto
         '
         Me.txtRendimientoNeto.Location = New System.Drawing.Point(198, 299)
+        Me.txtRendimientoNeto.MaxLength = 20
         Me.txtRendimientoNeto.Name = "txtRendimientoNeto"
         Me.txtRendimientoNeto.ReadOnly = True
         Me.txtRendimientoNeto.Size = New System.Drawing.Size(150, 20)
@@ -265,6 +273,7 @@ Partial Class frmLetes
         'txtPlazoInversion
         '
         Me.txtPlazoInversion.Location = New System.Drawing.Point(197, 144)
+        Me.txtPlazoInversion.MaxLength = 5
         Me.txtPlazoInversion.Name = "txtPlazoInversion"
         Me.txtPlazoInversion.Size = New System.Drawing.Size(150, 20)
         Me.txtPlazoInversion.TabIndex = 5
@@ -281,6 +290,7 @@ Partial Class frmLetes
         'txtIngresoBruto
         '
         Me.txtIngresoBruto.Location = New System.Drawing.Point(198, 320)
+        Me.txtIngresoBruto.MaxLength = 20
         Me.txtIngresoBruto.Name = "txtIngresoBruto"
         Me.txtIngresoBruto.ReadOnly = True
         Me.txtIngresoBruto.Size = New System.Drawing.Size(150, 20)
@@ -298,6 +308,7 @@ Partial Class frmLetes
         'txtIngresoNeto
         '
         Me.txtIngresoNeto.Location = New System.Drawing.Point(198, 341)
+        Me.txtIngresoNeto.MaxLength = 20
         Me.txtIngresoNeto.Name = "txtIngresoNeto"
         Me.txtIngresoNeto.ReadOnly = True
         Me.txtIngresoNeto.Size = New System.Drawing.Size(150, 20)
@@ -340,6 +351,7 @@ Partial Class frmLetes
         'txtPorcentajeComisionBolsa
         '
         Me.txtPorcentajeComisionBolsa.Location = New System.Drawing.Point(198, 233)
+        Me.txtPorcentajeComisionBolsa.MaxLength = 20
         Me.txtPorcentajeComisionBolsa.Name = "txtPorcentajeComisionBolsa"
         Me.txtPorcentajeComisionBolsa.Size = New System.Drawing.Size(47, 20)
         Me.txtPorcentajeComisionBolsa.TabIndex = 8
@@ -347,6 +359,7 @@ Partial Class frmLetes
         'txtPorcentajeComisionCasa
         '
         Me.txtPorcentajeComisionCasa.Location = New System.Drawing.Point(198, 211)
+        Me.txtPorcentajeComisionCasa.MaxLength = 20
         Me.txtPorcentajeComisionCasa.Name = "txtPorcentajeComisionCasa"
         Me.txtPorcentajeComisionCasa.Size = New System.Drawing.Size(47, 20)
         Me.txtPorcentajeComisionCasa.TabIndex = 7
@@ -506,6 +519,7 @@ Partial Class frmLetes
         'txtInteresAcumulado
         '
         Me.txtInteresAcumulado.Location = New System.Drawing.Point(198, 531)
+        Me.txtInteresAcumulado.MaxLength = 20
         Me.txtInteresAcumulado.Name = "txtInteresAcumulado"
         Me.txtInteresAcumulado.ReadOnly = True
         Me.txtInteresAcumulado.Size = New System.Drawing.Size(150, 20)
@@ -534,6 +548,7 @@ Partial Class frmLetes
         'txtOtrosCostos
         '
         Me.txtOtrosCostos.Location = New System.Drawing.Point(198, 552)
+        Me.txtOtrosCostos.MaxLength = 20
         Me.txtOtrosCostos.Name = "txtOtrosCostos"
         Me.txtOtrosCostos.Size = New System.Drawing.Size(150, 20)
         Me.txtOtrosCostos.TabIndex = 137

FRM/frmLetes.resx

@@ -139,28 +139,29 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        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
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFNTNpgGMe7Hbar08uuu86b553mspPTgydW
+        PhQxlbp4YWd727Isy2LiSS/ODFQ0xhIT59VEN4Kx6ioSwPGhQVotUAb9CAuPfd8AE0IN8Z/88uRpn/f3
+        tu9LoOS5r11pfr47xc32pk5We3ne/wi/6CTR6MzjwvHHJ/nI52eJ0FClFGbstHsqSI1TostJiWMtOA2o
+        kcmM1eLcwYL03pduOfxpQPv1CvTQIOjcW1AVCVTtrymlsgxIggUXwQ89hdBrZZ15WdWPJvu0n/2gHZAQ
+        y1VNQRKSpMSa4FtPkWee6/vDoO2+ADX4BgRB0Ll4Br57l2GDDTRYXVuHo8RVswAdmMD7n46Puv5phoTd
+        Ys/RQEKqQFxUIGYQF9UGiVylWVCP3TamiHkZ2MAmHoicSzA3vwCLi94GviU/RDOyuUAqlvGnooHkVQn4
+        P5dwfNZM8lrpTBDOlICLX8KBAap1TrMmAluL4CQtgde30jhABOpPLwomAmuzIHZdgYig/MfYOZJV8fOO
+        BIdtrhH1v5Mt11iPlRzN3Rak5SomVau3aSuwWCbKeUOw9WMbD9yFohbB4XjH15YSBAA8MH6B9XimwT3h
+        Adr9HlczaJrWbaQrwDDMw5riviGIG0rpbBI5/OsDAAAAAElFTkSuQmCC
 </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
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIbTpv0BLuLgFRxEcKp0k2q9bP4A
+        xUUUcXJwUHRxE1QcNIROnVx0sINFVChUXQTBxcHNG0hK09amlzS9v54vNLXa1NYPHhIO533yfecQrlKd
+        DAfD2YRehpVRV45MJqMEg8FSsViEGdlsFoIgHLC9phInhdPpNFRVrZJIJBCPxxEOh3VJKBSCKIp1EgvD
+        SRs0TUMul9OfRCqVgqIokGVZF7AuQR/xeDyGRK+qgMIGJKBAMplEJBL5MQ5BmUr2W1AoFKob6J3mNkaJ
+        RqN6J5IkNRb8plZCndB5xGKx1gWEIaFx6ExIROstC4h8Pq+fC0kIWvuXgLp4Oz3E3fwgAuN23Mz2QHBa
+        xD8FFDJ49wl4XBuBdr6P8tMl1ONVBF1DpatR20pTAbV/O9ePDAvjcBpYbwO2+xDZHcX5GP/SUFArobbL
+        Dz7UVnyrA1tuW7kq8Pv9ZTMJcT3TjbR3AWCh7BqHT8b7Mo/LSf6DBFTD7HrURj/T68ke7pcGIK33Qd6w
+        43nRgoDLVrqYsG5W8lwXY5hBV2OKd6pdPHPzErXtd/HhoxF+h+M47gs6+oOxVQpujwAAAABJRU5ErkJg
+        gg==
 </value>
   </data>
 </root>

FRM/frmNotaEstructurada.Designer.vb

@@ -116,6 +116,7 @@ Partial Class frmNotaEstructurada
         'txtImpuesto
         '
         Me.txtImpuesto.Location = New System.Drawing.Point(417, 176)
+        Me.txtImpuesto.MaxLength = 20
         Me.txtImpuesto.Name = "txtImpuesto"
         Me.txtImpuesto.Size = New System.Drawing.Size(150, 20)
         Me.txtImpuesto.TabIndex = 155
@@ -178,6 +179,7 @@ Partial Class frmNotaEstructurada
         'txtIngresoNeto
         '
         Me.txtIngresoNeto.Location = New System.Drawing.Point(358, 47)
+        Me.txtIngresoNeto.MaxLength = 20
         Me.txtIngresoNeto.Name = "txtIngresoNeto"
         Me.txtIngresoNeto.ReadOnly = True
         Me.txtIngresoNeto.Size = New System.Drawing.Size(100, 20)
@@ -186,6 +188,7 @@ Partial Class frmNotaEstructurada
         'txtRenta
         '
         Me.txtRenta.Location = New System.Drawing.Point(207, 47)
+        Me.txtRenta.MaxLength = 20
         Me.txtRenta.Name = "txtRenta"
         Me.txtRenta.ReadOnly = True
         Me.txtRenta.Size = New System.Drawing.Size(100, 20)
@@ -194,6 +197,7 @@ Partial Class frmNotaEstructurada
         'txtIngresoBruto
         '
         Me.txtIngresoBruto.Location = New System.Drawing.Point(57, 47)
+        Me.txtIngresoBruto.MaxLength = 20
         Me.txtIngresoBruto.Name = "txtIngresoBruto"
         Me.txtIngresoBruto.ReadOnly = True
         Me.txtIngresoBruto.Size = New System.Drawing.Size(100, 20)
@@ -202,6 +206,7 @@ Partial Class frmNotaEstructurada
         'txtPlazo
         '
         Me.txtPlazo.Location = New System.Drawing.Point(417, 135)
+        Me.txtPlazo.MaxLength = 5
         Me.txtPlazo.Name = "txtPlazo"
         Me.txtPlazo.Size = New System.Drawing.Size(150, 20)
         Me.txtPlazo.TabIndex = 152
@@ -304,6 +309,7 @@ Partial Class frmNotaEstructurada
         'txtRendimientoNeto
         '
         Me.txtRendimientoNeto.Location = New System.Drawing.Point(417, 244)
+        Me.txtRendimientoNeto.MaxLength = 20
         Me.txtRendimientoNeto.Name = "txtRendimientoNeto"
         Me.txtRendimientoNeto.ReadOnly = True
         Me.txtRendimientoNeto.Size = New System.Drawing.Size(150, 20)
@@ -322,6 +328,7 @@ Partial Class frmNotaEstructurada
         'txtRendimientoBruto
         '
         Me.txtRendimientoBruto.Location = New System.Drawing.Point(417, 222)
+        Me.txtRendimientoBruto.MaxLength = 20
         Me.txtRendimientoBruto.Name = "txtRendimientoBruto"
         Me.txtRendimientoBruto.ReadOnly = True
         Me.txtRendimientoBruto.Size = New System.Drawing.Size(150, 20)
@@ -360,6 +367,7 @@ Partial Class frmNotaEstructurada
         'txtTasa
         '
         Me.txtTasa.Location = New System.Drawing.Point(417, 158)
+        Me.txtTasa.MaxLength = 20
         Me.txtTasa.Name = "txtTasa"
         Me.txtTasa.Size = New System.Drawing.Size(150, 20)
         Me.txtTasa.TabIndex = 141
@@ -377,6 +385,7 @@ Partial Class frmNotaEstructurada
         'txtMontoInversion
         '
         Me.txtMontoInversion.Location = New System.Drawing.Point(417, 70)
+        Me.txtMontoInversion.MaxLength = 20
         Me.txtMontoInversion.Name = "txtMontoInversion"
         Me.txtMontoInversion.Size = New System.Drawing.Size(150, 20)
         Me.txtMontoInversion.TabIndex = 136

FRM/frmNotaEstructurada.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
-        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
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIYNA6w8FtauZWNmgoqJ0qFT6oRH
+        CDIxFUs611tRVVUVEhMsgEiAgFAdVYKuSLREqTAPE6IkkAcoYIOTOCR+KFUOvldJIBGuov7Sp6Njn/td
+        +14CJcN9a0vyCx0Jbq47cbrRzfPeFvyikYTDs63Z45n2TOjLi1jgTTEfZIZp57SfmqBEh50Sx+uwG1Cj
+        Uymrxb6LBclfXzvk4OdBbf8V6IEh0Ll3oCoSqNq9KfmCDEiCBVf+T53ZwICyM9NX0o+merTf/aAdkBBJ
+        l0xBEpKkxLJgqTPHMy/1P29B2+sF1f8aBEHQuWgKVtxr8J31VdnY3IKj2G2tAB2YwHu7JsYcfzVDwm6z
+        l2ggJhUhKioQMYiKapVYulgrqGTYNq6IGRlY3w88ELqUYH5hEZaX3VU8q14Ip2RzgZQr4E9FA/HbPPAX
+        13B8Xkv8TmlMEEzlgYtew4EBqhXObkwEtjrBaVICt2e9eoAI1J9dZU0E1lpB5K4IIUF5xNg5dKPi5w0J
+        Dp+5RtSfxOuusRIrOZZ+KkjKJUyiXJ/yrMBimSxkDMH2zk888C8UNQcjI+/58lKCAIAm4xdYl+sjOCdd
+        QDs/4GoGTdO6jXT4GIZpLiv+NwTxAIWpbCSZG+3JAAAAAElFTkSuQmCC
 </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
-        F1HEycFB0cVNUHHQEDo5uehgB6WoII26CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
+        F1HEycFB0cVNUHHQEDo5uehgB6WoYIm6CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
         Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
         YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
         VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
         VUAhm1e/gPulfhiBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAYJB/qimolFDbxTs/
         KktZa8bakKtYFgSDwWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
-        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AFLTg9ItGsa4AAAAAElFTkSuQmCC
+        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AFCog8+f2t1HAAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmPrestamoEmpresariales.Designer.vb

@@ -206,6 +206,7 @@ Partial Class frmPrestamoEmpresariales
         'txtMonto
         '
         Me.txtMonto.Location = New System.Drawing.Point(18, 24)
+        Me.txtMonto.MaxLength = 20
         Me.txtMonto.Name = "txtMonto"
         Me.txtMonto.Size = New System.Drawing.Size(150, 20)
         Me.txtMonto.TabIndex = 119
@@ -230,6 +231,7 @@ Partial Class frmPrestamoEmpresariales
         'txtTasa
         '
         Me.txtTasa.Location = New System.Drawing.Point(18, 87)
+        Me.txtTasa.MaxLength = 20
         Me.txtTasa.Name = "txtTasa"
         Me.txtTasa.Size = New System.Drawing.Size(150, 20)
         Me.txtTasa.TabIndex = 176
@@ -246,6 +248,7 @@ Partial Class frmPrestamoEmpresariales
         'txtComisionDesembolso
         '
         Me.txtComisionDesembolso.Location = New System.Drawing.Point(18, 175)
+        Me.txtComisionDesembolso.MaxLength = 20
         Me.txtComisionDesembolso.Name = "txtComisionDesembolso"
         Me.txtComisionDesembolso.Size = New System.Drawing.Size(150, 20)
         Me.txtComisionDesembolso.TabIndex = 177
@@ -262,6 +265,7 @@ Partial Class frmPrestamoEmpresariales
         'txtPlazoDias
         '
         Me.txtPlazoDias.Location = New System.Drawing.Point(18, 196)
+        Me.txtPlazoDias.MaxLength = 5
         Me.txtPlazoDias.Name = "txtPlazoDias"
         Me.txtPlazoDias.ReadOnly = True
         Me.txtPlazoDias.Size = New System.Drawing.Size(150, 20)

FRM/frmPrestamoEmpresariales.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
-        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==
+        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
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        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==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwVnAQwUnpJvW++QMU
+        F1HEycFB0cVNUHHQEDo5uehgB6VVQYi6CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
+        Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
+        YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
+        VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
+        VUAhm1e/gPulfhiBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAYJB/qimolFDbxTs/
+        KktZa8bakKtYFgSDwWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
+        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AEF7g7q6yTNgAAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmPrestamoPersonal.Designer.vb

@@ -92,6 +92,7 @@ Partial Class frmPrestamoPersonal
         'txtTasaInteres
         '
         Me.txtTasaInteres.Location = New System.Drawing.Point(24, 25)
+        Me.txtTasaInteres.MaxLength = 20
         Me.txtTasaInteres.Name = "txtTasaInteres"
         Me.txtTasaInteres.Size = New System.Drawing.Size(150, 20)
         Me.txtTasaInteres.TabIndex = 119
@@ -239,6 +240,7 @@ Partial Class frmPrestamoPersonal
         'txtPeriodo
         '
         Me.txtPeriodo.Location = New System.Drawing.Point(25, 113)
+        Me.txtPeriodo.MaxLength = 5
         Me.txtPeriodo.Name = "txtPeriodo"
         Me.txtPeriodo.Size = New System.Drawing.Size(150, 20)
         Me.txtPeriodo.TabIndex = 127
@@ -432,6 +434,7 @@ Partial Class frmPrestamoPersonal
         'txtMontoPrestamo
         '
         Me.txtMontoPrestamo.Location = New System.Drawing.Point(24, 90)
+        Me.txtMontoPrestamo.MaxLength = 20
         Me.txtMontoPrestamo.Name = "txtMontoPrestamo"
         Me.txtMontoPrestamo.Size = New System.Drawing.Size(150, 20)
         Me.txtMontoPrestamo.TabIndex = 165
@@ -439,6 +442,7 @@ Partial Class frmPrestamoPersonal
         'txtCuotasMensuales
         '
         Me.txtCuotasMensuales.Location = New System.Drawing.Point(24, 69)
+        Me.txtCuotasMensuales.MaxLength = 4
         Me.txtCuotasMensuales.Name = "txtCuotasMensuales"
         Me.txtCuotasMensuales.Size = New System.Drawing.Size(150, 20)
         Me.txtCuotasMensuales.TabIndex = 166
@@ -446,6 +450,7 @@ Partial Class frmPrestamoPersonal
         'txtAñoPrestamo
         '
         Me.txtAñoPrestamo.Location = New System.Drawing.Point(24, 47)
+        Me.txtAñoPrestamo.MaxLength = 3
         Me.txtAñoPrestamo.Name = "txtAñoPrestamo"
         Me.txtAñoPrestamo.Size = New System.Drawing.Size(150, 20)
         Me.txtAñoPrestamo.TabIndex = 167

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
-        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
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIZdhrIWsnRlLVtnJoo6URg6BedR
+        QpATU7GEGW9FVVWhSp3KUhChEKoKR0jAitRHFIR5mBAlKXmAAjY4iUPih1Ll4HuVBBLhKuKXPh0d+9zv
+        2vcSKHlu9kmGn+tOc59700ervTwfeIxftJNY7FNn4WCmKx/90JMMD1dKEcZBeydD1Dglul2UONaCy4B6
+        M5G1WV3bWJD59bFbjrwf1P4MgB4eAp0bAVWRQNWuTSmVZUASLDgLvbMUwi+VNaa/qu9PPNd+vwBtl4R4
+        rmoKkpAkJdYE85YizzzTd16D9rMP1NArEARB5xJZWPQvwxobbLD6/QfsJy+bBejABD7wdHzU/U8zJOwG
+        e4oGklIFEqICcYOEqDZI5irNgnoc9jFFzMvABtfxQPRUgi9zX2Fhwd9g6VsAYlnZXCAVy/hT0UDqsgT8
+        yTkc/G0mdaW0J4hkS8AlzmHXANU6xxcmAnuL4CgjgX9ppXGACNQfnxVMBLZmQfyqAlFBucXYOXqh4udt
+        CfbuuUbUH6ZarrEeGzmauyvIyFVMulbvcq/AavWU84ZgY3MLD/wPRS2C0/mWry0lCAB4ZPwC6/NNg9fj
+        A9o7hasZNE3rdtIdZBimo6Z4aAjiBlFxbBR1GFElAAAAAElFTkSuQmCC
 </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
-        Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
-        YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
-        VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
-        VUAhm1e/gPulfhiBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAYJB/qimolFDbxTs/
-        KktZa8bakKtYFgSDwWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
-        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AEF7g7q6yTNgAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnFq6Sb1v/gDF
+        RRRxcnCo6OImqDhoCJ2cXHTQQQkqCFUXQXBxcPNSkJQkrU0vadPr6/lCE6u2Xj54SDic98n3nUO4SrUy
+        PAzfL3QyGhjfypPJZPRQKFQqFouohWmaEARhm+2tKfFROJ1OwzAMh0QigXg8DkVRLEkkEoEoit8kLoaP
+        NmSzWeRyOetJpFIp6LoOVVUtAesS9JFgMGhLrHIEFLYhAQWSySQ0Tfs0DkGZSvZDUCgUnA30TnPbo0Sj
+        UasTWZbrC75SLaFO6DxisdjfBYQtoXHoTEhE638WEPl83joXkhC09i8BdfFyuIOb6V5cDDfiarIDgs8l
+        /iigkE34SMB9oB9ZaQvlhzMY+4sI+ftK5wPuhV8F1P71VDcyLIydcWCpCVjrgrYxAGmQf6orqJZQ2+W7
+        I1RXfLUFq0PusiOQJKlcS0JcTrQjvTsDsJAZ4PDGCM/zOBvlX0lA5WXXY9T7mZ4PNnE71wN5qQvqciMe
+        Z1248LtLpyMNK5U818bwMuhqarI71iweD/EytX3i55W9fn6d4zjuHT9Qg7cRtLGkAAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmReporto.Designer.vb

@@ -229,6 +229,7 @@ Partial Class frmReporto
         'txtComisionCasa
         '
         Me.txtComisionCasa.Location = New System.Drawing.Point(474, 42)
+        Me.txtComisionCasa.MaxLength = 20
         Me.txtComisionCasa.Name = "txtComisionCasa"
         Me.txtComisionCasa.Size = New System.Drawing.Size(150, 20)
         Me.txtComisionCasa.TabIndex = 158
@@ -256,6 +257,7 @@ Partial Class frmReporto
         'txtComisionBolsa
         '
         Me.txtComisionBolsa.Location = New System.Drawing.Point(474, 63)
+        Me.txtComisionBolsa.MaxLength = 20
         Me.txtComisionBolsa.Name = "txtComisionBolsa"
         Me.txtComisionBolsa.Size = New System.Drawing.Size(150, 20)
         Me.txtComisionBolsa.TabIndex = 163
@@ -396,6 +398,7 @@ Partial Class frmReporto
         'txtDias
         '
         Me.txtDias.Location = New System.Drawing.Point(166, 86)
+        Me.txtDias.MaxLength = 5
         Me.txtDias.Name = "txtDias"
         Me.txtDias.Size = New System.Drawing.Size(108, 20)
         Me.txtDias.TabIndex = 164

FRM/frmReporto.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
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
-        +ADMyGjc0HVnp2maxph0VbuwRrTFpumQJrZbEx8E4/gYkQCWhwac0QGGwjyC4Tj3BqgQpyH9ky8nZ+bc
-        787cS6DkufnHaX7RkuLeW1Mn61ae9z/EL9pJNLrwqHA015mPvO1JhIYqpTAzQntmgtQEJbqdlOhqwWlA
-        jU1l7DbnJhakt99Z5PCbfm33OeihQdC5l6AqEqjaH1NKZRmQBAsugrNdhdAL5SPztKofTvVqO89A2ych
-        lquagiQkSYk1waeuIs880feGQdvqAzU4AIIg6Fw8Ayu+z/CdDTRY//oNDhNXzQJ0YALv754Yd99ohoTd
-        YM/RQEKqQFxUIGYQF9UGiVylWVDPiMOliHkZ2MAPPBA5l+DD4hIsL/sarK75IZqRzQVSsYw/FQ0kr0rA
-        /87C0VkzyWulPUE4UwIunoV9A1TrnF6aCBwtgpO0BL7VL40DRKD+9KJgIrA3C2LXFYgIyl+MnSOXKn7e
-        luDgnmtE/XGy5RrrsZPjubuCtFzFpGr1LvcKbLbJct4QbPz8hQf+haIWYXR0mq8tJQgAeGD8Auv1vgbP
-        pBdozytczaBpWneQ7gDDMB01xf+GIG4BECFsADOX2rAAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFNTNpgGMe7HebVycWr13nb2dO27KTusBMr
+        6ERIoRoveF5vW5ZlWUw8yWUa0Q3NYskS5tVEN4KxflQkwMaHBm21QBH6EQyPfd8ACrGG7J/88uRpn/f3
+        tu9LoBS4L91Z3teT4Wb7M4cr/TwfeIRfdJJ4fKaruP/hcSH2qS8VeVUtR5kR2jMVplyU6HRQ4ngbDgPq
+        7UTOZnVsYEF263OPHP04qP15AXpkGHTuDaiKBKp2aUq5IgOSYMFJ+L2lGHmp+JhnNX1v4qn2+zloOyQk
+        8jVTkIQkKbEumLeUeOaJvv0atM0BUMNDIAiCziVzsOj/BmtssMnK6g/YS523CtCBCXyg1zXmvNIMCRti
+        j9FASqpCUlQgYZAU1SapfLVV0MiIfVwRCzKwwZ94IHYswZzvKyws+JssLQcgnpPNBVKpgj8VDaTPy8D/
+        O4X9v62kL5TOBNFcGbjkKewYoNrg6MxEYG8THGYl8C99bx4gAvVHJ0UTga1VkLioQkxQbjB2jp2p+HlH
+        gt07rhH1B+m2a2zERo7lbwuycg2Tqdfb3CmwWt2VgiEI/VrHA/ehqCUYHZ3k60sJAgAeGL/Aer3vwOP2
+        Au2ZxtUMmqZ1O+kMMgzzsK743xDENQzda/9Tq2JhAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOCndSut18wco
-        LqKIk4ODRZdugoqDhtDJobjooINSrFCougiCi4ObN5CU9GLTS5reX88Xmli11frBQ8LhvE++7xzCVauD
+        LqKIk4ODRZdugoqDhtBJKLjooINSrFCougiCi4ObN5CU9GLTS5reX88Xmli11frBQ8LhvE++7xzCVauD
         McSw/0EPw8r4UUPZbFYJhULlUqmEeuRyOQiCsMv21pXYKZzJZKCqqkkymUQikYAsy7okHA5DFMUfEgvD
         Ths0TUM+n9efRDqdhqIoiEQiuoB1CfqI1+s1JHqZAgobkIACqVQK0Wj0yzgEZarZT0GxWDQ30DvNbYwS
         i8X0TiRJaiz4Tq2EOqHziMfjzQsIQ0Lj0JmQiNabFhCFQkE/F5IQtPYvAXXxcryHm7kBBMdacDXTDcFu
         EX8VUMjg9UTA/aoDmn8HlYcA1MMVhJyD5QuXbflPAbV/PduHLAtjbwpwtwIbvYhuueAf4Z8aCmol1Hbl
         7gS1lfC0wzNqq5gCn89XqSchLqe7kNmfB1got8rhnfG6xCMwwb+RgGqYXY/a6Gd6PtrG7WI/JHcvImst
-        eFywIOi0lc/HrevVPNfJGGbQ1dRlf7JNPB3lJWr7zMnLBw5+k+M47gMT9IN7cfyavwAAAABJRU5ErkJg
+        eFywIOi0lc/HrevVPNfJGGbQ1dRlf7JNPB3lJWr7zMnLBw5+k+M47gMRyYN4MoJ/oQAAAABJRU5ErkJg
         gg==
 </value>
   </data>

FRM/frmResultadoTitularizacion.Designer.vb

@@ -239,6 +239,7 @@ Partial Class frmResultadoTitularizacion
         'txtTasaEmision
         '
         Me.txtTasaEmision.Location = New System.Drawing.Point(6, 41)
+        Me.txtTasaEmision.MaxLength = 20
         Me.txtTasaEmision.Name = "txtTasaEmision"
         Me.txtTasaEmision.Size = New System.Drawing.Size(150, 20)
         Me.txtTasaEmision.TabIndex = 143
@@ -246,6 +247,7 @@ Partial Class frmResultadoTitularizacion
         'txtMontoCompraEmision
         '
         Me.txtMontoCompraEmision.Location = New System.Drawing.Point(6, 93)
+        Me.txtMontoCompraEmision.MaxLength = 20
         Me.txtMontoCompraEmision.Name = "txtMontoCompraEmision"
         Me.txtMontoCompraEmision.Size = New System.Drawing.Size(150, 20)
         Me.txtMontoCompraEmision.TabIndex = 148
@@ -253,6 +255,7 @@ Partial Class frmResultadoTitularizacion
         'txtMontoCompraPrimario
         '
         Me.txtMontoCompraPrimario.Location = New System.Drawing.Point(6, 66)
+        Me.txtMontoCompraPrimario.MaxLength = 20
         Me.txtMontoCompraPrimario.Name = "txtMontoCompraPrimario"
         Me.txtMontoCompraPrimario.Size = New System.Drawing.Size(150, 20)
         Me.txtMontoCompraPrimario.TabIndex = 150

FRM/frmResultadoTitularizacion.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
-        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=
+        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
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG0SURBVDhPlZO5SgNRFIYnmfgANmLhChYiWCWkk2hcOh9A
-        sRFFrCwsErSxEUHFwgxDKisbLUyhiAoBlwQEwcbCziUgE7KZdbInv/cMmTGaicuBjxku9//mnHsZrlYd
-        DDPD+gs9DCOjoczZbDbh8/kq5XIZeuTzeQiCsMv26kqsFM5kMpBlWSOZTCIejyMUCimSYDAIURQbJAaG
-        lTbkcjkUCgXlSaTTaSQSCYTDYUXAugR9xO12qxKlNAGFVUhAgVQqhUgk8mUcgjK17KegVCppG+id5lZH
-        iUajSieSJDUXfKdeQp3QecRisb8LCFVC49CZkIjW/ywgisWici4kIWjtXwLq4vXIhdvZAXhHW3A93Q3B
-        ahB/FFBIJeAR8OAYQu50B9XHc8gHy7i0DVYuhk1Lvwqo/ZuZPmRZGK5JwNkKbPQisjWM0xH+uamgXkJt
-        V+89qK/4WjvW7aaqJvD7/VU9CXE11YXM3hzAQnkHh3dGYJHH+Tj/RgIqC7semUl0f6aXw23cLfRDcvYi
-        vNKCp3kDvDZT5WzMuFrLc50MC4OuRpe9iTbx2M5L1PaJjQ/tD/GbHMdxH8IQhBX1O8OyAAAAAElFTkSu
-        QmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG1SURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFm6ldZ62fwB
+        ioso4uTg0KKLgyCoONgQOjm56GAHpVhBUNtBEFwc3LwUJKU3e0t6b1/PF5paNfXywUPC4bxPvu8cwtWr
+        izHCsPxCH8PI+FYjuVwuFQgEqpVKBXoUCgUIgrDH9upKLBSWZRmKojRIp9NIJpOIRCKqJBwOQxTFbxID
+        w0Ib8vk8isWi+iSy2SxSqRSi0agqYF2CPuLxeDSJWg0BhTVIQIFMJoNYLPZpHIIy9eyHoFwuNzbQO82t
+        jRKPx9VOJElqLfhKs4Q6ofNIJBJ/FxCahMahMyERrf9ZQJRKJfVcSELQ2r8E1MXLsRs3c0O4GGvD9Uwv
+        BItB/FFAIY2QV8C904q8bxe1Bz+UwxVc2oar53bT8q8Caj8wO4AcC8M9Bbjagc1+xLbt8I3yTy0FzRJq
+        u3bnRXMl1zux4TDVGoJgMFjTkxBX0z2Q9+cBFio4ObwxQks8/BP8KwmozOx6FCbR/Zmej3ZwuzgIydWP
+        6GobHhcMuLCZqmfjxrV6nutmmBl0NbrsT3aIJw5eorZPbXzkwMpvcRzHvQOn44QHuJ9J8wAAAABJRU5E
+        rkJggg==
 </value>
   </data>
   <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

FRM/frmSeleccionPoolTitulos.Designer.vb

@@ -365,6 +365,7 @@ Partial Class frmSeleccionPoolTitulos
         'txtMontoUsar
         '
         Me.txtMontoUsar.Location = New System.Drawing.Point(515, 428)
+        Me.txtMontoUsar.MaxLength = 20
         Me.txtMontoUsar.Name = "txtMontoUsar"
         Me.txtMontoUsar.Size = New System.Drawing.Size(121, 20)
         Me.txtMontoUsar.TabIndex = 94

Inversiones.sln

@@ -11,6 +11,10 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "InvSAP", "..\InvSAP\InvSAP.
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "InvIBKR", "..\InvIBKR\InvIBKR.vbproj", "{DF318701-F334-40DD-89BD-7D1004ABDFAA}"
 EndProject
+Project("{54435603-DBB4-11D2-8724-00A0C9A8B90C}") = "InversionesVersion1.0Produccion", "..\Ambiente Prueba y Produccion\InversionesVersion1.0Produccion\InversionesVersion1.0Produccion.vdproj", "{0FCD394C-9CE6-40A9-A4D6-8EBED0C48CA7}"
+EndProject
+Project("{54435603-DBB4-11D2-8724-00A0C9A8B90C}") = "InversionesVersion1.0Test", "..\Ambiente Prueba y Produccion\InversionesVersion1.0Test\InversionesVersion1.0Test.vdproj", "{E17E67F8-1B0B-4BB1-A254-DAFE2E423DE2}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -51,6 +55,14 @@ Global
 		{DF318701-F334-40DD-89BD-7D1004ABDFAA}.Release|Any CPU.Build.0 = Release|Any CPU
 		{DF318701-F334-40DD-89BD-7D1004ABDFAA}.Release|x86.ActiveCfg = Release|Any CPU
 		{DF318701-F334-40DD-89BD-7D1004ABDFAA}.Release|x86.Build.0 = Release|Any CPU
+		{0FCD394C-9CE6-40A9-A4D6-8EBED0C48CA7}.Debug|Any CPU.ActiveCfg = Debug
+		{0FCD394C-9CE6-40A9-A4D6-8EBED0C48CA7}.Debug|x86.ActiveCfg = Debug
+		{0FCD394C-9CE6-40A9-A4D6-8EBED0C48CA7}.Release|Any CPU.ActiveCfg = Release
+		{0FCD394C-9CE6-40A9-A4D6-8EBED0C48CA7}.Release|x86.ActiveCfg = Release
+		{E17E67F8-1B0B-4BB1-A254-DAFE2E423DE2}.Debug|Any CPU.ActiveCfg = Debug
+		{E17E67F8-1B0B-4BB1-A254-DAFE2E423DE2}.Debug|x86.ActiveCfg = Debug
+		{E17E67F8-1B0B-4BB1-A254-DAFE2E423DE2}.Release|Any CPU.ActiveCfg = Release
+		{E17E67F8-1B0B-4BB1-A254-DAFE2E423DE2}.Release|x86.ActiveCfg = Release
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

Inversiones.vbproj

@@ -990,10 +990,18 @@
     <None Include="My Project\app.manifest">
       <SubType>Designer</SubType>
     </None>
-    <None Include="RPT\PrintPropuestaDeInversion.rpt" />
-    <None Include="RPT\PrintPropuestaDeVenta.rpt" />
-    <None Include="RPT\rptRequisicionDePago.rpt" />
-    <None Include="RPT\Thumbs.db" />
+    <EmbeddedResource Include="RPT\PrintPropuestaDeInversion.rpt">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </EmbeddedResource>
+    <EmbeddedResource Include="RPT\PrintPropuestaDeVenta.rpt">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </EmbeddedResource>
+    <EmbeddedResource Include="RPT\rptRequisicionDePago.rpt">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </EmbeddedResource>
+    <EmbeddedResource Include="RPT\Thumbs.db">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </EmbeddedResource>
     <Resource Include="FRM\jsconfig1.json">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Resource>

My Project/Settings.Designer.vb

@@ -56,7 +56,7 @@ Namespace My
         
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("C:\Users\ahernandez\Desktop\Inv2\RPT\")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("RPT\")>  _
         Public ReadOnly Property RutaReportes() As String
             Get
                 Return CType(Me("RutaReportes"),String)

My Project/Settings.settings

@@ -3,7 +3,7 @@
   <Profiles />
   <Settings>
     <Setting Name="RutaReportes" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">C:\Users\ahernandez\Desktop\Inv2\RPT\</Value>
+      <Value Profile="(Default)">RPT\</Value>
     </Setting>
     <Setting Name="VERS_SQL" Type="System.String" Scope="Application">
       <Value Profile="(Default)" />

frmINV.Designer.vb

@@ -110,10 +110,6 @@ Partial Class frmINV
         Me.tabDetalleInstrumentos = New System.Windows.Forms.TabControl()
         Me.tabNotas = New System.Windows.Forms.TabPage()
         Me.txtNotas = New System.Windows.Forms.TextBox()
-        Me.tabAnexos = New System.Windows.Forms.TabPage()
-        Me.btnAdjuntar = New System.Windows.Forms.Button()
-        Me.btnVerAdjunto = New System.Windows.Forms.Button()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.cboEstadoProceso = New System.Windows.Forms.ComboBox()
         Me.cboOrigenDeFondos = New System.Windows.Forms.ComboBox()
@@ -211,8 +207,6 @@ Partial Class frmINV
         Me.TbIngresarModificar.SuspendLayout()
         Me.tabDetalleInstrumentos.SuspendLayout()
         Me.tabNotas.SuspendLayout()
-        Me.tabAnexos.SuspendLayout()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.TabCampos.SuspendLayout()
@@ -405,7 +399,7 @@ Partial Class frmINV
         Me.navRecorrer.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.navRecorrer.Name = "navRecorrer"
         Me.navRecorrer.Size = New System.Drawing.Size(23, 22)
-        Me.navRecorrer.Text = "ToolStripButton1"
+        Me.navRecorrer.Text = "Recorrer"
         '
         'navEliminarRegistro
         '
@@ -1067,7 +1061,6 @@ Partial Class frmINV
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.tabDetalleInstrumentos.Controls.Add(Me.tabNotas)
-        Me.tabDetalleInstrumentos.Controls.Add(Me.tabAnexos)
         Me.tabDetalleInstrumentos.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.tabDetalleInstrumentos.Location = New System.Drawing.Point(6, 368)
         Me.tabDetalleInstrumentos.Name = "tabDetalleInstrumentos"
@@ -1094,55 +1087,9 @@ Partial Class frmINV
         Me.txtNotas.Location = New System.Drawing.Point(-7, 0)
         Me.txtNotas.Multiline = True
         Me.txtNotas.Name = "txtNotas"
-        Me.txtNotas.Size = New System.Drawing.Size(1020, 158)
+        Me.txtNotas.Size = New System.Drawing.Size(1020, 114)
         Me.txtNotas.TabIndex = 142
         '
-        'tabAnexos
-        '
-        Me.tabAnexos.Controls.Add(Me.btnAdjuntar)
-        Me.tabAnexos.Controls.Add(Me.btnVerAdjunto)
-        Me.tabAnexos.Controls.Add(Me.DataGridView1)
-        Me.tabAnexos.Location = New System.Drawing.Point(4, 27)
-        Me.tabAnexos.Name = "tabAnexos"
-        Me.tabAnexos.Size = New System.Drawing.Size(1009, 119)
-        Me.tabAnexos.TabIndex = 5
-        Me.tabAnexos.Text = "Anexos"
-        Me.tabAnexos.UseVisualStyleBackColor = True
-        '
-        'btnAdjuntar
-        '
-        Me.btnAdjuntar.BackColor = System.Drawing.Color.White
-        Me.btnAdjuntar.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnAdjuntar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAdjuntar.ForeColor = System.Drawing.Color.Maroon
-        Me.btnAdjuntar.Location = New System.Drawing.Point(910, 64)
-        Me.btnAdjuntar.Name = "btnAdjuntar"
-        Me.btnAdjuntar.Size = New System.Drawing.Size(75, 31)
-        Me.btnAdjuntar.TabIndex = 143
-        Me.btnAdjuntar.Text = "Adjuntar"
-        Me.btnAdjuntar.UseVisualStyleBackColor = False
-        '
-        'btnVerAdjunto
-        '
-        Me.btnVerAdjunto.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnVerAdjunto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnVerAdjunto.ForeColor = System.Drawing.Color.Maroon
-        Me.btnVerAdjunto.Location = New System.Drawing.Point(910, 16)
-        Me.btnVerAdjunto.Name = "btnVerAdjunto"
-        Me.btnVerAdjunto.Size = New System.Drawing.Size(75, 33)
-        Me.btnVerAdjunto.TabIndex = 142
-        Me.btnVerAdjunto.Text = "Ver"
-        Me.btnVerAdjunto.UseVisualStyleBackColor = True
-        '
-        'DataGridView1
-        '
-        Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(0, 0)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.Size = New System.Drawing.Size(868, 238)
-        Me.DataGridView1.TabIndex = 0
-        '
         'Panel2
         '
         Me.Panel2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -1541,6 +1488,7 @@ Partial Class frmINV
         '
         Me.txtPlazoNum.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtPlazoNum.Location = New System.Drawing.Point(607, 59)
+        Me.txtPlazoNum.MaxLength = 5
         Me.txtPlazoNum.Name = "txtPlazoNum"
         Me.txtPlazoNum.Size = New System.Drawing.Size(52, 23)
         Me.txtPlazoNum.TabIndex = 138
@@ -1572,6 +1520,7 @@ Partial Class frmINV
         '
         Me.txtCodigoCompra.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtCodigoCompra.Location = New System.Drawing.Point(482, 21)
+        Me.txtCodigoCompra.MaxLength = 100
         Me.txtCodigoCompra.Name = "txtCodigoCompra"
         Me.txtCodigoCompra.ReadOnly = True
         Me.txtCodigoCompra.Size = New System.Drawing.Size(177, 23)
@@ -1593,6 +1542,7 @@ Partial Class frmINV
         '
         Me.txtCodigoInversion.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtCodigoInversion.Location = New System.Drawing.Point(133, 61)
+        Me.txtCodigoInversion.MaxLength = 100
         Me.txtCodigoInversion.Name = "txtCodigoInversion"
         Me.txtCodigoInversion.Size = New System.Drawing.Size(177, 23)
         Me.txtCodigoInversion.TabIndex = 78
@@ -1632,6 +1582,7 @@ Partial Class frmINV
         '
         Me.txtCodigoManual.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtCodigoManual.Location = New System.Drawing.Point(133, 21)
+        Me.txtCodigoManual.MaxLength = 100
         Me.txtCodigoManual.Name = "txtCodigoManual"
         Me.txtCodigoManual.Size = New System.Drawing.Size(177, 23)
         Me.txtCodigoManual.TabIndex = 130
@@ -1652,6 +1603,7 @@ Partial Class frmINV
         '
         Me.txtNombreManual.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtNombreManual.Location = New System.Drawing.Point(809, 18)
+        Me.txtNombreManual.MaxLength = 100
         Me.txtNombreManual.Name = "txtNombreManual"
         Me.txtNombreManual.Size = New System.Drawing.Size(177, 23)
         Me.txtNombreManual.TabIndex = 128
@@ -1864,8 +1816,6 @@ Partial Class frmINV
         Me.tabDetalleInstrumentos.ResumeLayout(False)
         Me.tabNotas.ResumeLayout(False)
         Me.tabNotas.PerformLayout()
-        Me.tabAnexos.ResumeLayout(False)
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)
@@ -2000,10 +1950,6 @@ Partial Class frmINV
     Friend WithEvents tabDetalleInstrumentos As TabControl
     Friend WithEvents tabNotas As TabPage
     Friend WithEvents txtNotas As TextBox
-    Friend WithEvents tabAnexos As TabPage
-    Friend WithEvents btnAdjuntar As Button
-    Friend WithEvents btnVerAdjunto As Button
-    Friend WithEvents DataGridView1 As DataGridView
     Friend WithEvents GroupBox2 As GroupBox
     Friend WithEvents Label5 As Label
     Friend WithEvents txtPlazoNum As TextBox

frmINV.vb

@@ -168,6 +168,7 @@
         frmProgreso.PgbProgreso.Value = 100
         frmProgreso.Visible = False
         ConfigurarReportoVenta()
+        btnRequisicionDePago.Visible = False
     End Sub
 
 
@@ -1761,7 +1762,12 @@
         If Me.TipoOperacion = "B" Then
             Me.TipoOperacion = "C"
             vBindingSource.MoveLast()
-            CargarRegistro(vBindingSource.Current("DocId").ToString)
+            Try
+                CargarRegistro(vBindingSource.Current("DocId").ToString)
+            Catch ex As Exception
+
+            End Try
+
         ElseIf Me.TipoOperacion = "C" Then
             vBindingSource.MoveLast()
         End If
@@ -3724,5 +3730,13 @@
     Private Sub Button4_Click(sender As Object, e As EventArgs)
 
     End Sub
+
+    Private Sub btnVerAdjunto_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub btnAdjuntar_Click(sender As Object, e As EventArgs)
+
+    End Sub
 End Class
 

frmImprimir.vb

@@ -16,7 +16,13 @@ Public Class frmImprimir
 
     End Sub
 
+    Sub New(ByRef NombreRPT As String, ByRef IdDocumento As String, ByRef VistaPrevia As Boolean)
 
+        Me.New
+        Me.NombreRPT = NombreRPT
+        Me.IdDocumento = IdDocumento
+        CargarRPT()
+    End Sub
 
 
     Private Sub frmImpresion_Load(sender As Object, e As EventArgs) Handles MyBase.Load

frmPIN.designer.vb

@@ -358,6 +358,7 @@ Partial Class frmPIN
         Me.txtCodigoInversion.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "CodInv", True))
         Me.txtCodigoInversion.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtCodigoInversion.Location = New System.Drawing.Point(529, 23)
+        Me.txtCodigoInversion.MaxLength = 100
         Me.txtCodigoInversion.Name = "txtCodigoInversion"
         Me.txtCodigoInversion.ReadOnly = True
         Me.txtCodigoInversion.Size = New System.Drawing.Size(182, 23)
@@ -379,6 +380,7 @@ Partial Class frmPIN
         Me.txtAsunto.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "Asunto", True))
         Me.txtAsunto.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtAsunto.Location = New System.Drawing.Point(168, 24)
+        Me.txtAsunto.MaxLength = 100
         Me.txtAsunto.Name = "txtAsunto"
         Me.txtAsunto.Size = New System.Drawing.Size(182, 23)
         Me.txtAsunto.TabIndex = 2
@@ -401,6 +403,7 @@ Partial Class frmPIN
         Me.txtComentarios.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "Coment", True))
         Me.txtComentarios.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtComentarios.Location = New System.Drawing.Point(25, 455)
+        Me.txtComentarios.MaxLength = 100
         Me.txtComentarios.Multiline = True
         Me.txtComentarios.Name = "txtComentarios"
         Me.txtComentarios.Size = New System.Drawing.Size(327, 82)
@@ -425,6 +428,7 @@ Partial Class frmPIN
         Me.txtJustificacion.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "Just", True))
         Me.txtJustificacion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtJustificacion.Location = New System.Drawing.Point(392, 455)
+        Me.txtJustificacion.MaxLength = 100
         Me.txtJustificacion.Multiline = True
         Me.txtJustificacion.Name = "txtJustificacion"
         Me.txtJustificacion.Size = New System.Drawing.Size(322, 82)
@@ -446,6 +450,7 @@ Partial Class frmPIN
         Me.txtMontoInversion.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "MontoInv", True))
         Me.txtMontoInversion.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtMontoInversion.Location = New System.Drawing.Point(168, 61)
+        Me.txtMontoInversion.MaxLength = 20
         Me.txtMontoInversion.Name = "txtMontoInversion"
         Me.txtMontoInversion.Size = New System.Drawing.Size(182, 23)
         Me.txtMontoInversion.TabIndex = 4
@@ -466,6 +471,7 @@ Partial Class frmPIN
         Me.txtPrecio.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "Precio", True))
         Me.txtPrecio.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtPrecio.Location = New System.Drawing.Point(168, 129)
+        Me.txtPrecio.MaxLength = 20
         Me.txtPrecio.Name = "txtPrecio"
         Me.txtPrecio.Size = New System.Drawing.Size(181, 23)
         Me.txtPrecio.TabIndex = 5
@@ -529,6 +535,7 @@ Partial Class frmPIN
         Me.txtIngresos.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "Ingresos", True))
         Me.txtIngresos.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtIngresos.Location = New System.Drawing.Point(168, 94)
+        Me.txtIngresos.MaxLength = 20
         Me.txtIngresos.Name = "txtIngresos"
         Me.txtIngresos.Size = New System.Drawing.Size(181, 23)
         Me.txtIngresos.TabIndex = 9
@@ -549,6 +556,7 @@ Partial Class frmPIN
         Me.txtPlazoNumero.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "Plazo", True))
         Me.txtPlazoNumero.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtPlazoNumero.Location = New System.Drawing.Point(1017, 23)
+        Me.txtPlazoNumero.MaxLength = 5
         Me.txtPlazoNumero.Name = "txtPlazoNumero"
         Me.txtPlazoNumero.Size = New System.Drawing.Size(56, 23)
         Me.txtPlazoNumero.TabIndex = 7
@@ -660,6 +668,7 @@ Partial Class frmPIN
         Me.txtNombre.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "NombreManual", True))
         Me.txtNombre.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtNombre.Location = New System.Drawing.Point(529, 61)
+        Me.txtNombre.MaxLength = 100
         Me.txtNombre.Name = "txtNombre"
         Me.txtNombre.Size = New System.Drawing.Size(182, 23)
         Me.txtNombre.TabIndex = 162
@@ -908,6 +917,7 @@ Partial Class frmPIN
         Me.txtRendimiento.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "Rendimiento", True))
         Me.txtRendimiento.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.txtRendimiento.Location = New System.Drawing.Point(529, 95)
+        Me.txtRendimiento.MaxLength = 20
         Me.txtRendimiento.Name = "txtRendimiento"
         Me.txtRendimiento.Size = New System.Drawing.Size(182, 23)
         Me.txtRendimiento.TabIndex = 176
@@ -1795,7 +1805,7 @@ Partial Class frmPIN
         Me.TbBuscar.Location = New System.Drawing.Point(4, 22)
         Me.TbBuscar.Name = "TbBuscar"
         Me.TbBuscar.Padding = New System.Windows.Forms.Padding(3)
-        Me.TbBuscar.Size = New System.Drawing.Size(1107, 616)
+        Me.TbBuscar.Size = New System.Drawing.Size(1107, 626)
         Me.TbBuscar.TabIndex = 1
         Me.TbBuscar.Text = "Buscar"
         Me.TbBuscar.UseVisualStyleBackColor = True

frmPIN.resx

@@ -133,12 +133,6 @@
   <metadata name="PIN0BindingSource4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>202, 95</value>
   </metadata>
-  <metadata name="PIN0BindingSource4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>202, 95</value>
-  </metadata>
-  <metadata name="InversionesDEVDataSet5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 95</value>
-  </metadata>
   <metadata name="InversionesDEVDataSet5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 95</value>
   </metadata>
@@ -191,15 +185,15 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
-        +ADMyGjc0HXHlU3TGNOkq7qxRrTFpumQJrZbEx8E4/gYkQCWhwac0QGGwjyC4Tj3BqgQpyH9ky8nZ+bc
-        787cS6DkuYXHaX7RkuI+WFMn61ae9z/EL9pJNPr+UeHoTWc+8q4nERqqlMLMCO2ZCVITlOh2UqKrBacB
-        NTaVsducm1iQ3p63yOG3/druc9BDg6BzL0FVJFC1P6aUyjIgCRZcBOe6CqEXyizztKofTvVqO89A2ych
-        lquagiQkSYk1waeuIs880feGQdvqAzU4AIIg6Fw8Ayu+z/CdDTRY//oNDhNXzQJ0YALv754Yd99ohoTd
-        YM/RQEKqQFxUIGYQF9UGiVylWVDPiMOliHkZ2MAPPBA5l+Dj4hIsL/sarK75IZqRzQVSsYw/FQ0kr0rA
-        /87C0VkzyWulPUE4UwIunoV9A1TrnF6aCBwtgpO0BL7VL40DRKD+9KJgIrA3C2LXFYgIyl+MnSOXKn7e
-        luDgnmtE/XGy5RrrsZPjubuCtFzFpGr1LvcKbLbJct4QbPz8hQf+haIWYXR0mq8tJQgAeGD8Auv1vgbP
-        pBdozytczaBpWneQ7gDDMB01xf+GIG4BtKJr5IW+zUQAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIZNh7K2sLCywta5E0WdeAxMwQmP
+        EGRiEEuY8UaFqgpVYoKlRU2AUFV1hARdK/GIgjAPE6IkNA9QwAYncZr4oaAcfK+SlES4ivilT0fHPve7
+        9r0ESoZbeJXkl1sS3GJn4myjk+e9L/GLRhIOf27Onnx4nQl9bI8F+ov5IDNEO6f91DglOuyUOFaH3YAa
+        mUxZLfbfWJDc/dQiB+d7tP1u0AN9oHODoCoSqNpfU/IFGZAEC678c63ZwHuFYbpK+vHkG23vHWiHJETS
+        JVOQhCQpsSz42prjmQ79YAC0nbeg+ntBEASdi6bgm3sNfrK+Khvff8Bx7LZWgA5M4L1t46OOe82QsFvs
+        JRqISUWIigpEDKKiWiWWLtYKKhmyjSliRgbWt4kHQpcSLC1/gZUVdxXPqhfCKdlcIOUK+FPRQPw2D/yf
+        azi5qCV+pzQmCKbywEWv4dAA1QrnNyYCW53gLCmB27NePUAE6s+vsiYCa60gcleEkKD8w9g5dKPi5w0J
+        jp64RtSfxuuusRIrOZp+LEjKJUyiXB/zpMBimShkDMHW9i888D8UNQfDw1N8eSlBAECT8QusyzULzgkX
+        0M4ZXM2gaVq3kQ4fwzAvyornhiAeALFea+PFGQc7AAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navModificar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -220,15 +214,15 @@
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S0JhGMePHv0ALdHQTWiIoElxE80uWx+g
-        aIkimhoajFqaDCoa8nBwcmqpIYdCKgisliBoaWjrIsQRb3k93vXf+xw8ZqlpD/w4h5f3/zvP874crlb9
-        DCPD3IFhhpbRVMZsNpvw+/2VcrmMVuTzeQiCcMj2tpSYKZzJZCDLcp1kMol4PI5QKKRIgsEgRFFskmgY
-        ZtqQy+VQKBSUJ5FOp5FIJBAOhxUB6xL0EbfbrUqUqgsorEICCqRSKUQikR/jEJSpZb8FpVKpvoHeaW51
-        lGg0qnQiSVJ7wW8aJdQJnUcsFuteQKgSGofOhES03rWAKBaLyrmQhKC1fwmoi/dTF+4Xx3A9qcft/BAE
-        s0b8U0AhlYBXwJPDgpzvANXnS8jH6/BbxytXNt1aRwG1f7cwgiwLwzULbPQAOwZE9mzwTfCvbQWNEmq7
-        +uhFY8W3+7Bt11XrAqfTWW0lIW7mBpHxLAEslHdw+GQEVnlcTvMfJKAyseuR2/1Mbyf7eFgZhbRhQHhT
-        j5dlDa6tusrFlHarlucGGCYGXU1LPDO94pmdl6jtcysfOrLwuxzHcV/XMYMnvM3l1gAAAABJRU5ErkJg
-        gg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZM7S0JhGMePHv0ALdHQTWiIoElxE80uWx+g
+        aIkimhoajFoCh6CiIQ8HJ6eWGnIopILAagmCloa2LkIc8ZbX413/vc/BY5aa9sCPc3h5/7/zPO/L4WrV
+        zzAyzB0YZmgZTWXMZrMJv99fKZfLaEU+n4cgCIdsb0uJmcKZTAayLNdJJpOIx+MIhUKKJBgMQhTFJomG
+        YaYNuVwOhUJBeRLpdBqJRALhcFgRsC5BH3G73apEqbqAwiokoEAqlUIkEvkxDkGZWvZbUCqV6hvoneZW
+        R4lGo0onkiS1F/ymUUKd0HnEYrHuBYQqoXHoTEhE610LiGKxqJwLSQha+5eAung/deF+cQzXk3rczg9B
+        MGvEPwUUUgl4BTw5LMj5DlB9voR8vA6/dbxyZdOtdRRQ+3cLI8iyMFyzwEYPsGNAZM8G3wT/2lbQKKG2
+        q49eNFZ8uw/bdl21LnA6ndVWEuJmbhAZzxLAQnkHh09GYJXH5TT/QQIqE7seud3P9Hayj4eVUUgbBoQ3
+        9XhZ1uDaqqtcTGm3anlugGFi0NW0xDPTK57ZeYnaPrfyoSMLv8txHPcF0LCDHn913joAAAAASUVORK5C
+        YII=
 </value>
   </data>
   <data name="navEliminarRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

frmPIN.vb

@@ -2201,7 +2201,7 @@ Public Class frmPIN
         Dim ProTipoTransaccionCompraVenta As String = cboTipoOperacion.SelectedValue.ToString
         Dim ProNueva As String = TipoTransaccion
         Dim CodigoExiste As String = txtCodigoInversion.Text.ToString
-        Dim CodigoInstrumentoExiste As String = cboInstrumentosFinancieros.SelectedValue.ToString
+        Dim CodigoInstrumentoExiste As String = Operaciones.ConvertirCadena(cboInstrumentosFinancieros.SelectedValue)
         ''################################################################
         Variables.TipoOperacionCMVTA = cboTipoOperacion.SelectedValue
         Variables.InvocadorProInv = "frmPIN"
@@ -2987,6 +2987,8 @@ Public Class frmPIN
         LimpiarControles()
         HabilitarControles()
         TipoTransaccion = "N"
+        cboEmpresas.Enabled = True
+        cboInstrumentosFinancieros.Enabled = True
     End Sub
 
 
@@ -3070,7 +3072,8 @@ Public Class frmPIN
 
 
         End If
-
+        cboEmpresas.Enabled = False
+        cboInstrumentosFinancieros.Enabled = False
 
     End Sub
 
@@ -3084,7 +3087,7 @@ Public Class frmPIN
         If ExisteInstrumento Then
             UsuarioPrivilegio(TipoTransaccion, sender)
         Else
-            MsgBox("El Detalle de Instrumento no a sido ingresado o el monto es 0")
+            MsgBox("El detalle del instrumento no ha sido ingresado o el monto de la inversión es 0")
             If chkUsuario.Checked Then
                 chkUsuario.Checked = False
             End If
@@ -4808,13 +4811,36 @@ Public Class frmPIN
     End Sub
 
     Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles navVistaPrevia.Click
-
+        Impresion(True)
     End Sub
 
     Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles navImprimir.Click
-
+        Impresion(False)
     End Sub
 
+    Private Sub Impresion(ByVal pVistaPreliminar As Boolean)
+        Dim General As New DAOGeneral
+        Dim Codigo As String = txtCodigoInversion.Text
+        Dim Id = General.IdPropuesta(Codigo)
+        IdPIN = Id
+
+        If Not IdPIN = Nothing Then
+            Dim oImprimir As New frmImprimir("PrintPropuestaDeInversion.rpt", IdPIN, True)
+            oImprimir.NombreRPT = "PrintPropuestaDeInversion.rpt"
+            oImprimir.IdDocumento = IdPIN
+
+            If pVistaPreliminar = True Then
+                oImprimir.ShowDialog()
+
+            Else
+                oImprimir.VistaPrevia = False
+                oImprimir.CargarRPT()
+
+            End If
+
+
+        End If
+    End Sub
 
 
 
@@ -4840,7 +4866,7 @@ Public Class frmPIN
         If ExisteInstrumento Then
             ModificarEstado("V")
         Else
-            MsgBox("El Detalle de Instrumento no a sido ingresado o el monto es 0")
+            MsgBox("El detalle del instrumento no ha sido ingresado o el monto de inversión es 0")
         End If
 
 
@@ -4883,7 +4909,7 @@ Public Class frmPIN
         If ExisteInstrumento Then
             ModificarEstado("A")
         Else
-            MsgBox("El Detalle de Instrumento no a sido ingresado o el monto es 0")
+            MsgBox("El detalle del instrumento no ha sido ingresado o el monto de inversión es 0")
         End If
     End Sub
 
@@ -4893,7 +4919,7 @@ Public Class frmPIN
         If ExisteInstrumento Then
             ModificarEstado("R")
         Else
-            MsgBox("El Detalle de Instrumento no a sido ingresado o el monto es 0")
+            MsgBox("El detalle del instrumento no ha sido ingresado o el monto de inversión es 0")
         End If
     End Sub
 

frmPrincipal.Designer.vb

@@ -117,6 +117,7 @@ Partial Class frmPrincipal
         Me.mnuInicio.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.mnuInicio.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal
         Me.mnuInicio.ToolTipText = "Inicio"
+        Me.mnuInicio.Visible = False
         '
         'mnuPropuestas
         '
@@ -311,6 +312,7 @@ Partial Class frmPrincipal
         Me.mnuRendimientos.Size = New System.Drawing.Size(250, 40)
         Me.mnuRendimientos.Text = "  Rendimientos"
         Me.mnuRendimientos.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.mnuRendimientos.Visible = False
         '
         'FToolStripMenuItem
         '
@@ -336,6 +338,7 @@ Partial Class frmPrincipal
         Me.ArbitrajeToolStripMenuItem.Size = New System.Drawing.Size(250, 40)
         Me.ArbitrajeToolStripMenuItem.Text = "   Arbitraje"
         Me.ArbitrajeToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.ArbitrajeToolStripMenuItem.Visible = False
         '
         'picLogo
         '

frmReqPago.Designer.vb

@@ -430,6 +430,7 @@ Partial Class frmReqPago
         '
         Me.txtMontoPago.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.RPAGBindingSource, "MontoPago", True))
         Me.txtMontoPago.Location = New System.Drawing.Point(109, 134)
+        Me.txtMontoPago.MaxLength = 20
         Me.txtMontoPago.Name = "txtMontoPago"
         Me.txtMontoPago.ReadOnly = True
         Me.txtMontoPago.Size = New System.Drawing.Size(150, 20)
@@ -447,8 +448,6 @@ Partial Class frmReqPago
         'cbxCodigoBanco
         '
         Me.cbxCodigoBanco.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.RPAGBindingSource, "CodBanco", True))
-        Me.cbxCodigoBanco.DataSource = Me.BAN0BindingSource
-        Me.cbxCodigoBanco.DisplayMember = "NombreBanco"
         Me.cbxCodigoBanco.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cbxCodigoBanco.FormattingEnabled = True
         Me.cbxCodigoBanco.Location = New System.Drawing.Point(109, 156)

frmReqPago.vb

@@ -42,22 +42,28 @@ Public Class frmReqPago
             txtMontoPago.Text = Monto
         End If
     End Sub
+    Sub CargarBancos()
+        Me.cbxCodigoBanco.DataSource = oDAOGeneral.ListaBancos
+        Me.cbxCodigoBanco.DisplayMember = "Descripcion"
+        Me.cbxCodigoBanco.ValueMember = "Codigo"
+        Me.cbxCodigoBanco.SelectedIndex = 0
 
+    End Sub
 
     Private Sub frmReqPago_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        CargarBancos()
         'Configurcion de Requisicion de Pago para Reportos de venta'
         ConfiguracionReportoVenta()
 
+        'rellenamos el datatable...
+
         'TODO: esta línea de código carga datos en la tabla 'InversionesDEVDataSet3.BAN1' Puede moverla o quitarla según sea necesario.
-        Me.BAN1TableAdapter.Fill(Me.InversionesDEVDataSet3.BAN1)
+        Me.BAN1TableAdapter.Fill(InversionesDEVDataSet3.BAN1)
         'TODO: esta línea de código carga datos en la tabla 'InversionesDataSet1.USR0' Puede moverla o quitarla según sea necesario.
         Me.USR0TableAdapter.Fill(Me.InversionesDataSet1.USR0)
         'TODO: esta línea de código carga datos en la tabla 'InversionesDataSet1.FPAG' Puede moverla o quitarla según sea necesario.
         Me.FPAGTableAdapter.Fill(Me.InversionesDataSet1.FPAG)
         'TODO: esta línea de código carga datos en la tabla 'InversionesDataSet1.BAN0' Puede moverla o quitarla según sea necesario.
-        Me.BAN0TableAdapter.Fill(Me.InversionesDataSet1.BAN0)
-        'TODO: esta línea de código carga datos en la tabla 'InversionesDataSet1.RPAG' Puede moverla o quitarla según sea necesario.
 
         CargarEmisores()
         CargarCodigo()
@@ -160,7 +166,7 @@ Public Class frmReqPago
 
     Private Sub CargarCuentasBancarias()
 
-        If Not (Empresa Is Nothing) Then
+        If Not (Empresa Is Nothing) And Not TypeOf cbxCodigoBanco.SelectedValue Is DataRowView Then
             Me.cbxCuentaBancaria.SelectedIndex = -1
             Dim Banco As String = cbxCodigoBanco.SelectedValue
             Me.cbxCuentaBancaria.DataSource = BancosDAO.CuentasBancarias(Empresa, Banco)