fcl-db: sdf: fix for TTestCursorDBBasics.TestUpdateCursorPos

git-svn-id: trunk@39023 -

packages/fcl-db/src/sdf/sdfdata.pp

@@ -562,12 +562,13 @@ function TFixedFormatDataSet.GetRecNo: Longint;
 var
   RecBuf: TRecordBuffer;
 begin
-  Result := 0;
   if GetActiveRecBuf(RecBuf) and (State <> dsInsert) then
   begin
-    InternalSetToRecord(RecBuf);
+    UpdateCursorPos;
     Result := FCurRec + 1 - FDataOffset;
-  end;
+  end
+  else
+    Result := 0;
 end;
 
 procedure TFixedFormatDataSet.SetRecNo(Value: Integer);