Pārlūkot izejas kodu

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

MaiXinRong 9 gadi atpakaļ
vecāks
revīzija
a5d1881642
1 mainītis faili ar 2 papildinājumiem un 1 dzēšanām
  1. 2 1
      DataModules/BillsMeasureDm.pas

+ 2 - 1
DataModules/BillsMeasureDm.pas

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