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 = Now
        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, TxtFechaF.Text, 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(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", 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" & Now.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")
            End If
            Dim FechaInicio As Date = TxtFechaI.Text
            Dim FechaFin As Date = TxtFechaF.Text
            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