Se agregó catálogo de Metas

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