报表，提供中间计量相关数据

DataModules/ZJJLDm.pas

@@ -169,6 +169,7 @@ procedure TZJJLData.Save;
 begin
   sddZJJL.Save;
   sddHistory.Save;
+  sddZJJLDetail.Save;
 end;
 
 function TZJJLData.CheckLastXmj(AID: Integer): Boolean;

Units/ProjectData.pas

@@ -910,7 +910,7 @@ procedure TProjectData.CopyPhaseData;
   var
     sSql: string;
   begin
-    sSql := 'Select ID, BillsID, Code, CertificateCode, BillsCode, FormulaMemo, RelaFile,' +
+    sSql := 'Select ID, BillsID, GatherBillsID, Code, CertificateCode, BillsCode, FormulaMemo, RelaFile,' +
             '    BGLCode, PegName, FBFXName, BeginPeg, EndPeg, UnitName, DrawingCode' +
             '  Into P_ZJJL' +
             '  From ' + PhaseData.ZJJLData.sdpZJJL.TableName +