From 5e36beeffc8870fd9a26c866115bd7168fdf6cbb Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 2 Mar 2020 15:34:20 -0700 Subject: [PATCH] agregando el nuevo modulo --- App_Code/ClsPaginas.vb | 1 + App_Code/ClsVentas.vb | 18 ++++++ Ventas/MetasVendedores.aspx | 115 +++++++++++++++++++++++++++++++++ Ventas/MetasVendedores.aspx.vb | 56 ++++++++++++++++ 4 files changed, 190 insertions(+) create mode 100644 Ventas/MetasVendedores.aspx create mode 100644 Ventas/MetasVendedores.aspx.vb diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 24f10f87e..78ac82410 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4665,6 +4665,7 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/CatCobranzaEstatusTurno.aspx".ToUpper(), 7004) PaginaDict.Add("/Ventas/RepVentasMensuales.aspx".ToUpper(), 720) PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 721) + PaginaDict.Add("/Ventas/MetasVendedores.aspx".ToUpper(), 722) #End Region diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 11ddf58d4..cfddc9043 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4259,6 +4259,24 @@ Public Class ClsVentas End Try Return retorno End Function + Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@MesAño", SqlDbType.DateTime).Value = MesAño + .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@MetaCantidad", SqlDbType.Int).Value = MetaCantidad + .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de ventas mensuales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function #Region "Conciliación emitidas SAT" Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx new file mode 100644 index 000000000..6fe34dd38 --- /dev/null +++ b/Ventas/MetasVendedores.aspx @@ -0,0 +1,115 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="MetasVendedores.aspx.vb" Inherits="MetasVendedores" %> + + + + + + + + + + Metas de Vendedores + + +
  • + Agregar Meta +
    • +
  • + PDF +
    • +
  • + Excel +
    • +     + + + + + + + diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb new file mode 100644 index 000000000..9a5ca2ede --- /dev/null +++ b/Ventas/MetasVendedores.aspx.vb @@ -0,0 +1,56 @@ +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class MetasVendedores + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + CargaDatosModal() + End If + 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")) + 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 +End Class