Report Manager

--- rpbasereport.pas 27 Dec 2006 11:23:59 -0000 1.1.1.1
+++ rpbasereport.pas 27 Dec 2006 13:42:58 -0000
@@ -1731,9 +1731,13 @@
begin
Result:=Null;

adataset:=databaseinfo.ItemByName(connectionname).OpenDatasetFromSQL(sql,ni
l,false,params);
- if Not adataset.Eof then
- begin
- Result:=adataset.Fields[0].AsVariant;
+ try
+ if Not adataset.Eof then
+ begin
+ Result:=adataset.Fields[0].AsVariant;
+ end;
+ finally
+ adataset.Free;
end;
end;