Im Code unten wird das Pagecontrol pcAuftrag auf die Seite 'SeitePosition' geschickt.
Ich habe erwartet, dass dies mit diesem Befehl unverzüglich passiert. Dennoch sehe ich im Tracemode, dass die aktive Seite bis zum Ende der Prozedur erhalten bleibt.
Code: Alles auswählen
if ExecInsertSQL(dtmBasis.qrySQL, Suchtext, LastRec) then
begin
pcAuftrag.ActivePage := SeitePosition;
Suchtext := 'Select * from AuftragsPositionen where idauftragsposition = ' + IntToStr(LastRec);
OpenSQLSet(qryPosition, Suchtext);
DoCalc;
Suchtext := 'fk_auftrag=' + qryAuftragsListe.FieldByName('idauftrag').AsString;
if FindRecords('AuftragsPositionen', 'idauftragsposition', Suchtext, C, False) then
SeitePositionsListe.Caption := 'Auftragsposition (' + C + ')';
if IDArtikel = 0 then
dbeArtikelnummer.SetFocus
else
if IDPreis = 0 then
dbeZeit.SetFocus
else
dbeMenge.SetFocus;
end;