0号台账，计量汇总列，可否编辑情况

DataModules/BillsCompileDm.pas

@@ -371,7 +371,7 @@ begin
   end
   else if SameText(AValue.FieldName, 'IsGatherZJJL') then
   begin
-    Allow := TProjectData(FProjectData).CanUnlockInfo;
+    Allow := (TProjectData(FProjectData).ProjProperties.PhaseCount = 0) or TProjectData(FProjectData).CanUnlockInfo;
     if Allow then
     begin  
       vNode := TBillsIDTreeNode(BillsCompileTree.FindNode(AValue.Owner.ValueByName('ID').AsInteger));