Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones

Partial Class Prospectos_RepPadron
    Inherits ClsPaginas

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            ViewState("Orden") = String.Empty
            CargaFiltros()
            CargaDatos()
        End If

    End Sub

    Private Sub CargaFiltros()
        Dim ObjProspectos As New ClsProspectos

        'Municipio
        If ObjProspectos.GetFiltros("Mun") Then
            DdlMunicipio.DataSource = ObjProspectos.DtResultados
        Else
            DdlMunicipio.DataSource = Nothing
        End If
        DdlMunicipio.DataBind()
        DdlMunicipio.Items.Insert(0, New ListItem("Todos", "-1"))

        'Distritos
        Dim DT As DataTable = Nothing
        If ObjProspectos.GetFiltros("Dist") Then
            DT = ObjProspectos.DtResultados
        Else
            DT = Nothing
        End If

        If DT IsNot Nothing AndAlso DT.Rows.Count > 0 Then
            'Cargo DistLoc
            DdlDistLoc.DataSource = DT.FiltraParametros("", "", {"Dist_Loc"})
            DdlDistLoc.DataBind()
            DdlDistLoc.Items.Insert(0, New ListItem("Todos", "-1"))

            'Cargo Secciones
            DdlSeccion.DataSource = DT.FiltraParametros("", "", {"seccion"})
            DdlSeccion.DataBind()
            DdlSeccion.Items.Insert(0, New ListItem("Todos", "-1"))

            'Cargo DistFed
            DdlDistFed.DataSource = DT.FiltraParametros("", "", {"Dist_Fed"})
            DdlDistFed.DataBind()
            DdlDistFed.Items.Insert(0, New ListItem("Todos", "-1"))

        End If
        If DT IsNot Nothing Then DT.Dispose()

        'Ocupacion
        If ObjProspectos.GetFiltros("Ocupacion") Then
            DdlOcupacion.DataSource = ObjProspectos.DtResultados
        Else
            DdlOcupacion.DataSource = Nothing
        End If
        DdlOcupacion.DataBind()
        DdlOcupacion.Items.Insert(0, New ListItem("Todos", "-1"))

        ObjProspectos.Dispose()

        '
    End Sub

    Public Sub CargaDatos()
        Dim ObjProspectos As New ClsProspectos
        If ObjProspectos.GetRepPadron(DdlMunicipio.SelectedValue.ToEntero, DdlDistFed.SelectedValue.ToEntero, DdlDistLoc.SelectedValue.ToEntero, DdlSeccion.SelectedValue.ToEntero, DdlOcupacion.SelectedValue, DdlAgrupador.SelectedValue.ToEntero) Then
            If DdlAgrupador.SelectedValue = "2" OrElse DdlAgrupador.SelectedValue = "3" OrElse DdlAgrupador.SelectedValue = "4" Then
                Dim DT As DataTable = ObjProspectos.DtResultados

                DT.Columns.Add("int_agrupador", GetType(Integer))

                For Each Row As DataRow In DT.Rows
                    Row("int_agrupador") = GetNumber(Row("agrupador").ToString)
                Next
                DT = DT.FiltraParametros("", "int_agrupador")
                ViewState("DTProspectos") = DT

                If DT IsNot Nothing Then DT.Dispose()
            Else
                ViewState("DTProspectos") = ObjProspectos.DtResultados
            End If



            LtlAgrupador.Text = DdlAgrupador.SelectedItem.Text
        Else
            Me.GvDatos.DataSource = Nothing
        End If
        ObjProspectos.Dispose()

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
        Else
            CargaGrid("")
        End If
        UPDatos.Update()
    End Sub

    Private Function GetNumber(Str As String) As Integer
        Dim Result As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(Str, "\d+")
        Return Result.Value.ToEntero
    End Function


    Private Sub CargaGrid(Orden As String)
        If Orden <> String.Empty Then
            Dim DV As New DataView(CType(ViewState("DTProspectos"), DataTable), "", Orden, DataViewRowState.CurrentRows)
            GvDatos.DataSource = DV.ToTable()
            DV.Dispose()
        Else
            GvDatos.DataSource = CType(ViewState("DTProspectos"), DataTable)
        End If
        GvDatos.DataBind()
    End Sub

    Protected Sub GvDatos_RowCreated(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvDatos.RowCreated
        If (e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Normal OrElse e.Row.RowState = DataControlRowState.Alternate)) Then
            e.Row.TabIndex = -1
            e.Row.Attributes("onclick") = String.Format("javascript:SelectRow(this, {0});", e.Row.RowIndex)
            e.Row.Attributes("onkeydown") = "javascript:return SelectSibling(event);"
            e.Row.Attributes("onselectstart") = "javascript:return false;"
            e.Row.Cells(10).Attributes.Add("onclick", "EC();")
        End If
    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound

        If e.Row.RowType = DataControlRowType.Header Then
            Dim FC1 As New SortedList
            FC1.Add(0, "Sexo,1,1")
            FC1.Add(1, "Redes,1,1,Titulos")
            FC1.Add(2, "Estructura,1,1,Titulos")
            FC1.Add(3, "Eventos,1,1,Titulos")
            FC1.Add(4, "Apoyos,1,1,Titulos")
            FC1.Add(5, "Total,1,1,BorderR")
            FC1.Add(6, "CRECER,1,1,Titulos")
            FC1.Add(7, "CRECER Madre Fam.,1,1,Titulos")
            FC1.Add(8, "Ahorrando,1,1,Titulos")
            FC1.Add(9, "Mejor vivienda,1,1,Titulos")
            FC1.Add(10, "Vivienda Urbana,1,1,Titulos")
            FC1.Add(11, "Seguro Popular,1,1,Titulos")
            FC1.Add(12, "FOVISSSTESON,1,1,BorderR")
            FC1.Add(13, "Honorarios GES,1,1,Titulos")
            FC1.Add(14, "ISSSTESON,1,1,Titulos")
            FC1.Add(15, "Nómina GES,1,1,Titulos")
            FC1.Add(16, "Nómina SEC,1,1,BorderR")
            FC1.Add(17, "Licencia,1,1,Titulos")
            FC1.Add(18, "Placas,1,1,Titulos")
            FC1.Add(19, "Org. Descentralizados,1,1,BorderR")
            FC1.Add(20, "TELMEX,1,1,Titulos")
            FC1.Add(21, "Mail,1,1,BorderR")
            FC1.Add(22, "P1 Plus,1,1,Titulos")
            FC1.Add(23, "P1,1,1,BorderR")
            FC1.Add(24, "A,1,1,Titulos")
            FC1.Add(25, "AA,1,1,Titulos")
            FC1.Add(26, "AAA,1,1,Titulos")
            FC1.Add(27, "OP/252,1,1,Titulos")
            FC1.Add(28, "PRD,1,1,Titulos")
            FC1.Add(29, "R,1,1,Titulos")
            FC1.Add(30, "RESECC,1,1,Titulos")
            FC1.Add(31, "SR,1,1,Titulos")

            GetMultiRowHeader(e, FC1, "Titulos")

            Dim FC As New SortedList
            FC.Add(0, " Agrupador,1,1,Titulos")
            FC.Add(1, "Cantidad,1,2,Titulos")
            FC.Add(2, "Votaron,1,2,BorderR")
            FC.Add(3, "Equipo J.G.M.,5,1,BorderR")
            FC.Add(4, "Programas del Gobierno,7,1,BorderR")
            FC.Add(5, "Nóminas del Gobierno,4,1,BorderR")
            FC.Add(6, "Otros,3,1,BorderR")
            FC.Add(7, "Contacto,2,1,BorderR")
            FC.Add(8, "Gob,2,1,BorderR")
            FC.Add(9, "252,8,1,BorderR")

            GetMultiRowHeader(e, FC, "Titulos")

        End If

        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.CssClass = "SubTotales"
                e.Row.FCLiteral("LtlGpo").Text = "Total"
                'Ligas
                e.Row.FCLiteral("LtlRedes").Text = "<a class=""Texto"" href=""/Prospectos/RepProspectosRedes.aspx"">" & e.Row.FCLiteral("LtlRedes").Text & "</a>"
                e.Row.FCLiteral("LtlEstructuras").Text = "<a class=""Texto"" href=""/Prospectos/RepRedesEstructuras.aspx"">" & e.Row.FCLiteral("LtlEstructuras").Text & "</a>"
                e.Row.FCLiteral("LtlEventos").Text = "<a class=""Texto"" href=""/Prospectos/RepEventos.aspx"">" & e.Row.FCLiteral("LtlEventos").Text & "</a>"
            ElseIf e.Row.RowIndex = 1 Then
                e.Row.Cells(0).Width = Unit.Pixel(120) 'Gpo
                e.Row.Cells(1).Width = Unit.Pixel(60) 'Cantidad
                e.Row.Cells(2).Width = Unit.Pixel(60) 'Votaron

                'JGM
                e.Row.Cells(3).Width = Unit.Pixel(60) 'Redes
                e.Row.Cells(4).Width = Unit.Pixel(70) 'Estructuras
                e.Row.Cells(5).Width = Unit.Pixel(60) 'Eventos
                e.Row.Cells(6).Width = Unit.Pixel(60) 'Apoyos
                e.Row.Cells(7).Width = Unit.Pixel(60) 'Total

                'Programas del Gobierno
                e.Row.Cells(8).Width = Unit.Pixel(70) 'CRECER
                e.Row.Cells(9).Width = Unit.Pixel(100) 'CRECER Madre Fam
                e.Row.Cells(10).Width = Unit.Pixel(80) 'Ahorrando
                e.Row.Cells(11).Width = Unit.Pixel(105) 'Mejor Vivienda
                e.Row.Cells(12).Width = Unit.Pixel(100) 'Vivienda Urbana
                e.Row.Cells(13).Width = Unit.Pixel(100) 'Seguro Popular
                e.Row.Cells(14).Width = Unit.Pixel(110) 'FOVI

                'Nóminas del Gobierno
                e.Row.Cells(15).Width = Unit.Pixel(100) 'Honorarios GES
                e.Row.Cells(16).Width = Unit.Pixel(80) 'ISSSTESON
                e.Row.Cells(17).Width = Unit.Pixel(70) 'Nómina GES
                e.Row.Cells(18).Width = Unit.Pixel(70) 'Nómina SEC

                'Otros
                e.Row.Cells(19).Width = Unit.Pixel(60) ' Licencias
                e.Row.Cells(20).Width = Unit.Pixel(60) 'Placas
                e.Row.Cells(21).Width = Unit.Pixel(120) 'Org. Des

                'Contactos
                e.Row.Cells(22).Width = Unit.Pixel(60) 'Telmex
                e.Row.Cells(23).Width = Unit.Pixel(60) 'Mail

                ''Clasificaciones
                'e.Row.Cells(24).Width = Unit.Pixel(60) 'P1 Plus
                'e.Row.Cells(25).Width = Unit.Pixel(60) 'P1
                'e.Row.Cells(26).Width = Unit.Pixel(60) 'A
                'e.Row.Cells(27).Width = Unit.Pixel(60) 'AA
                'e.Row.Cells(28).Width = Unit.Pixel(60) 'AAA
                'e.Row.Cells(29).Width = Unit.Pixel(60) '252
                'e.Row.Cells(30).Width = Unit.Pixel(60) 'PRD
                'e.Row.Cells(31).Width = Unit.Pixel(60) 'R
                'e.Row.Cells(32).Width = Unit.Pixel(60) 'RESECC
                'e.Row.Cells(33).Width = Unit.Pixel(60) 'SR

            End If

            If e.Row.FCLiteral("LtlGpo").Text = "0" Then
                e.Row.BackColor = Drawing.Color.LightGray
                e.Row.FCLiteral("LtlGpo").Text = "SIN PADRÓN"
            End If

            If e.Row.RowIndex > 0 Then
                e.Row.FCLiteral("LtlRedes").Text = "" : e.Row.FCLiteral("LtlEventos").Text = "" : e.Row.FCLiteral("LtlEstructuras").Text = ""
                e.Row.FCLiteral("LtlTotalJGM").Text = ""
            End If

            'Dim Liga As String = "<a class=""Texto"" href=""/Prospectos/RepPadronDetalle.aspx"">"

            'e.Row.FCLiteral("LtlGpo").Text = Liga & e.Row.FCLiteral("LtlGpo").Text & "</a>"
            'e.Row.FCLiteral("LtlCantidad").Text = Liga & e.Row.FCLiteral("LtlCantidad").Text & "</a>"
            'e.Row.FCLiteral("LtlVoto").Text = Liga & e.Row.FCLiteral("LtlVoto").Text & "</a>"
            'e.Row.FCLiteral("LtlRedes").Text = Liga & e.Row.FCLiteral("LtlRedes").Text & "</a>"
            'e.Row.FCLiteral("LtlEstructuras").Text = Liga & e.Row.FCLiteral("LtlEstructuras").Text & "</a>"
            'e.Row.FCLiteral("LtlEventos").Text = Liga & e.Row.FCLiteral("LtlEventos").Text & "</a>"
            'e.Row.FCLiteral("LtlApoyos").Text = Liga & e.Row.FCLiteral("LtlApoyos").Text & "</a>"
            'e.Row.FCLiteral("LtlCrecer").Text = Liga & e.Row.FCLiteral("LtlCrecer").Text & "</a>"
            'e.Row.FCLiteral("LtlCrecerMadreFam").Text = Liga & e.Row.FCLiteral("LtlCrecerMadreFam").Text & "</a>"
            'e.Row.FCLiteral("LtlAhorrando").Text = Liga & e.Row.FCLiteral("LtlAhorrando").Text & "</a>"
            'e.Row.FCLiteral("LtlMejorVivienda").Text = Liga & e.Row.FCLiteral("LtlMejorVivienda").Text & "</a>"
            'e.Row.FCLiteral("LtlViviendaUrbana").Text = Liga & e.Row.FCLiteral("LtlViviendaUrbana").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"
            'e.Row.FCLiteral("").Text = Liga & e.Row.FCLiteral("").Text & "</a>"

            'Alineo columnas
            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
            For i As Integer = 1 To 22
                e.Row.Cells(i).HorizontalAlign = HorizontalAlign.Right
            Next

            'e.Row.Attributes.Add("onmouseover", "this.originalstyle=this.style.backgroundColor;this.style.backgroundColor='#EEFFAA'")
            'e.Row.Attributes.Add("onmouseout", "this.style.backgroundColor=this.originalstyle;")


        End If
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
        UPDatos.Update()
        RegistraScript("UpperBound = " & GvDatos.Rows.Count - 1 & ";")
    End Sub

    Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
        GvDatos.ExportToExcel("Padron", TbEncabezado)
    End Sub

    'Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMunicipio.SelectedIndexChanged
    '    Dim DT As DataTable = CType(ViewState("Distritos"), DataTable)
    '    DT = DT.FiltraParametros("Municipio = " & DdlMunicipio.SelectedValue, "", {"Dist_Fed"})
    '    DdlDistFed.DataSource = DT
    '    DdlDistFed.DataBind()
    '    DdlDistFed.Items.Insert(0, New ListItem("Todos", "-1"))
    '    If DT IsNot Nothing Then DT.Dispose()
    'End Sub

    'Protected Sub DdlDistFed_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlDistFed.SelectedIndexChanged
    '    Dim DT As DataTable = CType(ViewState("Distritos"), DataTable)
    '    DT = DT.FiltraParametros("Dist_Fed = " & DdlDistFed.SelectedValue, "", {"Dist_Loc"})
    '    DdlDistLoc.DataSource = DT
    '    DdlDistLoc.DataBind()
    '    DdlDistLoc.Items.Insert(0, New ListItem("Todos", "-1"))
    '    If DT IsNot Nothing Then DT.Dispose()
    'End Sub

    'Protected Sub DdlDistLoc_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlDistLoc.SelectedIndexChanged
    '    Dim DT As DataTable = CType(ViewState("Distritos"), DataTable)
    '    DT = DT.FiltraParametros("Dist_Loc = " & DdlDistLoc.SelectedValue, "", {"seccion"})
    '    DdlSeccion.DataSource = DT
    '    DdlSeccion.DataBind()
    '    DdlSeccion.Items.Insert(0, New ListItem("Todos", "-1"))
    '    If DT IsNot Nothing Then DT.Dispose()
    'End Sub

End Class