dropdownlost de clientes

Contratos/RepContratosObraAvances.aspx

@@ -70,8 +70,8 @@
                                 <div class="col-md-1">
                                     Cliente:
                                 </div>
-                                <div class="col-md-1">
+                                <div class="col-md-3">
-                                    <asp:DropDownList ID="DdlCliente" runat="server"   DataTextField="NombreComercial" DataValueField="CveCliente" Class="select2me" Width="100PX"   ></asp:DropDownList>
+                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="100%" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                                 </div>
 
                                 <div class="col-md-1">

Contratos/RepContratosObraAvances.aspx.vb

@@ -19,12 +19,15 @@ Partial Class RepContratosObraAvances
 
     Private Sub CargaDatos()
 
+        Dim CveCliente As Integer = -1
         Dim Con As New ClsContratos
-        Dim DTDatos As New DataTable
+        If DdlCliente.SelectedValue.ToEntero > 0 Then CveCliente = DdlCliente.SelectedValue.ToEntero
 
-        If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, CveCliente, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GVDatos.DataSource = Con.DtResultados
-            DTDatos = Con.DtResultados
+            If Con.DtResultados.Rows.Count > 0 Then
+                Indicadores(Con.DtResultados)
+            End If
         Else
             GVDatos.DataSource = Nothing
         End If
@@ -35,9 +38,7 @@ Partial Class RepContratosObraAvances
         UpDatos.Update()
 
 
-        If DTDatos.Rows.Count > 0 Then
+
-            Indicadores(DTDatos)
-        End If
 
     End Sub
 
@@ -85,15 +86,15 @@ Partial Class RepContratosObraAvances
     End Sub
 
     Private Sub CargaClientes()
-        Dim dt As DataTable = Nothing
+        'Dim dt As DataTable = Nothing
-        Dim Cli As New ClsClientes
+        'Dim Cli As New ClsClientes
-        If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+        'If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            dt = Cli.DtResultados
+        '    dt = Cli.DtResultados
-        End If
+        'End If
-        Cli.Dispose()
+        'Cli.Dispose()
-        DdlCliente.DataSource = dt
+        'DdlCliente.DataSource = dt
-        DdlCliente.DataBind()
+        'DdlCliente.DataBind()
-        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
 #End Region