Inversiones/FRM/frmDetallesPortafolioGeneralRendimiento.vb

Public Class frmDetallesPortafolioGeneralRendimiento
    Dim General As New DAOGeneral
    Dim Operaciones As New Operaciones
    Dim Rendimientos As New Rendimientos
    Dim dt As New DataTable
    Dim FinCargado As Boolean = False
    Dim ContinuarEmpresa As Boolean = True
    Dim ContinuarInstrumento As Boolean = True
    Dim Tipo As String = String.Empty
    Sub New()

        ' Esta llamada es exigida por el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub



    Sub New(Tipo As String)
        Me.New
        Me.Tipo = Tipo
        'Cargar(Tipo)




    End Sub


    Private Sub frmDetallesPortafolioGeneralRendimiento_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CargarEmpresas()
        CargarInstrumento()
        CheckEmpresaTodos()
        CheckInstrumentoTodos()
        OcultarColumnas()
        FinCargado = True
    End Sub


    Sub CargarEmpresas()
        Dim dt As New DataTable
        dt = General.ListaEmpresas
        dt.Rows.Add("Todos", "Todos")
        chklEmpresas.DataSource = dt
        chklEmpresas.DisplayMember = "Descripcion"
        chklEmpresas.ValueMember = "Codigo"
    End Sub


    Sub CargarInstrumento()
        Dim dt As New DataTable
        dt = General.ListaInstrumentos("Propuesta")
        dt.Rows.Add("Todos", "Todos")
        chklInstrumentos.DataSource = dt
        chklInstrumentos.DisplayMember = "Descripcion"
        chklInstrumentos.ValueMember = "Codigo"
    End Sub




    Sub CheckEmpresaTodos()
        Dim Cantidad As Integer = chklEmpresas.Items.Count - 1
        Dim Index As Integer = 0

        While Index <= Cantidad

            chklEmpresas.SetItemChecked(Index, True)


            Index += 1

        End While
    End Sub




    Sub CheckInstrumentoTodos()
        Dim Cantidad As Integer = chklInstrumentos.Items.Count - 1
        Dim Index As Integer = 0

        While Index <= Cantidad

            chklInstrumentos.SetItemChecked(Index, True)


            Index += 1

        End While
    End Sub

    Sub Calcular(ByRef dtGeneral As DataTable, ByRef dtLista As DataTable, value As String, Index As Integer, e As ItemCheckEventArgs)

        If Tipo = "Empresa" Then


            Dim TituloCambio As String = String.Empty
            For Each Item As DataRowView In chklEmpresas.CheckedItems
                Dim valor1 As String = Item.Item(0).ToString
                For Each rows As DataRow In dtGeneral.Rows
                    Dim valor2 As String = rows("CodigoEmpresa").ToString
                    If Not String.IsNullOrEmpty(valor1) And Not String.IsNullOrEmpty(valor2) Then
                        If ((valor1 = valor2 And Not (valor1 = value) And Not valor2 = TituloCambio)) Then
                            dtLista.Rows.Add(rows("CodigoEmpresa").ToString,
                            rows("Empresa").ToString,
                           Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                           Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                            Operaciones.ConvertirDecimal(rows("Monto").ToString),
                            Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                            Operaciones.ConvertirDecimal(rows("Peso").ToString))
                        ElseIf (Not valor1 = valor2 And valor2 = value And e.NewValue = CheckState.Checked) Then
                            dtLista.Rows.Add(rows("CodigoEmpresa").ToString,
                           rows("Empresa").ToString,
                          Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                          Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                           Operaciones.ConvertirDecimal(rows("Monto").ToString),
                           Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                           Operaciones.ConvertirDecimal(rows("Peso").ToString))
                            TituloCambio = value
                            value = String.Empty

                        End If
                    End If
                Next
            Next
            Dim CantidadCheck As Integer = chklEmpresas.CheckedItems.Count
            If CantidadCheck = 0 And e.NewValue = CheckState.Checked Then
                For Each rows As DataRow In dtGeneral.Rows
                    Dim valor3 As String = rows("CodigoEmpresa").ToString
                    If valor3 = value Then
                        dtLista.Rows.Add(rows("CodigoEmpresa").ToString,
                                rows("Empresa").ToString,
                               Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                               Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                                Operaciones.ConvertirDecimal(rows("Monto").ToString),
                                Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                                Operaciones.ConvertirDecimal(rows("Peso").ToString))
                        value = String.Empty

                    End If
                Next
            End If







        ElseIf Tipo = "Instrumento" Then

            Dim TituloCambio As String = String.Empty
            For Each Item As DataRowView In chklInstrumentos.CheckedItems
                Dim valor1 As String = Item.Item(0).ToString
                For Each rows As DataRow In dtGeneral.Rows
                    Dim valor2 As String = rows("CodigoInstrumento").ToString
                    If Not String.IsNullOrEmpty(valor1) And Not String.IsNullOrEmpty(valor2) Then
                        If ((valor1 = valor2 And Not (valor1 = value) And Not valor2 = TituloCambio)) Then
                            dtLista.Rows.Add(rows("CodigoInstrumento").ToString,
                            rows("Instrumento").ToString,
                           Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                           Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                            Operaciones.ConvertirDecimal(rows("Monto").ToString),
                            Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                            Operaciones.ConvertirDecimal(rows("Peso").ToString))
                        ElseIf (Not valor1 = valor2 And valor2 = value And e.NewValue = CheckState.Checked) Then
                            dtLista.Rows.Add(rows("CodigoInstrumento").ToString,
                           rows("Instrumento").ToString,
                          Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                          Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                           Operaciones.ConvertirDecimal(rows("Monto").ToString),
                           Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                           Operaciones.ConvertirDecimal(rows("Peso").ToString))
                            TituloCambio = value
                            value = String.Empty

                        End If
                    End If
                Next
            Next
            Dim CantidadCheck As Integer = chklInstrumentos.CheckedItems.Count
            If CantidadCheck = 0 And e.NewValue = CheckState.Checked Then
                For Each rows As DataRow In dtGeneral.Rows
                    Dim valor3 As String = rows("CodigoInstrumento").ToString
                    If valor3 = value Then
                        dtLista.Rows.Add(rows("CodigoInstrumento").ToString,
                                rows("Instrumento").ToString,
                               Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                               Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                                Operaciones.ConvertirDecimal(rows("Monto").ToString),
                                Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                                Operaciones.ConvertirDecimal(rows("Peso").ToString))
                        value = String.Empty

                    End If
                Next
            End If




















        ElseIf Tipo = "DescEmpresa" Then

            Dim ContarRepEmpresa As Integer = 0
            Dim Espr As Integer = 0
            For Each rows As DataRow In dtGeneral.Rows
                Dim valor As String = rows("CodigoEmpresa").ToString
                If valor = value Then
                    ContarRepEmpresa += 1
                End If
            Next
            Dim TituloCambio As String = String.Empty
            For Each Item As DataRowView In chklEmpresas.CheckedItems
                Dim valor1 As String = Item.Item(0).ToString




                For Each rows As DataRow In dtGeneral.Rows
                    Dim valor2 As String = rows("CodigoEmpresa").ToString
                    If Not String.IsNullOrEmpty(valor1) And Not String.IsNullOrEmpty(valor2) Then
                        If ((valor1 = valor2 And Not (valor1 = value) And Not valor2 = TituloCambio)) Then
                            dtLista.Rows.Add(rows("CodigoEmpresa").ToString,
                                rows("Empresa").ToString,
                               rows("Instrumento").ToString,
                               Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                               Operaciones.ConvertirDecimal(rows("Monto").ToString),
                               rows("CodigoEmpresaTotal").ToString,
                               rows("RendimientoPromedio").ToString,
                               Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                                Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                                Operaciones.ConvertirDecimal(rows("Peso").ToString))
                        ElseIf (Not valor1 = valor2 And valor2 = value And e.NewValue = CheckState.Checked) Then
                            dtLista.Rows.Add(rows("CodigoEmpresa").ToString,
                                rows("Empresa").ToString,
                               rows("Instrumento").ToString,
                               Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                               Operaciones.ConvertirDecimal(rows("Monto").ToString),
                               rows("CodigoEmpresaTotal").ToString,
                               rows("RendimientoPromedio").ToString,
                               Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                                Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                                Operaciones.ConvertirDecimal(rows("Peso").ToString))

                            Espr += 1
                            If Espr >= ContarRepEmpresa Then
                                TituloCambio = value
                                value = String.Empty
                            End If



                        End If
                    End If
                Next
            Next
            Dim CantidadCheck As Integer = chklEmpresas.CheckedItems.Count
            If CantidadCheck = 0 And e.NewValue = CheckState.Checked Then
                For Each rows As DataRow In dtGeneral.Rows
                    Dim valor3 As String = rows("CodigoEmpresa").ToString
                    If valor3 = value Then
                        dtLista.Rows.Add(rows("CodigoEmpresa").ToString,
                                rows("Empresa").ToString,
                               rows("Instrumento").ToString,
                               Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                               Operaciones.ConvertirDecimal(rows("Monto").ToString),
                               rows("CodigoEmpresaTotal").ToString,
                               rows("RendimientoPromedio").ToString,
                               Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                                Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                                Operaciones.ConvertirDecimal(rows("Peso").ToString))

                        Espr += 1
                        If Espr >= ContarRepEmpresa Then
                            value = String.Empty
                        End If

                    End If
                Next
            End If















        ElseIf Tipo = "DescInstrumento" Then

            Dim ContarRepInstrumento As Integer = 0
            Dim Espr As Integer = 0
            For Each rows As DataRow In dtGeneral.Rows
                Dim valor As String = rows("CodigoInstrumento").ToString
                If valor = value Then
                    ContarRepInstrumento += 1
                End If
            Next
            Dim TituloCambio As String = String.Empty
            For Each Item As DataRowView In chklInstrumentos.CheckedItems
                Dim valor1 As String = Item.Item(0).ToString




                For Each rows As DataRow In dtGeneral.Rows
                    Dim valor2 As String = rows("CodigoInstrumento").ToString
                    If Not String.IsNullOrEmpty(valor1) And Not String.IsNullOrEmpty(valor2) Then
                        If ((valor1 = valor2 And Not (valor1 = value) And Not valor2 = TituloCambio)) Then
                            dtLista.Rows.Add(rows("CodigoInstrumento").ToString,
                                rows("Instrumento").ToString,
                               rows("Empresa").ToString,
                               Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                               Operaciones.ConvertirDecimal(rows("Monto").ToString),
                               rows("CodigoInstrumentoTotal").ToString,
                               rows("RendimientoPromedio").ToString,
                               Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                                Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                                Operaciones.ConvertirDecimal(rows("Peso").ToString))
                        ElseIf (Not valor1 = valor2 And valor2 = value And e.NewValue = CheckState.Checked) Then
                            dtLista.Rows.Add(rows("CodigoInstrumento").ToString,
                                rows("Instrumento").ToString,
                               rows("Empresa").ToString,
                               Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                               Operaciones.ConvertirDecimal(rows("Monto").ToString),
                               rows("CodigoInstrumentoTotal").ToString,
                               rows("RendimientoPromedio").ToString,
                               Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                                Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                                Operaciones.ConvertirDecimal(rows("Peso").ToString))

                            Espr += 1
                            If Espr >= ContarRepInstrumento Then
                                TituloCambio = value
                                value = String.Empty
                            End If



                        End If
                    End If
                Next
            Next
            Dim CantidadCheck As Integer = chklInstrumentos.CheckedItems.Count
            If CantidadCheck = 0 And e.NewValue = CheckState.Checked Then
                For Each rows As DataRow In dtGeneral.Rows
                    Dim valor3 As String = rows("CodigoInstrumento").ToString
                    If valor3 = value Then
                        dtLista.Rows.Add(rows("CodigoInstrumento").ToString,
                                rows("Instrumento").ToString,
                               rows("Empresa").ToString,
                               Operaciones.ConvertirDecimal(rows("Rendimiento").ToString),
                               Operaciones.ConvertirDecimal(rows("Monto").ToString),
                               rows("CodigoInstrumentoTotal").ToString,
                               rows("RendimientoPromedio").ToString,
                               Operaciones.ConvertirDecimal(rows("Cantidad").ToString),
                                Operaciones.ConvertirDecimal(rows("MontoTotal").ToString),
                                Operaciones.ConvertirDecimal(rows("Peso").ToString))

                        Espr += 1
                        If Espr >= ContarRepInstrumento Then
                            value = String.Empty
                        End If

                    End If
                Next
            End If


        End If
    End Sub



    Sub Cargar(Tipo As String, value As String, Index As Integer, e As ItemCheckEventArgs)
        Dim MontoTotal As Double = 0
        Dim RendimientoPromedio As Double = 0
        Dim PesoPromedio As Double = 0
        Dim CantidadRegistros As Integer = 0
        Dim dtListaEmpresa As New DataTable
        If Tipo = "Empresa" Then
            dtListaEmpresa.Columns.Add("CodigoEmpresa")
            dtListaEmpresa.Columns.Add("Empresa")
            dtListaEmpresa.Columns.Add("Rendimiento")
            dtListaEmpresa.Columns.Add("Cantidad")
            dtListaEmpresa.Columns.Add("Monto")
            dtListaEmpresa.Columns.Add("MontoTotal")
            dtListaEmpresa.Columns.Add("Peso")

        ElseIf Tipo = "Instrumento" Then
            dtListaEmpresa.Columns.Add("CodigoInstrumento")
            dtListaEmpresa.Columns.Add("Empresa")
            dtListaEmpresa.Columns.Add("Rendimiento")
            dtListaEmpresa.Columns.Add("Cantidad")
            dtListaEmpresa.Columns.Add("Monto")
            dtListaEmpresa.Columns.Add("MontoTotal")
            dtListaEmpresa.Columns.Add("Peso")

        ElseIf Tipo = "DescEmpresa" Then
            dtListaEmpresa.Columns.Add("CodigoEmpresa")
            dtListaEmpresa.Columns.Add("Empresa")
            dtListaEmpresa.Columns.Add("Instrumento")
            dtListaEmpresa.Columns.Add("Rendimiento")
            dtListaEmpresa.Columns.Add("Monto")
            dtListaEmpresa.Columns.Add("CodigoEmpresaTotal")
            dtListaEmpresa.Columns.Add("RendimientoPromedio")
            dtListaEmpresa.Columns.Add("Cantidad")
            dtListaEmpresa.Columns.Add("MontoTotal")
            dtListaEmpresa.Columns.Add("Peso")

        ElseIf Tipo = "DescInstrumento" Then
            dtListaEmpresa.Columns.Add("CodigoInstrumento")
            dtListaEmpresa.Columns.Add("Instrumento")
            dtListaEmpresa.Columns.Add("Empresa")
            dtListaEmpresa.Columns.Add("Rendimiento")
            dtListaEmpresa.Columns.Add("Monto")
            dtListaEmpresa.Columns.Add("CodigoInstrumentoTotal")
            dtListaEmpresa.Columns.Add("RendimientoPromedio")
            dtListaEmpresa.Columns.Add("Cantidad")
            dtListaEmpresa.Columns.Add("MontoTotal")
            dtListaEmpresa.Columns.Add("Peso")

        End If
        Dim dtGeneral As New DataTable

        If String.IsNullOrEmpty(Tipo) Then
            MsgBox("Error")
            Me.Close()
        Else
            If Tipo = "Empresa" Then
                lblInstrumentos.Visible = False
                chklInstrumentos.Visible = False

                If dtGeneral.Columns.Count = 0 Then
                    dt = Rendimientos.CargarPortafolioGeneral(Tipo)
                End If
                dtGeneral = dt

                Calcular(dtGeneral, dtListaEmpresa, value, Index, e)

                dtGeneral = dtListaEmpresa








                For Each rows As DataRow In dtGeneral.Rows
                    If Not (rows("Rendimiento")) Is Nothing Then
                        rows("Rendimiento") = (rows("Rendimiento") * 100).ToString + " %"
                    End If

                    If Not (rows("Peso")) Is Nothing Then
                        rows("Peso") = (rows("Peso") * 100).ToString + " %"
                    End If
                Next

            ElseIf Tipo = "Instrumento" Then
                lblEmpresa.Visible = False
                chklEmpresas.Visible = False
                If dtGeneral.Columns.Count = 0 Then
                    dt = Rendimientos.CargarPortafolioGeneral(Tipo)
                End If
                dtGeneral = dt

                Calcular(dtGeneral, dtListaEmpresa, value, Index, e)

                dtGeneral = dtListaEmpresa

                For Each rows As DataRow In dtGeneral.Rows
                    If Not (rows("Rendimiento")) Is Nothing Then
                        rows("Rendimiento") = (rows("Rendimiento") * 100).ToString + " %"
                    End If

                    If Not (rows("Peso")) Is Nothing Then
                        rows("Peso") = (rows("Peso") * 100).ToString + " %"
                    End If
                Next

            ElseIf Tipo = "DescEmpresa" Then
                lblInstrumentos.Visible = False
                chklInstrumentos.Visible = False
                If dtGeneral.Columns.Count = 0 Then
                    dt = Rendimientos.CargarPortafolioGeneral(Tipo)
                End If
                dtGeneral = dt

                Calcular(dtGeneral, dtListaEmpresa, value, Index, e)

                dtGeneral = dtListaEmpresa

                For Each rows As DataRow In dtGeneral.Rows
                    If Not (rows("Rendimiento") Is Nothing) Then
                        rows("Rendimiento") = (rows("Rendimiento") * 100).ToString + " %"
                    End If

                    If Not (rows("Peso")) Is Nothing Then
                        rows("Peso") = (rows("Peso") * 100).ToString + " %"
                    End If

                    If Not (rows("RendimientoPromedio")) Is Nothing Then
                        rows("RendimientoPromedio") = (rows("RendimientoPromedio") * 100).ToString + " %"
                    End If
                Next

            ElseIf Tipo = "DescInstrumento" Then
                lblEmpresa.Visible = False
                chklEmpresas.Visible = False

                If dtGeneral.Columns.Count = 0 Then
                    dt = Rendimientos.CargarPortafolioGeneral(Tipo)
                End If
                dtGeneral = dt

                Calcular(dtGeneral, dtListaEmpresa, value, Index, e)

                dtGeneral = dtListaEmpresa

                For Each rows As DataRow In dtGeneral.Rows
                    If Not (rows("Rendimiento") Is Nothing) Then
                        rows("Rendimiento") = (rows("Rendimiento") * 100).ToString + " %"
                    End If

                    If Not (rows("Peso")) Is Nothing Then
                        rows("Peso") = (rows("Peso") * 100).ToString + " %"
                    End If

                    If Not (rows("RendimientoPromedio")) Is Nothing Then
                        rows("RendimientoPromedio") = (rows("RendimientoPromedio") * 100).ToString + " %"
                    End If
                Next

            End If



        End If

        dgvPortafolio.DataSource = dtGeneral

        For Each rows As DataRow In dtGeneral.Rows
            If Not rows("Monto") Is Nothing Then
                MontoTotal += Operaciones.ConvertirDecimal(rows("Monto").ToString)
            End If
        Next

        CantidadRegistros = dtGeneral.Rows.Count

        For Each rows As DataRow In dtGeneral.Rows
            If Not rows("Rendimiento") Is Nothing Then
                RendimientoPromedio += (Operaciones.ConvertirDecimal(rows("Rendimiento").ToString) / 100)
            End If
        Next

        For Each rows As DataRow In dtGeneral.Rows
            If Not rows("Peso") Is Nothing Then
                PesoPromedio += (Operaciones.ConvertirDecimal(rows("Peso").ToString) / 100)
            End If
        Next
        txtMontoTotal.Text = MontoTotal
        If Not CantidadRegistros = 0 Then
            txtRendimientoPromedio.Text = (RendimientoPromedio / CantidadRegistros * 100).ToString + " %"
            txtPesoPromedio.Text = (PesoPromedio / CantidadRegistros * 100).ToString + " %"
        Else
            txtRendimientoPromedio.Text = 0.ToString + " %"
            txtPesoPromedio.Text = 0.ToString + " %"
        End If


    End Sub




    Sub OcultarColumnas()
        If Not dgvPortafolio.Columns("MontoTotal") Is Nothing Then
            dgvPortafolio.Columns("MontoTotal").Visible = False
        End If
        If Not dgvPortafolio.Columns("Cantidad") Is Nothing Then
            dgvPortafolio.Columns("Cantidad").Visible = False
        End If
        If Not dgvPortafolio.Columns("CodigoEmpresaTotal") Is Nothing Then
            dgvPortafolio.Columns("CodigoEmpresaTotal").Visible = False
        End If
        If Not dgvPortafolio.Columns("CodigoInstrumentoTotal") Is Nothing Then
            dgvPortafolio.Columns("CodigoInstrumentoTotal").Visible = False
        End If
        If Not dgvPortafolio.Columns("RendimientoTotal") Is Nothing Then
            dgvPortafolio.Columns("RendimientoTotal").Visible = False
        End If


        If Not dgvPortafolio.Columns("CodigoEmpresa") Is Nothing Then
            dgvPortafolio.Columns("CodigoEmpresa").Visible = False
        End If

        If Not dgvPortafolio.Columns("CodigoInstrumento") Is Nothing Then
            dgvPortafolio.Columns("CodigoInstrumento").Visible = False
        End If
    End Sub

    Sub QuitarEmpresas(Value As String, Indice As Integer, e As ItemCheckEventArgs)
        Dim Cantidad As Integer = chklEmpresas.Items.Count - 1
        Dim CantidadSeleccionados = chklEmpresas.CheckedItems.Count - 1
        If Value = "Todos" And e.NewValue = CheckState.Checked Then

            Dim Index As Integer = 0
            While Index <= Cantidad
                chklEmpresas.SetItemChecked(Index, True)
                Index += 1
            End While

        ElseIf Value = "Todos" And Not e.NewValue = CheckState.Checked Then

            Dim Index As Integer = 0
            While Index <= Cantidad
                chklEmpresas.SetItemChecked(Index, False)
                Index += 1
            End While


        Else
            Dim JIndex As Integer = 0
            Dim TodosCheck As Boolean = False
            While JIndex <= Cantidad


                If chklEmpresas.GetItemText(chklEmpresas.Items(JIndex)) = "Todos" Then
                    If chklEmpresas.GetItemChecked(JIndex) Then
                        TodosCheck = True


                    End If
                End If

                JIndex += 1

            End While

            If e.NewValue = CheckState.Unchecked Then
                CantidadSeleccionados -= 1
            Else
                CantidadSeleccionados += 2
            End If
            If CantidadSeleccionados < Cantidad And TodosCheck Then
                Dim Index As Integer = 0

                While Index <= Cantidad
                    If chklEmpresas.GetItemText(chklEmpresas.Items(Index)) = "Todos" Then

                        chklEmpresas.SetItemChecked(Index, False)

                    End If


                    Index += 1
                End While
            ElseIf CantidadSeleccionados = Cantidad Then
                e.NewValue = CheckState.Checked
                CheckEmpresaTodos()

            End If
        End If





    End Sub







    Sub QuitarInstrumento(Value As String, Indice As Integer, e As ItemCheckEventArgs)
        Dim Cantidad As Integer = chklInstrumentos.Items.Count - 1
        Dim CantidadSeleccionados = chklInstrumentos.CheckedItems.Count - 1
        If Value = "Todos" And e.NewValue = CheckState.Checked Then

            Dim Index As Integer = 0
            While Index <= Cantidad
                chklInstrumentos.SetItemChecked(Index, True)
                Index += 1
            End While

        ElseIf Value = "Todos" And Not e.NewValue = CheckState.Checked Then

            Dim Index As Integer = 0
            While Index <= Cantidad
                chklInstrumentos.SetItemChecked(Index, False)
                Index += 1
            End While


        Else
            Dim JIndex As Integer = 0
            Dim TodosCheck As Boolean = False
            While JIndex <= Cantidad


                If chklInstrumentos.GetItemText(chklInstrumentos.Items(JIndex)) = "Todos" Then
                    If chklInstrumentos.GetItemChecked(JIndex) Then
                        TodosCheck = True


                    End If
                End If

                JIndex += 1

            End While

            If e.NewValue = CheckState.Unchecked Then
                CantidadSeleccionados -= 1
            Else
                CantidadSeleccionados += 2
            End If
            If CantidadSeleccionados < Cantidad And TodosCheck Then
                Dim Index As Integer = 0

                While Index <= Cantidad
                    If chklInstrumentos.GetItemText(chklInstrumentos.Items(Index)) = "Todos" Then

                        chklInstrumentos.SetItemChecked(Index, False)

                    End If


                    Index += 1
                End While
            ElseIf CantidadSeleccionados = Cantidad Then
                e.NewValue = CheckState.Checked
                CheckInstrumentoTodos()

            End If
        End If





    End Sub


    Private Sub chklEmpresas_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles chklEmpresas.ItemCheck
        If ContinuarEmpresa Then
            ContinuarEmpresa = False

            If FinCargado Then


                QuitarEmpresas(chklEmpresas.SelectedValue.ToString, chklEmpresas.SelectedIndex, e)



            End If
            Cargar(Tipo, chklEmpresas.SelectedValue.ToString, chklEmpresas.SelectedIndex, e)
            ContinuarEmpresa = True
        End If




    End Sub

    Private Sub chklEmpresas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles chklEmpresas.SelectedIndexChanged

    End Sub

    Private Sub chklEmpresas_EnabledChanged(sender As Object, e As EventArgs) Handles chklEmpresas.EnabledChanged

    End Sub

    Private Sub chklEmpresas_MouseCaptureChanged(sender As Object, e As EventArgs) Handles chklEmpresas.MouseCaptureChanged

    End Sub

    Private Sub chklEmpresas_Click(sender As Object, e As EventArgs) Handles chklEmpresas.Click


    End Sub

    Private Sub chklEmpresas_RegionChanged(sender As Object, e As EventArgs) Handles chklEmpresas.RegionChanged

    End Sub

    Private Sub chklEmpresas_SelectedValueChanged(sender As Object, e As EventArgs) Handles chklEmpresas.SelectedValueChanged

    End Sub

    Private Sub chklEmpresas_CausesValidationChanged(sender As Object, e As EventArgs) Handles chklEmpresas.CausesValidationChanged

    End Sub

    Private Sub chklEmpresas_BackColorChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub chklEmpresas_BindingContextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub chklEmpresas_FormattingEnabledChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub chklEmpresas_TabIndexChanged(sender As Object, e As EventArgs) Handles chklEmpresas.TabIndexChanged

    End Sub

    Private Sub chklInstrumentos_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles chklInstrumentos.ItemCheck
        If ContinuarInstrumento Then
            ContinuarInstrumento = False
            If FinCargado Then
                QuitarInstrumento(chklInstrumentos.SelectedValue.ToString, chklInstrumentos.SelectedIndex, e)
            End If
            Cargar(Tipo, chklInstrumentos.SelectedValue.ToString, chklInstrumentos.SelectedIndex, e)
            ContinuarInstrumento = True
        End If
    End Sub

    Private Sub txtRendimientoPromedio_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoPromedio.TextChanged

    End Sub
End Class