diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb
index d8871551c..ac1883e6e 100644
--- a/Ventas/CatMetasVendedores.aspx.vb
+++ b/Ventas/CatMetasVendedores.aspx.vb
@@ -46,12 +46,7 @@ Partial Class CatMetasVendedores
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        Dim ObjPS As New ClsProductosServicios
-        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-            DdlMarca.DataSource = ObjPS.DtResultados
-        End If
-        ObjPS.Dispose()
-
+        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
         DdlMarca.DataBind()
         DdlMarca.Items.Insert(0, New ListItem("Todas", "-1"))
 
diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx
index 54b52aa47..bc92e3f74 100644
--- a/Ventas/MetasVendedores.aspx
+++ b/Ventas/MetasVendedores.aspx
@@ -124,7 +124,7 @@
                         </div>
                         <label class="col-md-1 text-right">Cliente: </label>
                         <div class="col-md-3">
-                            <asp:DropDownList ID="DdlCliente" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCliente" DataTextField="NombreComercial"></asp:DropDownList>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>                            
                         </div>
                         <label class="col-md-1 text-right">Marca: </label>
                         <div class="col-md-3">
diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index 984b62242..95b680714 100644
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -51,16 +51,21 @@ Partial Class MetasVendedores
         DdlClasificacion2.DataBind()
         DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlCliente.DataBind()
-        DdlCliente.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 CveCliente As Integer = -1
+        If DdlClientes.SelectedValue.ToEntero > 0 Then
+            CveCliente = DdlClientes.SelectedValue.ToEntero
+        End If
+
         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, DdlCliente.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlGrupo.SelectedValue.ToEntero) Then
             GV.DataSource = ObjVentas.DtResultados
             DtDatos = ObjVentas.DtResultados
         End If