Rep cursos

RH/RepCursos.aspx.vb

@@ -22,11 +22,11 @@ Partial Class RH_RepCursos
 
         DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlDepartamentos.DataBind()
-        DdlDepartamentos.Items.Insert(0, New ListItem("Seleccione un departamento", "-1"))
+        DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
         DdlSupervisor.DataBind()
-        DdlSupervisor.Items.Insert(0, New ListItem("Seleccione un Supervisor", "-1"))
+        DdlSupervisor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         Dim objRH As New ClsRH
 
@@ -38,7 +38,7 @@ Partial Class RH_RepCursos
 
         objRH.Dispose()
         DdlCursos.DataBind()
-        DdlCursos.Items.Insert(0, New ListItem("Seleccione un Curso", "-1"))
+        DdlCursos.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
 
@@ -79,11 +79,31 @@ Partial Class RH_RepCursos
         objRH.Dispose()
         Gv.DataBind()
 
-    End Sub
+    End Sub
+
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
         CargaDatos()
     End Sub
+
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        Gv.ExportToExcel("Reporte_Capacitacion")
+        Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación", "", 1)
+    End Sub
+
+    Protected Sub Gv_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DataKey("GPO").ToString.Trim.Length = 0 Then
+                e.Row.Cells(0).Text = "Totales"
+                e.Row.Attributes.Add("style", "background-color:#DDDDDD;")
+            End If
+
+
+        End If
+
     End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
 End Class