From d01254cd6e638253d2be945882a7a42f995ede4f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 23 Feb 2022 07:28:54 -0700
Subject: [PATCH] -- condicion de desglosaieps

---
 App_Code/Modelos.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 087d8e134..91de26f6c 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -394,9 +394,14 @@ Namespace Modelos
                     SetSubProyecto()
                     SetSubProyectoMatriz()
                     SetCliente()
+                    If ObjVentas.DtResultados.Rows(0)("IEPS").ToString.ToDecimal <= 0 Then
+                        Me.VentaDesglosaIEPS = False
+                    Else
+                        Me.VentaDesglosaIEPS = True
+                    End If
                     SetTotales(ObjVentas.DtResultados, ObjVentas)
+                    End If
                 End If
-            End If
             If ObjVentas.GetVentaDetalle(CveVenta) Then
                 Me.DtDetalle = ObjVentas.DtResultados.Copy()
             End If