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

Partial Class RepVentasMensualesDetalle
    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
            CargaDatos()
        End If
    End Sub

    Private Sub CargaDatos()
        'URL DE PRUEBA
        '/Ventas/RepVentasMensualesDetalle.aspx?CveCliente=270821&CveSubProyecto=-1&FechaInicio=2020-02-15&FechaFin=2020-02-20&CveMarca=-1&CveVendedor=-1
        Dim FechaInicio As Date = Request.QueryString("FechaInicio").ToDate
        Dim FechaFin As Date = Request.QueryString("FechaFin").ToDate
        Dim CveCliente As Integer = Request.QueryString("CveCliente").ToEntero
        Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto").ToEntero
        Dim CveMarca As Integer = Request.QueryString("CveMarca").ToEntero
        Dim CveVendedor As Integer = Request.QueryString("CveVendedor").ToEntero

        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetRepVentasMensualesDetalle(UsuarioActual.CveEmpresa, CveCliente, FechaInicio, FechaFin, CveSubProyecto, CveVendedor, CveMarca) Then
            GV.DataSource = ObjVentas.DtResultados
            DtDatos = ObjVentas.DtResultados
        End If
        ObjVentas.Dispose()
        GV.DataBind()
    End Sub

    Public Sub LnkPDF_Click() 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("UsuarioImprimio", UsuarioActual.Usuario))
        params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
        params.Add(New ReportParameter("Modalidad", "2"))

        ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensualesDetalle.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "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

    Public Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DataKey("Etiqueta") = "Padre" Then
                e.Row.CssClass = "Totales"
            ElseIf e.Row.DataKey("Etiqueta") = "SubPadre" Then
                e.Row.CssClass = "SubTotales"
            End If
        End If
    End Sub
End Class