tengo el
DBGbusqAlma 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.. en teoria deberia posicionarse en el
DBGbusqAlma sin embargo no sucede, se muestra la tabla con los articulos pero no se muestra posicionado en el
DBgBusqAlma.
Código Delphi
[-]procedure TAltasdealmacen.edtBusqArtChange(Sender: TObject);
var
cadenaAbuscar: String;
begin
cadenaAbuscar:=edtBusqArt.Text;
if (cmbBusqArti.ItemIndex=0)and(CadenaAbuscar<>'') and (not TryStrToInt(cadenaAbuscar,codarticulo)) then
begin
ShowMessage('En el campo de Codigo solo puede escribir numeros, ponga cuidado por favor');
edtBusqArt.SetFocus;
exit;
end;
end;
procedure TAltasdealmacen.cmbBusqArtiChange(Sender: TObject);
begin
case cmbBusqArti.ItemIndex of
0:begin
edtBusqArt.MaxLength:=0;
end;
1:begin
edtBusqArt.MaxLength:=50;
LogicaNegocio.CDSBusqAlma.IndexFieldNames:='DESCRIPCION';
DBBusqAlma.Visible:=true; edtBusqArt.Text:='';
edtBusqArt.SetFocus;
end;
end;
end;
En teoria deberia mostrar el registro al encontrarlo pero no lo hace... alguien sabe por que.. muchas gracias.. de hecho ya verifique con una variable boolean para saber el resultado del locate, y si lo halla, el problema es que no se posiciona en el
DBgBusqAlma