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

[BerndS]

wäre es nicht so noch besser?

Delphi-Quellcode:

procedure TDMED.FDQVorgangAssignmentNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('idBelKopf').AsString := DMED.FDQAssignment.FieldByName('idBelKopf').AsString;
  DataSet.FieldByName('ixUserVon').AsString := FPreferences.CurrentUser.UserNameShort;
  DataSet.FieldByName('ErfasstAm').AsDateTime := Now();
  DataSet.FieldByName('ixSPAdr').AsString := DMED.FDQAssignment.FieldByName('ixSPAdr').AsString;
end;

[himitsu]

Jupp, einmal das falsche DataSet,
dann gibt es das "richtige" auch direkt als Parameter

und DMED ........... NIEMALS nicht aus einer Form/Objekt-Methode auf die globale Varaible zu dieser Form/Objekt zugreifen ... wenn man eine Variable braucht, dann nimmt man hier das Self.

Delphi-Quellcode:

procedure TDMED.FDQVorgangAssignmentNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('idBelKopf').AsString := FDQAssignment.FieldByName('idBelKopf').AsString;
  DataSet.FieldByName('ixUserVon').AsString := FPreferences.CurrentUser.UserNameShort;
  DataSet.FieldByName('ErfasstAm').AsDateTime := Now;
  DataSet.FieldByName('ixSPAdr').AsString := FDQAssignment.FieldByName('ixSPAdr').AsString;
end;

Beim "ErfasstAm" könnte man sich eventuell noch streiten, ob es dann ist, wo man anfing, mit Einfügen, oder dann wenn man fertig war,
also ob das nicht besser erst im OnBeforePost aufgehoben ist, anstatt im OnAfterInsert ... bzw. in einem Trigger in der DB (und das "ixUserVon" auch, falls es z.B. dem LoginName für DBConnection entspricht)

[haentschman]

Ich oute mich mal...
Bei der Umstellung war das noch der alte Code. Da ist nur das DataSet gewechselt worden. Vorgang->VorgangAssignment. In dieser Stuation habe ich nicht darüber nachgedacht.

Das habe ich gleich mal überall geändert.

Delphi-Quellcode:

procedure TDMED.FDQVorgangAssignmentNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('idBelKopf').AsString := FDQAssignment.FieldByName('idBelKopf').AsString;
  DataSet.FieldByName('ixUserVon').AsString := FPreferences.CurrentUser.UserNameShort;
  DataSet.FieldByName('ErfasstAm').AsDateTime := Now;
  DataSet.FieldByName('ixSPAdr').AsString := FDQAssignment.FieldByName('ixSPAdr').AsString;
end;