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