AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rep cursos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-09-07 12:16:59 -07:00
parent 8d23356818
commit a76eacb212
3 changed files with 46 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
View File

@@ -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

25
RH/RepCursos.aspx
View File

@@ -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>

30
RH/RepCursos.aspx.vb
View File

@@ -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