From 2a05e0cf572bd10b5c3753e0a52ad721b85a7c8f Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Tue, 17 Jan 2023 10:29:35 -0700
Subject: [PATCH] Rep OC Proveedores DropDownLost

---
 OC/RepOC.aspx    | 10 ++++++----
 OC/RepOC.aspx.vb | 21 ++++++++++++++++-----
 2 files changed, 22 insertions(+), 9 deletions(-)

diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx
index 7a1acc1b7..23093ba9d 100644
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -177,11 +177,11 @@
                         <div visible="true" runat="server" id="DivAF">
                             <label class="colf-1">Activo Fijo</label>
                             <div class="colf-2">
-                                <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Codigo" DataValueField="CveActivoFijo">
+                                <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Codigo" DataValueField="CveActivoFijo" Width="100%">
                                 </asp:DropDownList>
                             </div>
                         </div>
-                        <label class="colf-1">Usuario</label>
+                        <label class="colf-1">Solicitó</label>
                         <div class="colf-2">
                             <asp:DropDownList ID="ddlUsuario" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
                             </asp:DropDownList>
@@ -201,7 +201,7 @@
                     <div class="row rownomargin">
                         <label class="colf-1 truncate">Clasificación</label>
                         <div class="colf-2">
-                            <asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true">
+                            <asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true" Width="100%">
                             </asp:DropDownList>
                         </div>
                         <label class="colf-1 truncate">Producto Servicio</label>
@@ -242,7 +242,9 @@
                     <div class="row rownomargin">
                         <label class="colf-1 truncate">Proveedor</label>
                         <div class="colf-2">
-                            <asp:DropDownList ID="ddlProveedor" runat="server" CssClass="form-control input-sm select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>
+                            <%--<asp:DropDownList ID="ddlProveedor" runat="server" CssClass="form-control input-sm select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
+                            <ADS:Dropdownlost ID="DdlProveedores" CssClassDdl="select2me" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+
                         </div>
                         <label class="colf-1 truncate" id="clintesdiv1" runat="server" visible="false">Cliente</label>
                         <div class="colf-2" id="clintesdiv2" runat="server" visible="false">
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index c3ed79e0f..fca85e652 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -88,6 +88,9 @@ Partial Class RepOC
 
 
 #Region "  CARGA COMBOS  "
+
+
+
     Protected Sub CargaProyectos()
         'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
         'DdlProyectos.DataBind()
@@ -120,9 +123,17 @@ Partial Class RepOC
 
     End Sub
     Protected Sub CargaProveedores()
-        ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        ddlProveedor.DataBind()
-        ddlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
+            DdlProveedores.setEsWebService(True)
+            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedores.SelectedText = "Todos"
+            DdlProveedores.SelectedValue = "-1"
+        Else
+            DdlProveedores.setEsWebService(False)
+            DdlProveedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+            DdlProveedores.ddl.DataBind()
+            DdlProveedores.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
     End Sub
     Protected Sub CargaClientes()
         clintesdiv1.Visible = True
@@ -366,7 +377,7 @@ Partial Class RepOC
 
         Dim OC As New ClsOC
         If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
-                        DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
+                        DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
                         If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
                         ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                         CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
@@ -512,7 +523,7 @@ Partial Class RepOC
         Dim Clasificacion = If(DDlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DDlClasificacion.SelectedItem.Text}")
         Dim Producto = If(DDlPS.SelectedValue = "-1", "", $"&emsp;<b>Producto/Servicio:</b>&nbsp;{DDlPS.SelectedText}")
         Dim Completa As String = If(CheckNoCompleta.Checked = False, "", $"&emsp;, <b>No completa</b>&nbsp;")
-        Dim Proveedor = If(ddlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{ddlProveedor.SelectedItem.Text}")
+        Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedores.txtText.Value    }")
         Dim Cliente = If(ddlcliente.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b>&nbsp;{ddlcliente.SelectedItem.Text}")
 
         If DtPorAtender IsNot Nothing AndAlso DtPorAtender.Rows.Count > 0 Then