Observaciones 1

DAO/DAOGeneral.vb

@@ -1205,12 +1205,12 @@ Public Class DAOGeneral
                 .Add("@Coment", SqlDbType.VarChar).Value = ObjPropuesta.Comentarios.ToString
                 .Add("@Just", SqlDbType.VarChar).Value = ObjPropuesta.Justificacion.ToString
                 .Add("@TipoOper", SqlDbType.VarChar).Value = ObjPropuesta.TipoOperacion.ToString
-                .Add("@MontoInv", SqlDbType.Float).Value = ObjPropuesta.MontoInversion.ToString
-                .Add("@Precio", SqlDbType.Float).Value = ObjPropuesta.Precio.ToString
-                .Add("@Rendimiento", SqlDbType.Float).Value = ObjPropuesta.Rendimiento.ToString
-                .Add("@Plazo", SqlDbType.Int).Value = ObjPropuesta.PlazoNumero.ToString
-                .Add("@PlazoFact", SqlDbType.VarChar).Value = ObjPropuesta.PlazoFactor.ToString
-                .Add("@Ingresos", SqlDbType.Float).Value = ObjPropuesta.Ingresos.ToString
+                .Add("@MontoInv", SqlDbType.Float).Value = 0
+                .Add("@Precio", SqlDbType.Float).Value = 0
+                .Add("@Rendimiento", SqlDbType.Float).Value = 0
+                .Add("@Plazo", SqlDbType.Int).Value = 0
+                .Add("@PlazoFact", SqlDbType.VarChar).Value = 0
+                .Add("@Ingresos", SqlDbType.Float).Value = 0
                 .Add("@FechaDoc", SqlDbType.Date).Value = ObjPropuesta.FechaDocumento.ToString
                 .Add("@AutEstado", SqlDbType.VarChar).Value = ObjPropuesta.EstadoAutorizacion.ToString
                 .Add("@TipoMerc", SqlDbType.VarChar).Value = ObjPropuesta.TipoMercado.ToString

DAO/DAOPropuestaInversion.vb

@@ -680,12 +680,12 @@ Public Class DAOPropuestaInversion
             .Add("@Coment", SqlDbType.VarChar).Value = ObjPropuesta.Comentarios.ToString
             .Add("@Just", SqlDbType.VarChar).Value = ObjPropuesta.Justificacion.ToString
             .Add("@TipoOper", SqlDbType.VarChar).Value = ObjPropuesta.TipoOperacion.ToString
-            .Add("@MontoInv", SqlDbType.Float).Value = ObjPropuesta.MontoInversion.ToString
-            .Add("@Precio", SqlDbType.Float).Value = ObjPropuesta.Precio.ToString
-            .Add("@Rendimiento", SqlDbType.Float).Value = ObjPropuesta.Rendimiento.ToString
-            .Add("@Plazo", SqlDbType.Int).Value = ObjPropuesta.PlazoNumero.ToString
-            .Add("@PlazoFact", SqlDbType.VarChar).Value = ObjPropuesta.PlazoFactor.ToString
-            .Add("@Ingresos", SqlDbType.Float).Value = ObjPropuesta.Ingresos.ToString
+            .Add("@MontoInv", SqlDbType.Float).Value = 0
+            .Add("@Precio", SqlDbType.Float).Value = 0
+            .Add("@Rendimiento", SqlDbType.Float).Value = 0
+            .Add("@Plazo", SqlDbType.Int).Value = 0
+            .Add("@PlazoFact", SqlDbType.VarChar).Value = 0
+            .Add("@Ingresos", SqlDbType.Float).Value = 0
             .Add("@FechaDoc", SqlDbType.Date).Value = ObjPropuesta.FechaDocumento.ToString
             .Add("@AutEstado", SqlDbType.VarChar).Value = ObjPropuesta.EstadoAutorizacion.ToString
             .Add("@TipoMerc", SqlDbType.VarChar).Value = ObjPropuesta.TipoMercado.ToString
@@ -922,13 +922,13 @@ Public Class DAOPropuestaInversion
             .Add("@Coment", SqlDbType.VarChar).Value = ObjPropuesta.Comentarios.ToString
             .Add("@Just", SqlDbType.VarChar).Value = ObjPropuesta.Justificacion.ToString
             .Add("@TipoOper", SqlDbType.VarChar).Value = ObjPropuesta.TipoOperacion.ToString
-            .Add("@MontoInv", SqlDbType.Float).Value = ObjPropuesta.MontoInversion.ToString
-            .Add("@Precio", SqlDbType.Float).Value = ObjPropuesta.Precio.ToString
-            .Add("@Rendimiento", SqlDbType.Float).Value = ObjPropuesta.Rendimiento.ToString
-            .Add("@Plazo", SqlDbType.Int).Value = ObjPropuesta.PlazoNumero.ToString
-            .Add("@PlazoFact", SqlDbType.VarChar).Value = ObjPropuesta.PlazoFactor.ToString
-            .Add("@Ingresos", SqlDbType.Float).Value = ObjPropuesta.Ingresos.ToString
-            .Add("@FechaDoc", SqlDbType.Date).Value = ObjPropuesta.FechaDocumento.ToString
+                .Add("@MontoInv", SqlDbType.Float).Value = 0
+                .Add("@Precio", SqlDbType.Float).Value = 0
+                .Add("@Rendimiento", SqlDbType.Float).Value = 0
+                .Add("@Plazo", SqlDbType.Int).Value = 0
+                .Add("@PlazoFact", SqlDbType.VarChar).Value = 0
+                .Add("@Ingresos", SqlDbType.Float).Value = 0
+                .Add("@FechaDoc", SqlDbType.Date).Value = ObjPropuesta.FechaDocumento.ToString
             .Add("@AutEstado", SqlDbType.VarChar).Value = ObjPropuesta.EstadoAutorizacion.ToString
             .Add("@TipoMerc", SqlDbType.VarChar).Value = ObjPropuesta.TipoMercado.ToString
             .Add("@CodPais", SqlDbType.VarChar).Value = ObjPropuesta.Pais.ToString
@@ -1282,12 +1282,12 @@ Public Class DAOPropuestaInversion
                 .Add("@Coment", SqlDbType.VarChar).Value = oPropuestaCE.Comentarios
                 .Add("@Just", SqlDbType.VarChar).Value = oPropuestaCE.Justificacion
                 .Add("@TipoOper", SqlDbType.VarChar).Value = oPropuestaCE.TipoOperacion
-                .Add("@MontoInv", SqlDbType.Float).Value = oPropuestaCE.MontoInversion
-                .Add("@Precio", SqlDbType.Float).Value = oPropuestaCE.Precio
-                .Add("@Rendimiento", SqlDbType.Float).Value = oPropuestaCE.Rendimiento
-                .Add("@Plazo", SqlDbType.Int).Value = oPropuestaCE.PlazoNumero
-                .Add("@PlazoFact", SqlDbType.VarChar).Value = oPropuestaCE.PlazoFactor
-                .Add("@Ingresos", SqlDbType.Float).Value = oPropuestaCE.Ingresos
+                .Add("@MontoInv", SqlDbType.Float).Value = 0
+                .Add("@Precio", SqlDbType.Float).Value = 0
+                .Add("@Rendimiento", SqlDbType.Float).Value = 0
+                .Add("@Plazo", SqlDbType.Int).Value = 0
+                .Add("@PlazoFact", SqlDbType.VarChar).Value = 0
+                .Add("@Ingresos", SqlDbType.Float).Value = 0
                 .Add("@FechaDoc", SqlDbType.Date).Value = oPropuestaCE.FechaDocumento
                 .Add("@AutEstado", SqlDbType.VarChar).Value = oPropuestaCE.EstadoAutorizacion
                 .Add("@TipoMerc", SqlDbType.VarChar).Value = oPropuestaCE.TipoMercado

