--descarga de formato de conciliaciones

Bancos/CargarConciliacionesBancarias.aspx.vb

@@ -82,6 +82,22 @@ Partial Class Bancos_CargarConciliacionesBancarias
         End If
     End Sub
 
+    Protected Sub BtnDescargaFormato_Click(sender As Object, e As EventArgs)
+        Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoCargaConciliacion.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 = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
+            Response.Flush()
+            Response.TransmitFile(Archivo.FullName)
+            Response.End()
+        End If
+    End Sub
+
 
     Private Sub CargaExcel(Ruta As String, FileName As String, Tipo As String)
         If Not DdlCuenta.SelectedValue.ToEntero > 0 Then