|
@@ -143,15 +143,11 @@ type
|
|
|
{OpenForGather: BillsData, BillsMeasureTree, DealPaymentData, BGLData, PhaseData(根据PhaseIndex指定打开)}
|
|
|
procedure OpenForGather(const AFileName: string; APhaseIndex: Integer = -1);
|
|
|
{OpenForSignOnline: BillsData, BillsMeasureTree, PhaseData(根据PhaseIndex指定打开)}
|
|
|
-<<<<<<< HEAD
|
|
|
procedure OpenForSignOnline(AProjRec: TsdDataRecord; APhaseIndex: Integer = -1);
|
|
|
-=======
|
|
|
- procedure OpenForSignOnline(const AFileName: string; APhaseIndex: Integer = -1);
|
|
|
{OpenForSumUpBase: BillsData, BillsComplieTree}
|
|
|
procedure OpenForSumUpBase(const AFileName: string);
|
|
|
{OpenForSumUpGather: BillsData, BillsMeasureTree, PhaseData(根据PhaseIndex指定打开),直接调用OpenForSignOnline}
|
|
|
procedure OpenForSumUpGather(const AFileName: string; APhaseIndex: Integer = -1);
|
|
|
->>>>>>> sumUp
|
|
|
//----------------------- End ---后台打开 ------------------------
|
|
|
|
|
|
procedure SaveDebugFile(const AFileName: string);
|
|
@@ -274,14 +270,12 @@ type
|
|
|
|
|
|
implementation
|
|
|
|
|
|
-uses UtilMethods, Globals, ProjectCommands, sdIDTree, StageDm,
|
|
|
+uses
|
|
|
+ UtilMethods, Globals, ProjectCommands, sdIDTree, StageDm,
|
|
|
ZJJLDm, PHPWebDm, XMLDoc, XMLIntf, ConstUnit, PasswordInputFrm,
|
|
|
mProgressProFrm, mDataRecord, ConditionalDefines, DbTreeImport,
|
|
|
-<<<<<<< HEAD
|
|
|
- StrUtils, sdProvider, CalcDecimal, Math, CslJson, OrderCheckerFme;
|
|
|
-=======
|
|
|
- StrUtils, sdProvider, CalcDecimal, Math, stgSubGatherFile;
|
|
|
->>>>>>> sumUp
|
|
|
+ StrUtils, sdProvider, CalcDecimal, Math, CslJson, OrderCheckerFme,
|
|
|
+ stgSubGatherFile;
|
|
|
|
|
|
{ TProjectData }
|
|
|
|
|
@@ -2202,7 +2196,6 @@ begin
|
|
|
FIsGuest := Value;
|
|
|
end;
|
|
|
|
|
|
-<<<<<<< HEAD
|
|
|
procedure TProjectData.LoadCheckersData;
|
|
|
var
|
|
|
sURL: string;
|
|
@@ -2222,7 +2215,8 @@ begin
|
|
|
Checkers.LastChecker := Checkers.Item[iIndex];
|
|
|
end;
|
|
|
end
|
|
|
-=======
|
|
|
+end;
|
|
|
+
|
|
|
procedure TProjectData.OpenForSumUpBase(const AFileName: string);
|
|
|
begin
|
|
|
FProjectID := -1;
|
|
@@ -2238,7 +2232,7 @@ end;
|
|
|
procedure TProjectData.OpenForSumUpGather(const AFileName: string;
|
|
|
APhaseIndex: Integer);
|
|
|
begin
|
|
|
- OpenForSignOnline(AFileName, APhaseIndex);
|
|
|
+ OpenForGather(AFileName, APhaseIndex);
|
|
|
end;
|
|
|
|
|
|
procedure TProjectData.ImportSubTenderGather(const AFileName: string);
|
|
@@ -2254,7 +2248,6 @@ begin
|
|
|
CalculateAll;
|
|
|
vImportor.Free;
|
|
|
end;
|
|
|
->>>>>>> sumUp
|
|
|
end;
|
|
|
|
|
|
end.
|