Código Delphi [-] procedure TFrmSolicitudVta.qryVentaOnExit(Sender: TObject); begin if Edit2.Text <> '' then qryVenta.Locate('IDEMPLEADO',Edit2.Text,[loCaseInsensitive,loPartialKey]); end;
procedure TFrmSolicitudVta.qryVentaOnExit(Sender: TObject); begin if Edit2.Text <> '' then qryVenta.Locate('IDEMPLEADO',Edit2.Text,[loCaseInsensitive,loPartialKey]); end;