Rep cursos

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

RH/RepCursos.aspx

@@ -153,14 +153,23 @@
     </asp:UpdatePanel>
 
     <br />
-
+    <div class="row">
-    <div class="row col-md-12" align="right">
+        <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>
-    <asp:UpdatePanel ID="UPGv" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+    </div>
+    
+
+          
+       <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"     
+                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>                     
@@ -178,6 +187,12 @@
 
     </asp:UpdatePanel>
 
+        </div>
+ 
+    
+
+   
+  
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

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
 
@@ -80,10 +80,30 @@ Partial Class RH_RepCursos
         Gv.DataBind()
 
     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