From 70e900931da7225a37b99375713ae716fb3673fe Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 29 Oct 2024 19:00:42 -0700
Subject: [PATCH] =?UTF-8?q?-validacion=20garant=C3=ADas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/Modelos.vb | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

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