Moin...
...das der Quelltext in Ordnung sei, ist nicht ganz richtig. Aber ihr konntet es nicht wissen...
Fällt Euch was auf?
Delphi-Quellcode:
procedure TDMED.FDQVorgangAssignmentNewRecord(DataSet: TDataSet);
begin
DMED.FDQVorgangAssignment.FieldByName('idBelKopf').AsString := DMED.FDQAssignment.FieldByName('idBelKopf').AsString;
DMED.FDQVorgang.FieldByName('ixUserVon').AsString := FPreferences.CurrentUser.UserNameShort;
DMED.FDQVorgang.FieldByName('ErfasstAm').AsDateTime := Now();
DMED.FDQVorgang.FieldByName('ixSPAdr').AsString := DMED.FDQAssignment.FieldByName('ixSPAdr').AsString;
end;
...so muß es sein:
Delphi-Quellcode:
procedure TDMED.FDQVorgangAssignmentNewRecord(DataSet: TDataSet);
begin
DMED.FDQVorgangAssignment.FieldByName('idBelKopf').AsString := DMED.FDQAssignment.FieldByName('idBelKopf').AsString;
DMED.FDQVorgangAssignment.FieldByName('ixUserVon').AsString := FPreferences.CurrentUser.UserNameShort;
DMED.FDQVorgangAssignment.FieldByName('ErfasstAm').AsDateTime := Now();
DMED.FDQVorgangAssignment.FieldByName('ixSPAdr').AsString := DMED.FDQAssignment.FieldByName('ixSPAdr').AsString;
end;
...vorher schreibe ich in eine andere Datenmenge.
Das ist mit der Trennung der Datenmenge passiert...
Danke für die Teilnahme...
Sollte nochwas sein, melde ich mich.
ja, ja, ja... mit UnitTests wäre das nicht passiert.