* Raise exception when .locate is called on inactive TBufDataset, bug #13938 + test

git-svn-id: trunk@15231 -

packages/fcl-db/src/base/bufdataset.pas

@@ -2772,6 +2772,7 @@ var CurrLinkItem    : PBufRecLinkItem;
 
 begin
   Result := False;
+  CheckActive;
   if IsEmpty then exit;
 
   // Build the DBCompare structure

packages/fcl-db/tests/testdbbasics.pas

@@ -115,6 +115,7 @@ type
     procedure TestRecNo;                   // bug 5061
     procedure TestSetRecNo;                // bug 6919
     procedure TestRequired;
+    procedure TestExceptionLocateClosed;    // bug 13938
     procedure TestCanModifySpecialFields;
   end;
 
@@ -496,6 +497,23 @@ begin
     end;
 end;
 
+procedure TTestDBBasics.TestExceptionLocateClosed;
+var passed: boolean;
+begin
+  with DBConnector.GetNDataset(15) do
+    begin
+    passed := false;
+    try
+      locate('name','TestName1',[]);
+    except on E: Exception do
+      begin
+      passed := E.classname = EDatabaseError.className
+      end;
+    end;
+    AssertTrue(passed);
+    end;
+end;
+
 
 procedure TTestDBBasics.SetUp;
 begin