From 2a1cbf53f9660f1ba36a9dc07221ad9e7d015793 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 1 Jun 2021 16:20:49 -0700
Subject: [PATCH] =?UTF-8?q?se=20cambi=C3=B3=20combo=20de=20clientes=20de?=
 =?UTF-8?q?=20contratos=20a=20dropdownlost?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx    |  2 +-
 OC/OC.aspx.vb | 23 ++++++++++++-----------
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index fd95b1c4d..b4968ba52 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -2545,7 +2545,7 @@
                                     <div class="row">
                                         <label class="col-md-1 ">Clientes:</label>
                                         <div class="col-md-11">
-                                            <asp:DropDownList ID="DdlClientes" CssClass="form-control  select2me" runat="server" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente"></asp:DropDownList>
+                                             <ADS:Dropdownlost ID="DdlClienteContrato" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                                         </div>
                                     </div>
                                     <div class="row">
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 5d6ca8ded..95c8204f9 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -677,7 +677,7 @@ Partial Class OC
                     TipoOS = True
                 End If
 
-                BtnGeneraContrato.Visible = True : CargaClientes()
+                BtnGeneraContrato.Visible = True : CargaClientesContrato()
 
                 CargaEstatusInicialFinal()
                 CargaEstatusUsuarios()
@@ -6770,7 +6770,7 @@ Partial Class OC
         BtnSolicitudAnticipo.Visible = False
         HlAgregarExcel.Visible = True
         LbDescargarExcel.Visible = True
-        BtnGeneraContrato.Visible = True : CargaClientes()
+        BtnGeneraContrato.Visible = True : CargaClientesContrato()
 
         LbVerificarExistencia.Visible = True
         LnkAgregarGuia.Visible = False
@@ -7387,10 +7387,11 @@ Partial Class OC
 
 #Region "CONTRATOS"
 
-    Private Sub CargaClientes()
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.DataBind()
-        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    Private Sub CargaClientesContrato()
+        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlClientes.DataBind()
+        'DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlClienteContrato
     End Sub
 
     Private Sub CargaContratos()
@@ -7403,20 +7404,20 @@ Partial Class OC
         UpContrato.Update()
     End Sub
 
-    Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.SelectedIndexChanged
+    Private Sub DdlClienteContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteContrato.selectedindexchange
         DdlContratos.Items.Clear()
         ' DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
         Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, 1) Then
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClienteContrato.SelectedValue.ToEntero, -1, 1) Then
             If ObjContratos.DtResultados.FiltraParametros("Estatus = True").Rows.Count > 0 Then
 
                 DdlContratos.DataSource = ObjContratos.DtResultados.FiltraParametros($"Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
-                DdlContratos.DataBind()
 
             End If
         End If
-
+        ObjContratos.Dispose()
+        DdlContratos.DataBind()
 
 
         DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7492,7 +7493,7 @@ Partial Class OC
             End If
         Next
         TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString)
-        Ddlcliente.txtValue.Value = DdlClientes.SelectedValue
+        Ddlcliente.txtValue.Value = DdlClienteContrato.SelectedValue
 
         CargaSuperior()
         CargaDatosDetalles()