From 9263cba81a8cb28d85fbfea4c2f2ba1fafa91987 Mon Sep 17 00:00:00 2001
From: MLopez <Mario.lopez@adssistemas.mx>
Date: Mon, 30 Jan 2023 18:19:36 -0700
Subject: [PATCH] =?UTF-8?q?Fix=20compilaci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 CRM/RepAgendasBitacoras.aspx.cs     | 2 +-
 Compras/EvaluacionProveedor.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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