计量台账，未计量、切换非当前审核人、切换至往期、最新一期已批复，均应灰选

Frames/BillsMeasureFme.dfm

@@ -1133,6 +1133,7 @@ object BillsMeasureFrame: TBillsMeasureFrame
       Caption = #20840#37096#35745#31639
       ImageIndex = 15
       OnExecute = actnCalculateAllExecute
+      OnUpdate = actnCalculateAllUpdate
     end
     object actnExportGridToExcel: TAction
       Caption = #23548#20986#34920#26684#25968#25454

Frames/BillsMeasureFme.pas

@@ -60,6 +60,7 @@ type
     procedure actnCancelHiddenColExecute(Sender: TObject);
     procedure actnLocateZJJLExecute(Sender: TObject);
     procedure actnLocateZJJLUpdate(Sender: TObject);
+    procedure actnCalculateAllUpdate(Sender: TObject);
   private
     FBillsMeasureData: TBillsMeasureData;
     FShowPriceChange: Boolean;
@@ -803,4 +804,10 @@ begin
   FColVisibleManager.ShowIsGather(FShowIsGather);
 end;
 
+procedure TBillsMeasureFrame.actnCalculateAllUpdate(Sender: TObject);
+begin
+  with TProjectData(FBillsMeasureData.ProjectData) do
+  TAction(Sender).Enabled := PhaseData.Active and not PhaseData.StageDataReadOnly;
+end;
+
 end.