Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms

Partial Class RepEvaluacionesProveedores
    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
            CargaParametrosBusqueda()
            CargarDatos()
        End If
    End Sub

    Private Sub CargaParametrosBusqueda()
        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedor.DataBind()
        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))

        Dim dNow As Date = Now
        TxtFechaF.Text = dNow.ToString("dd/MM/yyyy")
        dNow = dNow.AddDays(-30)
        TxtFechaI.Text = dNow.ToString("dd/MM/yyyy")
    End Sub

    Private Sub CargarDatos()
        Dim ObjCompras As New ClsCompras
        If ObjCompras.GetRepEvaluacionesProveedores(UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, TxtFechaI.Text, TxtFechaF.Text, DdlEvaluado.SelectedValue.ToEntero) Then
            GV.DataSource = ObjCompras.DtResultados
            DtDatos = ObjCompras.DtResultados
        End If
        ObjCompras.Dispose()
        GV.DataBind()
        UPDatos.Update()
    End Sub

    Public Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        CargarDatos()
    End Sub

    Private Sub LnkPDF_Click(sender As Object, e As EventArgs) 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("pEmp", UsuarioActual.Empresa.Empresa))
        If Imagen.Exists Then
            params.Add(New ReportParameter("pImg", logouri))
        Else
            params.Add(New ReportParameter("pImg", ""))
        End If
        params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text))
        params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Today))
        params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.ToString))


        ImprimirPDF("Empresas/Grales/Formatos/RepEvaluacionesProveedores.rdlc", DtDatos, params, "RepEvaluacionesProveedores", "PDF", RDSName:="DataSet1")
    End Sub

    Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
        GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls")
    End Sub
End Class