* Check browse mode before setting recno

packages/fcl-db/jsondataset.pas

@@ -1747,10 +1747,12 @@ end;
 
 procedure TBaseJSONDataSet.SetRecNo(Value: Integer);
 begin
+  CheckBrowseMode;
+  DoBeforeScroll;
   if (Value < 1) or (Value > FCurrentIndex.Count) then
     raise EJSONDataset.CreateFmt('%s: SetRecNo: index %d out of range',[Name,Value]);
   FCurrent := Value - 1;
-  Resync([]); 
+  Resync([]);
   DoAfterScroll;
 end;