ENTI/Operaciones.vb

@@ -1115,9 +1115,7 @@
     End Function
     Sub TraspasarDatos(ByVal CodigoExiste As String, ByVal CodigoInstrumentoExiste As String,
  ByVal IsNueva As String, ByVal TipoTransaccionCompraVenta As String,
- ByVal FamiliaTitulo As String, ByVal Monto As Double,
- ByVal Precio As Double, ByVal RendimientoEsperado As Double,
- ByVal IngresosEsperados As Double)
+ ByVal FamiliaTitulo As String)
         If IsNueva = "N" Then
             Dim General As New DAOGeneral
             Dim Tabla As String = String.Empty
@@ -1183,8 +1181,7 @@
                 Dim RetValorParticipacionFINV As Integer = 0
 
                 If FamiliaTitulo = "FamiliaAcciones" Then
-                    RetMonto = ConvertirDecimal(Monto.ToString)
-                    RetPrecio = ConvertirDecimal(Precio.ToString)
+
                     RetRendimiento = 0
                     RetIngresosEsp = 0
                     RetUnidadesAcciones = ConvertirDecimal((RetMonto / RetPrecio).ToString)
@@ -1193,24 +1190,22 @@
                     Variables.RetUnidadesAcciones = RetUnidadesAcciones
 
                 ElseIf FamiliaTitulo = "FamiliaPrestamoPersonal" Then
-                    RetMonto = ConvertirDecimal(Monto.ToString)
+
                     RetPrecio = 0
-                    RetRendimiento = ConvertirDecimal(RendimientoEsperado.ToString)
+
                     RetIngresosEsp = 0
                     Variables.RetMonto = RetMonto
                     Variables.RetRendimiento = RetRendimiento
                 ElseIf FamiliaTitulo = "FamiliaDAP" Then
-                    RetMonto = ConvertirDecimal(Monto.ToString)
+
                     RetPrecio = 0
-                    RetRendimiento = ConvertirDecimal(RendimientoEsperado.ToString)
+
                     RetIngresosEsp = 0
                     Variables.RetMonto = RetMonto
                     Variables.RetRendimiento = RetRendimiento
 
                 ElseIf FamiliaTitulo = "FamiliaFuturos" Then
 
-                    RetMonto = ConvertirDecimal(Monto.ToString)
-                    RetPrecio = ConvertirDecimal(Precio.ToString)
                     RetRendimiento = 0
                     RetIngresosEsp = 0
                     RetUnidadesContratosFuturos = 1
@@ -1221,9 +1216,7 @@
                     Variables.RetCantidadContratosFuturos = RetCantidadContratosFuturos
 
                 ElseIf FamiliaTitulo = "FamiliaEmpresas" Then
-                    RetMonto = ConvertirDecimal(Monto.ToString)
                     RetPrecio = 0
-                    RetRendimiento = ConvertirDecimal(RendimientoEsperado.ToString)
                     RetIngresosEsp = 0
                     Variables.RetMonto = RetMonto
                     Variables.RetRendimiento = RetRendimiento
@@ -1231,26 +1224,22 @@
 
                 ElseIf FamiliaTitulo = "FamiliaLetes" Then
 
-                    RetMonto = ConvertirDecimal(Monto.ToString)
                     RetPrecio = 0
-                    RetRendimiento = ConvertirDecimal(RendimientoEsperado.ToString)
                     RetIngresosEsp = 0
                     Variables.RetMonto = RetMonto
                     Variables.RetRendimiento = RetRendimiento
                 ElseIf FamiliaTitulo = "FamiliaCINV" Then
 
-                    RetMonto = ConvertirDecimal(Monto.ToString)
-                    RetPrecio = ConvertirDecimal(Precio.ToString)
-                    RetRendimiento = ConvertirDecimal(RendimientoEsperado.ToString)
+
                     RetIngresosEsp = 0
                     Variables.RetMonto = RetMonto
                     Variables.RetRendimiento = RetRendimiento
                     Variables.RetPrecio = RetPrecio
 
                 ElseIf FamiliaTitulo = "FamiliaFINV" Then
-                    RetMonto = ConvertirDecimal(Monto.ToString)
+
                     RetPrecio = 0
-                    RetRendimiento = ConvertirDecimal(RendimientoEsperado.ToString)
+
                     RetIngresosEsp = 0
                     Variables.RetMonto = RetMonto
                     Variables.RetRendimiento = RetRendimiento
@@ -1259,7 +1248,7 @@
                     Variables.RetValorParticipacionFINV = RetValorParticipacionFINV
                     Variables.RetCuotaParticipacionFINV = RetCuotaParticipacionFINV
                 ElseIf FamiliaTitulo = "FamiliaReporto" Then
-                    RetMonto = ConvertirDecimal(Monto.ToString)
+
                     Variables.RetMonto = RetMonto
                 End If
 

frmPIN.designer.vb

@@ -42,17 +42,9 @@ Partial Class frmPIN
         Me.Label9 = New System.Windows.Forms.Label()
         Me.txtJustificacion = New System.Windows.Forms.TextBox()
         Me.Label8 = New System.Windows.Forms.Label()
-        Me.txtMontoInversion = New System.Windows.Forms.TextBox()
-        Me.lblMontoInversion = New System.Windows.Forms.Label()
-        Me.txtPrecio = New System.Windows.Forms.TextBox()
-        Me.lblPrecio = New System.Windows.Forms.Label()
-        Me.lblRendEsp = New System.Windows.Forms.Label()
         Me.dtpFechaDocumento = New System.Windows.Forms.DateTimePicker()
         Me.lblFecha = New System.Windows.Forms.Label()
         Me.cboPlazosFactor = New System.Windows.Forms.ComboBox()
-        Me.txtIngresos = New System.Windows.Forms.TextBox()
-        Me.lblIngreEsp = New System.Windows.Forms.Label()
-        Me.txtPlazoNumero = New System.Windows.Forms.TextBox()
         Me.btnAccion = New System.Windows.Forms.Button()
         Me.btnCancelar = New System.Windows.Forms.Button()
         Me.cboTipoOperacion = New System.Windows.Forms.ComboBox()
@@ -86,7 +78,6 @@ Partial Class frmPIN
         Me.navImprimir = New System.Windows.Forms.ToolStripButton()
         Me.grbInversión = New System.Windows.Forms.GroupBox()
         Me.chkUsuario = New System.Windows.Forms.CheckBox()
-        Me.txtRendimiento = New System.Windows.Forms.TextBox()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.pnlMenu = New System.Windows.Forms.Panel()
         Me.pnlInstrumento = New System.Windows.Forms.Panel()
