48 lines
1.7 KiB
VB.net
48 lines
1.7 KiB
VB.net
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
|