Actualizacion

FRM/frmAcciones.vb

@@ -406,7 +406,7 @@ Public Class frmAcciones
 
         DatosCargados = True
 
-        CargarTransladoNuevo()
+
         ConfiguracionCMVTA(VExisteInversion)
     End Sub
 
@@ -2569,21 +2569,7 @@ Public Class frmAcciones
     End Sub
 
 
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If CantFormAbierto = False Then
-            If Not RetCodigoInversionExiste And Not Existe Then
-                Dim TipoTransaccionCompraVenta As String = Variables.TipoTransaccionCompraVenta
-                If TipoTransaccionCompraVenta = "C" Then
-                    txtPrecioLimpioCompra.Text = Variables.RetPrecio
-                    txtUnidadesCompra.Text = Variables.RetUnidadesAcciones
-                ElseIf TipoTransaccionCompraVenta = "V" Then
-                    txtPrecioLimpioVenta.Text = Variables.RetPrecio
-                    txtUnidadesVenta.Text = Variables.RetUnidadesAcciones
-                End If
-            End If
-        End If
-    End Sub
+
 
     Private Sub btnVenderTitulo_Click(sender As Object, e As EventArgs) Handles btnVenderTitulo.Click
         If Variables.InvocadorProInv = "frmINV" Then

FRM/frmCertificadosDeInversion.vb

@@ -243,7 +243,6 @@
         Cargar = False
         BotonQuitar()
         CamposTiempo()
-        CargarTransladoNuevo()
         ConfiguracionCMVTA(VExisteInversion)
     End Sub
 
@@ -3376,23 +3375,6 @@
 
     End Sub
 
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If CantFormAbierto = False Then
-            If Not RetCodigoInversionExiste And Not Existe Then
-                Dim TipoTransaccionCompraVenta As String = Variables.TipoTransaccionCompraVenta
-                If TipoTransaccionCompraVenta = "C" Then
-                    txtValorNominalCompra.Text = Variables.RetMonto
-                    txtPrecioCompra.Text = Variables.RetPrecio
-                    txtPorcentajeCuponCompra.Text = Variables.RetRendimiento
-                ElseIf TipoTransaccionCompraVenta = "V" Then
-                    txtValorNominalVenta.Text = Variables.RetMonto
-                    txtPrecioVenta.Text = Variables.RetPrecio
-                    txtPorcentajeCuponVenta.Text = Variables.RetRendimiento
-                End If
-            End If
-        End If
-    End Sub
 
     Private Sub btnVenderTitulo_Click(sender As Object, e As EventArgs) Handles btnVenderTitulo.Click
 

FRM/frmDepositosAPlazo.vb

@@ -65,7 +65,7 @@
         End If
 
         If (String.IsNullOrEmpty(txtImpuesto.Text.ToString.Trim("%"))) Then
-            txtImpuesto.Text = "0.0%"
+            txtImpuesto.Text = "10%"
         End If
     End Sub
 
@@ -81,17 +81,16 @@
         End If
 
 
-        Call CargarRegistroBD()
+        If ExisteInversion() Then
+            Call CargarRegistroBD()
+        End If
 
 
 
         CalcularPlazo()
         Calculo()
-        vCargado = True
-        ExisteInversion()
         ValidarExistencia()
-        CargarTransladoNuevo()
-
+        vCargado = True
     End Sub
     Sub BloquearClickDerecho()
         txtPlazo.ContextMenuStrip = New ContextMenuStrip
@@ -372,7 +371,7 @@
                     Me.txtImpuesto.Text = Operaciones.ConvertirDecimal(item("PorcImp").ToString) * 100
                 Next
             Else
-                Me.txtImpuesto.Text = "0.0%"
+                Me.txtImpuesto.Text = "10%"
             End If
 
 
@@ -891,13 +890,7 @@
     End Sub
 
 
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If Not RetCodigoInversionExiste And Not Existe Then
-            txtMontoInversion.Text = Variables.RetMonto
-            txtTasa.Text = Variables.RetRendimiento
-        End If
-    End Sub
+
 
     Private Sub txtRendimientoNeto_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoNeto.TextChanged
 

FRM/frmFOIN.vb

@@ -16,7 +16,6 @@
         Calculos()
         ExisteInversion()
         ValidarExistencia()
-        CargarTransladoNuevo()
     End Sub
     Sub ValidarExistencia()
         Dim General As New DAOGeneral
@@ -1250,12 +1249,5 @@
         End If
     End Sub
 
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If Not RetCodigoInversionExiste And Not Existe Then
-            txtRendimientoOfrecido.Text = Variables.RetRendimiento
-            txtCuotasDeParticipacion.Text = Variables.RetCuotaParticipacionFINV
-            txtValorDeParticipacion.Text = Variables.RetValorParticipacionFINV
-        End If
-    End Sub
+
 End Class

FRM/frmFuturos.vb

@@ -53,9 +53,6 @@
         VExisteInversion = ExisteInversion()
         ValidarExistencia()
         RellenarDatos()
-
-
-        CargarTransladoNuevo()
         ConfiguracionCMVTA(VExisteInversion)
     End Sub
 
