金额模式下，本期数量变更计量--数量处点击按钮，应提示用户，并不弹出变更令选择窗口。

Frames/BillsMeasureFme.pas

@@ -343,15 +343,20 @@ procedure TBillsMeasureFrame.zgBillsMeasureCellButtonClick(Sender: TObject;
   end;
 
 var
-  stnCurNode: TsdIDTreeNode;
+  stnCurNode: TBillsIDTreeNode;
   sType, sField: string;
 begin
-  stnCurNode := stdBillsMeasure.IDTree.Selected;
+  stnCurNode := TBillsIDTreeNode(stdBillsMeasure.IDTree.Selected);
   if stnCurNode.HasChildren then Exit;
   with TProjectData(FBillsMeasureData.ProjectData) do
     if PhaseData.StageDataReadOnly then Exit;
   GetTypeAndField(sType, sField);
   if (sType = '') or (sField = '') then Exit;
+  if stnCurNode.Rec.CalcType.AsInteger = 1 then
+  begin
+    WarningMessage('该清单不可输入数量单价，如需使用数量×单价计算，请先清空所有直接输入的金额！');
+    Exit;
+  end;
   SelectAndUpdateBGL(sType, sField, stnCurNode);
 end;