diff --git a/Bancos/CargarConciliacionesBancarias.aspx b/Bancos/CargarConciliacionesBancarias.aspx index 854da6d3d..0fcb9abf7 100644 --- a/Bancos/CargarConciliacionesBancarias.aspx +++ b/Bancos/CargarConciliacionesBancarias.aspx @@ -127,13 +127,21 @@
@@ -197,6 +205,7 @@ + diff --git a/Bancos/CargarConciliacionesBancarias.aspx.vb b/Bancos/CargarConciliacionesBancarias.aspx.vb index 2da1ae93e..e9b722155 100644 --- a/Bancos/CargarConciliacionesBancarias.aspx.vb +++ b/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