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