SIG/Ventas/MetasVendedores.aspx.vb

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

Partial Class MetasVendedores
    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
            CargaDatosFiltros()
            CargarDatosReporte()
        End If
    End Sub
    Private Sub CargaDatosFiltros()
        Dim dNow As Date = Now
        TxtFechaMes.Text = dNow.ToString("dd/MM/yyyy")

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

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

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

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

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

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

        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
        DdlCliente.DataBind()
        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Private Sub CargarDatosReporte()
        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
                                           DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
                                           DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, DdlGrupo.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
        CargarDatosReporte()
        UPDatos.Update()
    End Sub

    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLabel("lblRealMesPorcentaje").Text = String.Format("{0}{1}", e.Row.FCLabel("lblRealMesPorcentaje").Text, "%")
            e.Row.FCLabel("lblVarVSAAPerc").Text = String.Format("{0}{1}", e.Row.FCLabel("lblVarVSAAPerc").Text, "%")
            Select Case e.Row.DataKey("Etiqueta")
                Case "GrupoSuperior"
                    e.Row.CssClass = "GrupoSuperior"
                '    e.Row.FCLabel("lblRealMes").Text = ""
                '    e.Row.FCLabel("lblVtaMesAA").Text = ""
                '    e.Row.FCLabel("lblObjMes").Text = ""
                '    e.Row.FCLabel("lblRealAcumulado").Text = ""
                '    e.Row.FCLabel("lblRealMesPorcentaje").Text = ""
                '    e.Row.FCLabel("lblAAntAcumulado").Text = ""
                '    e.Row.FCLabel("lblObjAcumulado").Text = ""
                '    e.Row.FCLabel("lblVarVSAAPerc").Text = ""
                '    e.Row.FCLabel("lblVarVSAA").Text = ""
                '    e.Row.FCLabel("lblVarVSObjAcum").Text = ""
                Case "Categoria"
                    e.Row.CssClass = "Totales"
                Case "Clasificacion"
                    e.Row.CssClass = "SubTotales2"
                Case "Clasificacion2"
                    e.Row.CssClass = "SubTotales"
            End Select

            If e.Row.DataKey("Titulo") = "" Then
                e.Row.Cells(0).Text = "OTRO"
            End If
        End If
    End Sub

    Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) 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("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
        params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))

        ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "PDF", RDSName:="DataSet1")
    End Sub
End Class