From 17782af1f48a096c9bf2eb8d34d30506f5009f6f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 23 May 2024 11:39:03 -0700
Subject: [PATCH] -- mejora en error div0

---
 Contratos/RepPresupuestos.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb
index b7a05c96d..4d909e102 100644
--- 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