FireDAC Fehler?

[haentschman]

Hallöle...

Fällt euch zu diesem Fehler was ein?

Zitat:

exception message : [FireDAC][DatS]-11. Zeile befindet sich nicht im Bearbeitungsstatus.

main thread ($ed0):
00b14ad5 +119 SEAM.exe FireDAC.Stan.Error FDException
02d22e93 +02f SEAM.exe DMEdit 7829 +3 TDMED.SetDateName
00dc6ccf +0df SEAM.exe cxDBData 2452 +18 TcxDBDataProvider.Delete
00a6fb53 +03f SEAM.exe cxCustomData 8474 +4 TcxCustomDataController.DeleteFocusedRecord
00a6974d +0cd SEAM.exe cxCustomData 5371 +17 TcxCustomDataController.DeleteFocused
01193043 +123 SEAM.exe cxGridCustomTableView 22336 +14 TcxCustomGridTableController.DeleteSelection
01175e49 +18d SEAM.exe cxGridCustomTableView 9828 +25 TcxCustomGridTableView.NavigatorDoAction
00e5dd89 +08d SEAM.exe cxNavigator 2958 +5 TcxNavigatorControlButtons.DoButtonClick
00e58fcf +063 SEAM.exe cxNavigator 939 +9 TcxNavigatorButton.DoClick
00e5ba55 +0f1 SEAM.exe cxNavigator 2001 +14 TcxNavigatorViewInfo.MouseUp
011893bc +030 SEAM.exe cxGridCustomTableView 18119 +2 TcxNavigatorSiteViewInfo.MouseUp
00eaaa26 +04e SEAM.exe cxGridCustomView 4245 +4 TcxCustomGridController.MouseUp
011922b3 +023 SEAM.exe cxGridCustomTableView 21960 +1 TcxCustomGridTableController.MouseUp
01207ead +031 SEAM.exe cxGridTableView 8965 +2 TcxGridTableController.MouseUp
00ead513 +0e3 SEAM.exe cxGridCustomView 5359 +17 TcxGridSite.MouseUp
0096b518 +1a0 SEAM.exe cxControls 8368 +21 TcxControl.WndProc
00ead7c2 +03a SEAM.exe cxGridCustomView 5424 +3 TcxGridSite.WndProc
02d93c91 +d59 SEAM.exe SEAM 328 +217 initialization

...und der Quelltext dazu:

Delphi-Quellcode:

procedure TDMED.SetDateName(DataSet: TDataSet);
begin
  if DataSet.State = dsEdit then // !!!!!
  begin
    DataSet.FieldByName('ixRecName').AsString := USER_KN; // Zeile 7829 ist die hier
    DataSet.FieldByName('RecDate').AsDateTime := Now;
  end;

  if DataSet.State = dsInsert then
  begin
    DataSet.FieldByName('ixAddName').AsString := USER_KN;
    DataSet.FieldByName('AddDate').AsDateTime := Now;
  end;
end;

Hä wie jetzt?