计量台账，修改清单编号、名称、单位前判断是否进行过数量变更

DataModules/BillsMeasureDm.pas

@@ -288,9 +288,18 @@ procedure TBillsMeasureData.sdvBillsMeasureSetText(var Text: String;
     vNode := BillsMeasureTree.FindNode(GetBillsID);
     iCreatePhase := vNode.Rec.ValueByName('CreatePhaseID').AsInteger;
 
+    if SameText('B_Code', AColumn.FieldName) or
+        SameText('Name', AColumn.FieldName) or
+        SameText('Units', AColumn.FieldName) then
+      if vNode.Rec.ValueByName('AddQcQuantity').AsFloat <> 0 then
+        DataSetErrorMessage(Allow, '该清单已进行过变更，不可修改清单编号、名称、单位！');
+    if not Allow then Exit;
+
     if SameText('Price', AColumn.FieldName) then
       if vNode.Rec.ValueByName('AddGatherTotalPrice').AsFloat <> 0 then
         DataSetErrorMessage(Allow, '该清单已经计量，不可修改清单单价！');
+    if not Allow then Exit;
+
     if SameText('NewPrice', AColumn.FieldName) then
       if vNode.Rec.ValueByName('AddPcTotalPrice').AsFloat <> 0 then
         DataSetErrorMessage(Allow, '该清单已经计量，不可修改清单变更单价！');