From c8530d3e460ee5381d029e21e32c0716ebd11cd2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 25 Feb 2025 10:17:57 -0700
Subject: [PATCH] =?UTF-8?q?en=20pr=C3=A9stamo=20de=20proveedor,=20al=20ini?=
 =?UTF-8?q?ciar=20que=20no=20tenga=20seleccionado=20proveedor?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntradasSalidas.aspx    |  3 ++-
 Inventarios/EntradasSalidas.aspx.vb | 29 +++++++++++++++++++++--------
 2 files changed, 23 insertions(+), 9 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 014cea3f9..526136ddb 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -285,7 +285,8 @@
                                         <div class="row" id="TrProveedor" runat="server" visible="false">
                                             <label class="col-md-1 truncate">Proveedor</label>
                                             <div class="col-md-5">
-                                                <asp:DropDownList ID="DdlProveedor" CssClass="form-control select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>
+                                                <%--<asp:DropDownList ID="DdlProveedor" CssClass="form-control select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
+                                                <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
                                             </div>
                                         </div>
                                         <div class="row" id="TrTipoCargado" runat="server" visible="false">
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index d9d4fac80..f807296b7 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1130,10 +1130,18 @@ Partial Class Inventarios_EntradasSalidas
             'TxtPedidoContrato.Text = Mov.PedidoContrato
 
             If Mov.CveProveedor > 0 Then
-                DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Mov.CveProveedor)
-                DdlProveedor.DataBind()
-                DdlProveedor.SelectedValueExist(Mov.CveProveedor)
-                DdlProveedor.Enabled = False
+                'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Mov.CveProveedor)
+                'DdlProveedor.DataBind()
+                'DdlProveedor.SelectedValueExist(Mov.CveProveedor)
+                'DdlProveedor.Enabled = False
+
+                'CargaProveedores
+                DdlProveedores.setEsWebService(True)
+                DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+                DdlProveedores.txtValue.Value = Mov.CveProveedor.ToString
+                DdlProveedores.txtText.Value = Mov.DtResultados.Rows(0)("RazonSocial").ToString
+                DdlProveedores.SelectedValue = "-1"
+
                 TrProveedor.Visible = True
             End If
 
@@ -1978,7 +1986,7 @@ Partial Class Inventarios_EntradasSalidas
                         tFolio = If(TxtFolio.Text.ToEntero <> FolioAsignado, TxtFolio.Text.ToEntero, -1)
                     End If
                     Dim tCveProveedor As Integer = -1
-                    If DdlProveedor.SelectedValue.ToEntero > 0 Then tCveProveedor = DdlProveedor.SelectedValue.ToEntero
+                    If DdlProveedores.SelectedValue.ToEntero > 0 Then tCveProveedor = DdlProveedores.SelectedValue.ToEntero
                     Dim obs As String = TxtObservaciones.Text.Trim()
                     If obs = "" Then
                         obs = DdlConcepto.SelectedItem.Text
@@ -2604,8 +2612,13 @@ Partial Class Inventarios_EntradasSalidas
 
             Case "28"
                 TrProveedor.Visible = True
-                DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-                DdlProveedor.DataBind()
+                'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+                'DdlProveedor.DataBind()
+                'CargaProveedores
+                DdlProveedores.setEsWebService(True)
+                DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+                DdlProveedores.SelectedText = "Seleccione Uno"
+                DdlProveedores.SelectedValue = "-1"
                 If UsuarioActual.CveEmpresa = 119 Then txtPrecio.Enabled = False
 
             Case Else
@@ -5288,7 +5301,7 @@ Partial Class Inventarios_EntradasSalidas
         If TxtFecha.Visible Then TxtFecha.Enabled = True
         If TxtResponsable.Visible Then TxtResponsable.Enabled = True
         If TxtObservaciones.Visible Then TxtObservaciones.Enabled = True
-        If DdlProveedor.Visible Then DdlProveedor.Enabled = True
+        If DdlProveedores.Visible Then DdlProveedores.Enabled = True
         If TxtRemision.Visible Then TxtRemision.Enabled = True
         If DdlMoneda.Visible Then DdlMoneda.Enabled = True
         If TxtGuia.Visible Then TxtGuia.Enabled = True