-- condicion de desglosaieps

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