Public Class frmINV Dim oDAOGeneral As New DAOGeneral Dim oInversionCE As New InversionesCE Dim oInversionDAO As New InversionDAO Dim controladores As New Controldores Dim frmAcciones As frmAcciones Dim FormAcciones As frmAcciones Dim FormFuturos As frmFuturos Dim FormPrestamoEmpresarial As frmPrestamoEmpresariales Dim FormPrestamoPersonal As frmPrestamoPersonal Dim FormRepo As frmReporto Dim FormLete As frmLetes Dim FormCINV As frmCertificadosDeInversion Dim FormDAP As frmDepositosAPlazo Dim IsReporto As Boolean = False Dim FormNEST As frmNotaEstructurada Dim FormFOIN As frmFOIN Dim frmBuscar As New frmBuscarDeLista(2) Dim Operaciones As New Operaciones Private TipoOperacion As String = String.Empty Dim oInstrumentoFinanciero As Object Dim Modo As String = "NM" Dim Col_Empresas As New Collection Dim Col_Emisor As New Collection Dim Col_EstDocumento As New Collection Dim Col_Instrumento As New Collection Dim Col_CalRiesgo As New Collection Dim Col_TipOperacion As New Collection Dim Col_OriFond As New Collection Dim Col_CalERiesgo As New Collection Dim Col_EstadoProceso As New Collection Dim Col_Plazo As New Collection Dim Col_Pais As New Collection Dim Col_TipMercado As New Collection Dim ConDatos As Integer = 0 Public EnviadoContaduria As Boolean = False Public DocumentoAnexado As Boolean = False Private TipoOperacionRepo As String = String.Empty Private GenerarReportoVenta As Boolean = False Private DicDatos As New Dictionary(Of String, Object) Private MontoReportoVenta As Double = 0 Private CodigoAsociacion As String = String.Empty Private HabilitarAsociacion As Boolean = False Private EstadoReporto As String = String.Empty Private ColUnionTablas As New Collection Sub New() ' Esta llamada es exigida por el diseñador. InitializeComponent() ' Agregue cualquier inicialización después de la llamada a InitializeComponent(). Variables.TrasladarCMVTA = Nothing End Sub Sub New(ByRef DicDatos As Dictionary(Of String, Object)) Me.New Me.DicDatos = DicDatos GenerarReportoVenta = True Variables.TrasladarCMVTA = Nothing End Sub Sub ConfigurarReportoVenta() HabilitarAsociacion = True Dim CodigoAsociacion As String = String.Empty Dim Empresa As String = String.Empty Dim Monto As Double = 0 If DicDatos.ContainsKey("CodigoAsociacion") Then CodigoAsociacion = DicDatos.Item("CodigoAsociacion").ToString End If If DicDatos.ContainsKey("Empresa") Then Empresa = DicDatos.Item("Empresa").ToString End If If DicDatos.ContainsKey("MontoUsado") Then Monto = Operaciones.ConvertirDecimal(DicDatos.Item("MontoUsado").ToString) End If If DicDatos.ContainsKey("ColUnionTablas") Then ColUnionTablas = DicDatos.Item("ColUnionTablas") End If MontoReportoVenta = Monto Me.CodigoAsociacion = CodigoAsociacion If GenerarReportoVenta Then Navegador.Enabled = False Modo = "NM" 'HabilitarBotones()' btnAccion.Text = "Guardar" ModoInversion() PrepararNuevo() cboEmpresas.Enabled = False cboEstadoDocumento.Enabled = False cboTipoOperacion.Enabled = False cboOrigenDeFondos.Enabled = False cboInstrumentos.Enabled = False cboEstadoProceso.Enabled = False cboEmpresas.SelectedValue = Empresa cboEstadoDocumento.SelectedValue = "A" cboTipoOperacion.SelectedValue = "C" cboOrigenDeFondos.SelectedValue = "D" cboInstrumentos.SelectedValue = "REPOVENTA" cboEstadoProceso.SelectedValue = "R" End If End Sub Private Sub frmInversiones_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: esta línea de código carga datos en la tabla 'InversionesDEVDataSet5.PIN0' Puede moverla o quitarla según sea necesario. 'Me.PIN0TableAdapter.Fill(Me.InversionesDEVDataSet5.PIN0) frmProgreso.PgbProgreso.Value = 1 Call CargarEstadosInversion() frmProgreso.PgbProgreso.Value = 5 Call CargarEmpresas() frmProgreso.PgbProgreso.Value = 10 Call CargarInstrumentosFinancieros() frmProgreso.PgbProgreso.Value = 15 Call CargarEmisores() frmProgreso.PgbProgreso.Value = 20 Call CargarCalificacionDeRiesgo() frmProgreso.PgbProgreso.Value = 22 Call CargarCalificadoraDeRiesgo() frmProgreso.PgbProgreso.Value = 25 Call CargarPaises() frmProgreso.PgbProgreso.Value = 30 Call CargarTiposMercado() frmProgreso.PgbProgreso.Value = 35 Call CargarTipoRenta() frmProgreso.PgbProgreso.Value = 40 Call CargarTipoTasa() frmProgreso.PgbProgreso.Value = 45 Call CargarPlazos() frmProgreso.PgbProgreso.Value = 50 Call CargarPeriodicidades() frmProgreso.PgbProgreso.Value = 55 Call CargarOrigenFondo() frmProgreso.PgbProgreso.Value = 60 Call CargarEstadoProceso() frmProgreso.PgbProgreso.Value = 65 Call CargarTipoOperacion() frmProgreso.PgbProgreso.Value = 70 PrepararBusqueda() frmProgreso.PgbProgreso.Value = 75 CargarNavegador() frmProgreso.PgbProgreso.Value = 80 frmProgreso.PgbProgreso.Value = 85 ConfiguracionInicial() frmProgreso.PgbProgreso.Value = 87 frmProgreso.PgbProgreso.Value = 90 ModoInversion() frmProgreso.PgbProgreso.Value = 92 TipoOperacion = "B" DeshabilitarControles() ColoresBloqueados() frmProgreso.PgbProgreso.Value = 94 Me.btnAccion.Text = "Aceptar" EstadoBoton() frmProgreso.PgbProgreso.Value = 96 Modificar() frmProgreso.PgbProgreso.Value = 100 'CodigoCompra() frmProgreso.Visible = False ConfigurarReportoVenta() End Sub Sub CodigoCompra() Dim CodigoCompra As String = String.Empty If Not String.IsNullOrEmpty(txtCodigoCompra.Text.ToString) Then CodigoCompra = txtCodigoCompra.Text.ToString End If If Not String.IsNullOrEmpty(CodigoCompra) Then lblCodigoCompra.Visible = True txtCodigoCompra.Visible = True txtCodigoCompra.Text = CodigoCompra Else lblCodigoCompra.Visible = False txtCodigoCompra.Visible = False End If End Sub Private Function CamposRequeridos() As Integer If String.IsNullOrEmpty(txtNombreManual.Text.ToString) Then MsgBox("Ingrese el nombre del titulo") Return 1 End If If (String.IsNullOrEmpty(Me.cboEmpresas.SelectedValue)) Then MsgBox("Seleccione una Empresa") Return 1 End If If (String.IsNullOrEmpty(Me.cboInstrumentos.SelectedValue)) Then MsgBox("Seleccione un Instrumento") Return 1 End If If (String.IsNullOrEmpty(Me.cboTiposMercado.SelectedValue)) Then MsgBox("Seleccione un Tipo de Mercado") Return 1 End If If (String.IsNullOrEmpty(Me.cboPaises.SelectedValue)) Then MsgBox("Seleccione un Pais") Return 1 End If If (String.IsNullOrEmpty(Me.cboEstadoDocumento.SelectedValue)) Then MsgBox("Error con los campos del titulo") Return 1 End If If (String.IsNullOrEmpty(Me.cboTipoOperacion.SelectedValue)) Then MsgBox("Error con los campos del titulo") Return 1 End If If (String.IsNullOrEmpty(Me.cboOrigenDeFondos.SelectedValue)) Then MsgBox("Error con los campos del titulo") Return 1 End If If (String.IsNullOrEmpty(Me.cboEstadoProceso.SelectedValue)) Then MsgBox("Error con los campos del titulo") Return 1 End If Dim ExisteReportoVenta As Boolean = ReportoVenta() If ExisteReportoVenta Then Return 0 Else MsgBox("Agregue un registro en el detalle") Return 1 End If Return 0 End Function Private Sub CargarNavegador() vBindingSource.DataSource = oInversionDAO.ListaCodigosInversion Navegador.BindingSource = vBindingSource 'vBindingSource.Position = 0 End Sub Private Sub LimpiarNavegador() vBindingSource.DataSource = Nothing End Sub Private Sub CargarTipoOperacion() Me.cboTipoOperacion.DataSource = oDAOGeneral.ListaTipoOperacion Me.cboTipoOperacion.DisplayMember = "Descripcion" Me.cboTipoOperacion.ValueMember = "Codigo" Col_TipOperacion = AgregarCheckbox(cboTipoOperacion, flpTipoOperacion) Me.cboTipoOperacion.SelectedIndex = -1 End Sub Private Sub CargarOrigenFondo() Me.cboOrigenDeFondos.DataSource = oDAOGeneral.ListaOrigenDeFondos Me.cboOrigenDeFondos.DisplayMember = "Descripcion" Me.cboOrigenDeFondos.ValueMember = "Codigo" Col_OriFond = AgregarCheckbox(cboOrigenDeFondos, flpOrigenFondos) Me.cboOrigenDeFondos.SelectedIndex = 0 End Sub Private Sub CargarEstadoProceso() Me.cboEstadoProceso.DataSource = oDAOGeneral.ListaEstadoProceso Me.cboEstadoProceso.DisplayMember = "Descripcion" Me.cboEstadoProceso.ValueMember = "Codigo" Col_EstadoProceso = AgregarCheckbox(cboEstadoProceso, flpEstadoProceso) Me.cboEstadoProceso.SelectedIndex = -1 End Sub Private Sub CargarPeriodicidades() Me.cboPeriodicidad.DataSource = oDAOGeneral.ListaPeriodicidad Me.cboPeriodicidad.DisplayMember = "Descripcion" Me.cboPeriodicidad.ValueMember = "Codigo" Me.cboPeriodicidad.SelectedIndex = -1 End Sub Private Sub CargarPlazos() Me.cboPlazoFactor.DataSource = oDAOGeneral.ListaPlazosFactor Me.cboPlazoFactor.DisplayMember = "Descripcion" Me.cboPlazoFactor.ValueMember = "Codigo" Col_Plazo = AgregarCheckbox(cboPlazoFactor, flpPlazo) Me.cboPlazoFactor.SelectedIndex = -1 End Sub Private Sub CargarTipoRenta() Me.cboTipoRenta.DataSource = oDAOGeneral.ListaTipoRenta Me.cboTipoRenta.DisplayMember = "Descripcion" Me.cboTipoRenta.ValueMember = "Codigo" Me.cboTipoRenta.SelectedIndex = -1 End Sub Private Sub CargarTipoTasa() Me.cboTipoTasa.DataSource = oDAOGeneral.ListaTipoTasa Me.cboTipoTasa.DisplayMember = "Descripcion" Me.cboTipoTasa.ValueMember = "Codigo" Me.cboTipoTasa.SelectedIndex = -1 End Sub Private Sub CargarEstadosInversion() Me.cboEstadoDocumento.DataSource = oDAOGeneral.ListaEstadoInversion Me.cboEstadoDocumento.DisplayMember = "Descripcion" Me.cboEstadoDocumento.ValueMember = "Codigo" Col_EstDocumento = AgregarCheckbox(cboEstadoDocumento, flpEstadoDocumento) Me.cboEstadoDocumento.SelectedIndex = -1 End Sub Private Sub CargarEmpresas() Me.cboEmpresas.DataSource = oDAOGeneral.ListaEmpresas Me.cboEmpresas.DisplayMember = "Descripcion" Me.cboEmpresas.ValueMember = "Codigo" Col_Empresas = AgregarCheckbox(cboEmpresas, flpEmpresas) Me.cboEmpresas.SelectedIndex = -1 End Sub Private Sub CargarInstrumentosFinancieros() Me.cboInstrumentos.DataSource = oDAOGeneral.ListaInstrumentos Me.cboInstrumentos.DisplayMember = "Descripcion" Me.cboInstrumentos.ValueMember = "Codigo" Col_Instrumento = AgregarCheckbox(cboInstrumentos, flpInstrumentos) Me.cboInstrumentos.SelectedIndex = -1 End Sub Private Sub CargarEmisores() Me.cboEmisores.DataSource = oDAOGeneral.ListaEmisores Me.cboEmisores.DisplayMember = "Descripcion" Me.cboEmisores.ValueMember = "Codigo" Col_Emisor = AgregarCheckbox(cboEmisores, flpEmisor) Me.cboEmisores.SelectedIndex = -1 End Sub Private Sub CargarCalificacionDeRiesgo() Me.cboCalificaciones.DataSource = oDAOGeneral.ListaCalificacionesDeRiesgo Me.cboCalificaciones.DisplayMember = "Descripcion" Me.cboCalificaciones.ValueMember = "Codigo" Col_CalRiesgo = AgregarCheckbox(cboCalificaciones, flpCalificacionRiesgo) Me.cboCalificaciones.SelectedIndex = -1 End Sub Private Sub CargarCalificadoraDeRiesgo() Me.cboCalificadoras.DataSource = oDAOGeneral.ListaEmpresasCalificadoras Me.cboCalificadoras.DisplayMember = "Descripcion" Me.cboCalificadoras.ValueMember = "Codigo" Col_CalERiesgo = AgregarCheckbox(cboCalificadoras, flpCalificadoraRiesgo) Me.cboCalificadoras.SelectedIndex = -1 End Sub Private Sub CargarPaises() Me.cboPaises.DataSource = oDAOGeneral.ListaPaisesRelevanteInversion Me.cboPaises.DisplayMember = "Descripcion" Me.cboPaises.ValueMember = "Codigo" Col_Pais = AgregarCheckbox(cboPaises, flpPais) Me.cboPaises.SelectedIndex = -1 End Sub Private Sub CargarTiposMercado() Me.cboTiposMercado.DataSource = oDAOGeneral.ListaTiposMercado Me.cboTiposMercado.DisplayMember = "Descripcion" Me.cboTiposMercado.ValueMember = "Codigo" Col_TipMercado = AgregarCheckbox(cboTiposMercado, flpTipoMercado) Me.cboTiposMercado.SelectedIndex = -1 End Sub Private Sub navBuscar_Click(sender As Object, e As EventArgs) Handles navBuscar.Click Modo = "B" ModoInversion() End Sub Private Sub PrepararBusqueda() HabilitarControles() LimpiarControles() oInversionCE = Nothing oInversionCE = New InversionesCE DeshabilitarControles() ColoresBloqueados() dtpFechaDocumento.Enabled = False TipoOperacion = "B" Me.btnAccion.Text = "Buscar" End Sub Private Sub HabilitarControles() cboEmpresas.Enabled = True cboInstrumentos.Enabled = True cboEmisores.Enabled = True cboCalificaciones.Enabled = True cboCalificadoras.Enabled = True cboPaises.Enabled = True cboTiposMercado.Enabled = True txtCodigoInversion.ReadOnly = False cboEstadoDocumento.Enabled = True dtpFechaDocumento.Enabled = True txtNombreManual.ReadOnly = False txtCodigoManual.ReadOnly = False cboPlazoFactor.Enabled = True cboPeriodicidad.Enabled = True cboTipoOperacion.Enabled = True cboOrigenDeFondos.Enabled = True cboTipoRenta.Enabled = True cboTipoTasa.Enabled = True txtPlazoNum.ReadOnly = False cboTipoOperacion.BackColor = Color.White cboOrigenDeFondos.BackColor = Color.White cboTipoRenta.BackColor = Color.White cboTipoTasa.BackColor = Color.White cboEmpresas.BackColor = Color.White cboInstrumentos.BackColor = Color.White cboEmisores.BackColor = Color.White cboCalificaciones.BackColor = Color.White cboCalificadoras.BackColor = Color.White cboTipoOperacion.BackColor = Color.White cboOrigenDeFondos.BackColor = Color.White cboEstadoProceso.BackColor = Color.White Me.cboPaises.BackColor = Color.White Me.cboTiposMercado.BackColor = Color.White Me.txtNombreManual.BackColor = Color.White Me.cboPeriodicidad.BackColor = Color.White Me.txtPlazoNum.BackColor = Color.White Me.cboPlazoFactor.BackColor = Color.White Me.cboTipoRenta.BackColor = Color.White Me.cboTipoTasa.BackColor = Color.White Me.txtCodigoInversion.BackColor = Color.White Me.txtCodigoManual.BackColor = Color.White Me.cboEstadoDocumento.BackColor = Color.White End Sub Private Sub DeshabilitarControles() cboEmpresas.Enabled = False cboInstrumentos.Enabled = False cboEmisores.Enabled = False cboCalificaciones.Enabled = False cboCalificadoras.Enabled = False cboPaises.Enabled = False cboTiposMercado.Enabled = False txtCodigoInversion.ReadOnly = True cboEstadoDocumento.Enabled = False txtNombreManual.ReadOnly = True txtCodigoManual.ReadOnly = True cboTipoOperacion.Enabled = False cboOrigenDeFondos.Enabled = False cboTipoRenta.Enabled = False cboTipoTasa.Enabled = False cboPeriodicidad.Enabled = False cboPlazoFactor.Enabled = False txtPlazoNum.ReadOnly = True End Sub Private Sub cboEmpresas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboEmpresas.SelectedIndexChanged ControlEmpresas() End Sub Private Sub ControlEmpresas() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.CodigoEmpresa = cboEmpresas.SelectedValue End If If TipoOperacion = "N" Then ActualizarCodigoNuevo() End If End Sub Private Sub ControlCodigoIFManual() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.CodigoManual = txtCodigoManual.Text End If End Sub Private Sub Buscar() 'frmBuscarDeLista.dgvBuscarDeLista.DataSource = oInversionDAO.Buscar(oInversionCE) If frmBuscarDeLista.ShowDialog = DialogResult.OK Then If Not frmBuscarDeLista.CodigoPrincipal = Nothing Then CargarRegistro(frmBuscarDeLista.CodigoPrincipal) End If End If End Sub Private Sub CargarRegistro(ByVal IdRegistro As Integer) TipoOperacion = "C" Dim Id As Integer = 0 If ConDatos > 0 Then Id = ConDatos Else Id = IdRegistro End If oInversionCE = oInversionDAO.CargarRegistro(Id) ConDatos = 0 RefrescarValoresDeControles() RefrescarEstadoControles() ColoresBloqueados() Me.btnAccion.Text = "Aceptar" End Sub Sub ColoresBloqueados() Me.cboEmpresas.BackColor = Configuraciones.ColorFondoPredefinido() Me.txtCodigoInversion.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboInstrumentos.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboEmisores.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboCalificaciones.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboCalificadoras.BackColor = Configuraciones.ColorFondoPredefinido() Me.txtCodigoManual.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboPaises.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboTiposMercado.BackColor = Configuraciones.ColorFondoPredefinido() Me.txtNombreManual.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboPeriodicidad.BackColor = Configuraciones.ColorFondoPredefinido() Me.txtPlazoNum.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboPlazoFactor.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboTipoRenta.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboTipoTasa.BackColor = Configuraciones.ColorFondoPredefinido() Me.txtCodigoInversion.BackColor = Configuraciones.ColorFondoPredefinido() Me.txtCodigoManual.BackColor = Configuraciones.ColorFondoPredefinido() Me.cboEstadoDocumento.BackColor = Configuraciones.ColorFondoPredefinido() End Sub Function ReportoVenta() If GenerarReportoVenta Then Try If Not Variables.ColeccionREPO.count Is Nothing Then If Variables.ColeccionREPO.count = 0 Then Return False Else Return True End If Return False Else Return False End If Catch ex As Exception Return False End Try End If Return True End Function Private Sub Guardar() oInversionCE.CodigoIversion = txtCodigoInversion.Text oInversionCE.EstadoReporto = EstadoReporto Dim retorno As Integer If TipoOperacion = "N" Then If GenerarReportoVenta Then Dim diccionario = Variables.ColeccionREPO If Not diccionario Is Nothing Then If String.IsNullOrEmpty(EstadoReporto) Then retorno = 0 Else retorno = oInversionDAO.NuevoConReportoVenta(oInversionCE, diccionario, txtCodigoInversion.Text, CodigoAsociacion, EstadoReporto, ColUnionTablas) End If diccionario = Nothing End If Else If String.IsNullOrEmpty(EstadoReporto) Then retorno = 0 Else retorno = oInversionDAO.Nuevo(oInversionCE) End If End If If retorno >= 1 Then GuardarInstrumentoFinanciero() End If End If If TipoOperacion = "M" Then retorno = oInversionDAO.Modificar(oInversionCE) If retorno >= 1 Then EstadoBoton() End If End If If retorno >= 1 Then CargarRegistro(oInversionCE.IdDeDocumento) MsgBox("Operación Completada.") End If End Sub Sub GuardarInstrumentoFinanciero() Dim vRetorno As Integer Dim vCodigoInversion As String = oInversionCE.CodigoIversion If Not oInstrumentoFinanciero Is Nothing Then Dim oAccionesCE As New AccionesCE Dim oBonosCE As New BonosCE Dim oDAPCE As New DepositosAPlazoCE Dim oLETESCE As New LETESCE Dim oReportoCE As New ReportosCE If oInstrumentoFinanciero.GetType.ToString = oAccionesCE.GetType.ToString Then Dim oDAOAcciones As AccionesDAO = New AccionesDAO vRetorno = oDAOAcciones.Nuevo(oInstrumentoFinanciero) End If If oInstrumentoFinanciero.GetType.ToString = oBonosCE.GetType.ToString Then Dim oDAOBonos As BonosDAO = New BonosDAO vRetorno = oDAOBonos.Nuevo(oInstrumentoFinanciero) End If If oInstrumentoFinanciero.GetType.ToString = oDAPCE.GetType.ToString Then Dim oDAODAP As DepositosAPlazoDAO = New DepositosAPlazoDAO oInstrumentoFinanciero.CodigoInversion = vCodigoInversion vRetorno = oDAODAP.Nuevo(oInstrumentoFinanciero) End If If oInstrumentoFinanciero.GetType.ToString = oLETESCE.GetType.ToString Then Dim oDAOLetes As LETESDAO = New LETESDAO vRetorno = oDAOLetes.Nuevo(oInstrumentoFinanciero) End If If oInstrumentoFinanciero.GetType.ToString = oReportoCE.GetType.ToString Then Dim oDAOReportos As ReportosDAO = New ReportosDAO vRetorno = oDAOReportos.Nuevo(oInstrumentoFinanciero) End If End If End Sub Private Sub btnAccion_Click(sender As Object, e As EventArgs) Handles btnAccion.Click ControlEstadoProceso() If TipoOperacion = "B" Then ' BoquearBotones()' Buscar() End If If TipoOperacion = "N" Or TipoOperacion = "M" Then If (CamposRequeridos() = 0) Then If (Not String.IsNullOrEmpty(txtPlazoNum.Text)) Then Variables.Plazo = txtPlazoNum.Text End If If (Not String.IsNullOrEmpty(cboPlazoFactor.SelectedValue)) Then Variables.PlazoFact = cboPlazoFactor.SelectedValue End If ControlFechaDocumento() Guardar() If Not GenerarReportoVenta Then Dim Codigo As String = txtCodigoInversion.Text GuardarFamilia(Codigo) End If CargarNavegador() Refrescar() End If End If Modificar() End Sub Sub GuardarFamilia(ByVal Instrumento As String) If Instrumento.IndexOf("LETE") > -1 Then Dim oDAOLetes As New LETESDAO Dim ColeccionLETE As Collection = Variables.ColeccionLETE If ColeccionLETE.Count > 0 Then oDAOLetes.NuevoIngreso(ColeccionLETE, "LETE") ColeccionLETE.Clear() End If End If If Instrumento.IndexOf("PBUR") > -1 Then Dim oDAOLetes As New LETESDAO Dim ColeccionLETE As Collection = Variables.ColeccionLETE If ColeccionLETE.Count > 0 Then oDAOLetes.NuevoIngreso(ColeccionLETE, "PBUR") ColeccionLETE.Clear() End If End If If Instrumento.IndexOf("VCN") > -1 Then Dim oDAOLetes As New LETESDAO Dim ColeccionLETE As Collection = Variables.ColeccionLETE If ColeccionLETE.Count > 0 Then oDAOLetes.NuevoIngreso(ColeccionLETE, "VCN") ColeccionLETE.Clear() End If End If If Instrumento.IndexOf("CETE") > -1 Then Dim oDAOLetes As New LETESDAO Dim ColeccionLETE As Collection = Variables.ColeccionLETE If ColeccionLETE.Count > 0 Then oDAOLetes.NuevoIngreso(ColeccionLETE, "CETE") ColeccionLETE.Clear() End If End If If Instrumento.IndexOf("ACC") > -1 Then Dim oDAOACC As New AccionesDAO Dim ColeccionACC As Collection = Variables.ColeccionACC If ColeccionACC.Count > 0 Then oDAOACC.NuevaAccion(Variables.Codigo, ColeccionACC) ColeccionACC.Clear() FormAcciones.Dispose() End If End If If Instrumento.IndexOf("CINV") > -1 Then Dim oDAOCINV As New CertificadosDeInversionDAO Dim ColeccionCINV As Collection = Variables.ColeccionCINV If ColeccionCINV.Count > 0 Then oDAOCINV.Nuevo(ColeccionCINV, "CINV") ColeccionCINV.Clear() End If End If If Instrumento.IndexOf("BONO") > -1 Then Dim oDAOCINV As New CertificadosDeInversionDAO Dim ColeccionCINV As Collection = Variables.ColeccionCINV If ColeccionCINV.Count > 0 Then oDAOCINV.Nuevo(ColeccionCINV, "BONO") ColeccionCINV.Clear() End If End If If Instrumento.IndexOf("EURB0") > -1 Then Dim oDAOCINV As New CertificadosDeInversionDAO Dim ColeccionCINV As Collection = Variables.ColeccionCINV If ColeccionCINV.Count > 0 Then oDAOCINV.Nuevo(ColeccionCINV, "EURB") ColeccionCINV.Clear() End If End If If Instrumento.IndexOf("TIT") > -1 Then Dim oDAOCINV As New CertificadosDeInversionDAO Dim ColeccionCINV As Collection = Variables.ColeccionCINV If ColeccionCINV.Count > 0 Then oDAOCINV.Nuevo(ColeccionCINV, "TIT") ColeccionCINV.Clear() End If End If If Instrumento.IndexOf("DAP") > -1 Then Dim oDAODAP As New DepositosAPlazoDAO Dim ColeccionDAP As Collection = Variables.ColeccionDAP Dim diccionario = Variables.ColeccionDAPDi If ColeccionDAP.Count > 0 And Not diccionario Is Nothing Then oDAODAP.NuevoDato(ColeccionDAP, diccionario, Variables.Codigo) ColeccionDAP.Clear() diccionario = Nothing End If End If If Instrumento.IndexOf("NEST") > -1 Then Dim oDAONEST As New DAONotaEstructurada Dim ColeccionNEST As Collection = Variables.ColeccionNEST Dim diccionario = Variables.ColeccionNESTDi If ColeccionNEST.Count > 0 And Not diccionario Is Nothing Then oDAONEST.NuevoDato(ColeccionNEST, diccionario, Variables.Codigo) ColeccionNEST.Clear() diccionario = Nothing End If End If If Instrumento.IndexOf("FUTU") > -1 Then Dim oDAOFUTU As New FuturosDAO Dim ColeccionFUTU As Collection = Variables.ColeccionFUTU If ColeccionFUTU.Count > 0 Then oDAOFUTU.Nuevo(Variables.Codigo, ColeccionFUTU) ColeccionFUTU.Clear() End If End If If Instrumento.IndexOf("OPC") > -1 Then Dim oDAOOPC As New FuturosDAO Dim ColeccionOPC As Collection = Variables.ColeccionFUTU If ColeccionOPC.Count > 0 Then oDAOOPC.NuevoOpciones(Variables.Codigo, ColeccionOPC) ColeccionOPC.Clear() End If End If If Instrumento.IndexOf("PEMP") > -1 Then Dim oDAOPEMP As New PrestamoEmpresarialDAO Dim ColeccionPEMP As Collection = Variables.ColeccionPEMP Dim diccionario = Variables.ColeccionPEMPDi If ColeccionPEMP.Count > 0 And Not diccionario Is Nothing Then oDAOPEMP.ProcesoDatos(ColeccionPEMP, Variables.Codigo, diccionario, "Nuevo") ColeccionPEMP.Clear() diccionario = Nothing End If End If If Instrumento.IndexOf("PPER") > -1 Then Dim oDAOPPER As New PrestamoPersonalDAO Dim ColeccionPPERDEUDOR As Collection = Variables.ColeccionPPERDEUDOR Dim ColeccionPPERDETALLE As Collection = Variables.ColeccionPPERDETALLE Dim diccionario = Variables.ColeccionPPERAMORTDi If ColeccionPPERDEUDOR.Count > 0 And ColeccionPPERDETALLE.Count > 0 And Not diccionario Is Nothing Then oDAOPPER.ProcesoDatos(ColeccionPPERDEUDOR, ColeccionPPERDETALLE, Variables.Codigo, diccionario, "Nuevo", "Nuevo") ColeccionPPERDEUDOR.Clear() ColeccionPPERDETALLE.Clear() diccionario = Nothing End If End If If Instrumento.IndexOf("REPOVENTA") > -1 Then Dim oDAOREPO As New ReportosDAO Dim diccionario = Variables.ColeccionREPO If Not diccionario Is Nothing Then oDAOREPO.ProcesoDatos(diccionario, Variables.Codigo, "REP0VENTA") diccionario = Nothing End If ElseIf Instrumento.IndexOf("REPO") > -1 And Not Instrumento.IndexOf("REPOVENTA") > -1 Then Dim oDAOREPO As New ReportosDAO Dim diccionario = Variables.ColeccionREPO If Not diccionario Is Nothing Then oDAOREPO.ProcesoDatos(diccionario, Variables.Codigo, "REP0") diccionario = Nothing End If End If If Instrumento.IndexOf("FINV") > -1 Then Dim oDAOFOIN As New FondoInversionDAO Dim ColeccionFOIN As Collection = Variables.ColeccionFINV Dim diccionario = Variables.ColeccionFINVDi If ColeccionFINV.Count > 0 And Not diccionario Is Nothing Then oDAOFOIN.ProcesoDatos(ColeccionFINV, Variables.Codigo, diccionario, "Nuevo") ColeccionFOIN.Clear() diccionario = Nothing End If End If End Sub Private Sub RefrescarValoresDeControles() If Not oInversionCE Is Nothing Then Dim vCodCompra As String = oInversionCE.CodigoCompra.ToString If vCodCompra.Length = 0 Then txtCodigoCompra.Text = String.Empty Else txtCodigoCompra.Text = vCodCompra End If Dim vEmpresa As String = oInversionCE.CodigoEmpresa If vEmpresa.Length = 0 Then cboEmpresas.SelectedIndex = -1 Else cboEmpresas.SelectedValue = vEmpresa End If Dim vInstrumento As String = oInversionCE.CodigoInstrumentoFinanciero If vInstrumento.Length = 0 Then cboInstrumentos.SelectedIndex = -1 Else cboInstrumentos.SelectedValue = vInstrumento End If Dim vEmisor As String = oInversionCE.CodigoEmisor If vEmisor.Length = 0 Then cboEmisores.SelectedIndex = -1 Else cboEmisores.SelectedValue = vEmisor End If Dim vCalificacionDeRiesgo As String = oInversionCE.CodigoCalificacionDeRiesgo If vCalificacionDeRiesgo.Length = 0 Then cboCalificaciones.SelectedIndex = -1 Else cboCalificaciones.SelectedValue = vCalificacionDeRiesgo End If Dim vCalificadora As String = oInversionCE.CodigoEmpresaCalificadora If vCalificadora.Length = 0 Then cboCalificadoras.SelectedIndex = -1 Else cboCalificadoras.SelectedValue = vCalificadora End If Dim vPais As String = oInversionCE.Pais If vPais.Length = 0 Then cboPaises.SelectedIndex = -1 Else cboPaises.SelectedValue = vPais End If Dim vTipoMercado As String = oInversionCE.TipoMercado If vTipoMercado.Length = 0 Then cboTiposMercado.SelectedIndex = -1 Else cboTiposMercado.SelectedValue = vTipoMercado End If Dim vCodigoInversion As String = oInversionCE.CodigoIversion If vCodigoInversion.Length = 0 Then txtCodigoInversion.Text = String.Empty Else txtCodigoInversion.Text = vCodigoInversion End If Dim vEstadoDoc As String = oInversionCE.EstadoDocumento If vEstadoDoc.Length = 0 Then cboEstadoDocumento.SelectedIndex = -1 Else cboEstadoDocumento.SelectedValue = vEstadoDoc End If Dim vNombreManualIF As String = oInversionCE.NombreManual txtNombreManual.Text = vNombreManualIF Dim vCodigoManual As String = oInversionCE.CodigoManual txtCodigoManual.Text = vCodigoManual Dim vPeriodicidad As String = oInversionCE.Periodicidad.ToString If vPeriodicidad.Length = 0 Then cboPeriodicidad.SelectedIndex = -1 Else cboPeriodicidad.SelectedValue = vPeriodicidad End If Dim vPlazoNum As String = oInversionCE.PlazoNumero.ToString Me.txtPlazoNum.Text = vPlazoNum Dim vPlazoFactor As String = oInversionCE.PlazoFactor.ToString If vPlazoFactor.Length = 0 Then cboPlazoFactor.SelectedIndex = -1 Else cboPlazoFactor.SelectedValue = vPlazoFactor End If Dim vTipoRenta As String = oInversionCE.TipoRenta If vTipoRenta.Length = 0 Then cboTipoRenta.SelectedIndex = -1 Else cboTipoRenta.SelectedValue = vTipoRenta End If Dim vTipoTasa As String = oInversionCE.TipoTasa If vTipoTasa.Length = 0 Then cboTipoTasa.SelectedIndex = -1 Else cboTipoTasa.SelectedValue = vTipoTasa End If Dim vComentarios As String = oInversionCE.Comentarios.ToString Me.txtNotas.Text = vComentarios Dim vTipoOper As String = oInversionCE.TipoOperacion.ToString If vTipoOper.Length = 0 Then cboTipoOperacion.SelectedIndex = -1 Else cboTipoOperacion.SelectedValue = vTipoOper End If Dim vEstadoProceso As String = oInversionCE.EstadoProceso.ToString If vEstadoProceso.Length = 0 Then cboEstadoProceso.SelectedIndex = -1 Else cboEstadoProceso.SelectedValue = vEstadoProceso End If Dim vOFondo As String = oInversionCE.OFondo.ToString If vOFondo.Length = 0 Then cboOrigenDeFondos.SelectedIndex = -1 Else cboOrigenDeFondos.SelectedValue = vOFondo End If Dim vFecha As String = oInversionCE.FechaDocumento.ToString If vFecha.Length = 0 Then dtpFechaDocumento.Value = Date.Today.Date Else dtpFechaDocumento.Value = vFecha End If End If End Sub Private Sub RefrescarEstadoControles() If TipoOperacion = "C" Then DeshabilitarControles() End If If TipoOperacion = "B" Then HabilitarControles() End If End Sub Private Sub LimpiarControles() Me.cboEmpresas.SelectedIndex = -1 Me.cboInstrumentos.SelectedIndex = -1 Me.cboEmisores.SelectedIndex = -1 Me.cboCalificaciones.SelectedIndex = -1 Me.cboCalificadoras.SelectedIndex = -1 Me.cboPaises.SelectedIndex = -1 Me.cboTiposMercado.SelectedIndex = -1 Me.txtCodigoInversion.Text = String.Empty Me.cboEstadoDocumento.SelectedIndex = -1 Me.txtNombreManual.Text = String.Empty Me.cboPeriodicidad.SelectedIndex = -1 Me.txtPlazoNum.Text = String.Empty Me.cboPlazoFactor.SelectedIndex = -1 Me.cboTipoRenta.SelectedIndex = -1 Me.cboTipoTasa.SelectedIndex = -1 Me.txtCodigoManual.Text = String.Empty Me.txtNotas.Text = String.Empty End Sub Sub SetPeriodicidad() Dim Periodicidad As String = String.Empty Dim General As New DAOGeneral Dim Codigo As String = Variables.Codigo Periodicidad = General.Periodicidad(Codigo, "INV0") If Not String.IsNullOrEmpty(Periodicidad) Then cboPeriodicidad.SelectedValue = Periodicidad End If End Sub Private Sub btnDetalleIF_Click(sender As Object, e As EventArgs) Handles btnDetalleIF.Click Variables.InvocadorProInv = "frmINV" Variables.TipoOperacionCMVTA = cboTipoOperacion.SelectedValue ''######################################################################### If String.IsNullOrEmpty(txtCodigoCompra.Text.ToString) Then Variables.Codigo = txtCodigoInversion.Text.ToString Else Variables.Codigo = txtCodigoCompra.Text.ToString End If ''######################################################################### Dim NuevaPosInstrumento As Boolean = False ''######################################################################### If String.IsNullOrEmpty(Variables.CodigoComparativo) Then Variables.CodigoComparativo = Variables.Codigo Else If Not Variables.CodigoComparativo = Variables.Codigo Then NuevaPosInstrumento = True End If End If ''######################################################################### If String.IsNullOrEmpty(txtCodigoCompra.Text.ToString) Then CodigoInstrumento = txtCodigoInversion.Text.ToString Else CodigoInstrumento = txtCodigoCompra.Text.ToString End If ''######################################################################### Variables.InvPro = "I" SetPeriodicidad() ''######################################################################### Dim TipOperacion As String = oInversionCE.TipoOperacion ''######################################################################### If String.IsNullOrEmpty(Variables.CodigoComparativo) Then Variables.CodigoComparativo = Variables.Codigo Else If Not Variables.CodigoComparativo = Variables.Codigo Then NuevaPosInstrumento = True End If End If ''######################################################################### ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("FINV") > -1 Then Dim ExistInstrumento As Boolean = ExisteInstrumento("FINV") Try If ExistInstrumento Then FormFOIN.Dispose() FormFOIN = New frmFOIN FormFOIN.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormFOIN.Dispose() FormFOIN = New frmFOIN FormFOIN.ShowDialog() Else FormFOIN.ShowDialog() End If End If Catch ex As Exception FormFOIN = New frmFOIN FormFOIN.ShowDialog() End Try End If ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("FUTU") > -1 Or CodigoInstrumento.IndexOf("OPC") > -1 Then Dim ExistInstrumento As Boolean If CodigoInstrumento.IndexOf("FUTU") > -1 Then ExistInstrumento = ExisteInstrumento("FUT0") Else ExistInstrumento = ExisteInstrumento("OPC0") End If Try If ExistInstrumento Then FormFuturos.Dispose() FormFuturos = New frmFuturos(TipOperacion) 'FormFuturos.CargarRegistro(oInversionCE.CodigoIversion) FormFuturos.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormFuturos.Dispose() FormFuturos = New frmFuturos(TipOperacion) FormFuturos.ShowDialog() Else FormFuturos = New frmFuturos(TipOperacion) FormFuturos.ShowDialog() End If End If Catch ex As Exception FormFuturos = New frmFuturos(TipOperacion) FormFuturos.ShowDialog() End Try End If ''######################################################################### ''######################################################################### ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("REPO") > -1 Or CodigoInstrumento.IndexOf("REPOVENTA") > -1 Then Dim ExistInstrumento As Boolean If CodigoInstrumento.IndexOf("REPOVENTA") > -1 Then ExistInstrumento = ExisteInstrumento("REP0VENTA") Else ExistInstrumento = ExisteInstrumento("REP0") End If Try If ExistInstrumento Then FormRepo.Dispose() FormRepo = New frmReporto If GenerarReportoVenta Then FormRepo.txtMonto.Text = MontoReportoVenta End If FormRepo.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormRepo.Dispose() FormRepo = New frmReporto If GenerarReportoVenta Then FormRepo.txtMonto.Text = MontoReportoVenta End If FormRepo.ShowDialog() Else If GenerarReportoVenta Then FormRepo.txtMonto.Text = MontoReportoVenta End If FormRepo.ShowDialog() End If End If Catch ex As Exception FormRepo = New frmReporto If GenerarReportoVenta Then FormRepo.txtMonto.Text = MontoReportoVenta End If FormRepo.ShowDialog() End Try End If ''######################################################################### ''######################################################################### ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("PPER") > -1 Then Dim ExistInstrumento As Boolean = ExisteInstrumento("PPER0") Try If ExistInstrumento Then FormPrestamoPersonal.Dispose() FormPrestamoPersonal = New frmPrestamoPersonal 'FormPrestamoPersonal.CargarRegistro(oInversionCE.CodigoIversion) FormPrestamoPersonal.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormPrestamoPersonal.Dispose() FormPrestamoPersonal = New frmPrestamoPersonal FormPrestamoPersonal.ShowDialog() Else FormPrestamoPersonal.ShowDialog() End If End If Catch ex As Exception FormPrestamoPersonal = New frmPrestamoPersonal FormPrestamoPersonal.ShowDialog() End Try End If ''######################################################################### ''######################################################################### ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("PEMP") > -1 Then Dim ExistInstrumento As Boolean = ExisteInstrumento("PEMP0") Try If ExistInstrumento Then FormPrestamoEmpresarial.Dispose() FormPrestamoEmpresarial = New frmPrestamoEmpresariales 'FormPrestamoEmpresarial.CargarRegistro(oInversionCE.CodigoIversion) FormPrestamoEmpresarial.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormPrestamoEmpresarial.Dispose() FormPrestamoEmpresarial = New frmPrestamoEmpresariales FormPrestamoEmpresarial.ShowDialog() Else FormPrestamoEmpresarial.ShowDialog() End If End If Catch ex As Exception FormPrestamoEmpresarial = New frmPrestamoEmpresariales FormPrestamoEmpresarial.ShowDialog() End Try End If ''######################################################################### ''######################################################################### ''######################################################################### ''######################################################################### Dim Acciones As Integer = 0 If CodigoInstrumento.IndexOf("ACC") > -1 Then Dim ExistInstrumento As Boolean = ExisteInstrumento("ACC0") Try If ExistInstrumento Then FormAcciones.Dispose() FormAcciones = New frmAcciones(TipOperacion) FormAcciones.CargarRegistro(oInversionCE.CodigoIversion) FormAcciones.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormAcciones.Dispose() FormAcciones = New frmAcciones(TipOperacion) FormAcciones.ShowDialog() Else FormAcciones.Dispose() FormAcciones = New frmAcciones(TipOperacion) FormAcciones.ShowDialog() End If End If Catch ex As Exception FormAcciones = New frmAcciones(TipOperacion) FormAcciones.ShowDialog() End Try End If ''######################################################################### ''######################################################################### ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("LETE") > -1 Or CodigoInstrumento.IndexOf("PBUR") > -1 Or CodigoInstrumento.IndexOf("VCN") > -1 Or CodigoInstrumento.IndexOf("CETE") > -1 Then Dim ExistInstrumento As Boolean If CodigoInstrumento.IndexOf("LETE") > -1 Then ExistInstrumento = ExisteInstrumento("LET0") ElseIf CodigoInstrumento.IndexOf("PBUR") > -1 Then ExistInstrumento = ExisteInstrumento("PBUR") ElseIf CodigoInstrumento.IndexOf("VCN") > -1 Then ExistInstrumento = ExisteInstrumento("VCN") Else ExistInstrumento = ExisteInstrumento("CET0") End If Try If ExistInstrumento Then FormLete.Dispose() FormLete = New frmLetes 'FormLete.CargarRegistro(oInversionCE.CodigoIversion) FormLete.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormLete.Dispose() FormLete = New frmLetes FormLete.ShowDialog() Else FormLete.ShowDialog() End If End If Catch ex As Exception FormLete = New frmLetes FormLete.ShowDialog() End Try End If ''######################################################################### ''######################################################################### ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("BONO") > -1 Or CodigoInstrumento.IndexOf("CINV") > -1 Or CodigoInstrumento.IndexOf("TIT") > -1 Or CodigoInstrumento.IndexOf("EURB") > -1 Then Dim ExistInstrumento As Boolean If CodigoInstrumento.IndexOf("BONO") > -1 Then ExistInstrumento = ExisteInstrumento("BON0") ElseIf CodigoInstrumento.IndexOf("CINV") > -1 Then ExistInstrumento = ExisteInstrumento("CIN0") ElseIf CodigoInstrumento.IndexOf("TIT") > -1 Then ExistInstrumento = ExisteInstrumento("TIT") Else ExistInstrumento = ExisteInstrumento("EURB0") End If Try If ExistInstrumento Then FormCINV.Dispose() FormCINV = New frmCertificadosDeInversion(TipOperacion) FormCINV.CargarRegistro(oInversionCE.CodigoIversion) FormCINV.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormCINV.Dispose() FormCINV = New frmCertificadosDeInversion(TipOperacion) FormCINV.ShowDialog() Else FormCINV.ShowDialog() End If End If Catch ex As Exception FormCINV = New frmCertificadosDeInversion(TipOperacion) FormCINV.ShowDialog() End Try End If ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("DAP") > -1 Then Dim ExistInstrumento As Boolean = ExisteInstrumento("DAP0") Try If ExistInstrumento Then FormDAP.Dispose() FormDAP = New frmDepositosAPlazo FormDAP.CargarRegistro(oInversionCE.CodigoIversion) FormDAP.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormDAP.Dispose() FormDAP = New frmDepositosAPlazo FormDAP.ShowDialog() Else FormDAP.ShowDialog() End If End If Catch ex As Exception FormDAP = New frmDepositosAPlazo FormDAP.ShowDialog() End Try End If ''######################################################################### ''######################################################################### ''######################################################################### ''######################################################################### If CodigoInstrumento.IndexOf("NEST") > -1 Then Dim ExistInstrumento As Boolean = ExisteInstrumento("NEST0") Try If ExistInstrumento Then FormNEST.Dispose() FormNEST = New frmNotaEstructurada FormNEST.CargarRegistro(oInversionCE.CodigoIversion) FormNEST.ShowDialog() Else If NuevaPosInstrumento Then Variables.CodigoComparativo = String.Empty FormNEST.Dispose() FormNEST = New frmNotaEstructurada FormNEST.ShowDialog() Else FormNEST.ShowDialog() End If End If Catch ex As Exception FormNEST = New frmNotaEstructurada FormNEST.ShowDialog() End Try End If End Sub ''######################################################################### ''######################################################################### ''######################################################################### Function ExisteInstrumento(ByVal Tabla As String) Dim General As New DAOGeneral If String.IsNullOrEmpty(txtCodigoCompra.Text.ToString) Then Variables.Codigo = txtCodigoInversion.Text.ToString Else Variables.Codigo = txtCodigoCompra.Text.ToString End If Dim Codigo As String = Variables.Codigo Dim Existe As Boolean = General.ExisteTitulo(Codigo, Tabla) Return Existe End Function ''######################################################################### Private Sub navModificar_Click(sender As Object, e As EventArgs) Handles navModificar.Click Modificar() End Sub Sub Modificar() Dim General As New DAOGeneral Dim Codigo As String = txtCodigoInversion.Text Dim Valor As String = General.EstadoInversion(Codigo) If Valor = "C" Then Modo = "NM" ModoInversion() PrepararEdicion() End If End Sub Private Sub PrepararEdicion() TipoOperacion = "M" HabilitarControles() btnAccion.Text = "Modificar" End Sub Private Sub txtCodigoManual_TextChanged(sender As Object, e As EventArgs) Handles txtCodigoManual.TextChanged ControlCodigoIFManual() End Sub Private Sub txtCodigoManual_LostFocus(sender As Object, e As EventArgs) Handles txtCodigoManual.LostFocus ControlCodigoIFManual() End Sub Private Sub vBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles vBindingSource.CurrentChanged If Me.TipoOperacion = "C" Then CargarRegistro(vBindingSource.Current("DocId").ToString) End If End Sub Private Sub ActivarNavegacion() Me.TipoOperacion = "C" End Sub Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs) 'ActivarNavegacion() If Me.TipoOperacion = "B" Or Me.TipoOperacion = "M" Then CargarRegistro(vBindingSource.Current("DocId").ToString) ElseIf Me.TipoOperacion = "C" Then vBindingSource.MoveNext() End If EstadoBoton() End Sub Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click If Me.TipoOperacion = "B" Or Me.TipoOperacion = "M" Then CargarRegistro(vBindingSource.Current("DocId").ToString) ElseIf Me.TipoOperacion = "C" Then vBindingSource.MovePrevious() End If EstadoBoton() End Sub Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click If Me.TipoOperacion = "B" Then Me.TipoOperacion = "C" vBindingSource.MoveFirst() CargarRegistro(vBindingSource.Current("DocId").ToString) ElseIf Me.TipoOperacion = "C" Then vBindingSource.MoveFirst() End If EstadoBoton() End Sub Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click If Me.TipoOperacion = "B" Then Me.TipoOperacion = "C" vBindingSource.MoveLast() CargarRegistro(vBindingSource.Current("DocId").ToString) ElseIf Me.TipoOperacion = "C" Then vBindingSource.MoveLast() End If EstadoBoton() End Sub Private Sub RefrescarClaseEntidad() End Sub Private Sub cboEmisores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboEmisores.SelectedIndexChanged ControlEmisores() End Sub Private Sub ControlEmisores() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.CodigoEmisor = Me.cboEmisores.SelectedValue End If End Sub Private Sub Navegador_RefreshItems(sender As Object, e As EventArgs) Handles Navegador.RefreshItems End Sub Private Sub cboInstrumentos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboInstrumentos.SelectedIndexChanged ControlInstrumentos() controladores.TInstrumento = cboInstrumentos.SelectedIndex 'ConsAcciones(TipoOperacion) End Sub Private Sub ControlInstrumentos() If Not String.IsNullOrEmpty(TipoOperacion) Then ' And (String.IsNullOrEmpty(Me.cboInstrumentos.SelectedValue.ToString)) 'Controlar If (Not String.IsNullOrEmpty(Me.cboInstrumentos.SelectedValue)) Then oInversionCE.CodigoInstrumentoFinanciero = Me.cboInstrumentos.SelectedValue 'oInversionCE.TipoInstrumentoFinanciero = oInversionDAO.ObtenerTipoInstrumentoFinanciero(oInversionCE.CodigoInstrumentoFinanciero) End If End If If TipoOperacion = "N" Then ActualizarCodigoNuevo() End If End Sub Private Sub cboCalificaciones_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCalificaciones.SelectedIndexChanged ControlCalificaciones() End Sub Private Sub ControlCalificaciones() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.CodigoCalificacionDeRiesgo = Me.cboCalificaciones.SelectedValue End If End Sub Private Sub cboCalificadoras_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCalificadoras.SelectedIndexChanged ControlCalificadoras() End Sub Private Sub ControlCalificadoras() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.CodigoEmpresaCalificadora = cboCalificadoras.SelectedValue End If End Sub Private Sub cboPaises_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPaises.SelectedIndexChanged ControlPaises() End Sub Private Sub ControlPaises() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.Pais = cboPaises.SelectedValue End If End Sub Private Sub cboTiposMercado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTiposMercado.SelectedIndexChanged ControlTiposMercado() End Sub Private Sub ControlTiposMercado() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.TipoMercado = cboTiposMercado.SelectedValue End If End Sub Private Sub txtNombreManual_TextChanged(sender As Object, e As EventArgs) Handles txtNombreManual.TextChanged End Sub Private Sub txtNombreManual_LostFocus(sender As Object, e As EventArgs) Handles txtNombreManual.LostFocus ControlNombreManual() End Sub Private Sub ControlNombreManual() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.NombreManual = txtNombreManual.Text End If End Sub Private Sub cboPeriodicidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodicidad.SelectedIndexChanged ControlPeriodicidad() Variables.Periodicidad = cboPeriodicidad.SelectedValue End Sub Private Sub ControlPeriodicidad() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.Periodicidad = cboPeriodicidad.SelectedValue End If End Sub Private Sub txtPlazoNum_TextChanged(sender As Object, e As EventArgs) Handles txtPlazoNum.TextChanged End Sub Private Sub txtPlazoNum_LostFocus(sender As Object, e As EventArgs) Handles txtPlazoNum.LostFocus ControlPlazoNum() End Sub Private Sub ControlPlazoNum() Dim valor As Integer Integer.TryParse(txtPlazoNum.Text, valor) If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.PlazoNumero = valor End If End Sub Private Sub cboPlazoFactor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPlazoFactor.SelectedIndexChanged ControlPlazoFactor() End Sub Private Sub ControlPlazoFactor() If (cboPlazoFactor.SelectedValue <> Nothing) Then If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.PlazoFactor = cboPlazoFactor.SelectedValue End If End If End Sub Private Sub cboTipoRenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTipoRenta.SelectedIndexChanged ControlTipoRenta() End Sub Private Sub ControlTipoRenta() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then If (cboTipoRenta.SelectedValue <> Nothing) Then oInversionCE.TipoRenta = cboTipoRenta.SelectedValue End If End If End Sub Private Sub cboTipoTasa_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTipoTasa.SelectedIndexChanged ControlTipoTasa() End Sub Private Sub ControlTipoTasa() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then oInversionCE.TipoTasa = cboTipoTasa.SelectedValue End If End Sub Private Sub txtCodigoInversion_TextChanged(sender As Object, e As EventArgs) Handles txtCodigoInversion.TextChanged CodigoCompra() End Sub Private Sub txtCodigoInversion_LostFocus(sender As Object, e As EventArgs) Handles txtCodigoInversion.LostFocus If Me.TipoOperacion = "B" Then ControlCodigoInversion() End If End Sub Private Sub ControlCodigoInversion() oInversionCE.CodigoIversion = txtCodigoInversion.Text End Sub Private Sub cboEstadoDocumento_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboEstadoDocumento.SelectedIndexChanged ControlEstadoDocumento() End Sub Private Sub ControlEstadoDocumento() If Not (TypeOf cboEstadoDocumento.SelectedValue Is DataRowView) Then If Not oInversionCE Is Nothing Then oInversionCE.EstadoDocumento = cboEstadoDocumento.SelectedValue End If End If End Sub Private Sub txtNotas_TextChanged(sender As Object, e As EventArgs) Handles txtNotas.TextChanged End Sub Private Sub txtNotas_LostFocus(sender As Object, e As EventArgs) Handles txtNotas.LostFocus ControlNotas() End Sub Private Sub ControlNotas() If TipoOperacion = "N" Or TipoOperacion = "M" Then oInversionCE.Comentarios = Me.txtNotas.Text End If End Sub Private Sub ControlEstadoProceso() If TipoOperacion = "N" Or TipoOperacion = "M" Then oInversionCE.EstadoProceso = cboEstadoProceso.SelectedValue End If End Sub Private Sub navNuevo_Click(sender As Object, e As EventArgs) Handles navNuevo.Click Modo = "NM" 'HabilitarBotones()' btnAccion.Text = "Guardar" ModoInversion() PrepararNuevo() End Sub Private Sub PrepararNuevo() LimpiarControles() HabilitarControles() oInversionCE = Nothing oInversionCE = New InversionesCE Me.cboEmpresas.BackColor = Color.White Me.txtCodigoInversion.BackColor = Color.White Me.cboInstrumentos.BackColor = Color.White Me.cboEmisores.BackColor = Color.White Me.cboCalificaciones.BackColor = Color.White Me.cboCalificadoras.BackColor = Color.White Me.txtCodigoManual.BackColor = Color.White Me.txtCodigoInversion.Enabled = False Me.cboEstadoDocumento.SelectedValue = "A" Me.cboEstadoDocumento.Enabled = False Me.cboTipoOperacion.SelectedValue = "C" Me.cboTipoOperacion.Enabled = False Me.cboEstadoProceso.SelectedValue = "R" Me.cboEstadoProceso.Enabled = False Me.cboOrigenDeFondos.SelectedValue = "D" Me.cboOrigenDeFondos.Enabled = False TipoOperacion = "N" End Sub Private Sub ActualizarCodigoNuevo() Dim vCodigo As String vCodigo = SeriesDAO.SiguienteCodigoInversion(oInversionCE.CodigoEmpresa, oInversionCE.CodigoInstrumentoFinanciero) If TipoOperacion = "N" Then Me.txtCodigoInversion.Text = vCodigo End If If oInversionCE.CodigoInstrumentoFinanciero = "REPOVENTA" Then EstadoReporto = "REPORTO" Else EstadoReporto = "PRIMARIO" End If End Sub Private Sub dtpFechaDocumento_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaDocumento.ValueChanged ControlFechaDocumento() End Sub Private Sub ControlFechaDocumento() If TipoOperacion = "N" Or TipoOperacion = "M" Then oInversionCE.FechaDocumento = dtpFechaDocumento.Value.Date End If End Sub Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles btnReporte.Click frmFiltrosReporte.Show() 'frmImprimir.Acciones1 = oInstrumentoFinanciero 'Dim oAccionesDAO As New AccionesDAO 'Dim oACC As AccionesCE 'oACC = oAccionesDAO.CargarRegistro("INVACC00019") 'Dim serializer As New Xml.Serialization.XmlSerializer(oACC.GetType) 'Dim writer As New System.IO.StreamWriter("pendejas.xml") 'Dim tmp As New DataSet 'serializer.Serialize(writer, oACC) ' writer.Close() End Sub Private Sub BoquearBotones() Me.cboEmpresas.Enabled = False Me.cboInstrumentos.Enabled = False Me.cboEmisores.Enabled = False Me.cboCalificaciones.Enabled = False Me.cboCalificadoras.Enabled = False Me.cboPaises.Enabled = False Me.cboTiposMercado.Enabled = False Me.txtNombreManual.ReadOnly = True Me.cboPeriodicidad.Enabled = False Me.txtPlazoNum.ReadOnly = True Me.cboPlazoFactor.Enabled = False Me.cboTipoRenta.Enabled = False Me.cboTipoTasa.Enabled = False Me.txtCodigoInversion.ReadOnly = True Me.dtpFechaDocumento.Enabled = False Me.txtCodigoManual.ReadOnly = True Me.cboEstadoDocumento.Enabled = False End Sub Private Sub HabilitarBotones() Me.cboEmpresas.Enabled = False Me.cboInstrumentos.Enabled = False Me.cboEmisores.Enabled = False Me.cboCalificaciones.Enabled = False Me.cboCalificadoras.Enabled = False Me.cboPaises.Enabled = False Me.cboTiposMercado.Enabled = False Me.txtNombreManual.ReadOnly = True Me.cboPeriodicidad.Enabled = False Me.txtPlazoNum.ReadOnly = True Me.cboPlazoFactor.Enabled = False Me.cboTipoRenta.Enabled = False Me.cboTipoTasa.Enabled = False Me.txtCodigoInversion.ReadOnly = True Me.dtpFechaDocumento.Enabled = False Me.txtCodigoManual.ReadOnly = True Me.cboEstadoDocumento.Enabled = False End Sub Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click Me.Close() End Sub Private Sub ConsAcciones(ByRef valor As String) If (controladores.TInstrumento <= 2 And controladores.TInstrumento >= 0 And valor = "N") Then Dim frmAcciones As New frmAcciones(valor) frmAcciones.Show() End If End Sub Private Sub ConsAccionesBuscar(ByRef valor As String) If (controladores.TInstrumento <= 2 And controladores.TInstrumento >= 0) Then Dim frmAcciones As New frmAcciones(valor) frmAcciones.Show() End If End Sub Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click If (Borrar() = 0) Then LimpiarControles() End If CargarNavegador() Refrescar() btnAccion.Text = "Buscar" PrepararBusqueda() Variables.CodigoComparativo = "NULL" End Sub Public Sub Refrescar() Me.Refresh() End Sub Public Function Borrar() Dim mensaje = MsgBox("¿Deseas Eliminar este registro?", vbOKCancel, "Eliminar") If (mensaje = vbOK) Then Dim EliminarCascada As Boolean = ExisteInstrumento("PIN0") Dim eliminar As New InversionDAO Dim valor = eliminar.Eliminar(txtCodigoInversion.Text, "INV0", EliminarCascada) If (valor = 1) Then MsgBox("Error al Eliminar") Return valor Else MsgBox("Registro Eliminado") Return valor End If Else Return 1 End If End Function Private Sub BindingNavigatorPositionItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorPositionItem.Click End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) frmReporto.Show() End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) frmPrestamoPersonal.ShowDialog() End Sub Private Sub Button1_Click_2(sender As Object, e As EventArgs) JSON.Show() End Sub Sub ConfiguracionInicial() For Each Items In pnlContenedor.Controls If TypeOf Items Is GroupBox Then Dim W_Tamgrp As Double = Items.Parent.Width - 10 Dim W_Tamflp As Double = W_Tamgrp - 10 Dim H_Tamgrp As Double = Items.Parent.Height - 30 Dim H_Tamflp As Double = H_Tamgrp - 30 Items.Width = W_Tamgrp Items.Height = H_Tamgrp Items.Location = New Point(2, 20) For Each flItem In Items.Controls If TypeOf flItem Is FlowLayoutPanel Then flItem.Width = W_Tamflp flItem.Height = H_Tamflp - 10 End If Next For Each item In Items.Controls If TypeOf item Is CheckBox Then Dim W_Tamchk As Double = item.Width + 5 item.Width = W_Tamchk End If Next End If Next End Sub Sub CargarTabla() frmBuscar = New frmBuscarDeLista(2) Dim DiccionarioColecciones As New Dictionary(Of String, Collection) DiccionarioColecciones = GuardarColecciones() Dim Data As New DataTable Data = oInversionDAO.Buscar(DiccionarioColecciones).Tables("Resultado") GenerarFormato(Data) For Each Item In pnlCargaDatos.Controls If TypeOf Item Is Form Then Item.dispose End If Next frmBuscar.dgvBuscarDeLista.DataSource = Data frmBuscar.Dock = DockStyle.Fill frmBuscar.TopLevel = False frmBuscar.Parent = pnlCargaDatos frmBuscar.Show() End Sub Sub GenerarFormato(ByRef Data As DataTable) For Each Row As DataRow In Data.Rows Dim CodigoPropuesta As String = String.Empty Dim Estado As String = String.Empty Dim Asunto As String = String.Empty Dim Empresa As String = String.Empty Dim InstrumentoFinanciero As String = String.Empty Dim Emisor As String = String.Empty Dim CalificacionRiesgo As String = String.Empty Dim EmpresaCalificadora As String = String.Empty Dim OrigenFondos As String = String.Empty Dim Comentarios As String = String.Empty Dim Justificaciones As String = String.Empty Dim TipoOperacion As String = String.Empty Dim Base As String = String.Empty Dim Monto As String = String.Empty Dim Precio As String = String.Empty Dim Rendimiento As String = String.Empty Dim CantidadPlazo As String = String.Empty Dim TipoPlazo As String = String.Empty Dim Ingresos As String = String.Empty Dim FechaCreación As String = String.Empty Dim EstadoAutorización As String = String.Empty Dim TipoMercado As String = String.Empty Dim Pais As String = String.Empty CodigoPropuesta = Row("Código de Propuesta").ToString Estado = Row("Estado").ToString Asunto = Row("Asunto").ToString Empresa = Row("Empresa").ToString InstrumentoFinanciero = Row("Instrumento Financiero").ToString Emisor = Row("Emisor").ToString CalificacionRiesgo = Row("Calificación de Riesgo").ToString EmpresaCalificadora = Row("Empresa Calificadora").ToString OrigenFondos = Row("Origen de Fondos").ToString Comentarios = Row("Comentarios").ToString Justificaciones = Row("Justificaciones").ToString TipoOperacion = Row("Tipo de Operacion").ToString Base = Row("Base de Calculo").ToString Monto = Row("Monto de Inversion").ToString Precio = Row("Precio").ToString Rendimiento = Row("Rendimiento").ToString CantidadPlazo = Row("Cantidad en Plazo").ToString TipoPlazo = Row("Tipo de Plazo").ToString Ingresos = Row("Ingresos").ToString FechaCreación = Row("Fecha de Creación").ToString EstadoAutorización = Row("Estado de Autorización").ToString TipoMercado = Row("Tipo de Mercado").ToString Pais = Row("Pais").ToString If String.IsNullOrEmpty(CodigoPropuesta) Then CodigoPropuesta = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Estado) Then Estado = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Asunto) Then Asunto = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Empresa) Then Empresa = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(InstrumentoFinanciero) Then InstrumentoFinanciero = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Emisor) Then Emisor = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(CalificacionRiesgo) Then CalificacionRiesgo = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(EmpresaCalificadora) Then EmpresaCalificadora = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(OrigenFondos) Then OrigenFondos = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Comentarios) Then Comentarios = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Justificaciones) Then Justificaciones = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(TipoOperacion) Then TipoOperacion = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Base) Then Base = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Monto) Then Monto = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Precio) Then Precio = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Rendimiento) Then Rendimiento = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(CantidadPlazo) Then CantidadPlazo = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(TipoPlazo) Then TipoPlazo = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Ingresos) Then Ingresos = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(FechaCreación) Then FechaCreación = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(EstadoAutorización) Then EstadoAutorización = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(TipoMercado) Then TipoMercado = " ---- ---- ---- ---- ----" End If If String.IsNullOrEmpty(Pais) Then Pais = " ---- ---- ---- ---- ----" End If Row("Código de Propuesta") = CodigoPropuesta Row("Estado") = Estado Row("Asunto") = Asunto Row("Empresa") = Empresa Row("Instrumento Financiero") = InstrumentoFinanciero Row("Emisor") = Emisor Row("Calificación de Riesgo") = CalificacionRiesgo Row("Empresa Calificadora") = EmpresaCalificadora Row("Origen de Fondos") = OrigenFondos Row("Comentarios") = Comentarios Row("Justificaciones") = Justificaciones Row("Tipo de Operacion") = TipoOperacion Row("Base de Calculo") = Base Row("Monto de Inversion") = Monto Row("Precio") = Precio Row("Rendimiento") = Rendimiento Row("Cantidad en Plazo") = CantidadPlazo Row("Tipo de Plazo") = TipoPlazo Row("Ingresos") = Ingresos Row("Fecha de Creación") = FechaCreación Row("Estado de Autorización") = EstadoAutorización Row("Tipo de Mercado") = TipoMercado Row("Pais") = Pais Next End Sub Function GuardarColecciones() Dim DiccionarioColecciones As New Dictionary(Of String, Collection) DiccionarioColecciones.Add("Empresa", Col_Empresas) DiccionarioColecciones.Add("Emisor", Col_Emisor) DiccionarioColecciones.Add("EstDocumento", Col_EstDocumento) DiccionarioColecciones.Add("Instrumento", Col_Instrumento) DiccionarioColecciones.Add("CalRiesgo", Col_CalRiesgo) DiccionarioColecciones.Add("TipOperacion", Col_TipOperacion) DiccionarioColecciones.Add("OriFond", Col_OriFond) DiccionarioColecciones.Add("CalERiesgo", Col_CalERiesgo) DiccionarioColecciones.Add("Aut", Col_EstadoProceso) DiccionarioColecciones.Add("Plazo", Col_Plazo) DiccionarioColecciones.Add("Pais", Col_Pais) DiccionarioColecciones.Add("TipMercado", Col_TipMercado) Return DiccionarioColecciones End Function Sub ActualizarColecciones(sender As Object) Dim Flpnombre As String = sender.parent.name If TypeOf sender.parent Is FlowLayoutPanel Then Dim FlpObjeto As New FlowLayoutPanel FlpObjeto = sender.parent If Flpnombre = "flpEmpresas" Then Col_Empresas.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_Empresas.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpEmisor" Then Col_Emisor.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_Emisor.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpEstadoDocumento" Then Col_EstDocumento.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_EstDocumento.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpInstrumentos" Then Col_Instrumento.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_Instrumento.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpCalificacionRiesgo" Then Col_CalRiesgo.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_CalRiesgo.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpTipoOperacion" Then Col_TipOperacion.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_TipOperacion.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpOrigenFondos" Then Col_OriFond.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_OriFond.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpCalificadoraRiesgo" Then Col_CalERiesgo.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_CalERiesgo.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpAutorizacion" Then Col_EstadoProceso.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_EstadoProceso.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpPlazo" Then Col_Plazo.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_Plazo.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpPais" Then Col_Pais.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_Pais.Add(Nombre.name) End If End If Next ElseIf Flpnombre = "flpTipoMercado" Then Col_TipMercado.Clear() For Each Nombre In FlpObjeto.Controls If TypeOf Nombre Is CheckBox Then If Nombre.checked Then Col_TipMercado.Add(Nombre.name) End If End If Next End If End If End Sub Function AgregarCheckbox(ByRef P_cboObjeto As ComboBox, ByRef P_flpObjeto As FlowLayoutPanel) Dim Datos As New Dictionary(Of String, String) Dim Col_Generica As New Collection Dim i As Integer = 0 While i < P_cboObjeto.Items.Count P_cboObjeto.SelectedIndex = i Dim Valor As String = P_cboObjeto.SelectedValue Dim Texto As String = P_cboObjeto.Text If Not String.IsNullOrEmpty(Valor.ToString) Or Not String.IsNullOrEmpty(Texto.ToString) Then Datos.Add(Valor, Texto) End If i += 1 End While Dim O_ChequeTodos As New CheckBox O_ChequeTodos.Name = "Todos" + P_flpObjeto.Name.ToString O_ChequeTodos.Checked = True O_ChequeTodos.Width = 250 O_ChequeTodos.BackColor = ColorTranslator.FromHtml("#EAEAE8") O_ChequeTodos.Text = "Todos" O_ChequeTodos.Height = 20 O_ChequeTodos.Margin = New Padding(25, 5, 25, 5) Col_Generica.Add(O_ChequeTodos.Name) P_flpObjeto.Controls.Add(O_ChequeTodos) AddHandler O_ChequeTodos.Click, AddressOf evento AddHandler O_ChequeTodos.CheckedChanged, AddressOf Colorevento For Each RecorrerDatos In Datos Col_Generica.Add(RecorrerDatos.Key) Dim O_Check As New CheckBox Dim Existe As Boolean = False Dim Nombre = RecorrerDatos.Value For Each item As CheckBox In P_flpObjeto.Controls If item.Text.ToString = Nombre.ToString Then Existe = True End If Next If Not Existe Then O_Check.Name = RecorrerDatos.Key O_Check.Checked = True O_Check.Width = 250 O_Check.BackColor = ColorTranslator.FromHtml("#EAEAE8") O_Check.Text = Nombre O_Check.Height = 20 O_Check.Margin = New Padding(25, 5, 25, 5) P_flpObjeto.Controls.Add(O_Check) AddHandler O_Check.Click, AddressOf evento AddHandler O_Check.CheckedChanged, AddressOf Colorevento End If Existe = False Next Return Col_Generica End Function Sub eventoCargar() For Each Item In pnlMenu.Controls If TypeOf Item Is Panel Then If Item.backcolor = Color.White Then For Each Items In Item.controls Items.backcolor = Color.WhiteSmoke Next Item.backcolor = Color.WhiteSmoke End If End If Next pnlContenedor.Visible = False CargarTabla() End Sub Sub eventoCancelar() For Each Item In pnlMenu.Controls If TypeOf Item Is Panel Then If Item.backcolor = Color.White Then For Each Items In Item.controls Items.backcolor = Color.WhiteSmoke Next Item.backcolor = Color.WhiteSmoke End If End If Next pnlContenedor.Visible = False End Sub Sub evento(sender As Object, e As EventArgs) Dim P_flpObjeto As New FlowLayoutPanel P_flpObjeto = sender.parent If sender.Name.ToString.IndexOf("Todos") > -1 Then CambioCheckTodos(P_flpObjeto, sender) Else TodosCheck(P_flpObjeto, sender, e) End If End Sub Sub Colorevento(sender As Object, e As EventArgs) If (sender.checked) Then sender.BackColor = ColorTranslator.FromHtml("#EAEAE8") Else sender.BackColor = ColorTranslator.FromHtml("Transparent") End If ActualizarColecciones(sender) End Sub Sub CambioCheckTodos(ByRef P_flpObjeto As FlowLayoutPanel, ByVal sender As Object) Dim ContadorPrimario As Integer = P_flpObjeto.Controls.Count - 1 Dim PrimerCheck As Boolean = True For Each xCheckBox In P_flpObjeto.Controls If TypeOf xCheckBox Is CheckBox Then Dim yCheckBox As New CheckBox yCheckBox = xCheckBox If xCheckBox.TabIndex = 0 Then If Not yCheckBox.Checked Then PrimerCheck = False End If End If End If Next If PrimerCheck Then For Each xCheckBox In P_flpObjeto.Controls If TypeOf xCheckBox Is CheckBox Then Dim yCheckBox As New CheckBox yCheckBox = xCheckBox yCheckBox.Checked = True End If Next ElseIf Not PrimerCheck Then For Each xCheckBox In P_flpObjeto.Controls If TypeOf xCheckBox Is CheckBox Then Dim yCheckBox As New CheckBox yCheckBox = xCheckBox yCheckBox.Checked = False End If Next End If End Sub Sub TodosCheck(ByRef P_flpObjeto As FlowLayoutPanel, sender As Object, e As EventArgs) Dim ChequeTodos As Boolean = True If Not sender.Name.ToString.IndexOf("Todos") > -1 Then For Each xCheckBox In P_flpObjeto.Controls If Not xCheckBox.Name.ToString.IndexOf("Todos") > -1 Then If Not xCheckBox.checked Then ChequeTodos = False End If End If Next End If For Each xCheckBox In P_flpObjeto.Controls If xCheckBox.Name.ToString.IndexOf("Todos") > -1 Then xCheckBox.checked = ChequeTodos End If Next End Sub Private Sub lblEmpresa_Click(sender As Object, e As EventArgs) Handles lblEmpresa.Click ProcesoVisibilidad(grpEmpresas) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Sub ProcesoVisibilidad(sender As Object) For Each Items In pnlContenedor.Controls If TypeOf Items Is GroupBox Then Items.visible = False End If Next sender.visible = True End Sub Sub MenuSeleccionado(sender As Object) pnlContenedor.Visible = True For Each Items In pnlMenu.Controls If TypeOf Items Is Panel Then Items.BackColor = Color.WhiteSmoke For Each Item In Items.controls Item.BackColor = Color.WhiteSmoke Next End If Next If TypeOf sender Is Panel Then sender.BackColor = Color.White For Each Item In sender.controls Item.BackColor = Color.White Next End If If TypeOf sender Is Label Then sender.BackColor = Color.White sender.parent.BackColor = Color.White End If End Sub Sub CambiarPosicionPrincipal(sender As Object) Dim PosicionY = sender.Location.Y Dim PosicionX = pnlContenedor.Location.X pnlContenedor.Location = New Point(PosicionX, PosicionY) End Sub Private Sub pnlEmpresa_Click(sender As Object, e As EventArgs) Handles pnlEmpresa.Click ProcesoVisibilidad(grpEmpresas) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblInstrumento_Click(sender As Object, e As EventArgs) Handles lblInstrumento.Click ProcesoVisibilidad(grpInstrumentos) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlInstrumento_Paint(sender As Object, e As PaintEventArgs) Handles pnlInstrumento.Paint End Sub Private Sub pnlInstrumento_Click(sender As Object, e As EventArgs) Handles pnlInstrumento.Click ProcesoVisibilidad(grpInstrumentos) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblOrigenFondos_Click(sender As Object, e As EventArgs) Handles lblOrigenFondos.Click ProcesoVisibilidad(grpOrigenFondos) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlOrigenFondos_Click(sender As Object, e As EventArgs) Handles pnlOrigenFondos.Click ProcesoVisibilidad(grpOrigenFondos) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblPlazo_Click(sender As Object, e As EventArgs) Handles lblPlazo.Click ProcesoVisibilidad(grpPlazo) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlPlazo_Click(sender As Object, e As EventArgs) Handles pnlPlazo.Click ProcesoVisibilidad(grpPlazo) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblEmisor_Click(sender As Object, e As EventArgs) Handles lblEmisor.Click ProcesoVisibilidad(grpEmisor) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlEmisor_Click(sender As Object, e As EventArgs) Handles pnlEmisor.Click ProcesoVisibilidad(grpEmisor) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblCalificacionRiesgo_Click(sender As Object, e As EventArgs) Handles lblCalificacionRiesgo.Click ProcesoVisibilidad(grpCalificacionRiesgo) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlCalificacionRiesgo_Click(sender As Object, e As EventArgs) Handles pnlCalificacionRiesgo.Click ProcesoVisibilidad(grpCalificacionRiesgo) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblCalificadora_Click(sender As Object, e As EventArgs) Handles lblCalificadora.Click ProcesoVisibilidad(grpCalificadoraRiesgo) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlCalificadora_Click(sender As Object, e As EventArgs) Handles pnlCalificadora.Click ProcesoVisibilidad(grpCalificadoraRiesgo) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblPais_Click(sender As Object, e As EventArgs) Handles lblPais.Click ProcesoVisibilidad(grpPais) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlPais_Click(sender As Object, e As EventArgs) Handles pnlPais.Click ProcesoVisibilidad(grpPais) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblEstado_Click(sender As Object, e As EventArgs) Handles lblEstado.Click ProcesoVisibilidad(grpEstadoDocumento) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlEstado_Click(sender As Object, e As EventArgs) Handles pnlEstado.Click ProcesoVisibilidad(grpEstadoDocumento) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblAutorizacion_Click(sender As Object, e As EventArgs) Handles lblEstadoProceso.Click ProcesoVisibilidad(grpEstadoProceso) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlAutorizacion_Click(sender As Object, e As EventArgs) Handles pnlEstadoProceso.Click ProcesoVisibilidad(grpEstadoProceso) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblTipoOperacion_Click(sender As Object, e As EventArgs) Handles lblTipoOperacion.Click ProcesoVisibilidad(grpTipoOperacion) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlTipOper_Click(sender As Object, e As EventArgs) Handles pnlTipOper.Click ProcesoVisibilidad(grpTipoOperacion) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblTipoMercado_Click(sender As Object, e As EventArgs) Handles lblTipoMercado.Click ProcesoVisibilidad(grpTipoMercado) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender.parent) End Sub Private Sub pnlTipMercado_Click(sender As Object, e As EventArgs) Handles pnlTipMercado.Click ProcesoVisibilidad(grpTipoMercado) MenuSeleccionado(sender) CambiarPosicionPrincipal(sender) End Sub Private Sub lblEmpresa_MouseHover(sender As Object, e As EventArgs) Handles lblEmpresa.MouseHover EventHijoAcercar(sender) End Sub Sub EventPadreAcercar(ByVal sender As Object) Acercar(sender) For Each label In sender.Controls Acercar(label) Next End Sub Sub EventPadreAlejar(ByVal sender As Object) Alejar(sender) For Each label In sender.Controls Alejar(label) Next End Sub Sub EventHijoAcercar(ByVal sender As Object) Acercar(sender) Acercar(sender.parent) End Sub Sub EventHijoAlejar(ByVal sender As Object) Alejar(sender) Alejar(sender.parent) End Sub Sub Acercar(sender As Object) If TypeOf sender Is Panel Then If Not sender.BackColor.Name = Color.White.Name Then sender.BackColor = Color.Turquoise End If Else If Not sender.parent.BackColor.Name = Color.White.Name Then sender.BackColor = Color.Turquoise End If End If End Sub Sub Alejar(sender As Object) If TypeOf sender Is Panel Then If Not sender.BackColor.Name = Color.White.Name Then sender.BackColor = Color.WhiteSmoke End If Else If Not sender.parent.BackColor.Name = Color.White.Name Then sender.BackColor = Color.WhiteSmoke End If End If End Sub Private Sub lblInstrumento_MouseHover(sender As Object, e As EventArgs) Handles lblInstrumento.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblOrigenFondos_MouseHover(sender As Object, e As EventArgs) Handles lblOrigenFondos.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblPlazo_MouseHover(sender As Object, e As EventArgs) Handles lblPlazo.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblEmisor_MouseHover(sender As Object, e As EventArgs) Handles lblEmisor.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblCalificacionRiesgo_MouseHover(sender As Object, e As EventArgs) Handles lblCalificacionRiesgo.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblCalificadora_MouseHover(sender As Object, e As EventArgs) Handles lblCalificadora.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblPais_MouseHover(sender As Object, e As EventArgs) Handles lblPais.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblEstado_MouseHover(sender As Object, e As EventArgs) Handles lblEstado.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblAutorizacion_MouseHover(sender As Object, e As EventArgs) Handles lblEstadoProceso.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblTipoOperacion_MouseHover(sender As Object, e As EventArgs) Handles lblTipoOperacion.MouseHover EventHijoAcercar(sender) End Sub Private Sub lblTipoMercado_MouseHover(sender As Object, e As EventArgs) Handles lblTipoMercado.MouseHover EventHijoAcercar(sender) End Sub Private Sub pnlEmpresa_MouseHover(sender As Object, e As EventArgs) Handles pnlEmpresa.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlInstrumento_MouseHover(sender As Object, e As EventArgs) Handles pnlInstrumento.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlOrigenFondos_MouseHover(sender As Object, e As EventArgs) Handles pnlOrigenFondos.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlPlazo_MouseHover(sender As Object, e As EventArgs) Handles pnlPlazo.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlEmisor_MouseHover(sender As Object, e As EventArgs) Handles pnlEmisor.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlCalificacionRiesgo_MouseHover(sender As Object, e As EventArgs) Handles pnlCalificacionRiesgo.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlCalificadora_MouseHover(sender As Object, e As EventArgs) Handles pnlCalificadora.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlPais_MouseHover(sender As Object, e As EventArgs) Handles pnlPais.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlEstado_MouseHover(sender As Object, e As EventArgs) Handles pnlEstado.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlAutorizacion_MouseHover(sender As Object, e As EventArgs) Handles pnlEstadoProceso.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlTipOper_MouseHover(sender As Object, e As EventArgs) Handles pnlTipOper.MouseHover EventPadreAcercar(sender) End Sub Private Sub pnlTipMercado_MouseHover(sender As Object, e As EventArgs) Handles pnlTipMercado.MouseHover EventPadreAcercar(sender) End Sub Private Sub lblEmpresa_MouseLeave(sender As Object, e As EventArgs) Handles lblEmpresa.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblInstrumento_MouseLeave(sender As Object, e As EventArgs) Handles lblInstrumento.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblPais_MouseLeave(sender As Object, e As EventArgs) Handles lblPais.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblOrigenFondos_MouseLeave(sender As Object, e As EventArgs) Handles lblOrigenFondos.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblPlazo_MouseLeave(sender As Object, e As EventArgs) Handles lblPlazo.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblEmisor_MouseLeave(sender As Object, e As EventArgs) Handles lblEmisor.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblCalificacionRiesgo_MouseLeave(sender As Object, e As EventArgs) Handles lblCalificacionRiesgo.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblCalificadora_MouseLeave(sender As Object, e As EventArgs) Handles lblCalificadora.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblEstado_MouseLeave(sender As Object, e As EventArgs) Handles lblEstado.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblAutorizacion_MouseLeave(sender As Object, e As EventArgs) Handles lblEstadoProceso.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblTipoOperacion_MouseLeave(sender As Object, e As EventArgs) Handles lblTipoOperacion.MouseLeave EventHijoAlejar(sender) End Sub Private Sub lblTipoMercado_MouseLeave(sender As Object, e As EventArgs) Handles lblTipoMercado.MouseLeave EventHijoAlejar(sender) End Sub Private Sub pnlEmpresa_MouseLeave(sender As Object, e As EventArgs) Handles pnlEmpresa.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlInstrumento_MouseLeave(sender As Object, e As EventArgs) Handles pnlInstrumento.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlOrigenFondos_MouseLeave(sender As Object, e As EventArgs) Handles pnlOrigenFondos.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlPlazo_MouseLeave(sender As Object, e As EventArgs) Handles pnlPlazo.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlEmisor_MouseLeave(sender As Object, e As EventArgs) Handles pnlEmisor.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlCalificacionRiesgo_MouseLeave(sender As Object, e As EventArgs) Handles pnlCalificacionRiesgo.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlCalificadora_MouseLeave(sender As Object, e As EventArgs) Handles pnlCalificadora.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlPais_MouseLeave(sender As Object, e As EventArgs) Handles pnlPais.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlEstado_MouseLeave(sender As Object, e As EventArgs) Handles pnlEstado.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlAutorizacion_MouseLeave(sender As Object, e As EventArgs) Handles pnlEstadoProceso.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlTipOper_MouseLeave(sender As Object, e As EventArgs) Handles pnlTipOper.MouseLeave EventPadreAlejar(sender) End Sub Private Sub pnlTipMercado_MouseLeave(sender As Object, e As EventArgs) Handles pnlTipMercado.MouseLeave EventPadreAlejar(sender) End Sub Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click eventoCargar() End Sub Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click eventoCancelar() End Sub Private Sub txtBuscar_TextChanged(sender As Object, e As EventArgs) Handles txtBuscar.TextChanged Filtrar(sender) End Sub Sub Filtrar(sender As Object) Dim TextoIngresado As String = sender.text.ToString.ToLower Dim CajaActiva As New GroupBox Dim CajaInterna As New FlowLayoutPanel For Each Item In pnlContenedor.Controls If TypeOf Item Is GroupBox Then If Item.visible Then CajaActiva = Item Exit For End If End If Next For Each Item In CajaActiva.Controls If TypeOf Item Is FlowLayoutPanel Then CajaInterna = Item Exit For End If Next For Each Item In CajaInterna.Controls If TypeOf Item Is CheckBox Then If Item.text.ToString.ToLower.Contains(TextoIngresado) Then If Not Item.visible Then Item.visible = True End If Else If Item.visible Then Item.visible = False End If End If End If Next End Sub Private Sub pnlCargaDatos_Paint(sender As Object, e As PaintEventArgs) Handles pnlCargaDatos.Paint End Sub Public Sub CargarDatosContenedor() If MsgBox("Desea ver esta Inversión", MsgBoxStyle.OkCancel) = DialogResult.OK Then Dim Id As Integer = frmBuscar.dgvBuscarDeLista.CurrentRow.Cells("Id").Value If Not Id = Nothing Then ConDatos = Id TipoOperacion = "B" Modo = "NM" ModoInversion() CargarRegistro(Id) TipoOperacion = "B" Modo = "NM" EstadoBoton() End If End If End Sub Sub ModoInversion() Dim TbNM = TbIngresarModificar Dim VTbBuscar = TbBuscar If Modo = "NM" Or (TipoOperacion = "B" And Modo = "NM") Then If Not VTbBuscar.Parent Is Nothing Then TbBuscar.Parent = Nothing End If If (TbNM.Parent Is Nothing) Then TbNM.Parent = TabCampos End If ElseIf Modo = "B" Then If Not TbNM.Parent Is Nothing Then TbNM.Parent = Nothing End If If (VTbBuscar.Parent Is Nothing) Then VTbBuscar.Parent = TabCampos End If End If End Sub Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles navRecorrer.Click Modo = "NM" btnAccion.Text = "Buscar" ModoInversion() PrepararBusqueda() End Sub Sub ValidarEntradaPrecionada(sender As Object, e As KeyPressEventArgs) If String.IsNullOrEmpty(sender.Text) Then If e.KeyChar = "." Then sender.Text = "0" Exit Sub End If End If If (Not sender.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then Operaciones.ValidarEntrada(sender, e, True) Else Operaciones.ValidarEntrada(sender, e, False) End If End Sub Sub ValidarEntradaLevantar(ByRef sender As Object) If sender.Text = "." Then sender.Text = ".0" End If End Sub Private Sub txtPlazoNum_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPlazoNum.KeyPress ValidarEntradaPrecionada(sender, e) End Sub Private Sub txtPlazoNum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtPlazoNum.KeyUp ValidarEntradaLevantar(sender) End Sub Private Sub btnRequisicionDePago_Click(sender As Object, e As EventArgs) Handles btnRequisicionDePago.Click Dim CodigoInversion As String = txtCodigoInversion.Text Dim Empresa As String = cboEmpresas.SelectedValue Dim oRequisicionDePago As New frmReqPago(CodigoInversion, Empresa, "Individual") 'oRequisicionDePago.CodigoInversion = oPropuestaInversionCE.CodigoInversion 'oRequisicionDePago.CodigoEmpresa = oPropuestaInversionCE.CodigoEmpresa oRequisicionDePago.ShowDialog() End Sub Private Sub cboAutorizacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboEstadoProceso.SelectedIndexChanged End Sub Private Sub Button1_Click_3(sender As Object, e As EventArgs) Handles Button1.Click If MsgBox("Esta Seguro de Cambiar el Estado a Corrección?", MsgBoxStyle.OkCancel) = MsgBoxStyle.OkCancel Then cboEstadoProceso.SelectedValue = "C" End If TipoOperacion = "M" btnAccion.Text = "Actualizar" End Sub Private Sub btnAprobado_Click(sender As Object, e As EventArgs) Handles btnAprobado.Click If MsgBox("Esta Seguro de Cambiar el Estado ha Aprobado?", MsgBoxStyle.OkCancel) = MsgBoxStyle.OkCancel Then cboEstadoProceso.SelectedValue = "A" End If TipoOperacion = "M" btnAccion.Text = "Actualizar" End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If MsgBox("Esta Seguro de Cambiar el Estado para Anexar?", MsgBoxStyle.OkCancel) = MsgBoxStyle.OkCancel Then cboEstadoProceso.SelectedValue = "F" End If TipoOperacion = "M" btnAccion.Text = "Actualizar" End Sub Public Sub EstadoBoton() Dim EstadoActual = cboEstadoProceso.SelectedValue Dim CodigoInversion As String = txtCodigoInversion.Text If EstadoActual = "R" Then pnlCorregir.Visible = True pnlAprobar.Visible = True pnlAnexar.Visible = False btnRequisicionDePago.Visible = False lblMensajeReq.Text = String.Empty ElseIf EstadoActual = "A" Then If RequisicionDePagoDAO.ExisteRequisicion(CodigoInversion) Then lblMensajeReq.Text = String.Empty ModificacionTiempo("P", CodigoInversion, "Se ha actualizado.") Else pnlCorregir.Visible = False pnlAprobar.Visible = False pnlAnexar.Visible = False btnRequisicionDePago.Visible = True lblMensajeReq.Text = "Pendiente" End If ElseIf EstadoActual = "C" Then pnlCorregir.Visible = False pnlAprobar.Visible = True pnlAnexar.Visible = False btnRequisicionDePago.Visible = False lblMensajeReq.Text = String.Empty ElseIf EstadoActual = "I" Then If RequisicionDePagoDAO.ExisteRequisicion(CodigoInversion) And DocumentoAnexado Then ModificacionTiempo("F", CodigoInversion, "Ha finalizado el proceso de la inversión, la inverión se encuentra activa completamente.") Else pnlCorregir.Visible = False pnlAprobar.Visible = False pnlAnexar.Visible = True btnRequisicionDePago.Visible = True lblMensajeReq.Text = String.Empty End If ElseIf EstadoActual = "P" Then If RequisicionDePagoDAO.ExisteRequisicion(CodigoInversion) And EnviadoContaduria Then ModificacionTiempo("I", CodigoInversion, "Se ha enviado a contaduría.") Else pnlCorregir.Visible = False pnlAprobar.Visible = False pnlAnexar.Visible = False btnRequisicionDePago.Visible = True lblMensajeReq.Text = "Pendiente envio Contaduria" End If ElseIf EstadoActual = "F" Then pnlCorregir.Visible = False pnlAprobar.Visible = False pnlAnexar.Visible = False btnRequisicionDePago.Visible = True lblMensajeReq.Text = String.Empty End If RefrescarValoresDeControles() EstadoControladoresNAV() End Sub Sub ModificacionTiempo(ByVal Estado As String, ByVal CodigoInversion As String, ByVal Mensaje As String) pnlCorregir.Visible = False pnlAprobar.Visible = False pnlAnexar.Visible = False btnRequisicionDePago.Visible = False oInversionCE.EstadoProceso = Estado RefrescarValoresDeControles() Dim retorno As Integer = 0 retorno = oInversionDAO.Modificar(oInversionCE) If retorno = 1 Then CargarRegistro(oInversionCE.IdDeDocumento) MsgBox(Mensaje) End If GuardarFamilia(CodigoInversion) CargarNavegador() Refrescar() EstadoBoton() Exit Sub End Sub Sub EstadoControladoresNAV() Dim Estado As String = String.Empty 'R 'C 'A 'P 'I 'F If cboEstadoProceso.SelectedValue = "R" Then Estado = "R" ElseIf cboEstadoProceso.SelectedValue = "C" Then Estado = "C" ElseIf cboEstadoProceso.SelectedValue = "A" Then Estado = "A" ElseIf cboEstadoProceso.SelectedValue = "P" Then Estado = "P" ElseIf cboEstadoProceso.SelectedValue = "I" Then Estado = "I" ElseIf cboEstadoProceso.SelectedValue = "F" Then Estado = "F" End If If Estado = "R" Or Estado = "A" Or Estado = "P" Or Estado = "I" Or Estado = "F" Then navNuevo.Enabled = True navModificar.Enabled = False navEliminar.Enabled = False navBuscar.Enabled = True navRecorrer.Enabled = True ElseIf Estado = "C" Then navNuevo.Enabled = True navModificar.Enabled = True navEliminar.Enabled = False navBuscar.Enabled = True navRecorrer.Enabled = True End If End Sub Private Sub cboOrigenDeFondos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboOrigenDeFondos.SelectedIndexChanged ControlOFondo() End Sub Private Sub cboTipoOperacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTipoOperacion.SelectedIndexChanged ControlTipoOperacion() End Sub Private Sub ControlTipoOperacion() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then If Not TypeOf cboTipoOperacion.SelectedValue Is DataRowView Then oInversionCE.TipoOperacion = cboTipoOperacion.SelectedValue End If End If End Sub Private Sub ControlOFondo() If TipoOperacion = "N" Or TipoOperacion = "B" Or TipoOperacion = "M" Then If Not TypeOf cboOrigenDeFondos.SelectedValue Is DataRowView Then oInversionCE.OFondo = cboOrigenDeFondos.SelectedValue End If End If End Sub Private Sub btnReportoVenta_Click(sender As Object, e As EventArgs) Handles btnReportoVenta.Click End Sub Private Sub TableLayoutPanel2_Paint(sender As Object, e As PaintEventArgs) Handles TableLayoutPanel2.Paint End Sub Private Sub txtCodigoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtCodigoCompra.TextChanged End Sub Private Sub TabCampos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabCampos.SelectedIndexChanged CargarTabla() End Sub Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click End Sub End Class