Fix for create date gets lost

artem78 · Jun 26, 2022 · 973fd3d · 973fd3d
1 parent e0df512
commit 973fd3d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/nonvisualctrlsdm.pas b/nonvisualctrlsdm.pas
@@ -238,6 +238,8 @@ procedure TNonVisualCtrlsDataModule.EditTaskActionExecute(Sender: TObject);
     Edit;
     if TaskEditForm.ShowModal = mrOK then
     begin
+      FieldByName('created').AsDateTime :=
+          TTask.GetById(FieldByName('id').AsInteger).Created; // Fix for date gets lost
       FieldByName('modified').AsDateTime := Now;
       Post;
       ApplyUpdates;