Bug 3135 其他台账-分期计量，截止数据计算问题

Units/ProjectData.pas

@@ -1965,7 +1965,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