SIG/CRM/CatMetas.aspx.vb

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