@@ -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