فهرست منبع

* Patch from Pascal Riekenberg to fix running a report twice. (Bug ID 36592)

git-svn-id: trunk@43954 -
michael 6 سال پیش
والد
کامیت
b938a9654e
1فایلهای تغییر یافته به همراه1 افزوده شده و 0 حذف شده
  1. 1 0
      packages/fcl-report/src/fpreport.pp

+ 1 - 0
packages/fcl-report/src/fpreport.pp

@@ -8959,6 +8959,7 @@ end;
 procedure TFPCustomReport.RunReport;
 begin
   DoBeginReport;
+  ClearPreparedReport;
   StartLayout;
   CollectReportData;
   Validate;