Imports System.Data
Imports Extensiones
Imports System.Linq
Imports Microsoft.Reporting.WebForms

Partial Class OI_RepSoporteADS
    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()

        End If
    End Sub

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

    Private Sub CargaUsuarios()
        DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = 2 ")
        DdlUsuarios.DataBind()
        DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1"))
    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


    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, -1, FechaI, FechaF, TipoReporte:=TipoReporte) Then
            DTOIEventosTareas = ObjProspectos.DtResultados.FiltraParametros(" CveTipoEvento IN ( 9)")

            If DdlUsuarios.SelectedIndex > 0 Then
                DTOIEventosTareas = DTOIEventosTareas.FiltraParametros(" CveUsuarioPara = " & DdlUsuarios.SelectedValue.ToEntero)

            End If

            '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("LtlUsuarioPara").Text = String.Format("<a Class=""Texto"" href=""/OI/SoporteADS.aspx?CveTipoEvento={0}&CveEvento={1}&CveEmpresa={3}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioPara"), e.Row.DBCampo("CveEmpresa"))
            e.Row.FCLiteral("LtlUsuarioDe").Text = String.Format("<a Class=""Texto"" href=""/OI/SoporteADS.aspx?CveTipoEvento={0}&CveEvento={1}&CveEmpresa={3}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioDe"), e.Row.DBCampo("CveEmpresa"))
            e.Row.FCLiteral("LtlAsunto").Text = String.Format("<a Class=""Texto"" href=""/OI/SoporteADS.aspx?CveTipoEvento={0}&CveEvento={1}&CveEmpresa={3}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"), e.Row.DBCampo("CveEmpresa"))

            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





#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()

        UPDatosOIEventosTareasAsignaron.Update()
        Me.RegistraScript("UpperBound = " & GvDatosOIEventosTareasAsignaron.Rows.Count - 1 & ";")
    End Sub

#End Region

#Region "I M P R I M I R   P D F/Excel"

    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
        GenerarPDF("Excel")
    End Sub
    Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
        GenerarPDF()
    End Sub

    Private Sub GenerarPDF(Optional Formato As String = "PDF")
        Dim ObjTareas As New ClsOIEventos

        Dim params As New List(Of ReportParameter)



        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

        Dim FechaI, FechaF As String
        FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
        FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)

        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("FechaInicio", FechaI))
        params.Add(New ReportParameter("FechaFin", FechaF))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))

        If Imagen.Exists Then
            params.Add(New ReportParameter("LogoPath", logouri))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If







        ImprimirPDF("Empresas\Grales\Formatos\RepSoportesADS.rdlc", DTOIEventosTareas, params, "ReporteTareas", Formato:=Formato)


    End Sub
#End Region


End Class