diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 870e809fa..04351a044 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -703,7 +703,7 @@ Public Class ClsAcumuladores
     Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer,
                                         CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String,
                                         CveTipoDefecto As Integer, NumPoliza As String, Importe As Double,
-                                        Consecutivo As String) As Boolean
+                                        Consecutivo As String, FechaAjuste As DateTime) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_Acum_GarantiasDetalleAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -717,7 +717,8 @@ Public Class ClsAcumuladores
             .Add("@CveTipoDefecto", SqlDbType.Int).Value = CveTipoDefecto
             .Add("@NumPoliza", SqlDbType.VarChar).Value = NumPoliza
             .Add("@Importe", SqlDbType.Float).Value = Importe
-            .Add("@Consecutivo", SqlDbType.VarChar).Value = Consecutivo
+            .Add("@Consecutivo", SqlDbType.VarChar).Value = Consecutivo
+            .Add("@FechaAjuste", SqlDbType.DateTime).Value = FechaAjuste
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index e4cdc187b..4e15fb81d 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1349,7 +1349,7 @@ Namespace Modelos
                     For Each Dr As DataRow In DtAjustes.Rows
                         If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
                                                                Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero,
-                                                               Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString) Then
+                                                               Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime()) Then
                             ErrorList.Add("Ocurrió un error al agregar la garantia detalle.")
                         End If
                     Next