diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index ac5599c36..7d3c9083e 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2621,7 +2621,7 @@ Public Class ClsRH End Function - Public Function GetAsistencias(CvePersonal As Integer, CveClienteAsignado As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, CveTipoPeriodo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Public Function GetAsistencias(CvePersonal As Integer, CveClienteAsignado As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, CveTipoPeriodo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional CvePuesto As Integer = -1) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAsistenciasGet") @@ -2633,6 +2633,7 @@ Public Class ClsRH .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal + .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index 93c0b3969..1d69ade4d 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -92,8 +92,15 @@ Tipo Periodo:
- - + + + +
+ Puesto: +
+ + +
@@ -130,6 +137,12 @@ + + Puesto + + + + Asistencia diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 535b7b773..cdad02fc9 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -17,6 +17,7 @@ Partial Class RH_Asistencias divCliente.Visible = False LblCliente.Visible = False GV.Columns(2).Visible = False + GV.Columns(3).Visible = True End If txtFechaAsistencia.Text = Now.ToShortDateString If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then @@ -57,6 +58,8 @@ Partial Class RH_Asistencias Private Sub CargaTurnos() DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() + DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa) + DdlPuesto.databind End Sub #End Region @@ -68,7 +71,7 @@ Partial Class RH_Asistencias 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 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) Then + 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 If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then dt = dt.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero()))