Ventas/Clientes.aspx.vb

@@ -3561,7 +3561,7 @@ Partial Class Clientes
     Private Sub CargaEventoBitacora()
         Dim ObjEventoBitacora As New ClsOIEventos()
         If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
-            GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2")
+            GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN(6,2,1)")
         Else
             GvEB.DataSource = Nothing
         End If
@@ -10039,5 +10039,8 @@ Partial Class Clientes
 
         End If
     End Sub
+    Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
+        CargaEventoBitacora()
+    End Sub
 End Class