本期数量变更 -- 数量列，输入backspace，delete，删除变更令调用

DataModules/BillsMeasureDm.pas

@@ -73,6 +73,7 @@ type
     function FindNodeWithZJJL(ANode: TsdIDTreeNode): TsdIDTreeNode;
 
     procedure CalcMeasureFilter;
+    procedure ClearCurQcQty(ANode: TMeasureBillsIDTreeNode);
 
     // 计算 修改各期原报审核数据时，需对累计数据做增量
     procedure UpdateRecordDeal(ABillsID: Integer; AQuantity, ATotalPrice: Double);
@@ -1267,4 +1268,12 @@ begin
   end;
 end;
 
+procedure TBillsMeasureData.ClearCurQcQty(ANode: TMeasureBillsIDTreeNode);
+begin
+  if not Assigned(ANode) or not Assigned(ANode.StageRec) then Exit;
+  if (ANode.StageRec.QcQuantity.AsFloat = 0) then Exit;
+  SelectAndUpdateBGL(ANode.ID, ANode.StageRec, 0, 'Qc');
+  ANode.StageRec.QcQuantity.Clear;
+end;
+
 end.

Frames/BillsMeasureFme.pas

@@ -471,8 +471,13 @@ begin
       and (Key in [66, 98]) then
     ShowIsGather := not ShowIsGather;
 
-  if (Key in [48..57]) and (zgBillsMeasure.CurCol = 11) then
-    zgBillsMeasureCellButtonClick(Sender, zgBillsMeasure.CurCol, zgBillsMeasure.CurRow);
+  if (zgBillsMeasure.CurCol = 11) then
+  begin
+    if (Key in [48..57]) then
+      zgBillsMeasureCellButtonClick(Sender, zgBillsMeasure.CurCol, zgBillsMeasure.CurRow)
+    else if (Key in [8, 46]) then
+      FBillsMeasureData.ClearCurQcQty(TMeasureBillsIDTreeNode(stdBillsMeasure.IDTree.Selected));
+  end;
 end;
 
 procedure TBillsMeasureFrame.actnSetStageBookmarkExecute(Sender: TObject);