FireDAC Async Fehler in der "Oberfläche" ?

[haentschman]

Zitat:

Der Fehler tritt auf, wenn du den Rechnungsempfänger wechselst und dann zu schnell den Tab anwählst?

...ja.

Zitat:

In den Fall wäre es interessant zu wissen, was alles beim Tab-Wechsel passiert.

...eigentlich uninterressante Sachen.

Delphi-Quellcode:

procedure TfoReceipt.dxLayoutGroup1TabChanging(Sender: TObject; ANewTabIndex: Integer; var Allow: Boolean); // Wechsel Tab ->(2)
begin
  if (Datamodule.Kopf.State = dsEdit) or (Datamodule.Kopf.State = dsInsert) then 
  begin
    Datamodule.Kopf.Post;
  end;
  if (Datamodule.Pos.State = dsEdit) or (Datamodule.Pos.State = dsInsert) then
  begin
    Datamodule.Pos.Post;
  end;
  StyleEditReceiptNumber(False);
end;
..
procedure TfoReceipt.StyleEditReceiptNumber(State: Boolean);
begin
  if State then
  begin
    cxDBTextEdit49.StyleReadOnly.Color := $00CD5151;
  end
  else
  begin
    cxDBTextEdit49.StyleReadOnly.Color := clBtnFace;
  end;
end;

Die einzige Verbindung der Datenmenge der Vorgabeartikel, ist die Verbindung über das Repository der Spalte "Artikelnummer" der Datenmenge Datamodule.Pos in der Ansicht Positionen (2)