导入分包汇总数据前，清理本期计量数据时，应同步清理截止本期完成数据

SubTenderGather/stgSubGatherFile.pas

@@ -175,6 +175,12 @@ begin
     vRec.QcFormula.AsString := '';
     vRec.QcBGLCode.AsString := '';
     vRec.QcBGLNum.AsString := '';
+    vRec.EndDealQuantity.AsFloat := vRec.PreDealQuantity.AsFloat;
+    vRec.EndDealTotalPrice.AsFloat := vRec.PreDealTotalPrice.AsFloat;
+    vRec.EndQcQuantity.AsFloat := vRec.PreQcQuantity.AsFloat;
+    vRec.EndQcTotalPrice.AsFloat := vRec.PreQcTotalPrice.AsFloat;
+    vRec.EndQcBGLCode.AsString := vRec.PreQcBGLCode.AsString;
+    vRec.EndQcBGLNum.AsString := vRec.PreQcBGLNum.AsString;
   end;
 end;