diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 58ed76c8a..0f868dd15 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3239,7 +3239,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean, CveCuenta As Integer) As Boolean
+    Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -3251,7 +3251,7 @@ Public Class ClsNominas
             .Add("@valor", SqlDbType.Float).Value = (valor)
             .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar)
             .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite)
-            .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion)
+            .Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion)
             .Add("@estatus", SqlDbType.Bit).Value = (estatus)
             .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
         End With
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 26f9edf5f..5bb136279 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -7297,7 +7297,7 @@ Partial Class RH_Personal
         Dim valor As Double = TxtValor.Text.ToDouble()
         Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
         Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
-        Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate()
+        Dim fechaInicioAplicacion As Date = TxtFechaAplicacion.Text.ToDate()
         Dim estatus As Boolean = ChkEstatus.Checked
         Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
         Dim Continuar As Boolean
@@ -7323,7 +7323,7 @@ Partial Class RH_Personal
         Dim valor As Double = TxtValor.Text.ToDouble()
         Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
         Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
-        Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd")
+        Dim fechaInicioAplicacion As Date = TxtFechaAplicacion.Text.ToDate()
         Dim estatus As Boolean = ChkEstatus.Checked
         Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
         Dim Continuar As Boolean