@@ -147,7 +138,6 @@ Partial Class frmPIN
         Me.flpEmpresas = New System.Windows.Forms.FlowLayoutPanel()
         Me.cboPaises = New System.Windows.Forms.ComboBox()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
-        Me.Label1 = New System.Windows.Forms.Label()
         Me.lblCodigoInversionCM = New System.Windows.Forms.Label()
         Me.txtCodigoInversionCM = New System.Windows.Forms.TextBox()
         Me.TabCampos = New System.Windows.Forms.TabControl()
@@ -357,7 +347,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.Location = New System.Drawing.Point(168, 66)
         Me.txtCodigoInversion.MaxLength = 100
         Me.txtCodigoInversion.Name = "txtCodigoInversion"
         Me.txtCodigoInversion.ReadOnly = True
@@ -368,7 +358,7 @@ Partial Class frmPIN
         '
         Me.lblCodigoInversion.AutoSize = True
         Me.lblCodigoInversion.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblCodigoInversion.Location = New System.Drawing.Point(386, 25)
+        Me.lblCodigoInversion.Location = New System.Drawing.Point(20, 66)
         Me.lblCodigoInversion.Name = "lblCodigoInversion"
         Me.lblCodigoInversion.Size = New System.Drawing.Size(48, 18)
         Me.lblCodigoInversion.TabIndex = 54
@@ -445,63 +435,12 @@ Partial Class frmPIN
         Me.Label8.TabIndex = 66
         Me.Label8.Text = "Justificación"
         '
-        'txtMontoInversion
-        '
-        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
-        '
-        'lblMontoInversion
-        '
-        Me.lblMontoInversion.AutoSize = True
-        Me.lblMontoInversion.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblMontoInversion.ForeColor = System.Drawing.Color.Maroon
-        Me.lblMontoInversion.Location = New System.Drawing.Point(20, 61)
-        Me.lblMontoInversion.Name = "lblMontoInversion"
-        Me.lblMontoInversion.Size = New System.Drawing.Size(111, 18)
-        Me.lblMontoInversion.TabIndex = 69
-        Me.lblMontoInversion.Text = "Monto Inversión *"
-        '
-        'txtPrecio
-        '
-        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
-        '
-        'lblPrecio
-        '
-        Me.lblPrecio.AutoSize = True
-        Me.lblPrecio.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblPrecio.Location = New System.Drawing.Point(20, 128)
-        Me.lblPrecio.Name = "lblPrecio"
-        Me.lblPrecio.Size = New System.Drawing.Size(43, 18)
-        Me.lblPrecio.TabIndex = 71
-        Me.lblPrecio.Text = "Precio"
-        '
-        'lblRendEsp
-        '
-        Me.lblRendEsp.AutoSize = True
-        Me.lblRendEsp.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendEsp.Location = New System.Drawing.Point(386, 96)
-        Me.lblRendEsp.Name = "lblRendEsp"
-        Me.lblRendEsp.Size = New System.Drawing.Size(81, 18)
-        Me.lblRendEsp.TabIndex = 73
-        Me.lblRendEsp.Text = "Rendimiento"
-        '
         'dtpFechaDocumento
         '
         Me.dtpFechaDocumento.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.PIN0BindingSource4, "FechaDoc", True))
         Me.dtpFechaDocumento.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.dtpFechaDocumento.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaDocumento.Location = New System.Drawing.Point(529, 128)
+        Me.dtpFechaDocumento.Location = New System.Drawing.Point(513, 22)
         Me.dtpFechaDocumento.Name = "dtpFechaDocumento"
         Me.dtpFechaDocumento.Size = New System.Drawing.Size(182, 23)
         Me.dtpFechaDocumento.TabIndex = 18
@@ -510,7 +449,7 @@ Partial Class frmPIN
         '
         Me.lblFecha.AutoSize = True
         Me.lblFecha.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblFecha.Location = New System.Drawing.Point(386, 131)
+        Me.lblFecha.Location = New System.Drawing.Point(429, 24)
         Me.lblFecha.Name = "lblFecha"
         Me.lblFecha.Size = New System.Drawing.Size(42, 18)
         Me.lblFecha.TabIndex = 76
@@ -529,37 +468,7 @@ Partial Class frmPIN
         Me.cboPlazosFactor.Name = "cboPlazosFactor"
         Me.cboPlazosFactor.Size = New System.Drawing.Size(121, 26)
         Me.cboPlazosFactor.TabIndex = 8
-        '
-        'txtIngresos
-        '
-        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
-        '
-        'lblIngreEsp
-        '
-        Me.lblIngreEsp.AutoSize = True
-        Me.lblIngreEsp.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblIngreEsp.Location = New System.Drawing.Point(20, 94)
-        Me.lblIngreEsp.Name = "lblIngreEsp"
-        Me.lblIngreEsp.Size = New System.Drawing.Size(120, 18)
-        Me.lblIngreEsp.TabIndex = 80
-        Me.lblIngreEsp.Text = "Ingresos Esperados"
-        '
-        'txtPlazoNumero
-        '
-        Me.txtPlazoNumero.BackColor = System.Drawing.SystemColors.Menu
-        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
+        Me.cboPlazosFactor.Visible = False
         '
         'btnAccion
         '
@@ -667,7 +576,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.Location = New System.Drawing.Point(168, 110)
         Me.txtNombre.MaxLength = 100
         Me.txtNombre.Name = "txtNombre"
         Me.txtNombre.Size = New System.Drawing.Size(182, 23)
@@ -678,7 +587,7 @@ Partial Class frmPIN
         Me.lblNombre.AutoSize = True
         Me.lblNombre.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
         Me.lblNombre.ForeColor = System.Drawing.Color.Maroon
-        Me.lblNombre.Location = New System.Drawing.Point(387, 62)
+        Me.lblNombre.Location = New System.Drawing.Point(20, 115)
         Me.lblNombre.Name = "lblNombre"
         Me.lblNombre.Size = New System.Drawing.Size(62, 18)
         Me.lblNombre.TabIndex = 163
@@ -912,16 +821,6 @@ Partial Class frmPIN
         Me.chkUsuario.Text = "Autorizar"
         Me.chkUsuario.UseVisualStyleBackColor = True
         '
-        'txtRendimiento
-        '
-        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
-        '
         'GroupBox1
         '
         Me.GroupBox1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1533,27 +1432,17 @@ Partial Class frmPIN
         Me.GroupBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.GroupBox2.Controls.Add(Me.Label1)
-        Me.GroupBox2.Controls.Add(Me.txtPlazoNumero)
         Me.GroupBox2.Controls.Add(Me.lblCodigoInversionCM)
         Me.GroupBox2.Controls.Add(Me.cboPlazosFactor)
         Me.GroupBox2.Controls.Add(Me.txtCodigoInversionCM)
-        Me.GroupBox2.Controls.Add(Me.lblMontoInversion)
         Me.GroupBox2.Controls.Add(Me.lblAsunto)
         Me.GroupBox2.Controls.Add(Me.lblNombre)
         Me.GroupBox2.Controls.Add(Me.txtNombre)
