62 lines
2.5 KiB
VB.net
62 lines
2.5 KiB
VB.net
Imports System.Data
|
|
Imports System.Linq
|
|
Imports Extensiones
|
|
|
|
Partial Class CatMetasVendedores
|
|
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"))
|
|
|
|
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
|
|
DdlClasificacion.DataBind()
|
|
DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
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, DdlClasificacion.SelectedValue.ToEntero) 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
|
|
|
|
Private Sub ResetDatosSeleccionadosModal()
|
|
DdlVendedores.SelectedValue = "-1"
|
|
TxtFechaI.Text = ""
|
|
DdlMarcas.SelectedValue = "-1"
|
|
TxtMetaCantidad.Text = ""
|
|
TxtMetaImporte.Text = ""
|
|
UpModalTiposD.Update()
|
|
End Sub
|
|
|
|
End Class
|