req requerir CveProveedor al generar OC, OI agenda

Compras/Proveedores.aspx.vb

@@ -536,9 +536,13 @@ Partial Class Compras_Proveedores
                 End If
                 HlEvento.Visible = True
                 HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveProveedor=" & CveProveedor & "&TB_iframe=true&height=370&width=600;"
+                LtlTareaNueva.Visible = True
+                LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveProveedor:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveProveedor)
 
                 CargaRepresentantes()
 
+
+
             Else
                 'Configuración de Modalidad Insert
 
@@ -2776,6 +2780,9 @@ Partial Class Compras_Proveedores
         ObjEventoBitacora.Dispose()
         GvEB.DataBind()
     End Sub
+    Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
+        CargaEventoBitacora()
+    End Sub
 
     Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
         Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)