From 7d4cd0e2ef4732ae76022e0cb1701bc856fb5ad9 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 20 May 2022 17:50:16 -0700 Subject: [PATCH] -- mejoras en scorecard --- Ventas/MetasVendedores.aspx | 19 ++++++++--- Ventas/MetasVendedores.aspx.vb | 58 +++++++++++++++++++++------------- 2 files changed, 51 insertions(+), 26 deletions(-) diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx index 913d8faf7..072a2a9e9 100644 --- a/Ventas/MetasVendedores.aspx +++ b/Ventas/MetasVendedores.aspx @@ -110,7 +110,7 @@
- +
@@ -118,7 +118,7 @@
- +
@@ -130,6 +130,17 @@
+
+
+ +
+ + + + + +
+
@@ -159,7 +170,7 @@ %Inte - + @@ -207,7 +218,7 @@ %Inte - + diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb index 27db649af..f92b781f9 100644 --- a/Ventas/MetasVendedores.aspx.vb +++ b/Ventas/MetasVendedores.aspx.vb @@ -15,8 +15,8 @@ Partial Class MetasVendedores End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - CargaDatosFiltros() - CargarDatosReporte() + CargaDatosFiltros() + End If End Sub Private Sub CargaDatosFiltros() @@ -43,20 +43,18 @@ Partial Class MetasVendedores DdlCategoria.DataBind() DdlCategoria.Items.Insert(0, New ListItem("Todos", "-1")) - DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1) DdlClasificaciones.DataBind() DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1")) DdlClasificacion2.DataSource = GlobalDTClasificaciones2(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")) + DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1")) + + End Sub - Private Sub CargarDatosReporte() + Private Sub CargarDatos() Dim CveCliente As Integer = -1 If DdlClientes.SelectedValue.ToEntero > 0 Then CveCliente = DdlClientes.SelectedValue.ToEntero @@ -65,7 +63,7 @@ Partial Class MetasVendedores 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, CveCliente, DdlGrupo.SelectedValue.ToEntero) Then + DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlDistribuidor.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then GV.DataSource = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados End If @@ -74,7 +72,7 @@ Partial Class MetasVendedores End Sub Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click - CargarDatosReporte() + CargarDatos() UPDatos.Update() End Sub @@ -87,16 +85,7 @@ Partial Class MetasVendedores Select Case e.Row.DBCampo("TipoFila") Case "1" e.Row.CssClass = "Totales" - ' 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 "2" e.Row.CssClass = "SubTotales2" Case "3" @@ -128,5 +117,30 @@ Partial Class MetasVendedores 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 Sub + + Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.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", "Excel", RDSName:="DataSet1") + End Sub + + Private Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged + DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveCategoria:=DdlCategoria.SelectedValue.ToEntero, UsoClasificacion:=1) + DdlClasificaciones.DataBind() + DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub End Class