|
|
@@ -141,6 +141,9 @@ type
|
|
|
zgBPBasic: TZJGrid;
|
|
|
zgBPZhaoBiao: TZJGrid;
|
|
|
zgBPTouBiao: TZJGrid;
|
|
|
+ pmDebug: TPopupMenu;
|
|
|
+ pmiOutputProjectFile: TMenuItem;
|
|
|
+ pmiOutputZJXML: TMenuItem;
|
|
|
procedure actnOpenUpdate(Sender: TObject);
|
|
|
procedure actnNewBPExecute(Sender: TObject);
|
|
|
procedure actnImportBPUpdate(Sender: TObject);
|
|
|
@@ -283,6 +286,10 @@ type
|
|
|
Row: Integer);
|
|
|
procedure zgBPTouBiaoCellTextChanged(Sender: TObject; Col,
|
|
|
Row: Integer);
|
|
|
+ procedure pmiOutputProjectFileClick(Sender: TObject);
|
|
|
+ procedure pmiOutputZJXMLClick(Sender: TObject);
|
|
|
+ procedure zgBuildProjectsMouseUp(Sender: TObject; Button: TMouseButton;
|
|
|
+ Shift: TShiftState; X, Y: Integer);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
FProjectParent, FFeeParent, FPriceParent, FRationParent: TZjTreeNode;
|
|
|
@@ -291,7 +298,8 @@ type
|
|
|
FIsLoading: Boolean;
|
|
|
FIsPropLoading: Boolean;
|
|
|
FCurProjIsStaticBills: Boolean; //当前分段是否是固化清单
|
|
|
- FIsOutputTB: Boolean; // 是否在导出投标文件
|
|
|
+ FIsOutputTB: Boolean;
|
|
|
+ FIsDebugContextPopup: Boolean; // 是否在导出投标文件
|
|
|
procedure SetActive(const Value: Boolean);
|
|
|
procedure InitViews;
|
|
|
procedure ClearRelaFilesView;
|
|
|
@@ -344,9 +352,6 @@ type
|
|
|
function ValidateXML_ZJ(AXMLFile: string): Boolean;
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
- // 判断是否是从业主的源文件导出的 固化清单
|
|
|
- function IsOwnerStaticBills(AFileName: string): Boolean;
|
|
|
-
|
|
|
constructor Create(AOwner: TComponent); override;
|
|
|
procedure Init(AManageProjects: TManageProjects);
|
|
|
procedure BatchExportBuildProject;
|
|
|
@@ -355,7 +360,7 @@ type
|
|
|
procedure ImportBP(const AFileName: string);
|
|
|
procedure ExportCurBuildProject(const AFileName: string);
|
|
|
procedure ExpXML_QG;
|
|
|
- procedure ExpXML_ZJ;
|
|
|
+ procedure ExpXML_ZJ(ANeedXMLFile: Boolean);
|
|
|
function CurSelNodeIsBP: Boolean;
|
|
|
function GetCurrentBPName: string;
|
|
|
function GetCurrentFullBuildProjectName: string;
|
|
|
@@ -374,9 +379,12 @@ type
|
|
|
function CanCalculateCurrentBP: Boolean;
|
|
|
procedure CalculateCurrentBP;
|
|
|
function NeedBatchCalc: Boolean;
|
|
|
+ // 判断是否是从业主的源文件导出的 固化清单
|
|
|
+ function IsOwnerStaticBills(AFileName: string): Boolean;
|
|
|
|
|
|
property Active: Boolean read FActive write SetActive;
|
|
|
property ShowFiles: Boolean read GetShowFiles write SetShowFiles;
|
|
|
+ property IsDebugContextPopup: Boolean read FIsDebugContextPopup;
|
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
@@ -421,6 +429,7 @@ begin
|
|
|
actnImportProject.Visible := False;
|
|
|
end;
|
|
|
ShowFiles := True;
|
|
|
+ FIsDebugContextPopup := False;
|
|
|
end;
|
|
|
|
|
|
procedure TScfrmBigProjManage.Init(AManageProjects: TManageProjects);
|
|
|
@@ -2482,7 +2491,7 @@ begin
|
|
|
end;
|
|
|
|
|
|
// 浙江：项目管理-建设项目-导出多标段
|
|
|
-procedure TScfrmBigProjManage.ExpXML_ZJ;
|
|
|
+procedure TScfrmBigProjManage.ExpXML_ZJ(ANeedXMLFile: Boolean);
|
|
|
var
|
|
|
vNode: TScProjManagerTreeNode;
|
|
|
iID, i, iZTBType: Integer;
|
|
|
@@ -2566,6 +2575,8 @@ begin
|
|
|
vPort.ProgressiveFile := CommonFeeLib.GetProgressiveFeeFile(ProjectManager.GetProgressiveFileID(CurBuildProjID));
|
|
|
vPort.FirtProjIsNewOpen := isNewOpen; // 这个很重要！后台打开的项目用完一定要关，否则会有车船税同步错误等。
|
|
|
vPort.SaveToXML(False);
|
|
|
+ if ANeedXMLFile then
|
|
|
+ CopyFile(PChar(sXMLFile), PChar(ExtractFileNameWithoutExt(sXMLFile) + '-copy.xml'), False);
|
|
|
|
|
|
if (not vPort.ProjectResult) or (not ValidateXML_ZJ(sXMLFile)) then
|
|
|
begin
|
|
|
@@ -3992,6 +4003,7 @@ procedure TScfrmBigProjManage.zgBuildProjectsMouseDown(Sender: TObject;
|
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
|
var
|
|
|
vNode: TScProjManagerTreeNode;
|
|
|
+ P: TPoint;
|
|
|
begin
|
|
|
vNode := TScProjManagerTreeNode(staBuildProjects.IDTree.Selected);
|
|
|
if (zgBuildProjects.CurCol = 1) and (ssDouble in Shift) and (Button = mbLeft) and Assigned(vNode) and vNode.IsTender then
|
|
|
@@ -4003,11 +4015,38 @@ begin
|
|
|
{$ENDIF}
|
|
|
end;
|
|
|
if (zgBuildProjects.CurCol = 1) and
|
|
|
- (Button = mbRight) and (ssCtrl in Shift) and (ssAlt in Shift) and (ssShift in Shift)
|
|
|
- and Assigned(vNode) and vNode.IsTender then
|
|
|
- ExportCurrentProjectFile(False);
|
|
|
+ (Button = mbRight) and (ssCtrl in Shift) and (ssShift in Shift)
|
|
|
+ and Assigned(vNode) then
|
|
|
+ begin
|
|
|
+ if vNode.IsTender then
|
|
|
+ begin
|
|
|
+ pmiOutputProjectFile.Enabled := True;
|
|
|
+ pmiOutputZJXML.Enabled := False;
|
|
|
+ end
|
|
|
+ else if vNode.IsBuildProj then
|
|
|
+ begin
|
|
|
+ pmiOutputProjectFile.Enabled := False;
|
|
|
+ pmiOutputZJXML.Enabled := True;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ pmiOutputProjectFile.Enabled := False;
|
|
|
+ pmiOutputZJXML.Enabled := False;
|
|
|
+ end;
|
|
|
+ FIsDebugContextPopup := True;
|
|
|
+ //P := ClientToScreen(Point(X, Y));
|
|
|
+ GetCursorPos(P);
|
|
|
+ pmDebug.Popup(P.X, P.Y);
|
|
|
+ end;
|
|
|
end;
|
|
|
|
|
|
+procedure TScfrmBigProjManage.zgBuildProjectsMouseUp(Sender: TObject;
|
|
|
+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
|
+begin
|
|
|
+ FIsDebugContextPopup := False;
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
procedure TScfrmBigProjManage.actnNewFolderUpdate(Sender: TObject);
|
|
|
var
|
|
|
vNode: TScProjManagerTreeNode;
|
|
|
@@ -5371,4 +5410,14 @@ begin
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
+procedure TScfrmBigProjManage.pmiOutputProjectFileClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ ExportCurrentProjectFile(False);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TScfrmBigProjManage.pmiOutputZJXMLClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ ExpXML_ZJ(True);
|
|
|
+end;
|
|
|
+
|
|
|
end.
|