-        Me.GroupBox2.Controls.Add(Me.txtRendimiento)
         Me.GroupBox2.Controls.Add(Me.lblCodigoInversion)
         Me.GroupBox2.Controls.Add(Me.txtAsunto)
-        Me.GroupBox2.Controls.Add(Me.txtMontoInversion)
         Me.GroupBox2.Controls.Add(Me.txtCodigoInversion)
         Me.GroupBox2.Controls.Add(Me.dtpFechaDocumento)
-        Me.GroupBox2.Controls.Add(Me.lblRendEsp)
         Me.GroupBox2.Controls.Add(Me.lblFecha)
-        Me.GroupBox2.Controls.Add(Me.lblPrecio)
-        Me.GroupBox2.Controls.Add(Me.txtPrecio)
-        Me.GroupBox2.Controls.Add(Me.lblIngreEsp)
-        Me.GroupBox2.Controls.Add(Me.txtIngresos)
         Me.GroupBox2.Location = New System.Drawing.Point(3, 6)
         Me.GroupBox2.Name = "GroupBox2"
         Me.GroupBox2.Size = New System.Drawing.Size(1101, 172)
@@ -1561,21 +1450,11 @@ Partial Class frmPIN
         Me.GroupBox2.TabStop = False
         Me.GroupBox2.Text = "Montos"
         '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(745, 23)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(38, 18)
-        Me.Label1.TabIndex = 179
-        Me.Label1.Text = "Plazo"
-        '
         'lblCodigoInversionCM
         '
         Me.lblCodigoInversionCM.AutoSize = True
         Me.lblCodigoInversionCM.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblCodigoInversionCM.Location = New System.Drawing.Point(745, 58)
+        Me.lblCodigoInversionCM.Location = New System.Drawing.Point(429, 69)
         Me.lblCodigoInversionCM.Name = "lblCodigoInversionCM"
         Me.lblCodigoInversionCM.Size = New System.Drawing.Size(70, 18)
         Me.lblCodigoInversionCM.TabIndex = 178
@@ -1586,7 +1465,7 @@ Partial Class frmPIN
         '
         Me.txtCodigoInversionCM.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.PIN0BindingSource4, "CodInv", True))
         Me.txtCodigoInversionCM.Font = New System.Drawing.Font("Trebuchet MS", 9.75!)
-        Me.txtCodigoInversionCM.Location = New System.Drawing.Point(891, 57)
+        Me.txtCodigoInversionCM.Location = New System.Drawing.Point(513, 69)
         Me.txtCodigoInversionCM.Name = "txtCodigoInversionCM"
         Me.txtCodigoInversionCM.ReadOnly = True
         Me.txtCodigoInversionCM.Size = New System.Drawing.Size(182, 23)
@@ -2089,17 +1968,9 @@ Partial Class frmPIN
     Friend WithEvents Label9 As Label
     Friend WithEvents txtJustificacion As TextBox
     Friend WithEvents Label8 As Label
-    Friend WithEvents txtMontoInversion As TextBox
-    Friend WithEvents lblMontoInversion As Label
-    Friend WithEvents txtPrecio As TextBox
-    Friend WithEvents lblPrecio As Label
-    Friend WithEvents lblRendEsp As Label
     Friend WithEvents dtpFechaDocumento As DateTimePicker
     Friend WithEvents lblFecha As Label
     Friend WithEvents cboPlazosFactor As ComboBox
-    Friend WithEvents txtIngresos As TextBox
-    Friend WithEvents lblIngreEsp As Label
-    Friend WithEvents txtPlazoNumero As TextBox
     Friend WithEvents btnAccion As Button
     Friend WithEvents btnCancelar As Button
     Friend WithEvents cboTipoOperacion As ComboBox
@@ -2131,7 +2002,6 @@ Partial Class frmPIN
     Friend WithEvents navRecorrer As ToolStripButton
     Friend WithEvents grbInversión As GroupBox
     Friend WithEvents chkUsuario As CheckBox
-    Friend WithEvents txtRendimiento As TextBox
     Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents pnlContenedor As Panel
     Friend WithEvents GroupBox2 As GroupBox
@@ -2219,7 +2089,6 @@ Partial Class frmPIN
     Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
     Friend WithEvents lblCodigoInversionCM As Label
     Friend WithEvents txtCodigoInversionCM As TextBox
-    Friend WithEvents Label1 As Label
     Friend WithEvents Label17 As Label
     Friend WithEvents Label16 As Label
     Friend WithEvents Label15 As Label

frmPIN.resx

@@ -133,6 +133,12 @@
   <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>
@@ -214,15 +220,15 @@
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        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=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S0JhGMePHv0ALdHQTWiIoElxE80uWx+g
+        aIkimhoajFpyCioa8nBwcmqpIYdCKgisliBoaWjrIsQRb3k93vXf+xw8ZqlpD/w4h5f3/zvP874crlb9
+        DCPD3IFhhpbRVMZsNpvw+/2VcrmMVuTzeQiCcMj2tpSYKZzJZCDLcp1kMol4PI5QKKRIgsEgRFFskmgY
+        ZtqQy+VQKBSUJ5FOp5FIJBAOhxUB6xL0EbfbrUqUqgsorEICCqRSKUQikR/jEJSpZb8FpVKpvoHeaW51
+        lGg0qnQiSVJ7wW8aJdQJnUcsFuteQKgSGofOhES03rWAKBaLyrmQhKC1fwmoi/dTF+4Xx3A9qcft/BAE
+        s0b8U0AhlYBXwJPDgpzvANXnS8jH6/BbxytXNt1aRwG1f7cwgiwLwzULbPQAOwZE9mzwTfCvbQWNEmq7
+        +uhFY8W3+7Bt11XrAqfTWW0lIW7mBpHxLAEslHdw+GQEVnlcTvMfJKAyseuR2/1Mbyf7eFgZhbRhQHhT
+        j5dlDa6tusrFlHarlucGGCYGXU1LPDO94pmdl6jtcysfOrLwuxzHcV/MWoMYH4nDLAAAAABJRU5ErkJg
+        gg==
 </value>
   </data>
   <data name="navEliminarRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -259,6 +265,6 @@
     <value>523, 95</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>25</value>
+    <value>40</value>
   </metadata>
 </root>

frmPIN.vb

@@ -110,9 +110,7 @@ Public Class frmPIN
     End Sub
 
     Sub HabilitarControlesCMVTA()
-        txtMontoInversion.ReadOnly = False
-        txtPrecio.ReadOnly = False
-        txtRendimiento.ReadOnly = False
+
         cboCalificacionDeRiesgo.Enabled = True
     End Sub
     Sub ConfiguracionCamposCMVTA()
@@ -651,7 +649,6 @@ Public Class frmPIN
 
             Navegador.Enabled = False
 
-            txtMontoInversion.ReadOnly = True
             cboEmpresas.Enabled = False
             cboInstrumentosFinancieros.Enabled = False
             cboOrigenDeFondos.Enabled = False
@@ -660,7 +657,7 @@ Public Class frmPIN
 
             cboTipoOperacion.SelectedValue = "C"
             cboOrigenDeFondos.SelectedValue = "REPOVENTA"
