From b064169330dff00425d681f50e1b453e825f449d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 13 Dec 2021 12:33:14 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OI/Normatividad.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/OI/Normatividad.aspx.vb b/OI/Normatividad.aspx.vb
index 812dfa77f..e1d44026f 100644
--- a/OI/Normatividad.aspx.vb
+++ b/OI/Normatividad.aspx.vb
@@ -38,7 +38,10 @@ Partial Class OI_Normatividad
 
                 If ObjOIEventos.AddEventoNormatividad("PADRE", "PADRE DE TODOS", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "".ToEntero) Then
                     If ObjOIEventos.GetEventoNormatividad(UsuarioActual.CveEmpresa) Then
-                        IDSelected = ObjOIEventos.DtResultados(0)("CveEvento").ToString.ToEntero
+                        IDSelected = 0
+                        If ObjOIEventos.DtResultados.Rows.Count > 0 Then
+                            IDSelected = ObjOIEventos.DtResultados(0)("CveEvento").ToString.ToEntero
+                        End If
                         ObjOIEventos.AddEventoNormatividad("Título 1", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IDSelected)
 
                     End If