SIG/OI/RepTareas.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones

Partial Class OI_RepTareas
    Inherits ClsPaginas

#Region "PROPIEDADES - AC NEW"
    Private Property TipoReporte As Integer
        Get
            Return CType(ViewState("TipoReporte"), Integer)
        End Get
        Set(value As Integer)
            ViewState("TipoReporte") = value
        End Set
    End Property
    Private Property DTOIEventosTareas As DataTable
        Get
            Return CType(ViewState("DTOIEventosTareas"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTOIEventosTareas") = value
        End Set
    End Property
    Private Property DTOIEventosTareasCCP As DataTable
        Get
            Return CType(ViewState("DTOIEventosTareasCCP"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTOIEventosTareasCCP") = value
        End Set
    End Property
    Private Property DTOIEventosTareasAsigne As DataTable
        Get
            Return CType(ViewState("DTOIEventosTareasAsigne"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTOIEventosTareasAsigne") = value
        End Set
    End Property
#End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            'If UsuarioActual.CveRol = 1 Then
            '    ThEmpresa.Visible = True
            '    GvDatosOIEventosTareasAsignaron.Columns(9).Visible = True
            'End If

            'ORDEN ASIGNADAS
            ViewState("Orden0") = ""
            ViewState("Orden1") = ""
            ViewState("Orden2") = ""

            'DOCUMENTACION
            ' 1 = ESCRITORIO
            ' -1 = NORMAL
            TipoReporte = 1

            CargaFiltros()

            CargaDatosOIEventosTareasAsignaron()
            CargaDatosOIEventosTareasAsigne()
            CargaDatosOIEventosTareasCCP()
        End If
        UpGrafica.Update()
    End Sub

    Private Sub CargaFiltros()
        txtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
        txtFechaF.Text = Now.ToShortDateString
        CargarEventoEstatus()
        CargaRevisiones()
    End Sub

    Private Sub CargarEventoEstatus()
        DdlEventoEstatus.DataSource = GlobalDTOIEstatusEventos
        DdlEventoEstatus.DataBind()
    End Sub

    Private Sub CargaRevisiones()
        Dim ObjRevisiones As New ClsOIEventos

        If ObjRevisiones.GetRevisionesUsuario(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            DdlRevision.DataSource = ObjRevisiones.DtResultados
        Else
            Alert("Ocurrió un error al obtener las Revisiones del Usuario", TipoMensaje.MsgError)
        End If

        ObjRevisiones.Dispose()
        DdlRevision.DataBind()
    End Sub


#Region "Tareas que me asignaron"
    Public Sub CargaDatosOIEventosTareasAsignaron()
        Dim ObjProspectos As New ClsOIEventos

        Dim FechaI, FechaF As DateTime
        Dim CveEventoEstatus As Integer

        FechaI = txtFechaI.Text.ToDate
        FechaF = txtFechaF.Text.ToDate

        If DdlEventoEstatus.SelectedValue > "0" Then CveEventoEstatus = DdlEventoEstatus.SelectedValue.ToEntero Else CveEventoEstatus = -1

        If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then
            DTOIEventosTareas = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} AND CveTipoEvento IN (1,3)", UsuarioActual.CveUsuario))
            ltlGrafMEasiginaron.Text = DTOIEventosTareas.Rows.Count.ToString()
            'BURBUJITAS - BADGE
            If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
                LtBurbujitaAsignaronPendientes.Text = String.Format("<span Class='badge badge-danger' data-toggle='tooltip' data-placement='bottom' title='Pendientes'>{0}</span>", DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count)
            Else
                LtBurbujitaAsignaronPendientes.Text = ""
            End If

            If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count > 0 Then
                LtBurbujitaAsignaronAtendiendo.Text = String.Format("<span class='badge badge-success' data-toggle='tooltip' data-placement='bottom' title='Atendiendo'>{0}</span>", DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count)
            Else
                LtBurbujitaAsignaronAtendiendo.Text = ""
            End If

        Else
            Alert("Ocurrió un Error al consultar las tareas. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If

        ObjProspectos.Dispose()


        If ViewState("Orden0").ToString() <> String.Empty Or TipoReporte = -1 Then
            CargaGridOIEventosTareasAsignaron(ViewState("Orden0").ToString())
        Else
            CargaGridOIEventosTareasAsignaron("")
        End If

        UPDatosOIEventosTareasAsignaron.Update()
    End Sub
    Private Sub CargaGridOIEventosTareasAsignaron(Orden As String)
        If Orden <> String.Empty Then
            Dim DV As New DataView(DTOIEventosTareas, "", Orden, DataViewRowState.CurrentRows)
            GvDatosOIEventosTareasAsignaron.DataSource = DV.ToTable()
            DV.Dispose()
        Else
            GvDatosOIEventosTareasAsignaron.DataSource = DTOIEventosTareas
        End If
        GvDatosOIEventosTareasAsignaron.DataBind()
    End Sub
    Protected Sub GvDatosOIEventosTareasAsignaron_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosOIEventosTareasAsignaron.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            e.Row.FCLiteral("LtlUsuarioDe").Text = String.Format("<a Class=""Texto"" href=""/OI/TareaDetalle.aspx?CveTipoEvento={0}&CveEvento={1}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioDe"))
            e.Row.FCLiteral("LtlAsunto").Text = String.Format("<a Class=""Texto"" href=""/OI/TareaDetalle.aspx?CveTipoEvento={0}&CveEvento={1}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"))

            e.Row.Attributes.Add("onclick", String.Format("Previo({0});", e.Row.DBCampo("CveEvento")))
            e.Row.Attributes.Add("onmouseover", "this.style.background='silver';this.style.cursor='pointer';")
            e.Row.Attributes.Add("onmouseout", "this.style.background='white';this.style.cursor='default'")
            '  "<a class=""Texto"" href=""/AC/ProgramaOperativo.aspx?CveProgramaOperativo=" & e.Row.DBCampo("CveProgramaOperativo") & """>" & e.Row.DBCampo("Clave") & "</a>"
        End If
    End Sub
#End Region

#Region "Tareas CCP"
    Public Sub CargaDatosOIEventosTareasCCP()
        Dim ObjProspectos As New ClsOIEventos

        Dim FechaI, FechaF As DateTime
        Dim CveEventoEstatus As Integer

        FechaI = txtFechaI.Text.ToDate
        FechaF = txtFechaF.Text.ToDate

        If DdlEventoEstatus.SelectedValue > "0" Then CveEventoEstatus = DdlEventoEstatus.SelectedValue.ToEntero Else CveEventoEstatus = -1

        If ObjProspectos.GetEventosUsuarioCCP(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlRevision.SelectedValue.ToEntero, FechaI, FechaF, CveEventoEstatus) Then
            DTOIEventosTareasCCP = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario))
            ltlgrafCcp.Text = DTOIEventosTareasCCP.Rows.Count.ToString()
            'BURBUJITAS - BADGE
            If DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
                LtBurbujitaCCPPendientes.Text = String.Format("<span Class='badge badge-danger' data-toggle='tooltip' data-placement='bottom' title='Pendientes'>{0}</span>", DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count)
            Else
                LtBurbujitaCCPPendientes.Text = ""
            End If

            If DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count > 0 Then
                LtBurbujitaCCPAtendiendo.Text = String.Format("<span class='badge badge-success' data-toggle='tooltip' data-placement='bottom' title='Atendiendo'>{0}</span>", DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count)
            Else
                LtBurbujitaCCPAtendiendo.Text = ""
            End If


        Else
            Alert("Ocurrió un Error al consultar las tareas. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If

        ObjProspectos.Dispose()

        If ViewState("Orden1").ToString() <> String.Empty Then
            CargaGridOIEventosTareasCCP(ViewState("Orden1").ToString())
        Else
            CargaGridOIEventosTareasCCP("")
        End If

        UPDatosOIEventosTareasCCP.Update()
    End Sub
    Private Sub CargaGridOIEventosTareasCCP(Orden As String)
        If Orden <> String.Empty Then
            Dim DV As New DataView(DTOIEventosTareasCCP, "", Orden, DataViewRowState.CurrentRows)
            GvDatosOIEventosTareasCCP.DataSource = DV.ToTable()
            DV.Dispose()
        Else
            GvDatosOIEventosTareasCCP.DataSource = CType(ViewState("DTOIEventosTareasCCP"), DataTable)
        End If
        GvDatosOIEventosTareasCCP.DataBind()
    End Sub
    Protected Sub GvDatosOIEventosTareasCCP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosOIEventosTareasCCP.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLiteral("LtlUsuarioDe").Text = String.Format("<a class=""Texto"" href=""/OI/TareaDetalle.aspx?CveTipoEvento={0}&CveEvento={1}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioDe"))
            e.Row.FCLiteral("LtlUsuarioPara").Text = String.Format("<a class=""Texto"" href=""/OI/TareaDetalle.aspx?CveTipoEvento={0}&CveEvento={1}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioDe"))
            e.Row.FCLiteral("LtlAsunto").Text = String.Format("<a class=""Texto"" href=""/OI/TareaDetalle.aspx?CveTipoEvento={0}&CveEvento={1}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"))

            e.Row.Attributes.Add("onclick", String.Format("Previo({0});", e.Row.DBCampo("CveEvento")))
            e.Row.Attributes.Add("onmouseover", "this.style.background='silver';this.style.cursor='pointer';")
            e.Row.Attributes.Add("onmouseout", "this.style.background='white';this.style.cursor='default'")
        End If
    End Sub

#End Region

#Region " Tareas que Asigné"
    Public Sub CargaDatosOIEventosTareasAsigne()
        Dim ObjProspectos As New ClsOIEventos

        Dim FechaI, FechaF As DateTime
        Dim CveEventoEstatus As Integer

        FechaI = txtFechaI.Text.ToDate
        FechaF = txtFechaF.Text.ToDate

        If DdlEventoEstatus.SelectedValue > "0" Then CveEventoEstatus = DdlEventoEstatus.SelectedValue.ToEntero Else CveEventoEstatus = -1

        If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then
            DTOIEventosTareasAsigne = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario))
            ltlgrafAsigne.Text = DTOIEventosTareasAsigne.Rows.Count.ToString()
            'BURBUJITAS - BADGE
            If DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
                LtBurbujitaAsignePendientes.Text = String.Format("<span Class='badge badge-danger' data-toggle='tooltip' data-placement='bottom' title='Pendientes'>{0}</span>", DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count)
            Else
                LtBurbujitaAsignePendientes.Text = ""
            End If

            If DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count > 0 Then
                LtBurbujitaAsigneAtendiendo.Text = String.Format("<span class='badge badge-success' data-toggle='tooltip' data-placement='bottom' title='Atendiendo'>{0}</span>", DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count)
            Else
                LtBurbujitaAsigneAtendiendo.Text = ""
            End If

        Else
            Alert("Ocurrió un Error al consultar las tareas. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If

        ObjProspectos.Dispose()

        If ViewState("Orden2").ToString() <> String.Empty Or TipoReporte = -1 Then
            CargaGridOIEventosTareasAsigne(ViewState("Orden2").ToString())
        Else
            CargaGridOIEventosTareasAsigne("")
        End If

        UPDatosOIEventosTareasAsigne.Update()
    End Sub
    Private Sub CargaGridOIEventosTareasAsigne(Orden As String)
        If Orden <> String.Empty Then
            Dim DV As New DataView(DTOIEventosTareasAsigne, "", Orden, DataViewRowState.CurrentRows)
            GvDatosOIEventosTareasAsigne.DataSource = DV.ToTable()
            DV.Dispose()
        Else
            GvDatosOIEventosTareasAsigne.DataSource = CType(ViewState("DTOIEventosTareasAsigne"), DataTable)
        End If
        GvDatosOIEventosTareasAsigne.DataBind()
    End Sub
    Protected Sub GvDatosOIEventosTareasAsigne_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosOIEventosTareasAsigne.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLiteral("LtlUsuarioPara").Text = String.Format("<a class=""Texto"" href=""/OI/TareaDetalle.aspx?CveTipoEvento={0}&CveEvento={1}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioPara"))
            e.Row.FCLiteral("LtlAsunto").Text = String.Format("<a class=""Texto"" href=""/OI/TareaDetalle.aspx?CveTipoEvento={0}&CveEvento={1}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"))

            e.Row.Attributes.Add("onclick", String.Format("Previo({0});", e.Row.DBCampo("CveEvento")))
            e.Row.Attributes.Add("onmouseover", "this.style.background='silver';this.style.cursor='pointer';")
            e.Row.Attributes.Add("onmouseout", "this.style.background='white';this.style.cursor='default'")
        End If
    End Sub

