Imports System.Drawing
Imports Extensiones
Imports System.Data

Partial Class OI_RepEventos
    Inherits ClsPaginas

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

        End If
    End Sub

    Private Sub CargaDatos()

        Dim OI As New ClsOIEventos
        Dim dt As DataTable = Nothing

        'If OI.GetEventos(-1, 4, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) Then
        '    dt = OI.DtResultados
        'End If

        Dim dtPendientes As DataTable = dt.FiltraParametros("CveEstatusEvento = 1")
        Dim dtTerminados As DataTable = dt.FiltraParametros("CveEstatusEvento = 2")
        Dim dtRevisados As DataTable = dt.FiltraParametros("CveEstatusEvento = 3")

        GVP.DataSource = dtPendientes
        GVP.DataBind()

        GvT.DataSource = dtTerminados
        GvT.DataBind()

        GvR.DataSource = dtRevisados
        GvR.DataBind()

        OI.Dispose()
    End Sub

    Protected Sub GVP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVP.RowDataBound, GvT.RowDataBound, GvR.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCHyperLink("HplFecha").NavigateUrl = "javascript:AbrirVentana('/OI/EventoDetalle.aspx?CveEvento=" & e.Row.DBCampo("CveEvento") & "', 900, 500, 'N')"
            e.Row.FCHyperLink("HplDe").NavigateUrl = "javascript:AbrirVentana('/OI/EventoDetalle.aspx?CveEvento=" & e.Row.DBCampo("CveEvento") & "', 900, 500, 'N')"
            e.Row.FCLabel("LblPrior").ForeColor = If(e.Row.DBCampo("Prioridad") = "1", ColorTranslator.FromHtml("#00CC00"), If(e.Row.DBCampo("Prioridad") = "3", ColorTranslator.FromHtml("#FF0000"), Color.Black))
        End If
    End Sub
End Class