-validacion garantías

App_Code/Modelos.vb

@@ -2335,6 +2335,7 @@ Namespace Modelos
                 End If
 
                 'AJUSTES'
+                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,
@@ -2344,6 +2345,9 @@ Namespace Modelos
                                 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