se cambió combo de clientes de contratos a dropdownlost

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()