Преглед изворни кода

* Do not clear fields, master-detail may reopen dataset

git-svn-id: trunk@38800 -
michael пре 7 година
родитељ
комит
88c1145498
1 измењених фајлова са 4 додато и 0 уклоњено
  1. 4 0
      packages/fcl-report/src/fpreportdatasqldb.pp

+ 4 - 0
packages/fcl-report/src/fpreportdatasqldb.pp

@@ -263,6 +263,7 @@ class function TFPReportConnector.CreateConnection(aConfig: TJSONObject): TFPRep
 begin
   Result:=Self.Create(Nil);
   Result.LoadFromConfig(aConfig);
+  Result.LogEvents:=LogAllEventsExtra;
   Result.Transaction:=TFPReportSQLtransaction.Create(Result);
 end;
 
@@ -307,6 +308,9 @@ begin
   Result:=TFPReportQuery.Create(aOwner);
   Result.Database:=C;
   Result.SQL.Text:=aConfig.get(keySQL,'');
+//  Result.UniDirectional:=True;
+  Result.PacketRecords:=-1;
+  Result.UsePrimaryKeyAsKey:=False;
   Inc(C.FRefCount);
 end;