Entradas Salidas descarga formato ajuste inventario

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