From a83decc28bdfd577841b329ee237f3535e554e6b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 19 Dec 2024 12:03:24 -0700 Subject: [PATCH] Entradas Salidas descarga formato ajuste inventario --- Inventarios/EntradasSalidas.aspx | 8 ++++++-- Inventarios/EntradasSalidas.aspx.vb | 23 +++++++++++++++++++++++ 2 files changed, 29 insertions(+), 2 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 8f60930cd..e03021944 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -1165,8 +1165,8 @@ - -
+
+
@@ -1866,12 +1866,16 @@ + + + diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 17b2bd1b1..78e5be90f 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -6071,6 +6071,27 @@ Partial Class Inventarios_EntradasSalidas End If End Sub + Protected Sub LnkDescargaFormato_Click(sender As Object, e As EventArgs) + + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoAjusteInventario.xlsx" + + + Dim Archivo As New IO.FileInfo(Directorio) + If Archivo.Exists Then + Response.Clear() + Response.ClearHeaders() + Response.ClearContent() + Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) + Response.AddHeader("Content-Length", Archivo.Length.ToString()) + Response.ContentType = "text/plain" + Response.Flush() + Response.TransmitFile(Archivo.FullName) + Response.End() + End If + + + End Sub + Private Sub CargarArchivo(Ruta As String, FileName As String) SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) Dim Tipo As String = "EXCEL" @@ -6162,4 +6183,6 @@ Partial Class Inventarios_EntradasSalidas UpModalAjuste.Update() End Sub + + End Class