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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-07-05 10:44:48 -07:00
parent 54e8d8cde7
commit 9755e7224c
5 changed files with 45 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
RH/Asistencias.aspx
View File

@@ -110,13 +110,27 @@
</asp:UpdatePanel>
<div style=" text-align: right" ">
<div >
<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="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet light xspadding bordered " id="pnlasistencia">
<div class="portlet-title">
<div class="caption ">
<i class="icon-pin font-yellow-gold"></i>
<span class="caption-subject font-yellow-gold bold uppercase">Registros de asistencias del
<asp:Label ID="lblFecha" runat="server" Text=""></asp:Label>
<asp:Button ID="btnconsultarnew" OnClick="btnconsultarnew_Click" Visible="false" runat="server" Text="Consultar otra fecha" class="btn btn-success" />
</span>
</div>
<div class="tools">
<div >
<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 font-bold yellow-gold"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
<div class="portlet-body GvAsistenciaDiv" style="padding: 0px;">
<asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal,CveCliente" EmptyDataText="No se encontró Personal asignado al Proyecto o al Cliente" ToolTip="Listado de Personal" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns>
<asp:TemplateField HeaderStyle-Width="70px">
@@ -209,7 +223,7 @@
</tr>
</table>
</div>
</div></div>
</ContentTemplate>
</asp:UpdatePanel>

20
RH/Asistencias.aspx.vb
View File

@@ -68,8 +68,23 @@ Partial Class RH_Asistencias
CargaSubProyecto()
End Sub
Protected Sub btnconsultarnew_Click(sender As Object, e As EventArgs)
lblFecha.Text = ""
txtFechaAsistencia.Enabled = True
Calendario.Enabled = True
btnconsultarnew.Visible = False
GV.DataSource = Nothing
GV.DataBind()
BtnGuardar.Visible = (GV.Rows.Count > 0)
UpDatos.Update()
UPFiltros.Update()
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
lblFecha.Text = txtFechaAsistencia.Text
txtFechaAsistencia.Enabled = False
Calendario.Enabled = False
btnconsultarnew.Visible = True
If txtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
Dim objpersonal As New ClsRH
If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, DdlTipoPeriodo.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, txtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlPuesto.SelectedValue.ToEntero) Then
Dim dt As DataTable = objpersonal.DtResultados
@@ -88,7 +103,7 @@ Partial Class RH_Asistencias
BtnGuardar.Visible = (GV.Rows.Count > 0)
UpDatos.Update()
Else
Alert("La Fecha está fuera de los parámetros establecidos, por favor revise. Fecha: " & TxtFechaAsistencia.Text, TipoMensaje.MsgAdvertencia)
Alert("La Fecha está fuera de los parámetros establecidos, por favor revise. Fecha: " & txtFechaAsistencia.Text, TipoMensaje.MsgAdvertencia)
End If
End Sub
@@ -259,5 +274,6 @@ Partial Class RH_Asistencias
DdlPeriodo.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
End Class