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

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, '맡헌데綠쒔셕좆，꼇옵錦맣헌데긴뫘데송！');