|
|
@@ -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()
|
|
|
|
ahernandez