From 544842fe440c1bfeb50d62bffa2b57ef9bedfc1c Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Thu, 11 Aug 2022 09:40:03 -0700
Subject: [PATCH] eFacturas Solicitudes SAT descarga  zip xmls

---
 Compras/eFacturas.aspx    | 4 ++--
 Compras/eFacturas.aspx.vb | 9 +++++++++
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 0d4ddcff7..ec13217d4 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -63,8 +63,8 @@
                 <asp:LinkButton ID="lbDescargar" runat="server"><i class="fa fa-download"></i>
                 Descarga Facturas SAT</asp:LinkButton>
             </li>--%>
-            <li>
-                <asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server">Solicitudes SAT</asp:LinkButton>
+            <li>                
+                 <asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server"> <i class="fa fa-external-link"></i> Solicitudes SAT</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkBitacotaFacturas" runat="server" OnClick="LnkBitacotaFacturas_Click"><i class="fa fa-book"    ></i> Bitácora Facturas</asp:LinkButton>
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 9a6b09cd0..6fc2bdb8f 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2934,6 +2934,15 @@ Partial Class Compras_eFacturas
         If e.Row.RowType = DataControlRowType.DataRow Then
 
 
+            If e.Row.DataKey("ArchivoXML").Length > 0 Then
+                Dim UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"
+
+                If System.IO.File.Exists(UrlDescarga) Then
+                    Dim LnkDescargaXML As LinkButton = e.Row.FCLinkButton("LnkDescargaXML")
+                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDescargaXML)
+                    LnkDescargaXML.Visible = True
+                End If
+            End If
 
             Dim lblobservaciones As Label = e.Row.FCLabel("lblobservaciones")
             Dim lBLTipoDescarga As Label = e.Row.FCLabel("lBLTipoDescarga")