Ventas/Ventas.aspx.vb

@@ -16869,7 +16869,7 @@ Partial Class Ventas
 
         Dim ObjEventoBitacora As New ClsOIEventos()
         If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) 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
@@ -25423,4 +25423,7 @@ Partial Class Ventas
         Public EsPUModificado As Boolean = False
     End Class
 
+    Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
+        CargaEventoBitacora()
+    End Sub
 End Class