-            txtMontoInversion.Text = SaldoAplicadoTitulo
+
             cboEmpresas.SelectedValue = NombreEmpresa
             cboInstrumentosFinancieros.SelectedValue = NombreInstrumento
         End If
@@ -678,7 +675,7 @@ Public Class frmPIN
         Refrescar()
 
         PreNuevoModificar()
-        formato()
+
         ModoPropuesta()
         LimpiarControles()
         NuevaPropuesta()
@@ -952,21 +949,21 @@ Public Class frmPIN
         TieneDetalleInstrumento = False
     End Sub
 
-    Private Sub txtMontoInversion_TextChanged(sender As Object, e As EventArgs) Handles txtMontoInversion.TextChanged
-        ControlMontoInv()
+    Private Sub txtMontoInversion_TextChanged(sender As Object, e As EventArgs)
+
     End Sub
 
-    Private Sub txtMontoInversion_LostFocus(sender As Object, e As EventArgs) Handles txtMontoInversion.LostFocus
-        ControlMontoInversion()
+    Private Sub txtMontoInversion_LostFocus(sender As Object, e As EventArgs)
+
     End Sub
 
-    Private Sub txtPrecio_TextChanged(sender As Object, e As EventArgs) Handles txtPrecio.TextChanged
+    Private Sub txtPrecio_TextChanged(sender As Object, e As EventArgs)
+
 
-        ControlPr()
     End Sub
 
-    Private Sub txtPrecio_LostFocus(sender As Object, e As EventArgs) Handles txtPrecio.LostFocus
-        ControlPrecio()
+    Private Sub txtPrecio_LostFocus(sender As Object, e As EventArgs)
+
     End Sub
 
     Private Sub txtRendimiento_TextChanged(sender As Object, e As EventArgs)
@@ -974,7 +971,7 @@ Public Class frmPIN
     End Sub
 
     Private Sub txtRendimiento_LostFocus(sender As Object, e As EventArgs)
-        ControlRendimiento()
+
     End Sub
 
     Private Sub cboPlazos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPlazosFactor.SelectedIndexChanged
@@ -982,17 +979,17 @@ Public Class frmPIN
         ControlPlazoFact()
     End Sub
 
-    Private Sub txtPlazoNumero_TextChanged(sender As Object, e As EventArgs) Handles txtPlazoNumero.TextChanged
+    Private Sub txtPlazoNumero_TextChanged(sender As Object, e As EventArgs)
+
 
-        ControlPlazoNum()
     End Sub
 
-    Private Sub txtPlazoNumero_LostFocus(sender As Object, e As EventArgs) Handles txtPlazoNumero.LostFocus
-        ControlPlazoNumero()
+    Private Sub txtPlazoNumero_LostFocus(sender As Object, e As EventArgs)
+
     End Sub
 
-    Private Sub txtIngresos_TextChanged(sender As Object, e As EventArgs) Handles txtIngresos.TextChanged
-        ControlIng()
+    Private Sub txtIngresos_TextChanged(sender As Object, e As EventArgs)
+
     End Sub
 
     Private Sub cboOrigenDeFodos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboOrigenDeFondos.SelectedIndexChanged
@@ -1035,8 +1032,8 @@ Public Class frmPIN
         ControlFechaDocumento()
     End Sub
 
-    Private Sub txtIngresos_LostFocus(sender As Object, e As EventArgs) Handles txtIngresos.LostFocus
-        ControlIngresos()
+    Private Sub txtIngresos_LostFocus(sender As Object, e As EventArgs)
+
     End Sub
 
 
@@ -1073,10 +1070,6 @@ Public Class frmPIN
 
         End If
 
-        Me.txtMontoInversion.Text = oPropuestaInversionCE.MontoInversion.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPrecio.Text = oPropuestaInversionCE.Precio.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtRendimiento.Text = oPropuestaInversionCE.Rendimiento.ToString()
-        Me.txtPlazoNumero.Text = oPropuestaInversionCE.PlazoNumero.ToString
 
         Dim vPlazoFactor As String = oPropuestaInversionCE.PlazoFactor.ToString
         If vPlazoFactor.Length = 0 Then
@@ -1085,7 +1078,7 @@ Public Class frmPIN
             Me.cboPlazosFactor.SelectedValue = vPlazoFactor.ToString
         End If
 
-        Me.txtIngresos.Text = oPropuestaInversionCE.Ingresos.ToString(Configuraciones.CodigoTXTMontos)
+
 
         Dim vOrigenDeFondos As String = oPropuestaInversionCE.OrigenDeFondos.ToString
         If vOrigenDeFondos.Length = 0 Then
@@ -1734,88 +1727,17 @@ Public Class frmPIN
             oPropuestaInversionCE.CodigoInstrumentoFinanciero = Me.cboInstrumentosFinancieros.SelectedValue
         End If
     End Sub
-    Private Sub ControlMontoInversion()
-        If TipoTransaccion = "N" Or TipoTransaccion = "A" Then
-            Dim vParse As Boolean
-            Dim valor As Double
-
-            vParse = Double.TryParse(Me.txtMontoInversion.Text, valor)
-            If Not vParse Then
-
-            Else
-                oPropuestaInversionCE.MontoInversion = valor
-                Me.txtMontoInversion.Text = oPropuestaInversionCE.MontoInversion.ToString(Configuraciones.CodigoTXTMontos)
-
-            End If
-        End If
-    End Sub
-    Private Sub ControlPrecio()
-        If TipoTransaccion = "N" Or TipoTransaccion = "A" Then
-            Dim vParse As Boolean
-            Dim valor As Double
 
-            vParse = Double.TryParse(Me.txtPrecio.Text, valor)
-            If Not vParse Then
 
-            Else
-                oPropuestaInversionCE.Precio = valor
-                Me.txtPrecio.Text = oPropuestaInversionCE.Precio.ToString(Configuraciones.CodigoTXTMontos)
 
-            End If
-        End If
-    End Sub
-    Private Sub ControlRendimiento()
-        If TipoTransaccion = "N" Or TipoTransaccion = "A" Then
-            Dim vParse As Boolean
-            Dim valor As Double
 
-            vParse = Double.TryParse(txtRendimiento.Text.Replace("%", ""), valor)
-            If Not vParse Then
 
-            Else
-                oPropuestaInversionCE.Rendimiento = valor / 100
-                txtRendimiento.Text = oPropuestaInversionCE.Rendimiento.ToString(Configuraciones.CodigoTXTPorcentaje)
-
-            End If
-        End If
-    End Sub
-    Private Sub ControlPlazoNumero()
-        If TipoTransaccion = "N" Or TipoTransaccion = "A" Then
-            Dim vParse As Boolean = True
-            Dim valor As Integer = 0
-
-            If Me.txtPlazoNumero.Text.Length > 0 Then
-                vParse = Integer.TryParse(Me.txtPlazoNumero.Text, valor)
-            End If
-
-            If Not vParse Then
-
-            Else
-                oPropuestaInversionCE.PlazoNumero = valor
-
-            End If
-        End If
-    End Sub
     Private Sub ControlPlazoFactor()
         If TipoTransaccion = "N" Or TipoTransaccion = "A" Then
             oPropuestaInversionCE.PlazoFactor = Me.cboPlazosFactor.SelectedValue
         End If
     End Sub
