AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- detalle de columna mensual

Browse Source
This commit is contained in:
rrene
2022-05-30 15:50:47 -07:00
parent 25d58fb0d1
commit e7280cd582
6 changed files with 341 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

120
Ventas/MetasVendedoresDetalle.aspx.vb Normal file
View File

@@ -0,0 +1,120 @@
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class MetasVendedoresDetalle
Inherits ClsPaginas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CargaDatosFiltros()
End If
End Sub
Private Sub CargaDatosFiltros()
TxtFechaMes.Text = IfNull(Request("Fecha"), "2000/01/01").ToString
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyectoFiltro.DataBind()
DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarcaFiltro.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaFiltro.DataBind()
DdlMarcaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
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, 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"))
DdlSubProyectoFiltro.SelectedValueExist(IfNull(Request("CveSubProyecto"), "-1").ToString)
DdlMarcaFiltro.SelectedValueExist(IfNull(Request("CveMarca"), "-1").ToString)
DdlVendedorFiltro.SelectedValueExist(IfNull(Request("CveVendedor"), "-1").ToString)
DdlCategoria.SelectedValueExist(IfNull(Request("CveCategoria"), "-1").ToString)
DdlClasificaciones.SelectedValueExist(IfNull(Request("CveClasificacion"), "-1").ToString)
DdlClasificacion2.SelectedValueExist(IfNull(Request("CveClasificacion2"), "-1").ToString)
CargarDatos()
End Sub
Private Sub CargarDatos()
Dim CveCliente As Integer = -1
If DdlClientes.SelectedValue.ToEntero > 0 Then
CveCliente = DdlClientes.SelectedValue.ToEntero
End If
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepMetasVendedoresDetalle(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlDistribuidor.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
GV.DataSource = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
GV.DataBind()
End Sub
Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
CargarDatos()
UPDatos.Update()
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
'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