--descarga de formato de conciliaciones

Bancos/CargarConciliacionesBancarias.aspx

@@ -127,13 +127,21 @@
                     </div>
                     <div class="modal-footer">
                         <div class="row">
-                            <div class="col-md-12" style="text-align: center">
+                             <div class="col-md-3" style="text-align: center">
+                                <asp:Button ID="BtnDescargaFormato" runat="server" OnClick="BtnDescargaFormato_Click" CssClass="btn btn-warning" Text="Descargar Formato"></asp:Button>
+                     
+                            </div>
+                            <div class="col-md-9" style="text-align: center">
                                 <asp:Button ID="BtnCargaExcel" runat="server" OnClick="BtnCargaExcel_Click" CssClass="btn btn-success" Text="Cargar"></asp:Button>
                                 <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                             </div>
                         </div>
                     </div>
                 </ContentTemplate>
+                 <Triggers>
+                <asp:PostBackTrigger ControlID="BtnDescargaFormato" />
+
+            </Triggers>
             </asp:UpdatePanel>
         </div>
     </div>
@@ -197,6 +205,7 @@
                     </div>
                 </div>
             </ContentTemplate>
+           
         </asp:UpdatePanel>
     </div>
 </asp:Content>

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