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