本期合同计量，删除数量，应重算金额

DataModules/BillsMeasureDm.pas

@@ -362,7 +362,7 @@ procedure TBillsMeasureData.sdvBillsMeasureSetText(var Text: String;
       Text := FloatToStr(QuantityRoundTo(EvaluateExprs(Text)));
     end;
     vNode := TBillsIDTreeNode(BillsMeasureTree.FindNode(GetBillsID));
-    vNode.Rec.CalcType.AsInteger := 1;
+    vNode.Rec.CalcType.AsInteger := 0;
   end;
 
   procedure SetTotalPrice(const AField: string);