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