diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 416eb054c..c047f86e8 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2335,15 +2335,19 @@ Namespace Modelos
                 End If
 
                 'AJUSTES'
-                If DtAjustes IsNot Nothing AndAlso DtAjustes.FiltraParametros("CveVentaDetalle > 0").Rows.Count > 0 Then
-                    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,
+                If factura.EsGarantia Then
+                    If DtAjustes IsNot Nothing AndAlso DtAjustes.FiltraParametros("CveVentaDetalle > 0").Rows.Count > 0 Then
+                        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("CodigoTD").ToString, Dr("TipoComprobante").ToString.ToEntero(),
                                                            Dr("Comprobante").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime(), Dr("PorcentajeAjuste").ToString.ToDecimal(),
                                                            Dr("CveBCIAjuste").ToString.ToEntero(), Dr("Etiqueta").ToString, Dr("CveClienteDistribuidor").ToString.ToEntero(), Dr("CveModeloAuto").ToString.ToEntero(), Dr("Año").ToString) Then
-                            ErrorList.Add("Ocurrió un error al agregar la garantia detalle.")
-                        End If
-                    Next
+                                ErrorList.Add("Ocurrió un error al agregar la garantia detalle.")
+                            End If
+                        Next
+                    Else
+                        ErrorList.Add("Ocurrió un error. la garantía no tiene información detallada.")
+                    End If
                 End If
 
                 'POLIZA VIRTUAL