impresion de un formato de excel en ResguardoMaterial y funcion de no cerrar al modal de recepcion usados

Inventarios/RecepcionUsados.aspx

@@ -57,7 +57,7 @@
     Recepción/Entrega de Usados
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server" ID="UppAcciones" UpdateMode="Conditional" >
+    <asp:UpdatePanel runat="server" ID="UppAcciones" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
                 <asp:HyperLink ID="HplImprimir" runat="server" Visible="false"><i class="fa fa-print"></i> Imprimir</asp:HyperLink>
@@ -969,16 +969,22 @@
                     <div class="modal-body">
 
                         <div class="form-group form-md-line-input ">
-
+                            <div class="row">
+                                <div class="col-md-2" style="width:50%">
                                     <label for='<%= txtCantidad.ClientID %>'>Cantidad:</label>
-                            <asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregarUsado"></asp:TextBox>
+                                    <asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="100%" MaxLength="15" runat="server" ValidationGroup="GprAgregarUsado"></asp:TextBox>
                                     <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="  Numbers" />
                                     <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregarUsado"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
                                     <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregarUsado"></asp:CustomValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                                <div class="col-md-2" style="width:50%">
+                                    <asp:CheckBox runat="server" ID="ChkSeguirAgregando" />
+                                    <label for="ChkSeguirAgregando">Seguir Registrando</label>
+                                </div>
+                            </div>
                             <i></i>
-
                         </div>
                         <%--<div class="form-group form-md-line-input  ">
                             <label for='<%= DdlClasificacion.ClientID %>'>Clasificación:</label>

Inventarios/RecepcionUsados.aspx.vb

@@ -675,6 +675,8 @@ Partial Class Inventarios_RecepcionUsados
         txtCantidad.Text = ""
 
         TxtObservacionesdetalle.Text = ""
+
+        UpModalAgregar.Update()
     End Sub
 
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
@@ -970,7 +972,9 @@ Partial Class Inventarios_RecepcionUsados
             ' RegistraScript("playsonidito('beep-07.wav')")
 
             'asdasdasdasdasdad
+            If Not ChkSeguirAgregando.Checked Then
                 RegistraScript("$('#DivModalAgregar').modal('hide')", "hidemodal")
+            End If
         Else
 
 
@@ -1004,8 +1008,10 @@ Partial Class Inventarios_RecepcionUsados
 
             CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
 
+            If Not ChkSeguirAgregando.Checked Then
                 RegistraScript("$('#DivModalAgregar').modal('hide')", "hidemodal")
             End If
+        End If
 
     End Sub
 

Inventarios/ResguardoMaterial.aspx

@@ -24,6 +24,9 @@
     Préstamo de Productos
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+    <li>
+        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel runat="server">

Inventarios/ResguardoMaterial.aspx.vb

@@ -3,6 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 Partial Class Inventarios_ResguardoMaterial
     Inherits ClsPaginas
 
@@ -1210,7 +1211,20 @@ Partial Class Inventarios_ResguardoMaterial
 
 #End Region
 
+    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        Imprime("Excel")
+    End Sub
+
+    Private Sub Imprime(Formato As String)
+        If DtMovimientosLiberacion IsNot Nothing Then
 
 
+            Dim params As New List(Of ReportParameter)
+
+            ImprimirPDF("Empresas/Grales/Formatos/ResguardoMaterial.rdlc", DtMovimientosLiberacion, params, String.Format("RepResguardoMaterial-{0}", Now.ToDateTime.ToShortDateString), Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
 
 End Class