-- sino existe el ie, no consulta bitácora

2021-10-14 12:41:15 -07:00
parent b3449cf786
commit 971d1d1037
1 changed files with 2 additions and 0 deletions
--- 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