.

Ventas/CatMetasVendedores.aspx.vb

@@ -0,0 +1,61 @@
+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