Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

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

AW: Ungültiges Quell-Array bei Zuweisung string zu Query.FieldByName

  Alt 16. Jun 2022, 11:19
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.
  Mit Zitat antworten Zitat