-

Inventarios/RepFletes.aspx.vb

@@ -24,12 +24,18 @@ Partial Class Compras_RepFletes
     End Sub
 
     Private Sub InicializaValores()
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Seleccione"
+        DdlProveedores.SelectedValue = "-1"
+        DdlProveedores.ddl.AutoPostBack = True
+
         TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
         TxtFechaF.Text = Date.Now.ToShortDateString
 
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataBind()
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
 
@@ -40,7 +46,7 @@ Partial Class Compras_RepFletes
     Private Sub CargaDatos()
         Dim ObjInv As New ClsInventarios
         If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
-        If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1,
+        If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedores.SelectedValue.ToString.ToEntero, -1, -1,
                                TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
             DtFletes = ObjInv.DtResultados
         End If