diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 03d71dc26..ac5599c36 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, 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) As Boolean
         Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_RH_PersonalAsistenciasGet")
@@ -2630,7 +2630,8 @@ Public Class ClsRH
             .Add("@CveCliente", SqlDbType.Int).Value = CveClienteAsignado
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
+            .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
+            .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
             .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index 77ef2a74b..50079a832 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -279,8 +279,7 @@ Public Class LogicNominas
                     continuar = False
                 End If
                 If Not TimbreIndemnizacion Then
-                    If continuar AndAlso objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
-
+                    If continuar AndAlso objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
 
                         Dim Asistencias As Integer = objPersonal.DtResultados.SUM("AplicaAsistencia").ToEntero()
                         'If Asistencias > 15 Then
diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx
index 4aae019e5..7e39d1d9b 100644
--- a/RH/Asistencias.aspx
+++ b/RH/Asistencias.aspx
@@ -75,26 +75,29 @@
                                                 <asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
                                             </asp:DropDownList>
                                         </div>
-                            </div> 
+                                </div> 
+                            </div>
                         </div>
-                    </div>
 
-                </div>
+                    </div>
                     <div class="portlet-body" style="display: none">
                     <div class="row">
-                      
-                                
-                        <asp:Label runat="server"  class="col-md-1 truncate">Turno:  </asp:Label>
-                         <div class="col-md-2">
-
+                        <asp:Label runat="server" class="col-md-1 truncate">Turno:</asp:Label>
+                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno"
                                 Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <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:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
-                    </div>
-                   
+                </div>                   
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -204,10 +207,10 @@
                     </div>
                     <div class="modal-body">
                         <div class="form-group form-md-line-input">
-                            <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="DdlTipoPeriodoCarga" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged" 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:DropDownList>
-                            <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodo">Tipo:</asp:Label>
+                            <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCarga">Tipo:</asp:Label>
                         </div>
                         <div class="form-group form-md-line-input">
                             <asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb
index 4d4d577ef..535b7b773 100644
--- a/RH/Asistencias.aspx.vb
+++ b/RH/Asistencias.aspx.vb
@@ -68,14 +68,12 @@ 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, 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) Then
                 Dim dt As DataTable = objpersonal.DtResultados
                 If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then
                     dt = dt.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero()))
                 ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
                     dt = dt.FiltraParametros("CvePersonalPadre IS NULL")
-                Else
-
                 End If
                 GV.DataSource = dt
             Else
@@ -98,13 +96,12 @@ Partial Class RH_Asistencias
         Dim tablaReporte As New DataTable
 
         Dim objpersonal As New ClsRH
-        If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, 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) Then
             tablaReporte = objpersonal.DtResultados
             If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then
                 tablaReporte = tablaReporte.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero()))
             ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
                 tablaReporte = tablaReporte.FiltraParametros("CvePersonalPadre IS NULL")
-
             Else
 
             End If
@@ -135,14 +132,7 @@ Partial Class RH_Asistencias
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
-        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
-        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        'Dim rutardlc = "GPS/Asistencia.rdlc"
-        Dim rutardlc As String = UsuarioActual.Empresa.Ruta & "Formatos/Asistencia.rdlc"
-        If Not System.IO.File.Exists(rutardlc) Then
-            rutardlc = "Empresas/Grales/Formatos/Asistencia.rdlc"
-        End If
-        ImprimirPDF(rutardlc, lrds, params, "Lista de asistencia")
+        ImprimirPDF(RutaFormatoReporte("Asistencia.rdlc"), lrds, params, "Lista de asistencia")
     End Sub
 
     Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
@@ -226,11 +216,8 @@ Partial Class RH_Asistencias
         Dim OcurrioError As Boolean = False
 
         If Not ObjPersonal.AddAsistenciaMasiva(DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-
             OcurrioError = True
-
         End If
-
         If OcurrioError Then
             ObjPersonal.RollBack()
             Alert("Ocurrió un error al guardar las Asistencias.", TipoMensaje.MsgError)
@@ -242,18 +229,20 @@ Partial Class RH_Asistencias
         ObjPersonal.Dispose()
     End Sub
 
-    Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged
+    Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoPeriodoCarga.SelectedIndexChanged
         CargaPeriodos()
     End Sub
 
     Private Sub CargaTiposPeriodo()
+        DdlTipoPeriodoCarga.DataSource = GlobalDTTipoPeriodo
+        DdlTipoPeriodoCarga.DataBind()
         DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
         DdlTipoPeriodo.DataBind()
     End Sub
 
     Private Sub CargaPeriodos()
         Dim ObjPeriodos As New ClsNominas
-        If ObjPeriodos.GetPeriodos(DdlTipoPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, -1, -1) Then
+        If ObjPeriodos.GetPeriodos(DdlTipoPeriodoCarga.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, -1, -1) Then
 
             DdlPeriodo.DataSource = ObjPeriodos.DtResultados
         Else