Avance en Circular y CircularDetalle

OI/Circular.aspx.vb

@@ -1,10 +1,21 @@
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class OI_Circular
     Inherits ClsPaginas
 
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             IniciarFiltros()
@@ -16,11 +27,16 @@ Partial Class OI_Circular
         Dim FechaF As DateTime = New DateTime(Today.Year, Today.Month, 1).AddMonths(1).AddDays(-1)
         TxtFechaI.Text = FechaI.ToString()
         TxtFechaF.Text = FechaF.ToString
+
+        DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuario.DataBind()
+        DdlUsuario.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
     Private Sub CargaDatos()
         Dim ObjOI As New ClsOIEventos
-        If ObjOI.GetCircular(UsuarioActual.CveEmpresa, -1, TxtFechaI.Text, TxtFechaF.Text) Then
+        If ObjOI.GetCircular(UsuarioActual.CveEmpresa, -1, TxtFechaI.Text, TxtFechaF.Text, DdlUsuario.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjOI.DtResultados
+            DtDatos = ObjOI.DtResultados
         End If
         ObjOI.Dispose()
         GvDatos.DataBind()
@@ -29,4 +45,22 @@ Partial Class OI_Circular
     Protected Sub btConsultar_Click() Handles btConsultar.Click
         CargaDatos()
     End Sub
+
+    Protected Sub LnkPDF_Click() Handles LnkPDF.Click
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("Filtros", String.Format("Fecha Inicial: {0} Fecha Final: {1}", TxtFechaI.Text, TxtFechaF.Text)))
+
+        ImprimirPDF("Empresas/Grales/Formatos/Circulares.rdlc", DtDatos, params, "Circulares", "PDF", RDSName:="DataSet1")
+    End Sub
 End Class