From 69f85aaa9657047712bf473be4ee0f9d38a760b6 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 5 Dec 2018 14:14:38 +0000
Subject: [PATCH] * Fix from Wagner Landgraf to fix missing data events

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

diff --git a/packages/fcl-db/jsondataset.pas b/packages/fcl-db/jsondataset.pas
index db3bd9c..c0e456f 100644
--- a/packages/fcl-db/jsondataset.pas
+++ b/packages/fcl-db/jsondataset.pas
@@ -807,6 +807,10 @@ begin
   else
     R:=FEditRow;
   FFieldMapper.SetJSONDataForField(Field,R,AValue);
+  
+  if not(State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then
+    DataEvent(deFieldChange, Field);
+
   SetModified(True);
 //  FFieldMapper.SetJSONDataForField(Field,Buffer.Data,AValue);
 end;