Merge remote-tracking branch 'remotes/origin/bug_3135'

Units/ProjectData.pas

@@ -1967,7 +1967,7 @@ procedure TProjectData.CopyPreData;
   const
     sCopySql = 'Insert Into OMPhaseDetail (ID, PhaseID, StageID,' +
                '    PreTotalPrice, CurTotalPrice, EndTotalPrice)' +
-               '  Select ID, %d, 0, PreTotalPrice + CurTotalPrice, 0, PreTotalPrice + CurTotalPrice' +
+               '  Select ID, %d, 0, EndTotalPrice, 0, EndTotalPrice' +
                '  From OMPhaseDetail Where (PhaseID = %d) and (StageID = -1)';
   begin
     if FProjProperties.PhaseCount > 1 then