From ebd137c172666b3338be3468aaf52c919c5e9453 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Thu, 15 Aug 2019 11:09:03 -0700
Subject: [PATCH] =?UTF-8?q?Se=20cambi=C3=B3=20DropDownList=20de=20Cliente?=
 =?UTF-8?q?=20por=20DropDownLost?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/RepVentasUtilidadPadre.aspx    |  4 +---
 Ventas/RepVentasUtilidadPadre.aspx.vb | 16 +++++++++++-----
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx
index ce2769774..290095da5 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx
+++ b/Ventas/RepVentasUtilidadPadre.aspx
@@ -139,9 +139,7 @@
                             Cliente:
                         </div>
                         <div class="col-md-2 ">
-                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control  input-small input-sm select2me" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:150px;"></ADS:Dropdownlost>
                         </div>
                         <div class="col-md-1 truncate">
                             Vendedor:
diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb
index 2cecd644f..83458643a 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -44,8 +44,14 @@ Partial Class Ventas_RepVentasUtilidadPadre
         txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
 
         'Carga Clientes
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.DataBind()
+        If UsuarioActual.CveEmpresa = 119 Then
+            DdlClientesWS.setEsWebService(True)
+        Else
+            DdlClientesWS.setEsWebService(False)
+            DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientesWS.DataBind()
+            DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
 
         'CargaSubProyectos
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
@@ -100,7 +106,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
 
     Private Sub CargaDatos()
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetReportePadreVentasUtilidad(If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM), DdlClientes.SelectedValue.ToEntero,
+        If ObjVentas.GetReportePadreVentasUtilidad(If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM), DdlClientesWS.SelectedValue.ToEntero,
                                                     If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM), txtFechaI.Text.ToDate, txtFechaF.Text.ToDate,
                                                     UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
@@ -211,10 +217,10 @@ Partial Class Ventas_RepVentasUtilidadPadre
         If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
         If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
         If DdlSubProyecto.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>SubProyecto</b>: {0}", DdlSubProyecto.GetSelectedText)
-        If DdlClientes.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientes.SelectedItem.Text)
+        If DdlClientesWS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientesWS.SelectedText)
         If DdlPS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>P.S.</b>: {0}", DdlPS.SelectedText)
         If DdlClasificacion.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Clasificación</b>: {0}", DdlClasificacion.SelectedItem.Text)
-        If DdlClientes.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientes.SelectedItem.Text)
+        If DdlClientesWS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientesWS.SelectedText)
         If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor</b>: {0}", DdlVendedor.GetSelectedText)
         Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
         Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))