-    Private Sub ControlIngresos()
-        If TipoTransaccion = "N" Or TipoTransaccion = "A" Then
-            Dim vParse As Boolean
-            Dim valor As Double
-
-            vParse = Double.TryParse(Me.txtIngresos.Text, valor)
-            If Not vParse Then
-
-            Else
-                oPropuestaInversionCE.Ingresos = valor
-                Me.txtIngresos.Text = oPropuestaInversionCE.Ingresos.ToString(Configuraciones.CodigoTXTMontos)
 
-            End If
-        End If
-    End Sub
     Private Sub ControlOrigenDeFondos()
         If TipoTransaccion = "N" Or TipoTransaccion = "A" Then
             oPropuestaInversionCE.OrigenDeFondos = Me.cboOrigenDeFondos.SelectedValue
@@ -1864,67 +1786,17 @@ Public Class frmPIN
     End Sub
 
 
-    Private Sub ControlPlazoNum()
-        If TipoTransaccion = "N" Or TipoTransaccion = "B" Or TipoTransaccion = "A" Then
 
-            If String.IsNullOrEmpty(txtPlazoNumero.Text) Then
-                oPropuestaInversionCE.PlazoNumero = 0
-            Else
-                oPropuestaInversionCE.PlazoNumero = txtPlazoNumero.Text
-            End If
 
-        End If
-    End Sub
 
 
-    Private Sub ControlMontoInv()
-        If TipoTransaccion = "N" Or TipoTransaccion = "B" Or TipoTransaccion = "A" Then
 
-            If String.IsNullOrEmpty(txtMontoInversion.Text.Trim("%")) Then
-                oPropuestaInversionCE.MontoInversion = 0
-            Else
-                oPropuestaInversionCE.MontoInversion = txtMontoInversion.Text.Trim("%")
-            End If
 
-        End If
-    End Sub
 
 
-    Private Sub ControlPr()
-        If TipoTransaccion = "N" Or TipoTransaccion = "B" Or TipoTransaccion = "A" Then
-
-            If String.IsNullOrEmpty(txtPrecio.Text.Trim("%")) Then
-                oPropuestaInversionCE.Precio = 0
-            Else
-                oPropuestaInversionCE.Precio = txtPrecio.Text.Trim("%")
-            End If
 
-        End If
-    End Sub
 
-    Private Sub ControlRend()
-        If TipoTransaccion = "N" Or TipoTransaccion = "B" Or TipoTransaccion = "A" Then
 
-            If String.IsNullOrEmpty(txtRendimiento.Text.ToString.Trim("%")) Then
-                oPropuestaInversionCE.Rendimiento = 0
-            Else
-                oPropuestaInversionCE.Rendimiento = CDec(txtRendimiento.Text.ToString.Trim("%"))
-            End If
-
-        End If
-    End Sub
-
-    Private Sub ControlIng()
-        If TipoTransaccion = "N" Or TipoTransaccion = "B" Or TipoTransaccion = "A" Then
-
-            If String.IsNullOrEmpty(txtIngresos.Text) Then
-                oPropuestaInversionCE.Ingresos = 0
-            Else
-                oPropuestaInversionCE.Ingresos = txtIngresos.Text
-            End If
-
-        End If
-    End Sub
 
     Private Sub ControlJustificacion()
         If TipoTransaccion = "N" Or TipoTransaccion = "A" Then
@@ -2035,12 +1907,7 @@ Public Class frmPIN
         Me.cboEmpresas.SelectedIndex = -1
         Me.txtAsunto.Text = String.Empty
         Me.cboInstrumentosFinancieros.SelectedIndex = -1
-        Me.txtMontoInversion.Text = vCerotxt
-        Me.txtPrecio.Text = vCerotxt
-        Me.txtRendimiento.Text = vCerotxt
-        Me.txtPlazoNumero.Text = String.Empty
         Me.cboPlazosFactor.SelectedIndex = -1
-        Me.txtIngresos.Text = vCerotxt
         Me.cboOrigenDeFondos.SelectedIndex = 0
         Me.cboEmisores.SelectedIndex = -1
         Me.cboCalificacionDeRiesgo.SelectedIndex = -1
@@ -2060,12 +1927,7 @@ Public Class frmPIN
         ControlEmpresa()
         ControlAsunto()
         ControlInstrumento()
-        ControlMontoInversion()
-        ControlPrecio()
-        ControlRendimiento()
-        ControlPlazoNumero()
         ControlPlazoFactor()
-        ControlIngresos()
         ControlOrigenDeFondos()
         ControlEmisores()
         ControlCalificacionesDeRiesgo()
@@ -2079,12 +1941,7 @@ Public Class frmPIN
         ControlTipoOperacion()
         ControlTipoMercado()
         ControlPais()
-        ControlPlazoNum()
         ControlPlazoFact()
-        ControlMontoInv()
-        ControlPr()
-        ControlRend()
-        ControlIng()
         ControlOFon()
         ControlTipOper()
 
@@ -2097,12 +1954,7 @@ Public Class frmPIN
     Private Function ValoresValidos() As Boolean
         Dim DatosValidos As Boolean = True
 
-        If String.IsNullOrEmpty(txtMontoInversion.Text.ToString) Or
-          txtMontoInversion.Text = 0 Then
-            MsgBox("Ingrese un Monto de Inversión válido")
-            DatosValidos = False
-            Return DatosValidos
-        End If
+
 
         If String.IsNullOrEmpty(txtNombre.Text.ToString) Then
             MsgBox("Ingrese el nombre del titulo")
@@ -2194,10 +2046,7 @@ Public Class frmPIN
     End Sub
 
     Private Sub btnDetalleIF_Click(sender As Object, e As EventArgs) Handles btnDetalleIF.Click
-        Dim ProMonto As Double = Operaciones.ConvertirDecimal(txtMontoInversion.Text.ToString)
-        Dim ProPrecio As Double = Operaciones.ConvertirDecimal(txtPrecio.Text.ToString)
-        Dim ProRendimientoEsp As Double = Operaciones.ConvertirDecimal(txtRendimiento.Text.ToString)
-        Dim ProIngresosEsp As Double = Operaciones.ConvertirDecimal(txtIngresos.Text.ToString)
+
         Dim ProTipoTransaccionCompraVenta As String = cboTipoOperacion.SelectedValue.ToString
         Dim ProNueva As String = TipoTransaccion
         Dim CodigoExiste As String = txtCodigoInversion.Text.ToString
@@ -2263,8 +2112,7 @@ Public Class frmPIN
 
         If CodigoInstrumento.IndexOf("FINV") > -1 Then
 
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaFINV",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaFINV")
             Dim ExistInstrumento As Boolean = ExisteInstrumento("FINV")
 
             Try
@@ -2309,8 +2157,7 @@ Public Class frmPIN
 
 
 
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaFuturos",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaFuturos")
             Dim ExistInstrumento As Boolean
 
             If (CodigoInstrumento.IndexOf("FUTU") > -1) Then
@@ -2361,8 +2208,7 @@ Public Class frmPIN
 
         If CodigoInstrumento.IndexOf("REPO") > -1 Or CodigoInstrumento.IndexOf("REPOVENTA") > -1 Then
 
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaReporto",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaReporto")
 
             Dim ExistInstrumento As Boolean
             If CodigoInstrumento.IndexOf("REPOVENTA") > -1 Then
