From 971d1d1037530054275f9a57bf604c165977c84c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 14 Oct 2021 12:41:15 -0700
Subject: [PATCH] =?UTF-8?q?--=20sino=20existe=20el=20ie,=20no=20consulta?=
 =?UTF-8?q?=20bit=C3=A1cora?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx.vb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 6b6664e00..9fa47aee1 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -4886,6 +4886,8 @@ Partial Class Bancos_IE
     End Sub
     Private Sub CargaEventoBitacora()
 
+        If CveIE <= 0 Then Exit Sub
+
         Dim ObjEventoBitacora As New ClsOIEventos()
         If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
             'GVEventoBitacora.DataSource = ObjEventoBitacora.DtResultados