eFacturas Solicitudes SAT Descarga de Comprimido

Compras/eFacturas.aspx

@@ -1163,13 +1163,13 @@
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
 
-                                                 <%--   <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" HeaderText="XML">
+                                                <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" HeaderText="XML">
                                                         <ItemTemplate>
                                                             <asp:LinkButton ID="LnkDescargaXML" CssClass="btn btn-circle btn-sm blue" OnClick="LnkDescargaXML_Click" runat="server" ToolTip="Descargar archivo"
                                                                 Text="<i class='fa fa-download' style='color:white' title='Descargar Documento'></i>" CausesValidation="False" Visible="false" />
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
-
+                                                      <%--  
                                                      <asp:TemplateField  HeaderText="R Nombres" Visible="false">
                                                         <ItemTemplate>
                                                             <asp:LinkButton ID="LnkRenombrarArchivos" CssClass="btn btn-circle btn-sm blue" OnClick="LnkRenombrarArchivos_Click" runat="server" ToolTip="Renombrar Archivos"

Compras/eFacturas.aspx.vb

@@ -2951,6 +2951,23 @@ Partial Class Compras_eFacturas
     End Sub
 
 
+    Protected Sub LnkDescargaXML_Click(ByVal sender As Object, ByVal e As EventArgs)
+        Dim GvRow As GridViewRow = CType((CType(sender, LinkButton)).NamingContainer, GridViewRow)
+        Dim UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"
+        Dim Archivo = New System.IO.FileInfo(UrlDescarga)
+
+        If Archivo.Exists Then
+            Response.Clear()
+            Response.AddHeader("Content-Disposition", "attachment; filename=" & Archivo.Name)
+            Response.AddHeader("Content-Length", Archivo.Length.ToString())
+            Response.ContentType = "text/octet-stream"
+            Response.Flush()
+            Response.TransmitFile(Archivo.FullName)
+            Response.[End]()
+        End If
+    End Sub
+
+
 #End Region
 
 
@@ -4394,8 +4411,6 @@ Partial Class Compras_eFacturas
             Alert("no se pudo procesar el archivo xml")
         End If
     End Sub
-
-
     Private Sub VinculacionMasivaComplementos()
 
         Dim CountVinculados As Integer = 0
@@ -4744,15 +4759,10 @@ Partial Class Compras_eFacturas
 
 
     End Sub
-
-
     Protected Sub LnkVinculacionMasivaComplementos_Click(sender As Object, e As EventArgs)
         VinculacionMasivaComplementos()
     End Sub
 
-
-
-
 #Region "TRASLADOS"
 
 
@@ -4931,7 +4941,6 @@ Partial Class Compras_eFacturas
 
 #End Region
 
-
     Protected Sub LnkModalPersonalizar_Click(sender As Object, e As EventArgs)
 
         GvD.Columns(11).Visible = ChkModalPersonalzarFolioFiscal.Checked
@@ -4946,9 +4955,6 @@ Partial Class Compras_eFacturas
         RegistraScript("$('#DvmodalPersonalizar').modal('hide');")
     End Sub
 
-
-
-
     Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
 
         RegistraScript("$('#DvmodalPersonalizar').modal('show');")