procedure TFbusart.Edit1Change(Sender: TObject);
Var Filtro : string;
begin
if (edit1.Text <> '') then
begin
ATArticulos.Filtered := false;
if cbfiltro.Text = 'codigo' then begin
filtro := 'cveart like '''+edit1.Text + '*''';
ATArticulos.Filter := Filtro;
ATArticulos.Filtered := True;
end;
if cbfiltro.Text = 'Descripcion' then begin
filtro := 'descripcion like '''+ edit1.Text + '*''';
ATArticulos.Filter := Filtro;
ATArticulos.Filtered := True;
end;
if cbfiltro.Text = 'Linea' then begin
filtro := 'linea like '''+ edit1.Text+ '*''';
ATArticulos.Filter := Filtro;
ATArticulos.Filtered := True;
end;
end
else ATArticulos.Filtered := false;
Close;
end;