diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 05165e95e..58ed76c8a 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3209,7 +3209,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function AddMovtoPermanente(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, Optional CveIE As Integer = -1) As Integer
+    Public Function AddMovtoPermanente(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, Optional CveIE As Integer = -1) As Integer
         Dim retorno As Integer = 0
         DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure)
 
@@ -3221,7 +3221,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)
             .Add("@CveIE", SqlDbType.Int).Value = (CveIE)
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index 0583bf6d1..4f1dd42f2 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -567,7 +567,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
                         vecesPorAplicar = (1m / porcentaje).ToEntero();
                     }
 
-                    if (ObjNominas.AddMovtoPermanente(DdlConcepto.SelectedValue.ToEntero(), DdlFuncionarioEmpleadoPrestamo.SelectedValue.ToEntero(), TxtObservacionesPrestamo.Text, DdlTipoDescto.SelectedValue.ToEntero(), valor, vecesPorAplicar, montoLimite, TxtFechaPrestamo.Text, true, -1, CveIE: CveIE) <= 0)
+                    if (ObjNominas.AddMovtoPermanente(DdlConcepto.SelectedValue.ToEntero(), DdlFuncionarioEmpleadoPrestamo.SelectedValue.ToEntero(), TxtObservacionesPrestamo.Text, DdlTipoDescto.SelectedValue.ToEntero(), valor, vecesPorAplicar, montoLimite, TxtFechaPrestamo.Text.ToDate(), true, -1, CveIE: CveIE) <= 0)
                     {
                         MsgError = "No se pudo insertar el movimiento permanente";
                     }
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 89610e570..760dbaaf3 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -7073,7 +7073,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         double valor = TxtValor.Text.ToDouble();
         int vecesAplicar = TxtVecesAplicar.Text.ToEntero();
         decimal montoLimite = TxtMontoLimite.Text.ToDecimal();
-        string fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd");
+        DateTime fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate();
         bool estatus = ChkEstatus.Checked;
         int CveCuenta = DdlCtaContable.SelectedValue.ToEntero() * (DdlCtaContable.DataValueField == "Id" ? -1 : 1);
         bool Continuar;
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 4c1d92725..26f9edf5f 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().ToString("yyyy/MM/dd")
+        Dim fechaInicioAplicacion As String = 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