eFacturas Solicitudes SAT Descarga de Comprimido

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');")