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()
            CargaDatos()
        End If
    End Sub
    Private Sub IniciarFiltros()
        Dim FechaI As DateTime = New DateTime(Today.Year, Today.Month, 1)
        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, DdlUsuario.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjOI.DtResultados
            DtDatos = ObjOI.DtResultados
        End If
        ObjOI.Dispose()
        GvDatos.DataBind()
    End Sub

    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