#End Region


#Region "   CARGA DATOS   "
    Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs)
        TipoReporte = 1
        CargaDatos()
        TipoReporte = -1
        LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
        UPFiltros.Update()
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        TipoReporte = -1
        CargaDatos()
        TipoReporte = -1
        LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
        UPFiltros.Update()
    End Sub
    Protected Sub BtnEscritorio_Click(sender As Object, e As EventArgs) Handles BtnEscritorio.Click
        TipoReporte = 1
        CargaDatos()
        TipoReporte = -1
        LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
        UPFiltros.Update()
    End Sub
    Private Sub CargaDatos()
        CargaDatosOIEventosTareasAsignaron()
        CargaDatosOIEventosTareasAsigne()
        CargaDatosOIEventosTareasCCP()
        UPDatosOIEventosTareasAsignaron.Update()
        Me.RegistraScript("UpperBound = " & GvDatosOIEventosTareasAsignaron.Rows.Count - 1 & ";")
    End Sub
#End Region


#Region "O R D E N A M I E T O"
    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim Orden As String = ""
        Dim Campo As String = ""
        Dim gvi As Integer = 0
        Dim Literal As Literal = Nothing
        Const OrdenInicial As String = ""
        Dim Arg(2) As String

        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
        Campo = Arg(0)
        gvi = Arg(1).ToEntero
        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
        Campo = Campo.Substring(0, Campo.Length - 1)

        If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString = String.Format("{0} DESC", Campo) Then
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
        Else
            ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
        End If
        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString
        ViewState("Orden") = Orden
        CargaGrid(Orden, gvi)
    End Sub

    Private Sub CargaGrid(Orden As String, gvi As Integer)
        If gvi = 0 Then
            ViewState("Orden0") = Orden
            CargaGridOIEventosTareasAsignaron(Orden)
        ElseIf gvi = 1 Then
            ViewState("Orden1") = Orden
            CargaGridOIEventosTareasCCP(Orden)
        ElseIf gvi = 2 Then
            ViewState("Orden2") = Orden
            CargaGridOIEventosTareasAsigne(Orden)
        End If
    End Sub
#End Region


    ''COMENTADO POR QUE PASO A SEGUNDO TERMINO
    'Protected Sub btnPrevio_Click(sender As Object, e As EventArgs) Handles btnPrevio.Click
    '    Dim objEventos As New ClsOIEventos

    '    If objEventos.GetEventos(hdnCveEvento.Value.ToEntero, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
    '        If objEventos.CveEvento > 0 Then
    '            With objEventos
    '                lblUsuarioPara.Text = .UsuarioPara
    '                lblUsuarioDe.Text = .UsuarioDe

    '                .GetEventosComentarios(hdnCveEvento.Value.ToEntero)
    '                gvObservaciones.DataSource = .DtResultados
    '                gvObservaciones.DataBind()
    '            End With
    '        End If
    '    End If

    '    objEventos.Dispose()

    'End Sub





    Protected Sub LinkButton1_Click(sender As Object, e As EventArgs)

    End Sub
End Class