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")
        Dim FechaFin As Date = Request.QueryString("FechaFin")
        Dim CveCliente As Integer = Request.QueryString("CveCliente")
        Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto")
        Dim CveMarca As Integer = Request.QueryString("CveMarca")
        Dim CveVendedor As Integer = Request.QueryString("CveVendedor")

        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(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("UsuarioImprimio", UsuarioActual.Usuario))
        params.Add(New ReportParameter("FechaImpresion", Today))
        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