diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index 631f1dc2d..fc548e4f3 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -57,12 +57,12 @@ Recepción/Entrega de Usados - +
  • Imprimir
  • - +
  • @@ -347,7 +347,7 @@
    - +
    @@ -969,16 +969,22 @@
  • + Excel +
  • diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index 74c532c7d..fa847b2a8 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/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