@@ -977,23 +974,7 @@
 
 
 
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If CantFormAbierto = False Then
-            If Not RetCodigoInversionExiste And Not Existe Then
-                Dim TipoTransaccionCompraVenta As String = Variables.TipoTransaccionCompraVenta
-                If TipoTransaccionCompraVenta = "C" Then
-                    txtValorUnidadCompra.Text = Variables.RetPrecio
-                    txtCantidadContratosCompra.Text = Variables.RetCantidadContratosFuturos
-                    txtUnidadesContratoCompra.Text = Variables.RetUnidadesContratosFuturos
-                ElseIf TipoTransaccionCompraVenta = "V" Then
-                    txtValorUnidadVenta.Text = Variables.RetPrecio
-                    txtCantidadContratosVenta.Text = Variables.RetCantidadContratosFuturos
-                    txtUnidadesContratoVenta.Text = Variables.RetUnidadesContratosFuturos
-                End If
-            End If
-        End If
-    End Sub
+
 
     Private Sub btnVenderTitulo_Click(sender As Object, e As EventArgs) Handles btnVenderTitulo.Click
         If Variables.InvocadorProInv = "frmINV" Then

FRM/frmLetes.vb

@@ -222,7 +222,7 @@ Public Class frmLetes
 
 
     Private Sub dtpFechaVencimiento_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimiento.ValueChanged
-
+        RellenarDatos()
 
     End Sub
 
@@ -398,7 +398,7 @@ Public Class frmLetes
         Rellenar()
         ExisteInversion()
         ValidarExistencia()
-        CargarTransladoNuevo()
+
     End Sub
 
 
@@ -1825,13 +1825,13 @@ Public Class frmLetes
             Dias = txtPlazoInversion.Text
         End If
 
-        Dim Fechaliquidacion = dtpFechaLiquidacion.Value
-        Dim FechaVencimiento = dtpFechaVencimiento.Value
+        Dim Fechaliquidacion = Operaciones.ConvertirFecha(dtpFechaLiquidacion.Value.ToString)
+        Dim FechaVencimiento = Operaciones.ConvertirFecha(dtpFechaVencimiento.Value.ToString)
 
 
         If (IndexBase = 0 Or IndexBase = 2) Then
             If VCN Then
-                txtPlazoInversion.Text = Operaciones.Base360(Fechaliquidacion, FechaVencimiento)
+                txtPlazoInversion.Text = Operaciones.Base360(Fechaliquidacion, FechaVencimiento) - 1
             Else
                 dtpFechaVencimiento.Value = Operaciones.FechaDias360(Fechaliquidacion, Dias)
             End If
@@ -2209,12 +2209,6 @@ Public Class frmLetes
 
 
 
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If Not RetCodigoInversionExiste And Not Existe Then
-            txtValorNominal.Text = Variables.RetMonto
-            txtRendimientoBruto.Text = Variables.RetRendimiento
-        End If
-    End Sub
+
 
 End Class

FRM/frmNotaEstructurada.vb

@@ -69,7 +69,6 @@
         vCargado = True
         ExisteInversion()
         ValidarExistencia()
-        CargarTransladoNuevo()
     End Sub
 
     Sub RellenarDatos()
@@ -849,12 +848,5 @@
         CalcularPlazo()
         Calculo()
     End Sub
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If Not RetCodigoInversionExiste And Not Existe Then
 
-            txtMontoInversion.Text = Variables.RetMonto
-            txtTasa.Text = Variables.RetRendimiento
-        End If
-    End Sub
 End Class

FRM/frmPrestamoEmpresariales.vb

@@ -62,7 +62,7 @@
         FinCarga = True
         ExisteInversion()
         ValidarExistencia()
-        CargarTransladoNuevo()
+
     End Sub
 
 
@@ -1203,13 +1203,7 @@
         End If
     End Sub
 
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If Not RetCodigoInversionExiste And Not Existe Then
-            txtMonto.Text = Variables.RetMonto
-            txtTasa.Text = Variables.RetRendimiento
-        End If
-    End Sub
+
 
     Private Sub txtPlazoDias_TextChanged(sender As Object, e As EventArgs) Handles txtPlazoDias.TextChanged
 

FRM/frmPrestamoPersonal.vb

@@ -19,7 +19,6 @@ Public Class frmPrestamoPersonal
         Calculos(False)
         ExisteInversion()
         ValidarExistencia()
-        CargarTransladoNuevo()
     End Sub
 
 
@@ -1342,13 +1341,7 @@ Public Class frmPrestamoPersonal
 
 
 
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If Not RetCodigoInversionExiste And Not Existe Then
-            txtMontoPrestamo.Text = Variables.RetMonto
-            txtTasaInteres.Text = Variables.RetRendimiento
-        End If
-    End Sub
+
 
     Private Sub txtNumeroDeudor_TextChanged(sender As Object, e As EventArgs) Handles txtNumeroDeudor.TextChanged
 

FRM/frmReporto.vb

@@ -505,7 +505,7 @@
         ExisteInversion()
         ValidarExistencia()
         Formato()
-        CargarTransladoNuevo()
+
     End Sub
 
 
@@ -1401,13 +1401,5 @@
     Private Sub btnRequisicion_Click(sender As Object, e As EventArgs) 
 
     End Sub
-    Sub CargarTransladoNuevo()
-        Dim Existe As Boolean = ExisteInversion()
-        If Not RetCodigoInversionExiste And Not Existe Then
-            If dgvReportos.Rows(0).Cells("Valor Trasado").Value = 0 Then
-                dgvReportos.Rows(0).Cells("Valor Trasado").Value = Variables.RetMonto
-            End If
 
-        End If
-    End Sub
 End Class

frmPIN.vb

@@ -2604,7 +2604,7 @@ Public Class frmPIN
         txtAsunto.ReadOnly = False
         cboInstrumentosFinancieros.Enabled = True
         cboPlazosFactor.Enabled = True
-        cboOrigenDeFondos.Enabled = False
+        cboOrigenDeFondos.Enabled = True
         cboEmisores.Enabled = True
         cboCalificacionDeRiesgo.Enabled = True
         cboCalificadoraDeRiesgo.Enabled = True