.

Ventas/MetasVendedores.aspx.vb

@@ -15,7 +15,6 @@ Partial Class MetasVendedores
     End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            CargaDatosModal()
             CargaDatosFiltros()
             CargarDatosReporte()
         End If
@@ -51,61 +50,23 @@ Partial Class MetasVendedores
         DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion2.DataBind()
         DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
-    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"))
+        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        DdlCliente.DataBind()
+        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargarDatosReporte()
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
                                            DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
-                                           DdlSubProyectoFiltro.SelectedValue.ToEntero) Then
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero) Then
             GV.DataSource = ObjVentas.DtResultados
             DtDatos = ObjVentas.DtResultados
         End If
         ObjVentas.Dispose()
         GV.DataBind()
     End Sub
-    Private Sub ResetDatosSeleccionadosModal()
-        DdlVendedores.SelectedValue = "-1"
-        TxtFechaI.Text = ""
-        DdlMarcas.SelectedValue = "-1"
-        TxtMetaCantidad.Text = ""
-        TxtMetaImporte.Text = ""
-        UpModalTiposD.Update()
-    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) 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
 
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
         CargarDatosReporte()