hola que tal amigos, tengo una duda hice una form de busqueda de un articulo e hice un filtro cuando yo escribo lo que quiero buscar si me lo encuentra pero cuando le doy aceptar no me arroja ese articulo a la pantalla anterior osea pantalla maestro porque sera, mando mi codigo haber si alguien me ayuda gracias
Código Delphi
[-]
procedure TFbusart.Edit1Change(Sender: TObject);
Var Filtro : string;
begin
if (edit1.Text <> '') then
begin
ATArticulos.Filtered := false;
if cbfiltro.Text = 'codigo' then filtro := 'cveart like '''+edit1.Text + '*'''
else if cbfiltro.Text = 'Descripcion' then filtro := 'descripcion like '''+ edit1.Text + '*'''
else if cbfiltro.Text = 'Linea' then filtro := 'linea like '''+ edit1.Text+ '*''';
ATArticulos.Filter := Filtro;
ATArticulos.Filtered := True
end
else ATArticulos.Filtered := false;
end;
procedure TFbusart.FormCreate(Sender: TObject);
begin
ATarticulos.Open
end;
procedure TFbusart.FormDestroy(Sender: TObject);
begin
ATArticulos.Close
end;
procedure TFbusart.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_down then
dbgrid1.SetFocus;
end;
procedure TFbusart.btnaceptarClick(Sender: TObject);
begin
cveart:= ATArticuloscveart.AsString
end;
procedure TFbusart.btncancelaClick(Sender: TObject);
begin
cveart := '';
close;
end;
procedure TFbusart.DBGrid1DblClick(Sender: TObject);
begin
Btnaceptarclick(dbgrid1);
end;
end.