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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        '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))
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        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