From 62fe70faa441b015cac458ea215ed5e8d99788f2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 1 Oct 2021 18:28:25 -0700
Subject: [PATCH] Efacturas mejora CvePrePolizadetalle incorrecta, CRM permiso
 editar empresa

---
 CRM/EmpresaCRM.aspx.cs    | 25 ++++++++++++++++++-------
 Compras/eFacturas.aspx.vb | 16 ++++++++++++----
 2 files changed, 30 insertions(+), 11 deletions(-)

diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs
index 14b65061a..d411c482a 100644
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -1515,15 +1515,26 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 LnkAgregarAcercamiento.Visible = false;
             }
 
-            if ((UsuarioActual.CveVendedor != CveVendedor))
+
+            if (!UsuarioActual.TienePermisoProceso(330))
             {
-                BtnGuardarEmpresa.Visible = false;
-                BtnEliminarEmpresa.Visible = false;
-                BtnAgregarContacto.Visible = false;
-                //LnkAgregarAcercamiento.Visible = false;
-                DivAccionesBitacora.Visible = false;
-                GVContactos.Columns[4].Visible = false;
+                if ((UsuarioActual.CveVendedor != CveVendedor))
+                {
+                    BtnGuardarEmpresa.Visible = false;
+                    BtnEliminarEmpresa.Visible = false;
+                    BtnAgregarContacto.Visible = false;
+                    //LnkAgregarAcercamiento.Visible = false;
+                    DivAccionesBitacora.Visible = false;
+                    GVContactos.Columns[4].Visible = false;
+                }
             }
+
+          
+
+
+
+
+
         }
     }
     #endregion
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 2954608e2..3bd8d405b 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -769,11 +769,13 @@ Partial Class Compras_eFacturas
             If ObjDatos.DtResultados.Rows.Count > 0 Then
                 GvD.DataSource = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'") '.AsEnumerable().Take(100).CopyToDataTable()
                 DtPagos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'")
-            Else
-                GvD.DataSource = Nothing
+                'Else
+                '    GvD.DataSource = Nothing
             End If
         End If
-        ObjDatos.Dispose()
+
+
+
         LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0"))
         LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
 
@@ -781,6 +783,10 @@ Partial Class Compras_eFacturas
         If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
             GvPagos.DataSource = DtPagos
         End If
+
+        ObjDatos.Dispose()
+
+
         GvPagos.DataBind()
         UpPagos.Update()
 
@@ -1117,6 +1123,8 @@ Partial Class Compras_eFacturas
 
             e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString)
 
+            Dim RutaXML As String = String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))
+
             If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then
                 e.Row.FCLiteral("LtlXML").Text = String.Format("<a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?RFC={0}&File={1}"">Ver</a>", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML")))
                 If e.Row.DBCampo("TipoComprobante") = "P" And e.Row.DBCampo("FueValidado") = "1" Then
@@ -2916,7 +2924,7 @@ Partial Class Compras_eFacturas
 
                         For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows
 
-                            If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper Then
+                            If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper And drow("CveIE").ToString.ToEntero > 0 Then
 
                                 dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero
                                 dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero