diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 8d8369a89..114ccffa6 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4357,7 +4357,7 @@ Public Class ClsVentas Return retorno End Function Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer, - CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer) As Boolean + CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters @@ -4369,6 +4369,7 @@ Public Class ClsVentas .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente End With Try SqlAdapter.Fill(Data) diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx index 28ae1f483..5b509126b 100644 --- a/Ventas/MetasVendedores.aspx +++ b/Ventas/MetasVendedores.aspx @@ -45,9 +45,6 @@ Metas de Vendedores -
  • - Agregar Meta -
  • PDF
  • @@ -69,7 +66,7 @@
    Fecha del mes:
    -
    +
    @@ -81,16 +78,16 @@
    -
    Sucursal:
    -
    +
    Sucursal:
    +
    + +
    + +
    - -
    - -
    @@ -101,17 +98,21 @@
    -
    -
    +
    +
    + +
    + +
    @@ -144,11 +145,16 @@ - + + + + + + @@ -159,63 +165,21 @@ + + + + + + + + + +
    - diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb index bab1cc28a..29aaf829e 100644 --- a/Ventas/MetasVendedores.aspx.vb +++ b/Ventas/MetasVendedores.aspx.vb @@ -15,7 +15,6 @@ Partial Class MetasVendedores End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - CargaDatosModal() CargaDatosFiltros() CargarDatosReporte() End If @@ -51,61 +50,23 @@ Partial Class MetasVendedores DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion2.DataBind() DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub - Private Sub CargaDatosModal() - DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) - DdlVendedores.DataBind() - DdlVendedores.Items.Insert(0, New ListItem("Seleccionar", "-1")) - - Dim ObjPS As New ClsProductosServicios - If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then - DdlMarcas.DataSource = ObjPS.DtResultados - End If - ObjPS.Dispose() - DdlMarcas.DataBind() - DdlMarcas.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) Then + DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero) Then GV.DataSource = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados End If ObjVentas.Dispose() GV.DataBind() End Sub - Private Sub ResetDatosSeleccionadosModal() - DdlVendedores.SelectedValue = "-1" - TxtFechaI.Text = "" - DdlMarcas.SelectedValue = "-1" - TxtMetaCantidad.Text = "" - TxtMetaImporte.Text = "" - UpModalTiposD.Update() - End Sub - - Protected Sub LnkAgregar_Click() Handles LnkAgregar.Click - RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) - End Sub - - 'Protected Sub BtnAgregarMetaVendedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaVendedor.Click - - ' If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 Then - ' Dim ObjVentas As New ClsVentas - ' If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal) Then - ' Alert("Se agregó la meta al vendedor") - ' Else - ' Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError) - ' End If - ' Else - ' Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, "))) - ' End If - ' RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) - ' ResetDatosSeleccionadosModal() - 'End Sub Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click CargarDatosReporte()