From a76eacb21216da1b260c463e0071c6fae926e5ac Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Mon, 7 Sep 2020 12:16:59 -0700
Subject: [PATCH] Rep cursos

---
 Contabilidad2/RepAnexoCatalogoMensual.aspx.vb |  3 +-
 RH/RepCursos.aspx                             | 25 ++++++++++++----
 RH/RepCursos.aspx.vb                          | 30 +++++++++++++++----
 3 files changed, 46 insertions(+), 12 deletions(-)

diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
index 3b39e2b22..9d860b712 100644
--- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
@@ -117,10 +117,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         Else
             GvMensual2.DataSource = Nothing
         End If
+
         GvMensual2.DataBind()
 
-
-
         If DdlTri.SelectedValue.ToEntero = 0 Then
 
             GvMensual2.Columns(9).Visible = False
diff --git a/RH/RepCursos.aspx b/RH/RepCursos.aspx
index 29c05cd83..0a66c2f90 100644
--- a/RH/RepCursos.aspx
+++ b/RH/RepCursos.aspx
@@ -153,14 +153,23 @@
     </asp:UpdatePanel>
 
     <br />
-
-    <div class="row col-md-12" align="right">
+    <div class="row">
+        <div class="row col-md-6" align="right">
         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Gv.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Gv.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+    </div>
     </div>
-    <asp:UpdatePanel ID="UPGv" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+    
+
+          
+       <div class="row col-md-6" >
+
+            <asp:UpdatePanel ID="UPGv" runat="server" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="Gv" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"              
+
+            <asp:GridView ID="Gv" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"     
+                OnRowDataBound="Gv_RowDataBound"
+                DataKeyNames="GPO"         
                 CssClass="ScrollAD  table table-striped table-advance table-hover Widthall" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                 AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                 <Columns>                     
@@ -176,7 +185,13 @@
             <asp:AsyncPostBackTrigger ControlID="btConsultar" EventName="Click" />
         </Triggers>
 
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>
+
+        </div>
+ 
+    
+
+   
   
 
 </asp:Content>
diff --git a/RH/RepCursos.aspx.vb b/RH/RepCursos.aspx.vb
index 81efe881c..8a78e8e49 100644
--- a/RH/RepCursos.aspx.vb
+++ b/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