@@ -2409,8 +2255,7 @@ Public Class frmPIN
         ''################################################################
 
         If CodigoInstrumento.IndexOf("PPER") > -1 Then
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaPrestamoPersonal",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaPrestamoPersonal")
             Dim ExistInstrumento As Boolean = ExisteInstrumento("PPER0")
             Try
                 If ExistInstrumento Then
@@ -2449,8 +2294,7 @@ Public Class frmPIN
         ''################################################################
 
         If CodigoInstrumento.IndexOf("PEMP") > -1 Then
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaEmpresas",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaEmpresas")
             Dim ExistInstrumento As Boolean = ExisteInstrumento("PEMP0")
             Try
                 If ExistInstrumento Then
@@ -2489,8 +2333,7 @@ Public Class frmPIN
         Dim Acciones As Integer = 0
 
         If CodigoInstrumento.IndexOf("ACC") > -1 Then
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaAcciones",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaAcciones")
             Dim ExistInstrumento As Boolean = ExisteInstrumento("ACC0")
             Try
                 If ExistInstrumento Then
@@ -2533,8 +2376,7 @@ Public Class frmPIN
 
 
         If CodigoInstrumento.IndexOf("LETE") > -1 Or CodigoInstrumento.IndexOf("PBUR") > -1 Or CodigoInstrumento.IndexOf("VCN") > -1 Or CodigoInstrumento.IndexOf("CETE") > -1 Then
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaLetes",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaLetes")
             Dim ExistInstrumento As Boolean
             If CodigoInstrumento.IndexOf("LETE") > -1 Then
                 ExistInstrumento = ExisteInstrumento("LET0")
@@ -2582,8 +2424,7 @@ Public Class frmPIN
 
 
         If CodigoInstrumento.IndexOf("BONO") > -1 Or CodigoInstrumento.IndexOf("CINV") > -1 Or CodigoInstrumento.IndexOf("TIT") > -1 Or CodigoInstrumento.IndexOf("EURB") > -1 Then
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaCINV",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaCINV")
             Dim ExistInstrumento As Boolean
             If CodigoInstrumento.IndexOf("BONO") > -1 Then
                 ExistInstrumento = ExisteInstrumento("BON0")
@@ -2636,8 +2477,7 @@ Public Class frmPIN
         ''################################################################
 
         If CodigoInstrumento.IndexOf("DAP") > -1 Then
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaDAP",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaDAP")
             Dim ExistInstrumento As Boolean = ExisteInstrumento("DAP0")
             Try
                 If ExistInstrumento Then
@@ -2677,8 +2517,7 @@ Public Class frmPIN
         ''################################################################
 
         If CodigoInstrumento.IndexOf("NEST") > -1 Then
-            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaDAP",
-            ProMonto, ProPrecio, ProRendimientoEsp, ProIngresosEsp)
+            Operaciones.TraspasarDatos(CodigoExiste, CodigoInstrumentoExiste, ProNueva, ProTipoTransaccionCompraVenta, "FamiliaDAP")
             Dim ExistInstrumento As Boolean = ExisteInstrumento("NEST0")
 
             Try
@@ -2741,12 +2580,7 @@ Public Class frmPIN
         cboEmpresas.Enabled = False
         txtAsunto.ReadOnly = True
         cboInstrumentosFinancieros.Enabled = False
-        txtMontoInversion.ReadOnly = True
-        txtPrecio.ReadOnly = True
-        txtRendimiento.ReadOnly = True
-        txtPlazoNumero.ReadOnly = True
         cboPlazosFactor.Enabled = False
-        txtIngresos.ReadOnly = True
         cboOrigenDeFondos.Enabled = False
         cboEmisores.Enabled = False
         cboCalificacionDeRiesgo.Enabled = False
@@ -2769,12 +2603,7 @@ Public Class frmPIN
         cboEmpresas.Enabled = True
         txtAsunto.ReadOnly = False
         cboInstrumentosFinancieros.Enabled = True
-        txtMontoInversion.ReadOnly = False
-        txtPrecio.ReadOnly = False
-        txtRendimiento.ReadOnly = False
-        txtPlazoNumero.ReadOnly = False
         cboPlazosFactor.Enabled = True
-        txtIngresos.ReadOnly = False
         cboOrigenDeFondos.Enabled = False
         cboEmisores.Enabled = True
         cboCalificacionDeRiesgo.Enabled = True
@@ -2980,7 +2809,7 @@ Public Class frmPIN
 
         PreNuevoModificar()
 
-        formato()
+
 
         ModoPropuesta()
 
@@ -2994,12 +2823,8 @@ Public Class frmPIN
 
     Private Sub DeshabilitarBotonesBusqueda()
 
-        txtMontoInversion.ReadOnly = True
-        txtPrecio.ReadOnly = True
-        txtRendimiento.ReadOnly = True
-        txtPlazoNumero.ReadOnly = True
+
         cboPlazosFactor.Enabled = False
-        txtIngresos.ReadOnly = True
         cboOrigenDeFondos.Enabled = False
         cboCalificacionDeRiesgo.Enabled =
         cboCalificadoraDeRiesgo.Enabled = False
@@ -3063,7 +2888,7 @@ Public Class frmPIN
         Refrescar()
         TipoTransaccion = "A"
         PreNuevoModificar()
-        formato()
+
         HabilitarAut()
         ModoPropuesta()
         If Not LlamadaDesdeBusqueda Then
@@ -3218,17 +3043,14 @@ Public Class frmPIN
         Me.cboTipoMercado.BackColor = Configuraciones.ColorFondoPredefinido()
         Me.txtNombre.BackColor = Configuraciones.ColorFondoPredefinido()
         Me.cboPeriodicidad.BackColor = Configuraciones.ColorFondoPredefinido()
-        Me.txtPlazoNumero.BackColor = Configuraciones.ColorFondoPredefinido()
+
         Me.cboPlazosFactor.BackColor = Configuraciones.ColorFondoPredefinido()
         Me.cboRenta.BackColor = Configuraciones.ColorFondoPredefinido()
         Me.cboTasa.BackColor = Configuraciones.ColorFondoPredefinido()
         Me.txtCodigoInversion.BackColor = Configuraciones.ColorFondoPredefinido()
         Me.cboEstadoDocumento.BackColor = Configuraciones.ColorFondoPredefinido()
 
-        txtMontoInversion.BackColor = Configuraciones.ColorFondoPredefinido()
-        txtPrecio.BackColor = Configuraciones.ColorFondoPredefinido()
-        txtRendimiento.BackColor = Configuraciones.ColorFondoPredefinido()
-        txtIngresos.BackColor = Configuraciones.ColorFondoPredefinido()
+
         cboOrigenDeFondos.BackColor = Configuraciones.ColorFondoPredefinido()
         cboTipoOperacion.BackColor = Configuraciones.ColorFondoPredefinido()
         cboAutorizacion.BackColor = Configuraciones.ColorFondoPredefinido()
