部颁12表，汇总未打开的项目，报错

Forms/MainFrm.pas

@@ -540,8 +540,10 @@ begin
     dxBarManager.Bars[2].Visible := False;
 end;
 
-procedure TMainForm.actnReplyExecute(Sender: TObject);
+procedure TMainForm.actnReplyExecute(Sender: TObject); // Åú¸´
 begin
+  if not CurProjectFrame.CheckCanReport then Exit;
+
   Screen.Cursor := crHourGlass;
   try
     CurProjectFrame.ProjectData.Save;

Units/ProjectData.pas

@@ -109,7 +109,7 @@ type
     {SimpleOpen: 仅打开数据库[项目+最后一期]，不打开除属性以外的任何数据表（项目属性都是通过Sql语句修改）}
     procedure SimpleOpen(const AFileName: string);
     procedure SimpleSaveAs(const AFileName: string);
-    {OpenForReport: BillsData, BillsCompileData, DealPaymentData 报表仅读取数据不做任何修改}
+    {OpenForReport: BillsData, BillsCompileData, DealPaymentData, BGLData 报表仅读取数据不做任何修改}
     procedure OpenForReport(const AFileName: string);
     {OpenForReport2: OpenForReport的基础上打开最后一期数据}
     procedure OpenForReport2(const AFileName: string);
@@ -1242,6 +1242,7 @@ begin
   FBillsData.Open(FConnection.Connection);
   FBillsCompileData.Open;
   FDealPaymentData.Open(FConnection.Connection);
+  FBGLData.Open(FConnection.Connection);  
 end;
 
 procedure TProjectData.OpenForReply(const AFileName: string);
@@ -1474,6 +1475,7 @@ begin
   FBillsData.Open(FConnection.Connection);
   FBillsCompileData.Open;
   FDealPaymentData.Open(FConnection.Connection);
+  FBGLData.Open(FConnection.Connection);
   if ProjProperties.PhaseCount > 0 then
   begin
     FPhaseIndex := ProjProperties.PhaseCount;