From 75c570f2b234dcf38a8819c40fd713c41552dbe7 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 19 Mar 2018 13:33:16 +0000
Subject: [PATCH] * Fix Modified setting

---
 packages/fcl-db/jsondataset.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-db/jsondataset.pas b/packages/fcl-db/jsondataset.pas
index e035a41..c516d6d 100644
--- a/packages/fcl-db/jsondataset.pas
+++ b/packages/fcl-db/jsondataset.pas
@@ -782,6 +782,7 @@ procedure TBaseJSONDataSet.SetFieldData(Field: TField; var Buffer: TDatarecord;
 
 begin
   FFieldMapper.SetJSONDataForField(Field,FEditRow,AValue);
+  SetModified(True);
 //  FFieldMapper.SetJSONDataForField(Field,Buffer.Data,AValue);
 end;