Ver Mensaje Individual
  #10  
Antiguo 13-05-2015
alexglez1255 alexglez1255 is offline
Miembro
NULL
 
Registrado: jul 2013
Posts: 86
Reputación: 11
alexglez1255 Va por buen camino
pregunta que no entiendo por que

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;  // Aqui muestro el DBGrid
        edtBusqArt.Text:='';
        edtBusqArt.SetFocus;
      end;
  end; //case

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

Última edición por ecfisa fecha: 13-05-2015 a las 08:14:12. Razón: Organizar etiquetas
Responder Con Cita