Bug #864 用户输入清单编号后，应清除设计数量1/2，经济指标

DataModules/BillsCompileDm.pas

@@ -252,6 +252,13 @@ begin
     stnNode := BillsCompileTree.FindNode(AValue.Owner.ValueByName('ID').AsInteger);
     ResetChildrenLockedInfo(stnNode, AValue.AsBoolean);
   end;
+
+  if (AValue.FieldName = 'B_Code') then
+  begin
+    AValue.Owner.ValueByName('DgnQuantity1').Clear;
+    AValue.Owner.ValueByName('DgnQuantity2').Clear;
+    AValue.Owner.ValueByName('DgnPrice').Clear;
+  end;
 end;
 
 function TBillsCompileData.GatherChildrenOrg(ANode: TsdIDTreeNode): Double;