Browse Source

合并总分包代码至master,并解决冲突

MaiXinRong 7 years ago
parent
commit
e32f153aeb
4 changed files with 7 additions and 24 deletions
  1. 0 3
      Forms/MainFrm.dfm
  2. 0 3
      Forms/MainFrm.pas
  3. 0 4
      Frames/BillsCompileFme.dfm
  4. 7 14
      Units/ProjectData.pas

+ 0 - 3
Forms/MainFrm.dfm

@@ -1140,14 +1140,12 @@ object MainForm: TMainForm
       Hint = #23450#20301#33267#21488#36134#20998#35299
       Hint = #23450#20301#33267#21488#36134#20998#35299
       Visible = ivAlways
       Visible = ivAlways
     end
     end
-<<<<<<< HEAD
     object dxbtnGclGatherZJJL: TdxBarButton
     object dxbtnGclGatherZJJL: TdxBarButton
       Caption = #35745#37327#27719#24635#26684#24335
       Caption = #35745#37327#27719#24635#26684#24335
       Category = 0
       Category = 0
       Hint = #35745#37327#27719#24635#26684#24335
       Hint = #35745#37327#27719#24635#26684#24335
       Visible = ivAlways
       Visible = ivAlways
     end
     end
-=======
     object dxbtnExportSumBaseFile: TdxBarButton
     object dxbtnExportSumBaseFile: TdxBarButton
       Action = actnExportSumBaseFile
       Action = actnExportSumBaseFile
       Category = 0
       Category = 0
@@ -1189,7 +1187,6 @@ object MainForm: TMainForm
       Action = actnImportSubTenderGather
       Action = actnImportSubTenderGather
       Category = 0
       Category = 0
     end
     end
->>>>>>> sumUp
   end
   end
   object Images: TImageList
   object Images: TImageList
     DrawingStyle = dsTransparent
     DrawingStyle = dsTransparent

+ 0 - 3
Forms/MainFrm.pas

@@ -168,9 +168,7 @@ type
     dxbtnLocateZJJL: TdxBarButton;
     dxbtnLocateZJJL: TdxBarButton;
     dxbtnEpure: TdxBarButton;
     dxbtnEpure: TdxBarButton;
     dxbtnLocateCompileBills: TdxBarButton;
     dxbtnLocateCompileBills: TdxBarButton;
-<<<<<<< HEAD
     dxbtnGclGatherZJJL: TdxBarButton;
     dxbtnGclGatherZJJL: TdxBarButton;
-=======
     dxbtnExportSumBaseFile: TdxBarButton;
     dxbtnExportSumBaseFile: TdxBarButton;
     actnExportSumBaseFile: TAction;
     actnExportSumBaseFile: TAction;
     dxbtnGatherSubTender: TdxBarButton;
     dxbtnGatherSubTender: TdxBarButton;
@@ -180,7 +178,6 @@ type
     dxbtnExportStgResult: TdxBarButton;
     dxbtnExportStgResult: TdxBarButton;
     dxbtnImportSubTenderGather: TdxBarButton;
     dxbtnImportSubTenderGather: TdxBarButton;
     actnImportSubTenderGather: TAction;
     actnImportSubTenderGather: TAction;
->>>>>>> sumUp
     procedure FormCreate(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure jtsProjectsChange(Sender: TObject; NewTab: Integer;
     procedure jtsProjectsChange(Sender: TObject; NewTab: Integer;

+ 0 - 4
Frames/BillsCompileFme.dfm

@@ -53,11 +53,7 @@ object BillsCompileFrame: TBillsCompileFrame
       Height = 376
       Height = 376
       Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
       Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
       OptionsEx = []
       OptionsEx = []
-<<<<<<< HEAD
       ColCount = 25
       ColCount = 25
-=======
-      ColCount = 26
->>>>>>> sumUp
       RowCount = 7
       RowCount = 7
       FixedRowCount = 3
       FixedRowCount = 3
       ShowGridLine = False
       ShowGridLine = False

+ 7 - 14
Units/ProjectData.pas

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