diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index c5f13c430..64f4f81e8 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3380,6 +3380,31 @@ Public Class ClsNominas
End Function
#Region "MovtosPermanentes"
+ Public Function GetMovtoPermanenteRepFechas(cvePersonal As Int32, cveEmpresa As Int32, cveTipo As Int32, cveSaldo As Int32, cveEstatus As Int32, cveConcepto As Int32, STRFechaInicio As String, STRFechaFin As String) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_GetMovtoPermanenteRepFechas", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+ .Add("@CvePersonal", SqlDbType.Int).Value = cvePersonal
+ .Add("@CveTipo", SqlDbType.Int).Value = cveTipo
+ .Add("@CveSaldo", SqlDbType.Int).Value = cveSaldo
+ .Add("@CveEstatus", SqlDbType.Int).Value = cveEstatus
+ .Add("@CveConcepto", SqlDbType.Int).Value = cveConcepto
+ .Add("@STRFechaInicio", SqlDbType.VarChar).Value = STRFechaInicio
+ .Add("@STRFechaFin", SqlDbType.VarChar).Value = STRFechaFin
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch sqEx As SqlException
+ retorno = False
+ OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ retorno = False
+ OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
Public Function GetMovtoPermanenteRep(cvePersonal As Int32, cveEmpresa As Int32, cveTipo As Int32, cveSaldo As Int32, cveEstatus As Int32, cveConcepto As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_GetMovtoPermanenteRep", CommandType.StoredProcedure)
diff --git a/Nomina/RepMovtosPermanentes.aspx b/Nomina/RepMovtosPermanentes.aspx
index 32e59cbbb..c7bbd6231 100644
--- a/Nomina/RepMovtosPermanentes.aspx
+++ b/Nomina/RepMovtosPermanentes.aspx
@@ -4,10 +4,10 @@