Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.316 Beiträge
 
Delphi 12 Athens
 
#12

AW: DevExpress: "AutoSearch" funktioniert nach Änderung vom Repository nicht mehr

  Alt 14. Mai 2024, 07:25
Moin...

Update:
Heureka...ich habs.

Ich der Spalte "F1" (unsichtbar) eingeben, View geht auf, Markierung steht da wo sie sein soll...siehen Bild.

Problem:
Im Original wurde die Datenmenge immer wieder neu erzeugt. Nun habe die Datenmenge (DataSet) nur einmal erzeugt. Im OnPopup wird nur das SQL getauscht.
Delphi-Quellcode:
procedure TdmRepositories.rpiArticlePropertiesInitPopup(Sender: TObject); //umbenannt
begin
  DMLUP.LoadArticle;
  TToolsDevExpress.ExpandLevel(TcxGridTableView(rpiArticle.Properties.View), 0, True);
end;
...
procedure TDMLUP.LoadArticle;
begin
  if not Assigned(dsReproPart.DataSet) then
  begin
    dsReproPart.DataSet := FDatabase.CreateQuery;
  end;
  FDatabase.FilllDataSetRepositoryPart(TFDQuery(dsReproPart.DataSet), FArticleFavorite, FReceiptAddress);
end;
...
procedure TDatabase.FilllDataSetRepositoryPart(Qry: TFDQuery; Favorite: Boolean; ReceiptAddress: string);
begin
  Qry.SQL.Text := GetSQLByName('REPO_CHOICE_ARTICLE_ALL');
  Qry.ParamByName('ADR').AsString := ReceiptAddress;
  if Favorite then
  begin
    Qry.SQL.Add(GetSQLByName('REPO_CHOICE_ARTICLE_FAVORITE'));
  end;
  Qry.SQL.Add(GetSQLByName('REPO_CHOICE_ARTICLE_WHERE'));
  Qry.SQL.Add(GetSQLByName('REPO_CHOICE_ARTICLE_ORDER'));
  Qry.ParamByName('UID').AsInteger := FPreferences.CurrentUser.ID;
  Qry.Open;
end;
...Danke fürs Zuhören.
Miniaturansicht angehängter Grafiken
pos.png  

Geändert von haentschman (14. Mai 2024 um 07:27 Uhr)
  Mit Zitat antworten Zitat