-- condicion de desglosaieps

2022-02-23 07:28:54 -07:00
parent 2d9df6a688
commit d01254cd6e
1 changed files with 6 additions and 1 deletions
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -394,6 +394,11 @@ 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