未开始计量前，计量台账窗口插入的新清单，不属变更清单

DataModules/BillsMeasureDm.pas

@@ -166,7 +166,8 @@ end;
 procedure TBillsMeasureData.sdvBillsMeasureAfterAddRecord(
   ARecord: TsdDataRecord);
 begin
-  ARecord.ValueByName('IsMeasureAdd').AsBoolean := True;
+  if TProjectData(FProjectData).PhaseData.Active then
+    ARecord.ValueByName('IsMeasureAdd').AsBoolean := True;
 end;
 
 procedure TBillsMeasureData.sdvBillsMeasureGetText(var Text: String;