diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 841e0b7c3..64e9473e6 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -1087,4 +1087,77 @@ Public Class ClsCRM
End Sub
#End Region
+#Region "METAS"
+ Public Function GetMetas(FechaI As DateTime, FechaF As DateTime, Estatus As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_CRM_MetasGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+ .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
+ .Add("@Estatus", SqlDbType.Int).Value = Estatus
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener las Metas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
+ Public Function AddMetas(CveVendedor As Integer, FechaI As DateTime, FechaF As DateTime, NumMeta As Integer, Importe As Decimal, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_CRM_MetasAdd")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+ .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
+ .Add("@NumMeta", SqlDbType.Int).Value = NumMeta
+ .Add("@Importe", SqlDbType.Money).Value = Importe
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar la Meta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
+ Public Function UpdateMetas(CveMeta As Integer, CveVendedor As Integer, FechaI As DateTime, FechaF As DateTime, NumMeta As Integer, Importe As Decimal, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_CRM_MetasUpdate")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveMeta", SqlDbType.Int).Value = CveMeta
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+ .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
+ .Add("@NumMeta", SqlDbType.Int).Value = NumMeta
+ .Add("@Importe", SqlDbType.Money).Value = Importe
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar la Meta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
+ Public Function RemoveMetas(CveMeta As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_CRM_MetasRemove")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveMeta", SqlDbType.Int).Value = CveMeta
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar la Meta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
+#End Region
End Class
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index e498feb95..0fbf298e7 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3904,6 +3904,7 @@ Public Class ClsPaginas
PaginaDict.Add("/CRM/RepAcercamientosProcesos.aspx".ToUpper(), -1)
PaginaDict.Add("/CRM/RepAcercamientosRechazos.aspx".ToUpper(), -1)
PaginaDict.Add("/CRM/RepAcercamientosProcesosDetalle.aspx".ToUpper(), -1)
+ PaginaDict.Add("/CRM/CatMetas.aspx".ToUpper(), 684)
#End Region
#Region "CxC"
diff --git a/CRM/CatMetas.aspx b/CRM/CatMetas.aspx
new file mode 100644
index 000000000..17e2476e1
--- /dev/null
+++ b/CRM/CatMetas.aspx
@@ -0,0 +1,294 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMetas.aspx.vb" Inherits="CRM_CatMetas" %>
+
+
+
+
+
+
+
+ Catálogo de Metas
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/CRM/CatMetas.aspx.vb b/CRM/CatMetas.aspx.vb
new file mode 100644
index 000000000..6696eacc3
--- /dev/null
+++ b/CRM/CatMetas.aspx.vb
@@ -0,0 +1,169 @@
+Imports System.Data
+Imports Extensiones
+
+
+Partial Class CRM_CatMetas
+ Inherits ClsPaginas
+
+ Private Property CveMeta As Integer
+ Get
+ If Not ViewState("CveMeta") Is Nothing Then
+ Return ViewState("CveMeta").ToString.ToEntero
+ Else
+ Return -1
+ End If
+
+ End Get
+ Set(value As Integer)
+ ViewState("CveMeta") = value
+ End Set
+
+ End Property
+
+ Private Property Actualizar As Boolean
+ Get
+ If Not ViewState("Actualizar") Is Nothing Then
+ Return DirectCast(ViewState("Actualizar"), Boolean)
+ Else
+ Return False
+ End If
+ End Get
+ Set(value As Boolean)
+ ViewState("Actualizar") = value
+ End Set
+ End Property
+
+ Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+ If Not Page.IsPostBack Then
+ txtFechaIF.Text = Now.ToShortDateString
+ txtFechaFF.Text = Now.Day.ToString + "/" + (Now.Month + 1).ToString + "/" + Now.Year.ToString
+ CargadatosGvMeta()
+ End If
+
+ End Sub
+
+ Private Sub CargadatosGvMeta()
+
+ Dim ObjCRM As New ClsCRM
+
+ If ObjCRM.GetMetas(txtFechaIF.Text.ToDateTime, txtFechaFF.Text.ToDateTime, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+ GvMeta.DataSource = ObjCRM.DtResultados
+ Else
+ GvMeta.DataSource = Nothing
+ End If
+
+ ObjCRM.Dispose()
+
+ UPGvMeta.DataBind()
+ UpGral.Update()
+
+ End Sub
+
+ Protected Sub BtnAgregarMeta_Click(sender As Object, e As EventArgs) Handles BtnAgregarMeta.Click
+ LtlTituloModalMeta.Text = "Agregar Meta"
+ BtnAgregarMetaModal.Text = "Agregar"
+
+ CargaVendedores()
+ txtFechaI.Text = Now.ToShortDateString
+ txtFechaF.Text = (Now.Day + 1).ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString
+
+ Actualizar = False
+ UpGral.Update()
+ RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarMeta"))
+
+ End Sub
+
+ Private Sub CargaVendedores()
+ DdlVendedor.Items.Clear()
+ DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, 1)
+ DdlVendedor.DataBind()
+ DdlVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End Sub
+
+ Protected Sub BtnAgregarMetaModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaModal.Click
+
+ Dim ObjCRM As New ClsCRM
+
+ If Not Actualizar Then
+ If ObjCRM.AddMetas(DdlVendedor.SelectedValue.ToEntero, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, TxtNumMeta.Text.ToEntero, TxtImporte.Text.ToDecimal, UsuarioActual.CveEmpresa) Then
+
+ CargadatosGvMeta()
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarMeta"), "jsHideModalMeta")
+ Alert("Meta Agregada Correctamente", TipoMensaje.MsgInformacion)
+ Else
+ Alert("Ocurrió un error al guardar la Meta", TipoMensaje.MsgError)
+ End If
+ Else
+ If ObjCRM.UpdateMetas(CveMeta, DdlVendedor.SelectedValue.ToEntero, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, TxtNumMeta.Text.ToEntero, TxtImporte.Text.ToDecimal, UsuarioActual.CveEmpresa) Then
+
+ CargadatosGvMeta()
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarMeta"), "jsHideModalMeta")
+ Alert("Meta Actualizada Correctamente", TipoMensaje.MsgInformacion)
+ Else
+ Alert("Ocurrió un error al Actualizar la Meta", TipoMensaje.MsgError)
+ End If
+ End If
+
+ CveMeta = -1
+ Actualizar = False
+
+ ObjCRM.Dispose()
+
+ End Sub
+
+ Public Sub Remove_ClickMeta(sender As Object, e As EventArgs)
+
+ Dim ObjCRM As New ClsCRM
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ CveMeta = GvRow.DataKey("CveMeta")
+
+ If ObjCRM.RemoveMetas(CveMeta, UsuarioActual.CveEmpresa) Then
+ CargadatosGvMeta()
+
+ Alert("Meta eliminada Correctamente ", TipoMensaje.MsgInformacion)
+ Else
+ Alert("Ocurrió un error al Eliminar la Meta", TipoMensaje.MsgError)
+ End If
+
+ ObjCRM.Dispose()
+
+ CargadatosGvMeta()
+
+ CveMeta = -1
+
+ End Sub
+
+ Public Sub Edit_ClickMeta(sender As Object, e As EventArgs)
+
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+ LtlTituloModalMeta.Text = "Editar Meta"
+ BtnAgregarMetaModal.Text = "Actualizar"
+ Actualizar = True
+
+ CveMeta = GvRow.DataKey("CveMeta")
+
+
+ DdlVendedor.Items.Clear()
+ DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, 1)
+ DdlVendedor.DataBind()
+ DdlVendedor.SelectedValueExist(GvRow.DataKey("CveVendedor").ToEntero)
+
+ txtFechaI.Text = GvRow.DataKey("FechaI")
+ txtFechaF.Text = GvRow.DataKey("FechaF")
+
+ TxtNumMeta.Text = GvRow.DataKey("NumMeta").ToEntero
+
+ TxtImporte.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00")
+
+ UpModalMeta.Update()
+
+ RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarMeta"))
+
+ End Sub
+
+ Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+ CargadatosGvMeta()
+ End Sub
+End Class