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)