SIG/Ventas/RepVentasMensuales.aspx.vb

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

Partial Class RepVentasMensuales
    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
            InicializarFiltros()
            CargaDatos()
        End If
    End Sub
    Private Sub InicializarFiltros()
        Dim dNow As Date = NowADS()
        TxtFechaF.Text = dNow.ToString("dd/MM/yyyy")
        dNow = dNow.AddDays(-30)
        TxtFechaI.Text = dNow.ToString("dd/MM/yyyy")

        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlClasificacionesPS.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacionesPS.DataBind()
        DdlClasificacionesPS.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedor.DataBind()
        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))

        Dim ObjPS As New ClsProductosServicios
        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
            DdlMarca.DataSource = ObjPS.DtResultados
        End If
        ObjPS.Dispose()
        DdlMarca.DataBind()
        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Private Sub CargaDatos()
        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero,
                                            DdlVendedor.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero) Then
            GV.DataSource = ObjVentas.DtResultados
            DtDatos = ObjVentas.DtResultados
        End If
        ObjVentas.Dispose()
        GV.DataBind()
    End Sub

    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        CargaDatos()
        UPDatos.Update()
    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", DdlModalidad.SelectedValue))

        ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensuales.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" & NowADS().ToShortDateString & ".xls")
    End Sub

    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim CveCliente As Integer = -1
            Dim CveSubProyecto As Integer = -1
            If DdlModalidad.SelectedValue = "0" Then
                CveCliente = e.Row.DataKey("Clave").ToEntero
                CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
            Else
                CveSubProyecto = e.Row.DataKey("Clave").ToEntero
            End If
            Dim FechaInicio As Date = TxtFechaI.Text.ToDate
            Dim FechaFin As Date = TxtFechaF.Text.ToDate
            Dim CveMarca As Integer = DdlMarca.SelectedValue.ToEntero
            Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero
            Dim URL As String = String.Format("/Ventas/RepVentasMensualesDetalle.aspx?CveCliente={0}&CveSubProyecto={1}&FechaInicio={2}&FechaFin={3}&CveMarca={4}&CveVendedor={5}",
                                                                    CveCliente, CveSubProyecto, FechaInicio, FechaFin, CveMarca, CveVendedor)
            e.Row.FCHyperLink("HlkNombre").NavigateUrl = URL
            e.Row.FCHyperLink("LblEne").NavigateUrl = URL
            e.Row.FCHyperLink("LblFeb").NavigateUrl = URL
            e.Row.FCHyperLink("LblMzo").NavigateUrl = URL
            e.Row.FCHyperLink("LblAbr").NavigateUrl = URL
            e.Row.FCHyperLink("LblMay").NavigateUrl = URL
            e.Row.FCHyperLink("LblJun").NavigateUrl = URL
            e.Row.FCHyperLink("LblJul").NavigateUrl = URL
            e.Row.FCHyperLink("LblAgo").NavigateUrl = URL
            e.Row.FCHyperLink("LblSep").NavigateUrl = URL
            e.Row.FCHyperLink("LblOct").NavigateUrl = URL
            e.Row.FCHyperLink("LblNov").NavigateUrl = URL
            e.Row.FCHyperLink("LblDic").NavigateUrl = URL
        End If
    End Sub
End Class