-- mejora en error div0

2024-05-23 11:39:03 -07:00
parent 2914fe04e0
commit 17782af1f4
1 changed files with 2 additions and 2 deletions
--- a/Contratos/RepPresupuestos.aspx.vb
+++ b/Contratos/RepPresupuestos.aspx.vb
@@ -310,8 +310,8 @@ Partial Class Contratos_RepPresupuestos
                If UsaComprometido Then
                    Ejercido = DrPresupuesto("Comprometido").ToString.ToDecimal
                    PorEjercer = Autorizado - Ejercido
-                    EjercidoPorcentaje = Ejercido / Autorizado * 100
-                    PorEjercerPorcentaje = PorEjercer / Autorizado * 100
+                    EjercidoPorcentaje = If(Autorizado > 0, Ejercido / Autorizado * 100, 0)
+                    PorEjercerPorcentaje = If(Autorizado > 0, PorEjercer / Autorizado * 100, 0)
                    thComprometido.Visible = True
                    GvDatos.Columns(2).Visible = True
                End If