Descarga FActuras Rep Productos Servicios

Ventas/RepProductosServiciosDetalle.aspx

@@ -73,6 +73,22 @@
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
+
+      <asp:UpdatePanel ID="UpDescargaZipPDF" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                 <asp:LinkButton ID="BtnDescargarZipPDF" runat="server"> <i class="fa fa-cloud-download"></i>  Descargar Facturas</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+          <Triggers>
+              <asp:PostBackTrigger  ControlID= "BtnDescargarZipPDF" />
+          </Triggers>
+    </asp:UpdatePanel>
+
+
+
+
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Reporte de Productos Servicios
@@ -294,7 +310,9 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
+
+            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="TipoDocumento,SerieFolio" >
                 <Columns>
                     <asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
@@ -316,6 +334,7 @@
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
             </asp:GridView>
+
         </ContentTemplate>
     </asp:UpdatePanel>
     <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -2,8 +2,10 @@
 Option Strict On
 
 Imports System.Data
+Imports System.IO
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
+Imports System.IO.Compression
 
 Partial Class Ventas_RepProductosServiciosDetalle
     Inherits ClsPaginas
@@ -822,5 +824,70 @@ Partial Class Ventas_RepProductosServiciosDetalle
 
 #End Region
 
+#Region " D E S C A R G A S "
+
+    Private Sub BtnDescargarPDF_Click(sender As Object, e As EventArgs) Handles BtnDescargarZipPDF.Click
+
+
+        'If Not Directory.Exists(AppDomain.CurrentDomain.BaseDirectory & "Temp\" & UsuarioActual.CveUsuario.ToString & "\") Then
+        '    Directory.CreateDirectory(AppDomain.CurrentDomain.BaseDirectory & "Temp\" & UsuarioActual.CveUsuario.ToString & "\")
+        'End If
+
+
+        Dim Archivo As String = String.Empty
+        Dim HuboInexistentes As Boolean = False
+        Dim SBInexistentes As New StringBuilder : SBInexistentes.Append("No se pudieron anexar los siguientes archivos:<br />")
+
+        Dim ArchivoDestino As String = String.Format("{0}Temp\{1}.zip", AppDomain.CurrentDomain.BaseDirectory, Now.ToString("yyyyMMddhhmmss") & UsuarioActual.CveUsuario.ToString)
+
+        Dim archiveZip As ZipArchive = ZipFile.Open(ArchivoDestino, ZipArchiveMode.Create)
+
+        Dim DTVentas As DataTable = TmpDT.FiltraParametros("", "", {"CveVenta", "TipoDocumento", "Folio", "SerieFolio"})
+
+        Try
+
+            For Each Drow As DataRow In DTVentas.Rows
+
+                Dim SerieFolio As String = Drow("SerieFolio").ToString.Replace("-", "_")
+
+                If Drow("TipoDocumento").ToString.Trim <> String.Empty Then
+                    Archivo = String.Format("{0}PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta.Replace("\", "/"), Drow("TipoDocumento").ToString, Drow("SerieFolio").ToString)
+                    If File.Exists(Archivo) Then
+                        archiveZip.CreateEntryFromFile(Archivo, Drow("SerieFolio").ToString & ".pdf")
+                        ' Exit For
+                    Else
+                        HuboInexistentes = True
+                        SBInexistentes.AppendFormat("Tipo {0}, Folio {1} - {2}<br />", Drow("TipoDocumento").ToString, SerieFolio, Archivo)
+                    End If
+                End If
+            Next
+
+
+        Catch ex As Exception
+
+        End Try
+
+        archiveZip.Dispose()
+
+
+        Response.Clear()
+        Response.ContentType = "application/zip"
+        Response.AddHeader("content-disposition", $"attachment; filename=facturas{Now.ToString("yyyyMMddhhmmss")}.zip")
+        Response.TransmitFile(ArchivoDestino)
+        Response.Flush()
+
+        Try
+            File.Delete(ArchivoDestino)
+        Catch ex As Exception
+
+        End Try
+
+        Response.End()
+
+    End Sub
+
+#End Region
+
+
 
 End Class