From 734aa62d364c0f59f55de5bc2e723703f4f245e3 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sat, 7 May 2005 14:41:00 +0000
Subject: [PATCH] - check for editable state in SetFieldData

---
 fcl/db/bufdataset.inc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/fcl/db/bufdataset.inc b/fcl/db/bufdataset.inc
index 6af715ff9d..4a41a48132 100644
--- a/fcl/db/bufdataset.inc
+++ b/fcl/db/bufdataset.inc
@@ -421,6 +421,11 @@ var
   FieldUpdBuf : PFieldUpdateBuffer;
 
 begin
+  if not (state in [dsEdit, dsInsert]) then
+    begin
+    DatabaseErrorFmt(SNotInEditState,[NAme],self);
+    exit;
+    end;
   If Field.Fieldno > 0 then // If = 0, then calculated field or something
     begin
     CurrBuff := ActiveBuffer;