@@ -3264,17 +3086,14 @@ Public Class frmPIN
         Me.cboTipoMercado.BackColor = Color.White
         Me.txtNombre.BackColor = Color.White
         Me.cboPeriodicidad.BackColor = Color.White
-        Me.txtPlazoNumero.BackColor = Color.White
+
         Me.cboPlazosFactor.BackColor = Color.White
         Me.cboRenta.BackColor = Color.White
         Me.cboTasa.BackColor = Color.White
 
         Me.cboEstadoDocumento.BackColor = Color.White()
 
-        txtMontoInversion.BackColor = Color.White
-        txtPrecio.BackColor = Color.White
-        txtRendimiento.BackColor = Color.White
-        txtIngresos.BackColor = Color.White
+
         cboOrigenDeFondos.BackColor = Color.White
         cboTipoOperacion.BackColor = Color.White
         cboAutorizacion.BackColor = Color.White
@@ -3286,62 +3105,34 @@ Public Class frmPIN
     End Sub
 
 
-    Sub formato()
-        If String.IsNullOrEmpty(txtMontoInversion.Text) Then
-            txtMontoInversion.Text = 0
-        End If
-
-        If String.IsNullOrEmpty(txtPrecio.Text) Then
-            txtPrecio.Text = 0
-        End If
-
-        If txtRendimiento.Text.ToString.IndexOf("%") = -1 Then
-            txtRendimiento.Text = txtRendimiento.Text.ToString + "%"
-        End If
-
-        If String.IsNullOrEmpty(txtRendimiento.Text.ToString.Trim("%")) Then
-            txtRendimiento.Text = "0.0%"
-        End If
-
-        If String.IsNullOrEmpty(txtPlazoNumero.Text) Then
-            txtPlazoNumero.Text = 0
-        End If
-
-
-        If String.IsNullOrEmpty(txtIngresos.Text) Then
-            txtIngresos.Text = 0
-        End If
 
 
+    Private Sub txtMontoInversion_Leave(sender As Object, e As EventArgs)
 
     End Sub
 
-    Private Sub txtMontoInversion_Leave(sender As Object, e As EventArgs) Handles txtMontoInversion.Leave
-        formato()
-    End Sub
+    Private Sub txtPrecio_Leave(sender As Object, e As EventArgs)
 
-    Private Sub txtPrecio_Leave(sender As Object, e As EventArgs) Handles txtPrecio.Leave
-        formato()
     End Sub
 
     Private Sub txtRendimiento_Leave(sender As Object, e As EventArgs)
 
     End Sub
 
-    Private Sub txtPlazoNumero_Leave(sender As Object, e As EventArgs) Handles txtPlazoNumero.Leave
-        formato()
+    Private Sub txtPlazoNumero_Leave(sender As Object, e As EventArgs)
+
     End Sub
 
-    Private Sub txtIngresos_Leave(sender As Object, e As EventArgs) Handles txtIngresos.Leave
+    Private Sub txtIngresos_Leave(sender As Object, e As EventArgs)
 
     End Sub
 
-    Private Sub txtRendimiento_TextChanged_1(sender As Object, e As EventArgs) Handles txtRendimiento.TextChanged
-        ControlRend()
+    Private Sub txtRendimiento_TextChanged_1(sender As Object, e As EventArgs)
+
     End Sub
 
-    Private Sub txtRendimiento_Leave_1(sender As Object, e As EventArgs) Handles txtRendimiento.Leave
-        formato()
+    Private Sub txtRendimiento_Leave_1(sender As Object, e As EventArgs)
+
     End Sub
 
     Private Sub Navegador_EndDrag(sender As Object, e As EventArgs) Handles Navegador.EndDrag
@@ -4686,7 +4477,7 @@ Public Class frmPIN
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles navRecorrer.Click
         DeshabilitarControles()
         PreBusqueda()
-        formato()
+
         Modo = "NM"
         ModoPropuesta()
         Me.PIN0TableAdapter3.Fill(Me.InversionesDEVDataSet5.PIN0)
@@ -4714,7 +4505,7 @@ Public Class frmPIN
                 ModoPropuesta()
                 DeshabilitarControles()
                 PreBusqueda()
-                formato()
+
                 CargarPropuesta(Id)
 
                 LlamadaDesdeBusqueda = True
@@ -4738,7 +4529,7 @@ Public Class frmPIN
     End Sub
 
 
-    Private Sub txtMontoInversion_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtMontoInversion.KeyPress
+    Private Sub txtMontoInversion_KeyPress(sender As Object, e As KeyPressEventArgs)
         ValidarEntradaPrecionada(sender, e)
     End Sub
 
@@ -4769,39 +4560,39 @@ Public Class frmPIN
         End If
     End Sub
 
-    Private Sub txtMontoInversion_KeyUp(sender As Object, e As KeyEventArgs) Handles txtMontoInversion.KeyUp
+    Private Sub txtMontoInversion_KeyUp(sender As Object, e As KeyEventArgs)
         ValidarEntradaLevantar(sender)
     End Sub
 
-    Private Sub txtIngresos_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtIngresos.KeyPress
+    Private Sub txtIngresos_KeyPress(sender As Object, e As KeyPressEventArgs)
         ValidarEntradaPrecionada(sender, e)
     End Sub
 
-    Private Sub txtIngresos_KeyUp(sender As Object, e As KeyEventArgs) Handles txtIngresos.KeyUp
+    Private Sub txtIngresos_KeyUp(sender As Object, e As KeyEventArgs)
         ValidarEntradaLevantar(sender)
     End Sub
 
-    Private Sub txtPrecio_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecio.KeyPress
+    Private Sub txtPrecio_KeyPress(sender As Object, e As KeyPressEventArgs)
         ValidarEntradaPrecionada(sender, e)
     End Sub
 
-    Private Sub txtPrecio_KeyUp(sender As Object, e As KeyEventArgs) Handles txtPrecio.KeyUp
+    Private Sub txtPrecio_KeyUp(sender As Object, e As KeyEventArgs)
         ValidarEntradaLevantar(sender)
     End Sub
 
-    Private Sub txtRendimiento_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtRendimiento.KeyPress
+    Private Sub txtRendimiento_KeyPress(sender As Object, e As KeyPressEventArgs)
         ValidarEntradaPrecionada(sender, e)
     End Sub
 
-    Private Sub txtRendimiento_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRendimiento.KeyUp
+    Private Sub txtRendimiento_KeyUp(sender As Object, e As KeyEventArgs)
         ValidarEntradaLevantar(sender)
     End Sub
 
-    Private Sub txtPlazoNumero_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPlazoNumero.KeyPress
+    Private Sub txtPlazoNumero_KeyPress(sender As Object, e As KeyPressEventArgs)
         ValidarEntradaPrecionada(sender, e)
     End Sub
 
-    Private Sub txtPlazoNumero_KeyUp(sender As Object, e As KeyEventArgs) Handles txtPlazoNumero.KeyUp
+    Private Sub txtPlazoNumero_KeyUp(sender As Object, e As KeyEventArgs)
         ValidarEntradaLevantar(sender)
     End Sub
 
@@ -4888,7 +4679,6 @@ Public Class frmPIN
 
             PrepararModificacion()
 
-            formato()
 
             ModoPropuesta()