diff --git a/CRM/RepAgendasBitacoras.aspx.cs b/CRM/RepAgendasBitacoras.aspx.cs
index 3a460798c..8f2242b97 100644
--- a/CRM/RepAgendasBitacoras.aspx.cs
+++ b/CRM/RepAgendasBitacoras.aspx.cs
@@ -103,6 +103,6 @@ public partial class CRM_AgendasBitacoras : ClsPaginas
 
     protected void LnkExcel_Click(object sender, EventArgs e)
     {
-        GVDatos.ExportToExcelx("RepAgendaBiracora.xls");
+        GVDatos.ExportToExcelX("RepAgendaBiracora");
     }
 }
\ No newline at end of file
diff --git a/Compras/EvaluacionProveedor.aspx.vb b/Compras/EvaluacionProveedor.aspx.vb
index 460ed861b..517bedcec 100644
--- a/Compras/EvaluacionProveedor.aspx.vb
+++ b/Compras/EvaluacionProveedor.aspx.vb
@@ -118,7 +118,7 @@ Partial Class Compras_EvaluacionProveedor
                     TxtSerieFolio.Text = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString()
                 End If
             End If
-            If ObjCompras.GetCompraDetalle(CveCompra) Then
+            If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
                 Dim StrPS As New StringBuilder()
                 For Each Row As DataRow In ObjCompras.DtResultados.Rows
                     If ObjCompras.DtResultados.Rows.Count > 1 Then