-- filtro por puesto y columna puesto

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

RH/Asistencias.aspx

@@ -92,8 +92,15 @@
                         <asp:Label runat="server"  class="col-md-1 truncate">Tipo Periodo:  </asp:Label>
                          <div class="col-md-1">
 
-                          <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
+                          <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true"   DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
-                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <asp:Label runat="server"  class="col-md-1 truncate">Puesto:  </asp:Label>
+                         <div class="col-md-1">
+
+                          <asp:DropDownList ID="DdlPuesto" runat="server" AppendDataBoundItems="true"  DataTextField="Puesto" DataValueField="CvePuesto" Class="form-control select2me input-sm" Style="width: 100% !important;">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                     </div>
@@ -130,6 +137,12 @@
                                         <asp:Label ID="LtlCliente" CssClass="truncate" Width="100px" runat="server" Text='<%# Eval("Cliente") %>'></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="100px" Visible="false" >
+                                    <HeaderTemplate>Puesto</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtlPuesto" CssClass="truncate" Width="100px" runat="server" Text='<%# Eval("Puesto") %>'></asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                 <asp:TemplateField HeaderStyle-Width="110px">
                                     <HeaderTemplate>Asistencia</HeaderTemplate>
                                     <ItemTemplate>

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()))