Commit inicial Ventas Productivo

OI/RepEventos.aspx.vb

@@ -0,0 +1,47 @@
+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