TdbGrig con busqueda avanzada

[ecfisa]

Hola de nuevo.

Empezado por alexglez1255

...el cual solo es un listado de la tabla de articulos de almacen con dos campos Codigo y Descripcion, y al ir insertando el dato a buscar pongo la orden para que busque lo que se esta tecleando...

¿ Buscas que se posicione en la fila con el valor mas cercano al ingresado y que se mantengan visibles las demás filas del TClientDataSet ?

Si es así, podrías hacer:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ...

  with ClientDataSet1 do
  begin
    IndexFieldNames := 'COD_ARTICULO;DESCRIPCION';
    Open;
  end;

  with ComboBox1 do
  begin
    Style := csDropDownList;
    ItemIndex := 0;
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with TComboBox(Sender) do
    if ItemIndex = 0 then
      ClientDataSet1.IndexFieldNames := 'COD_ARTICULO'
    else
      ClientDataset1.IndexFieldNames  := 'DESCRIPCION';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  with ClientDataSet1 do
  begin
    SetKey;
    if ComboBox1.ItemIndex = 0 then
      FieldByName('COD_ARTICULO').AsString:= TEdit(Sender).Text
    else
      FieldByName('DESCRIPCION').AsString:= TEdit(Sender).Text;
    GotoNearest;
  end;
end;

Saludos

[alexglez1255]

jajajajaja Gracias Ecfisa, te agradesco mucho tu ayuda, me fruste un poco cuando vi mi desastre con las etiquetas, y hasta despues vi cual habia sido mi error.
En cuanto a mi pregunta lo unico que deberia hacer este codigo es que cada ves en el evento change pongo que busque el registro de lo que ya se escribio y me lo muestre en el dbGBusqAlma... no me da error pero no lo hace...me explico.?

[alexglez1255]

Empezado por alexglez1255

jajajajaja Gracias Ecfisa, te agradesco mucho tu ayuda, me fruste un poco cuando vi mi desastre con las etiquetas, y hasta despues vi cual habia sido mi error.
En cuanto a mi pregunta lo unico que deberia hacer este codigo es que cada ves en el evento change pongo que busque el registro de lo que ya se escribio y me lo muestre en el dbGBusqAlma... no me da error pero no lo hace...me explico.?

hice una revision mas exahustiva linea por linea la siguiente linea no me ubica el dato parcial, no se por que ...

Código Delphi [-]
LogicaNegocio.CDSBusqAlma.Locate('DESCRIPCION',edtBusqArt.Text,[loPartialKey])

alguna observacion..?

[alexglez1255]

Gracias ya halle el error, gracias a mi Dios Jehova, que me ayudo...lo que pasa que en el ibquery puse que ordenara por la descripcion y funciono...

[alexglez1255]

Perdon y tambien gracias a ustedes por su ayuda...una pregunta despues de que hallo el codigo hago un param...

Código Delphi [-]
     DBBusqAlma.Visible:=False;
        edtBusqArt.Text:=IntToStr(CDSBusqAlmaCOD_ARTICULO.Value);
         CDSAlma.Close;
         CDSAlma.Params.ParamByName('COD_ARTICULO').AsString:=edtBusqArt.Text;
         CDSAlma.Open;
         cdsalma.DisableControls;

todo esta bien solo que no muestra los datos hallados hasta que doy click en cada uno de los campos, aunque le de un refresh al Clientdatase.. alguna orden para que me los muestre en el CDS o en l DATA SOURCE ,...gracias