diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 56b3d1290..916eac813 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2303,7 +2303,7 @@ Namespace Modelos
                 End If
 
                 'AJUSTES'
-                If DtAjustes IsNot Nothing AndAlso DtAjustes.Rows.Count > 0 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(),