ProjectFme.pas 44 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420
  1. unit ProjectFme;
  2. interface
  3. uses
  4. BillsCompileFme, BillsMeasureFme, PhaseCompareFme, DealPaymentFme,
  5. BillsGatherFme, ZJJLFme, BGLFme, ReportsFrm, SearchFme, BookmarkFme,
  6. ProjectData, UtilMethods, Globals, mEncryptEditions, DealBillsFme,
  7. PriceMarginFme,
  8. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  9. Dialogs, ImgList, XPMenu, Buttons, ComCtrls, ToolWin, ExtCtrls, JimPages,
  10. StdCtrls, JimCombos, dxsbar, ActnList, dxBar, OrderCheckerFme, CheckerFme,
  11. CslButton, UpFileManageFrame, UpFileManageUnit;
  12. type
  13. TProjectFrame = class(TFrame)
  14. xpm: TXPMenu;
  15. ilstExpend: TImageList;
  16. pnlViewControl: TPanel;
  17. pnlView: TPanel;
  18. pnlToolBar: TPanel;
  19. tbToolsButton: TToolBar;
  20. tobtnStandardBills: TToolButton;
  21. tobtnDealPayment: TToolButton;
  22. tobtnSearch: TToolButton;
  23. sbtnExpend: TSpeedButton;
  24. tbXmjBills: TToolBar;
  25. tbExpand: TToolButton;
  26. tbSeparator: TToolButton;
  27. sprAssistant: TSplitter;
  28. jpsAssistant: TJimPages;
  29. jpsAssistantDealPayment: TJimPage;
  30. jpsAssistantSearch: TJimPage;
  31. dxsbViewControl: TdxSideBar;
  32. dxsbsViewControl: TdxSideBarStore;
  33. xbiBillsCompile: TdxStoredSideItem;
  34. jpsAssistantStandardBills: TJimPage;
  35. jpsMain: TJimPages;
  36. jpsMainBillsMeasure: TJimPage;
  37. xbiBillsGather: TdxStoredSideItem;
  38. jpsMainBillsGather: TJimPage;
  39. ilstLarge: TImageList;
  40. ilstSmall: TImageList;
  41. xbiStageCompare: TdxStoredSideItem;
  42. xbiCompleteDegree: TdxStoredSideItem;
  43. xbiReport: TdxStoredSideItem;
  44. jpsMainStageCompare: TJimPage;
  45. tobtnZJJL: TToolButton;
  46. tobtnBGL: TToolButton;
  47. jpsAssistantZJJL: TJimPage;
  48. jpsAssistantBGL: TJimPage;
  49. dxpmExpandBills: TdxBarPopupMenu;
  50. alProject: TActionList;
  51. actnFirstLevel: TAction;
  52. actnSecondLevel: TAction;
  53. actnThirdLevel: TAction;
  54. actnFourthLevel: TAction;
  55. actnFifthLevel: TAction;
  56. actnAllLevel: TAction;
  57. actnAllXmj: TAction;
  58. xbiBillsMeasure: TdxStoredSideItem;
  59. jpsMainBillsCompile: TJimPage;
  60. pnlPhaseSelect: TPanel;
  61. jcbAudit: TJimComboBox;
  62. jcbPhase: TJimComboBox;
  63. tobtnShowChecker: TToolButton;
  64. jpsAssistantChecker: TJimPage;
  65. btnSubmit: TCslButton;
  66. btnPass: TCslButton;
  67. btnNotPass: TCslButton;
  68. pnlNewPhase: TPanel;
  69. btnNewPhase: TCslButton;
  70. pnlProjectCheckStatus: TPanel;
  71. actnCurPhase: TAction;
  72. tobtnBookmark: TToolButton;
  73. jpsAssistantBookmark: TJimPage;
  74. jpsAssistantUpFile: TJimPage;
  75. tobtnUpFile: TToolButton;
  76. jpsAssistantDealBills: TJimPage;
  77. tobtnDealBills: TToolButton;
  78. actnAllPeg: TAction;
  79. jpsMainPriceMargin: TJimPage;
  80. xbiPriceMargin: TdxStoredSideItem;
  81. procedure tobtnStandardBillsClick(Sender: TObject);
  82. procedure jcbPhaseChanged(Sender: TObject);
  83. procedure sbtnExpendClick(Sender: TObject);
  84. procedure jcbAuditChanged(Sender: TObject);
  85. procedure dxsbViewControlItemClick(Sender: TObject;
  86. Item: TdxSideBarItem);
  87. procedure dxpmExpandBillsPopup(Sender: TObject);
  88. procedure actnFirstLevelExecute(Sender: TObject);
  89. procedure tbExpandClick(Sender: TObject);
  90. procedure actnAllXmjExecute(Sender: TObject);
  91. procedure btnSubmitClick(Sender: TObject);
  92. procedure btnPassClick(Sender: TObject);
  93. procedure btnNotPassClick(Sender: TObject);
  94. procedure btnNewPhaseClick(Sender: TObject);
  95. procedure actnCurPhaseExecute(Sender: TObject);
  96. procedure tobtnUpFileClick(Sender: TObject);
  97. procedure jpsAssistantActivePageChanged(Sender: TObject);
  98. procedure actnAllPegExecute(Sender: TObject);
  99. private
  100. FProjectData: TProjectData;
  101. FBillsCompileFrame: TBillsCompileFrame;
  102. FBillsMeasureFrame: TBillsMeasureFrame;
  103. FBillsGatherFrame: TBillsGatherFrame;
  104. FPriceMarginFrame: TPriceMarginFrame;
  105. FPhaseCompareFrame: TPhaseCompareFrame;
  106. FCheckerFrame: TCheckerFrame;
  107. FDealPaymentFrame: TDealPaymentFrame;
  108. FZJJLFrame: TZJJLFrame;
  109. FBGLFrame: TBGLFrame;
  110. FSearchFrame: TSearchFrame;
  111. FBookmarkFrame: TBookmarkFrame;
  112. FUpFileManageView: TUpFileManageView;
  113. FDealBillsFrame: TDealBillsFrame;
  114. procedure CreateBillsFrame;
  115. procedure CreateDealPaymentFrame;
  116. procedure CreateBillsGatherFrame;
  117. procedure CreatePriceMarginFrame;
  118. procedure CreateCheckerFrame;
  119. procedure CreateUpFile;
  120. procedure CreateFrames;
  121. procedure InitialForVersions;
  122. procedure OpenCompare;
  123. procedure CloseCompare;
  124. // 刷新各界面只读、显示等
  125. procedure RefreshProjectState;
  126. procedure AdjustFramesDisplay;
  127. procedure SaveLog(AStr: string);
  128. procedure ExpandNodeTo(ALevel: Integer);
  129. procedure ExpandAllXmj;
  130. procedure ExpandCurPhase;
  131. procedure SetAssistantViewVisible(AVisible: Boolean);
  132. procedure SetImageOfsbtnExpend(AExpend: Boolean);
  133. procedure ControlAssistantButtonsDown(ATag: Integer);
  134. procedure ExpandBookmarkFrame(AExpandFrame: Boolean);
  135. procedure UpToWeb(ACheckPassed: Boolean);
  136. function CheckersHint: string;
  137. procedure SetUpFileManageView(const Value: TUpFileManageView);
  138. procedure CheckUpFile;
  139. public
  140. constructor Create(AProjectData: TProjectData);
  141. destructor Destroy; override;
  142. procedure ResetAssistantView;
  143. procedure GeneratePhaseChooseList;
  144. procedure GenerateStageChooseList;
  145. procedure CreateNewPhase;
  146. procedure CreateNewAudit;
  147. procedure RefreshColumnDisplay;
  148. function CheckCanReport: Boolean;
  149. procedure UnLockData;
  150. procedure ReLockData;
  151. function IsUped: Boolean;
  152. procedure ButtonControl_UpToWeb;
  153. procedure ButtonControl_NewPhase;
  154. procedure RepairAudits;
  155. function CheckFileAndCloudChekerList: Boolean;
  156. property ProjectData: TProjectData read FProjectData;
  157. property BillsCompileFrame: TBillsCompileFrame read FBillsCompileFrame;
  158. property BillsMeasureFrame: TBillsMeasureFrame read FBillsMeasureFrame;
  159. property BillsGatherFrame: TBillsGatherFrame read FBillsGatherFrame;
  160. property PriceMarginFrame: TPriceMarginFrame read FPriceMarginFrame;
  161. property CheckerFrame: TCheckerFrame read FCheckerFrame;
  162. property UpFileManageView: TUpFileManageView read FUpFileManageView write SetUpFileManageView;
  163. property DealPaymentFrame: TDealPaymentFrame read FDealPaymentFrame;
  164. property ZJJLFrame: TZJJLFrame read FZJJLFrame;
  165. property BGLFrame: TBGLFrame read FBGLFrame;
  166. property SearchFrame: TSearchFrame read FSearchFrame;
  167. property BookmarkFrame: TBookmarkFrame read FBookmarkFrame;
  168. property DealBillsFrame: TDealBillsFrame read FDealBillsFrame;
  169. end;
  170. implementation
  171. uses
  172. PhaseData, BGLDm, MainFrm, ZhAPI, SearchDm, PHPWebDm, ActiveX,
  173. ConstUnit, MD5Unit, sdIDTree, sdDB, mProgressFrm, ConditionalDefines,
  174. ProjectCommands, ProjectProperty, CheckerMemoFrm, BillsMeasureDm,
  175. ProgressHintFrm, mProgressProFrm;
  176. {$R *.dfm}
  177. { TProjectFrame }
  178. procedure TProjectFrame.AdjustFramesDisplay;
  179. begin
  180. jpsAssistant.Width := 395;
  181. SetAssistantViewVisible(False);
  182. end;
  183. procedure TProjectFrame.ControlAssistantButtonsDown(ATag: Integer);
  184. begin
  185. tobtnStandardBills.Down := ATag = tobtnStandardBills.Tag;
  186. tobtnDealPayment.Down := ATag = tobtnDealPayment.Tag;
  187. tobtnSearch.Down := ATag = tobtnSearch.Tag;
  188. tobtnZJJL.Down := ATag = tobtnZJJL.Tag;
  189. tobtnBGL.Down := ATag = tobtnBGL.Tag;
  190. tobtnShowChecker.Down := ATag = tobtnShowChecker.Tag;
  191. tobtnUpFile.Down := ATag = tobtnUpFile.Tag;
  192. tobtnBookmark.Down := ATag = tobtnBookmark.Tag;
  193. end;
  194. constructor TProjectFrame.Create(AProjectData: TProjectData);
  195. begin
  196. inherited Create(nil);
  197. FProjectData := AProjectData;
  198. ResetAssistantView;
  199. AdjustFramesDisplay;
  200. CreateFrames;
  201. RefreshProjectState;
  202. GeneratePhaseChooseList;
  203. GenerateStageChooseList;
  204. dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items.Items[0];
  205. InitialForVersions;
  206. CreateUpFile;
  207. if G_IsCloud then
  208. begin
  209. // 0号台帐无审核人,网络读取会出错。所以只有在有计量的情况下才创建审核人
  210. if (ProjectData.PhaseIndex > 0) then
  211. begin
  212. tobtnShowChecker.Visible := True;
  213. CreateCheckerFrame;
  214. end;
  215. ButtonControl_NewPhase;
  216. ButtonControl_UpToWeb;
  217. RepairAudits;
  218. end;
  219. end;
  220. destructor TProjectFrame.Destroy;
  221. begin
  222. FBookmarkFrame.Free;
  223. FZJJLFrame.Free;
  224. FBillsGatherFrame.Free;
  225. FDealPaymentFrame.Free;
  226. FBillsCompileFrame.Free;
  227. FBillsMeasureFrame.Free;
  228. FUpFileManageView.Free;
  229. SupportManager.ClearAssistantViewParent;
  230. inherited;
  231. end;
  232. procedure TProjectFrame.ResetAssistantView;
  233. begin
  234. AlignControl(SupportManager.StandardLibsFrame, jpsAssistantStandardBills, alClient);
  235. end;
  236. procedure TProjectFrame.SetAssistantViewVisible(AVisible: Boolean);
  237. begin
  238. jpsAssistant.Visible := AVisible;
  239. sprAssistant.Visible := AVisible;
  240. end;
  241. procedure TProjectFrame.SetImageOfsbtnExpend(AExpend: Boolean);
  242. begin
  243. sbtnExpend.Glyph := nil;
  244. ilstExpend.GetBitmap(Integer(AExpend), sbtnExpend.Glyph);
  245. end;
  246. procedure TProjectFrame.tobtnStandardBillsClick(Sender: TObject);
  247. begin
  248. with TToolButton(Sender) do
  249. begin
  250. if Down then
  251. begin
  252. jpsAssistant.ActivePageIndex := Tag;
  253. sbtnExpend.Tag := Tag;
  254. ControlAssistantButtonsDown(Tag);
  255. jpsMain.ActivePage.Tag := Tag;
  256. end;
  257. SetAssistantViewVisible(Down);
  258. SetImageOfsbtnExpend(Down);
  259. end;
  260. end;
  261. procedure TProjectFrame.GeneratePhaseChooseList;
  262. var
  263. iIndex: Integer;
  264. begin
  265. jcbPhase.Items.Clear;
  266. for iIndex := 1 to FProjectData.ProjProperties.PhaseCount do
  267. jcbPhase.Items.Add(Format(' 第 %d 期数据', [iIndex]));
  268. jcbPhase.ItemIndex := jcbPhase.Items.Count - 1;
  269. jcbPhase.Enabled := jcbPhase.Items.Count > 0;
  270. tobtnZJJL.Enabled := jcbPhase.Enabled;
  271. tobtnBGL.Enabled := jcbPhase.Enabled;
  272. end;
  273. procedure TProjectFrame.jcbPhaseChanged(Sender: TObject);
  274. begin
  275. if ProjectData.PhaseIndex = jcbPhase.ItemIndex + 1 then Exit;
  276. FProjectData.PhaseIndex := jcbPhase.ItemIndex + 1;
  277. GenerateStageChooseList;
  278. RefreshProjectState;
  279. if Assigned(FZJJLFrame) then
  280. begin
  281. FZJJLFrame.DataReadOnly := FProjectData.PhaseData.StageDataReadOnly;
  282. FZJJLFrame.ResetFrameLink(FProjectData.PhaseData.ZJJLData);
  283. end;
  284. if G_IsCloud then
  285. begin
  286. if Assigned(FCheckerFrame) then
  287. begin
  288. FCheckerFrame.Init;
  289. RepairAudits;
  290. end;
  291. ButtonControl_UpToWeb;
  292. end;
  293. end;
  294. procedure TProjectFrame.CreateNewPhase;
  295. var
  296. iBef: Integer;
  297. vArr: array of string;
  298. begin
  299. if QuestMessage('请检查合同支付的初始值,新增一期计量将锁定当前全部的清单数据,是否继续?') then
  300. begin
  301. // 网络版创建第二期、第三期等跟第一期有所不同:
  302. // 创建前,先发送信号给服务器,服务器自动根据第一期生成第二期的审核人列表。
  303. // 有了这个列表程序才能正常接下来的业务。
  304. if G_IsCloud then
  305. begin
  306. iBef := FProjectData.ProjProperties.PhaseCount;
  307. if iBef >= 1 then
  308. begin
  309. vArr := VarArrayOf(['msg']);
  310. if PHPWeb.Search(PHPWeb.MeasureURL + 'phaseno/userlist/create',
  311. ['tenderid', 'phaseno'], [IntToStr(FProjectData.WebID),
  312. IntToStr(iBef + 1)], vArr) <> 1 then
  313. begin
  314. Application.MessageBox(Pchar('云端自动创建本期审核人列表出错,请重新尝试!'), '警告', MB_OK + MB_ICONWARNING);
  315. Exit;
  316. end;
  317. end;
  318. end;
  319. FProjectData.CreateNewPhase;
  320. tobtnDealPayment.Enabled := True;
  321. tobtnZJJL.Enabled := True;
  322. tobtnBGL.Enabled := True;
  323. jcbPhase.Enabled := True;
  324. jcbAudit.Enabled := True;
  325. jcbPhase.Items.Add(Format(' 第 %d 期数据', [jcbPhase.Items.Count + 1]));
  326. jcbPhase.ItemIndex := jcbPhase.Items.Count - 1;
  327. FProjectData.CopyPreData;
  328. RefreshProjectState;
  329. if G_IsCloud then
  330. begin
  331. if Assigned(CheckerFrame) then
  332. CheckerFrame.Free;
  333. CreateCheckerFrame;
  334. tobtnShowChecker.Visible := True;
  335. tobtnShowChecker.Enabled := True;
  336. ButtonControl_NewPhase;
  337. ButtonControl_UpToWeb;
  338. end;
  339. end;
  340. end;
  341. procedure TProjectFrame.sbtnExpendClick(Sender: TObject);
  342. var
  343. bExpend: Boolean;
  344. begin
  345. bExpend := not jpsAssistant.Visible;
  346. jpsAssistant.ActivePageIndex := TSpeedButton(Sender).Tag;
  347. SetAssistantViewVisible(bExpend);
  348. SetImageOfsbtnExpend(bExpend);
  349. if bExpend then
  350. begin
  351. ControlAssistantButtonsDown(jpsAssistant.ActivePageIndex);
  352. jpsMain.ActivePage.Tag := jpsAssistant.ActivePageIndex;
  353. end
  354. else
  355. begin
  356. ControlAssistantButtonsDown(-1);
  357. jpsMain.ActivePage.Tag := -1;
  358. end;
  359. if G_IsCloud then
  360. CheckUpFile;
  361. end;
  362. procedure TProjectFrame.CreateNewAudit;
  363. begin
  364. FProjectData.PhaseData.CreateNewAuditData;
  365. jcbAudit.Items.Add(Format(' %d 审', [FProjectData.PhaseData.StageCount - 1]));
  366. if jcbAudit.ItemIndex <> jcbAudit.Items.Count - 1 then
  367. jcbAudit.ItemIndex := jcbAudit.Items.Count - 1
  368. else
  369. FProjectData.ResetPhaseDataLink;
  370. end;
  371. procedure TProjectFrame.GenerateStageChooseList;
  372. var
  373. iIndex: Integer;
  374. begin
  375. jcbAudit.Items.Clear;
  376. if not FProjectData.PhaseData.Active then Exit;
  377. for iIndex := 0 to FProjectData.PhaseData.AuditCount do
  378. begin
  379. if iIndex = 0 then
  380. jcbAudit.Items.Add(' 原报')
  381. else
  382. jcbAudit.Items.Add(Format(' %d 审', [iIndex]));
  383. end;
  384. if jcbAudit.ItemIndex <> jcbAudit.Items.Count - 1 then
  385. jcbAudit.ItemIndex := jcbAudit.Items.Count - 1
  386. else
  387. FProjectData.ResetPhaseDataLink;
  388. jcbAudit.Enabled := jcbAudit.Items.Count > 0;
  389. end;
  390. procedure TProjectFrame.jcbAuditChanged(Sender: TObject);
  391. begin
  392. if FProjectData.PhaseData.StageIndex = jcbAudit.ItemIndex then Exit;
  393. FProjectData.StageIndex := jcbAudit.ItemIndex;
  394. RefreshProjectState;
  395. end;
  396. procedure TProjectFrame.dxsbViewControlItemClick(Sender: TObject;
  397. Item: TdxSideBarItem);
  398. procedure BeforeChangeView;
  399. begin
  400. if G_IsCloud then
  401. begin
  402. tobtnShowChecker.Visible := ProjectData.PhaseIndex > 0;
  403. tobtnShowChecker.Enabled := (Item.Tag = xbiBillsMeasure.Tag);
  404. ButtonControl_NewPhase;
  405. if Item.Tag = xbiBillsCompile.Tag then
  406. begin
  407. if tobtnShowChecker.Down then
  408. begin
  409. tobtnShowChecker.Down := False;
  410. tobtnShowChecker.Click;
  411. tobtnStandardBills.Down := True;
  412. tobtnStandardBills.Click;
  413. tobtnStandardBills.Down := False;
  414. tobtnStandardBills.Click;
  415. end;
  416. end;
  417. end;
  418. // 记录台账分解、计量台账等的右侧展开情况
  419. if jpsAssistant.Visible then
  420. jpsMain.ActivePage.Tag := jpsAssistant.ActivePageIndex
  421. else
  422. jpsMain.ActivePage.Tag := -1;
  423. end;
  424. procedure AfterChangeView;
  425. begin
  426. // 仅计量台账界面可以选择计量期
  427. pnlPhaseSelect.Visible := Item.Tag = xbiBillsMeasure.Tag;
  428. // 台账分解、计量台账、审核比较 可使用"显示至"功能
  429. tbExpand.Visible := (Item.Tag = xbiBillsCompile.Tag)
  430. or (Item.Tag = xbiBillsMeasure.Tag)
  431. or (Item.Tag = xbiStageCompare.Tag);
  432. // 右侧按钮是否显示
  433. tbToolsButton.Visible := (Item.Tag = xbiBillsCompile.Tag)
  434. or (Item.Tag = xbiBillsMeasure.Tag);
  435. tobtnBGL.Visible := Item.Tag = xbiBillsMeasure.Tag;
  436. tobtnZJJL.Visible := Item.Tag = xbiBillsMeasure.Tag;
  437. // 控制整个按钮工具栏显示,
  438. pnlToolBar.Visible := pnlPhaseSelect.Visible or tbExpand.Visible or tbToolsButton.Visible;
  439. // 根据当前View控制右侧按钮是否按下,右侧工具窗是否弹开
  440. jpsAssistant.ActivePageIndex := jpsMain.ActivePage.Tag;
  441. sbtnExpend.Tag := jpsMain.ActivePage.Tag;
  442. ControlAssistantButtonsDown(jpsMain.ActivePage.Tag);
  443. SetAssistantViewVisible(jpsMain.ActivePage.Tag <> -1);
  444. SetImageOfsbtnExpend(jpsMain.ActivePage.Tag <> -1);
  445. // 0号台账与计量台账的书签不同
  446. if Item.Tag = xbiBillsCompile.Tag then
  447. FBookmarkFrame.BMType := bmtCompile
  448. else if Item.Tag = xbiBillsMeasure.Tag then
  449. FBookmarkFrame.BMType := bmtMeasure;
  450. // 0号台账与计量台账的查找定位不同
  451. if Item.Tag = xbiBillsCompile.Tag then
  452. FSearchFrame.LocateType := ltCompile
  453. else if Item.Tag = xbiBillsMeasure.Tag then
  454. FSearchFrame.LocateType := ltMeasure;
  455. // 切换至清单汇总,须重新汇总
  456. if Item.Tag = xbiBillsGather.Tag then
  457. BillsGatherFrame.RefreshBills;
  458. // 切换至材料调差,须重新汇总展示调差清单
  459. if Item.Tag = xbiPriceMargin.Tag then
  460. PriceMarginFrame.RefreshBills;
  461. if G_IsCloud then
  462. if (Item.Tag = xbiBillsCompile.Tag) or (Item.Tag = xbiBillsMeasure.Tag) then
  463. CheckUpFile;
  464. tobtnUpFile.Enabled := Item.Tag = xbiBillsMeasure.Tag;
  465. if (tobtnUpFile.Enabled = False) and (jpsAssistant.ActivePage = jpsAssistantUpFile) then
  466. jpsAssistant.ActivePage := jpsAssistantStandardBills;
  467. end;
  468. procedure ChangeView;
  469. begin
  470. BeforeChangeView;
  471. case Item.Tag of
  472. 0, 2: jpsMain.ActivePageIndex := Item.Tag;
  473. 1, 3: if CheckMeasureEdition then jpsMain.ActivePageIndex := Item.Tag;
  474. end;
  475. AfterChangeView;
  476. end;
  477. procedure DisplayReports;
  478. begin
  479. // 准备数据
  480. if Item.Tag = xbiReport.Tag then
  481. FProjectData.CopyPhaseData;
  482. // 显示报表界面
  483. DisplayReportsForm(FProjectData);
  484. dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items[jpsMain.ActivePageIndex];
  485. end;
  486. procedure DisplayCompare;
  487. begin
  488. if FProjectData.ProjProperties.PhaseCount = 0 then
  489. begin
  490. ErrorMessage('当前项目未开始计量,暂无审核比较数据!');
  491. dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items[jpsMain.ActivePageIndex];
  492. Abort;
  493. end;
  494. ShowProgressHint('正在准备审核比较数据,请稍候...');
  495. Screen.Cursor := crHourGlass;
  496. try
  497. BeforeChangeView;
  498. if CheckMeasureEdition then
  499. begin
  500. OpenCompare;
  501. jpsMain.ActivePageIndex := Item.Tag;
  502. end;
  503. AfterChangeView;
  504. finally
  505. Screen.Cursor := crDefault;
  506. CloseProgressHint;
  507. end;
  508. end;
  509. procedure DisplayPriceMargin;
  510. begin
  511. if ProjectData.ProjProperties.PhaseCount = 0 then
  512. begin
  513. TipMessage('未计量前不可进行材料调差。');
  514. dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items[jpsMain.ActivePageIndex];
  515. Abort;
  516. end;
  517. ChangeView;
  518. end;
  519. begin
  520. if Item.Tag = jpsMain.ActivePageIndex then Exit;
  521. if (Item.Tag in [0..3]) and (jpsMain.ActivePageIndex = 4) then
  522. CloseCompare;
  523. case Item.Tag of
  524. 0..2: ChangeView;
  525. 3: DisplayPriceMargin;
  526. 4: DisplayCompare;
  527. 5: DisplayReports;
  528. end;
  529. end;
  530. procedure TProjectFrame.CreateBillsFrame;
  531. begin
  532. FBillsCompileFrame := TBillsCompileFrame.Create(Self, FProjectData.BillsCompileData);
  533. FBillsCompileFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
  534. FBillsCompileFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
  535. FBillsCompileFrame.OnAfterSetBookmark := ExpandBookmarkFrame;
  536. AlignControl(FBillsCompileFrame, jpsMainBillsCompile, alClient);
  537. UpdateSysProgress(65, '正在解析数据');
  538. FBillsMeasureFrame := TBillsMeasureFrame.Create(Self, FProjectData.BillsMeasureData);
  539. FBillsMeasureFrame.OnAfterSetBookmark := ExpandBookmarkFrame;
  540. FBillsMeasureFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
  541. FBillsMeasureFrame.ShowBGLCode := FProjectData.ProjProperties.ShowBGLCode;
  542. FBillsMeasureFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
  543. FBillsMeasureFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
  544. AlignControl(FBillsMeasureFrame, jpsMainBillsMeasure, alClient);
  545. end;
  546. procedure TProjectFrame.CreateDealPaymentFrame;
  547. begin
  548. FDealPaymentFrame := TDealPaymentFrame.Create(Self, FProjectData.DealPaymentData);
  549. AlignControl(FDealPaymentFrame, jpsAssistantDealPayment, alClient);
  550. end;
  551. procedure TProjectFrame.CreateBillsGatherFrame;
  552. begin
  553. FBillsGatherFrame := TBillsGatherFrame.Create(Self, FProjectData.BillsGatherData);
  554. AlignControl(FBillsGatherFrame, jpsMainBillsGather, alClient);
  555. FBillsGatherFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
  556. FBillsGatherFrame.ShowPhaseData := FProjectData.ProjProperties.PhaseCount > 0;
  557. end;
  558. procedure TProjectFrame.dxpmExpandBillsPopup(Sender: TObject);
  559. begin
  560. dxpmExpandBills.ItemLinks.Items[8].Visible := G_IsTest;
  561. dxpmExpandBills.ItemLinks.Items[7].Visible := jpsMain.ActivePageIndex in [0, 1, 3];
  562. dxpmExpandBills.ItemLinks.Items[6].Visible := jpsMain.ActivePageIndex in [1, 3];
  563. SetDxBtnAction(actnFirstLevel, MainForm.dxbtnFirstLevel);
  564. SetDxBtnAction(actnSecondLevel, MainForm.dxbtnSecondLevel);
  565. SetDxBtnAction(actnThirdLevel, MainForm.dxbtnThirdLevel);
  566. SetDxBtnAction(actnFourthLevel, MainForm.dxbtnFourthLevel);
  567. SetDxBtnAction(actnFifthLevel, MainForm.dxbtnFifthLevel);
  568. SetDxBtnAction(actnAllLevel, MainForm.dxbtnAllLevel);
  569. SetDxBtnAction(actnCurPhase, MainForm.dxbtnCurPhase);
  570. SetDxBtnAction(actnAllXmj, MainForm.dxbtnAllXmj);
  571. SetDxBtnAction(actnAllPeg, MainForm.dxbtnAllPeg);
  572. end;
  573. procedure TProjectFrame.actnFirstLevelExecute(Sender: TObject);
  574. begin
  575. ExpandNodeTo(TAction(Sender).Tag);
  576. end;
  577. procedure TProjectFrame.tbExpandClick(Sender: TObject);
  578. var
  579. P: TPoint;
  580. begin
  581. P := pnlToolBar.ClientToScreen(Point(tbExpand.Left, tbExpand.Top + tbExpand.Height));
  582. dxpmExpandBills.Popup(P.X, P.Y);
  583. end;
  584. procedure TProjectFrame.actnAllXmjExecute(Sender: TObject);
  585. begin
  586. ExpandAllXmj;
  587. end;
  588. procedure TProjectFrame.ExpandNodeTo(ALevel: Integer);
  589. begin
  590. Screen.Cursor := crHourGlass;
  591. case ALevel of
  592. 0..4: UpdateSysProgress(0, Format('正在显示至第%d层', [ALevel + 1]));
  593. else UpdateSysProgress(0, '正在显示至最底层');
  594. end;
  595. try
  596. case jpsMain.ActivePageIndex of
  597. 0: FBillsCompileFrame.ExpandNodeTo(ALevel);
  598. 1: FBillsMeasureFrame.ExpandNodeTo(ALevel);
  599. 3: FPhaseCompareFrame.ExpandNodeTo(ALevel);
  600. end;
  601. finally
  602. UpdateSysProgress(0, '就绪');
  603. Screen.Cursor := crDefault;
  604. end;
  605. end;
  606. procedure TProjectFrame.ExpandAllXmj;
  607. begin
  608. Screen.Cursor := crHourGlass;
  609. UpdateSysProgress(0, '正在显示至项目节');
  610. try
  611. case jpsMain.ActivePageIndex of
  612. 0: FBillsCompileFrame.ExpandXmjNode;
  613. 1: FBillsMeasureFrame.ExpandXmjNode;
  614. 3: FPhaseCompareFrame.ExpandXmjNode;
  615. end;
  616. finally
  617. UpdateSysProgress(0, '就绪');
  618. Screen.Cursor := crDefault;
  619. end;
  620. end;
  621. procedure TProjectFrame.UnLockData;
  622. procedure DoUnLockData;
  623. begin
  624. FProjectData.CanUnlockInfo := True;
  625. FBillsCompileFrame.stdBillsCompile.Column('LockedInfo').ReadOnly := False;
  626. //FProjectData.BillsData.UnLockedBaseData;
  627. end;
  628. begin
  629. if FProjectData.CheckPassword then
  630. DoUnLockData;
  631. end;
  632. procedure TProjectFrame.CreateCheckerFrame;
  633. begin
  634. FCheckerFrame := TCheckerFrame.Create(Self);
  635. FCheckerFrame.Owner := Self;
  636. FCheckerFrame.ProjectData := FProjectData;
  637. AlignControl(FCheckerFrame, jpsAssistantChecker, alClient);
  638. FCheckerFrame.Init;
  639. end;
  640. procedure TProjectFrame.btnSubmitClick(Sender: TObject);
  641. begin
  642. if not CheckCanReport then Exit;
  643. Screen.Cursor := crHourGlass;
  644. try
  645. UpToWeb(True);
  646. finally
  647. Screen.Cursor := crDefault;
  648. end;
  649. end;
  650. procedure TProjectFrame.btnPassClick(Sender: TObject);
  651. begin
  652. btnSubmitClick(Sender);
  653. end;
  654. function TProjectFrame.IsUped: Boolean; // 是否上传过
  655. begin
  656. Result := False;
  657. // 只有0号台帐那肯定没上传过
  658. if ProjectData.PhaseIndex = 0 then Exit;
  659. // 当前显示的期小于最新期(当前期是旧期),则当前期肯定已经上传过了
  660. if ProjectData.PhaseIndex < ProjectData.ProjProperties.PhaseCount then
  661. begin
  662. Result := True;
  663. end
  664. // 当前显示的期是最新期,分两种情况判断,如果第一审核人已有状态,则上传过了
  665. else if ProjectData.PhaseIndex = ProjectData.ProjProperties.PhaseCount then
  666. begin
  667. // 当用户点击新增一期计量后,会调用该方法,此时,有一期数据,却为上传过
  668. if not Assigned(CheckerFrame) then
  669. Result := False
  670. else if not CheckerFrame.HasChecker then
  671. Result := False
  672. else if CheckerFrame.FirstChecker.CheckStatus = csNotBegin then
  673. Result := False
  674. else
  675. Result := True;
  676. end;
  677. end;
  678. procedure TProjectFrame.ButtonControl_UpToWeb;
  679. begin
  680. if ProjectData.CurUserIsAuthor then
  681. begin
  682. btnSubmit.Visible := True;
  683. // 有计量(非0号台账状态),且当前计量期尚未上报过
  684. btnSubmit.Enabled := (ProjectData.PhaseIndex > 0) and (not IsUped);
  685. btnPass.Visible := False;
  686. btnNotPass.Visible := btnPass.Visible;
  687. btnSubmit.Left := jcbAudit.Left + jcbAudit.Width + 5;
  688. end
  689. else if ProjectData.CurUserIsOwner or ProjectData.CurUserIsChecker then
  690. begin
  691. btnSubmit.Visible := False;
  692. btnPass.Visible := True;
  693. btnNotPass.Visible := btnPass.Visible;
  694. // 在本期我是审核人,切换到历史期有可能我没参与。 所以当CheckerFrame.Me为空时,有可能我是编制人,有可能历史期我没参与。
  695. // 历史期,管你那么多,直接按钮不见。
  696. if ProjectData.PhaseIndex < ProjectData.ProjProperties.PhaseCount then
  697. btnPass.Enabled := False
  698. else
  699. btnPass.Enabled := CheckerFrame.Me.IsChecking;
  700. btnNotPass.Enabled := btnPass.Enabled;
  701. btnPass.Left := jcbAudit.Left + jcbAudit.Width + 5;
  702. btnNotPass.Left := btnPass.Left + btnPass.Width + 1;
  703. end;
  704. if Assigned(CheckerFrame) then
  705. pnlProjectCheckStatus.Visible := CheckerFrame.OwnerFrame.CheckStatus = csFinished
  706. else
  707. pnlProjectCheckStatus.Visible := False;
  708. if Assigned(FCheckerFrame) then
  709. FCheckerFrame.RepairDelete(btnSubmit.Visible and btnSubmit.Enabled);
  710. end;
  711. procedure TProjectFrame.UpToWeb(ACheckPassed: Boolean);
  712. var sURL, sAppFile, sJsonFile_Bills, sJsonFile_Common, sAppFile_UnLock,
  713. sZipFile, sResult, sMD5_JL, sPassedHint1, sPassedHint2,
  714. sNoPassedHint1, sNoPassedHint2, sCheckerMemo: string;
  715. vA, vArr: array of string;
  716. vRec: TsdDataRecord;
  717. bSubmit: Boolean;
  718. vExportor: TTenderExport;
  719. vCF: TCheckerMemoForm;
  720. bNeedFreeEarlier: Boolean;
  721. // 1 审核; 2 批复。
  722. function SaveAndExport(AType: Integer): Boolean;
  723. function InnerSubmit(AType: Integer): Boolean;
  724. begin
  725. if AType = 1 then
  726. Result := ProjectData.SubmitProject(sAppFile)
  727. else if AType = 2 then
  728. Result := ProjectData.ReplyProject(sAppFile);
  729. end;
  730. begin
  731. Result := False;
  732. ProgressProCreate(100, '本地数据文件上传到云端');
  733. ProgressProRun('保存本地数据...', 0);
  734. ProjectData.Save;
  735. ProgressProRun('保存本地数据。OK', 10, pmtEdit);
  736. ProgressProRun('导出并检验文件...', 0);
  737. if not InnerSubmit(AType) then
  738. if not InnerSubmit(AType) then
  739. begin
  740. bNeedFreeEarlier := True;
  741. Application.MessageBox('Sorry!本地文件连续2次导出检验失败!如果重试后仍不能解决该问题,请联系纵横客服。', '提示', MB_OK + MB_ICONWARNING);
  742. Exit;
  743. end;
  744. Result := True;
  745. ProgressProRun('导出并检验文件。OK', 10, pmtEdit);
  746. end;
  747. begin
  748. bSubmit := False;
  749. bNeedFreeEarlier := False;
  750. sAppFile := PHPWeb.UserPath + 'ProjectFile.rmf';
  751. // 只有编制人才真正需要该文件存在
  752. // sAppFile_UnLock := PHPWeb.UserPath + 'ProjectFile_UnLock';
  753. sPassedHint1 :=
  754. '【审批通过】后,计量数据将自动交付给下一审批人进行审批,操作后将不可更改,是否通过审批?';
  755. sPassedHint2 :=
  756. '(终审)审批通过后本期计量审批将标记为审批完成,操作后将不可更改,是否通过审批?';
  757. sNoPassedHint1 :=
  758. '【审批不通过】后,本次审批将结束,后续的审批人也将不会审批本次计量,' +
  759. '本期数据也将直接打回给上报人进行重新计量报审。' + #10#13 +
  760. '点击【确定】进入操作确认。';
  761. sNoPassedHint2 := PHPWeb.RealName +
  762. ',请确认本期计量审批不通过。' + #10#13 + '点击【确定】本期计量审批' +
  763. '不通过,计量将不可再更改。';
  764. vCF := TCheckerMemoForm.Create(nil);
  765. try
  766. if ProjectData.CurUserIsAuthor then
  767. begin
  768. bSubmit := True;
  769. if not CheckerFrame.HasNormalChecker then
  770. begin
  771. Application.MessageBox('上报审批前请先配置审核人!', '提示', MB_OK + MB_ICONWARNING);
  772. tobtnShowChecker.Down := True;
  773. tobtnShowChecker.Click;
  774. Exit;
  775. end;
  776. // 保存一次缓存数据,以保证提示信息能读取正确的值
  777. ProjectData.SaveLastestPhaseMainData;
  778. if Application.MessageBox(PChar(CheckersHint), '询问', MB_YESNO + MB_ICONQUESTION) = ID_No then
  779. Exit;
  780. if not SaveAndExport(1) then Exit;
  781. end
  782. else if ProjectData.CurUserIsChecker then
  783. begin
  784. if ACheckPassed then
  785. begin
  786. vCF.Init(sPassedHint1, 1);
  787. if vCF.ShowModal = mrCancel then
  788. Exit
  789. else
  790. sCheckerMemo := vCF.Memo;
  791. end
  792. else
  793. begin
  794. vCF.Init(sNoPassedHint1, 0);
  795. if vCF.ShowModal = mrCancel then
  796. Exit
  797. else
  798. sCheckerMemo := vCF.Memo;
  799. if Application.MessageBox(PChar(sNoPassedHint2), '询问', MB_OKCANCEL + MB_ICONQUESTION) = ID_CANCEL then
  800. Exit;
  801. end;
  802. if not SaveAndExport(1) then Exit;
  803. end
  804. else if ProjectData.CurUserIsOwner then
  805. begin
  806. if ACheckPassed then
  807. begin
  808. vCF.Init(sPassedHint2, 1);
  809. if vCF.ShowModal = mrCancel then
  810. Exit
  811. else
  812. sCheckerMemo := vCF.Memo;
  813. end
  814. else
  815. begin
  816. vCF.Init(sNoPassedHint1, 0);
  817. if vCF.ShowModal = mrCancel then
  818. Exit
  819. else
  820. sCheckerMemo := vCF.Memo;
  821. if Application.MessageBox(PChar(sNoPassedHint2), '询问', MB_OKCANCEL + MB_ICONQUESTION) = ID_CANCEL then
  822. Exit;
  823. end;
  824. if not SaveAndExport(2) then Exit;
  825. end;
  826. finally
  827. vCF.Free;
  828. if bNeedFreeEarlier then
  829. ProgressProFree;
  830. end;
  831. try
  832. ProgressProRun('导出用于Web展示的清单、汇总数据等...', 0);
  833. sJsonFile_Bills := ExtractFilePath(sAppFile) + 'JsonFile_Bills.json';
  834. sJsonFile_Common := ExtractFilePath(sAppFile) + 'JsonFile_Common.json';
  835. sMD5_JL := MD5_File(sAppFile);
  836. // 上传清单,每期都传,可覆盖旧的。
  837. ProjectData.ExportJson_Bills(sJsonFile_Bills);
  838. ProjectData.ExportJson_Common(sJsonFile_Common);
  839. ProgressProRun('导出用于Web展示的清单、汇总数据等。OK', 10, pmtEdit);
  840. ProgressProRun('生成并检验up数据包文件...', 0);
  841. sZipFile := PHPWeb.zip([sAppFile, sJsonFile_Bills, sJsonFile_Common]);
  842. if not PHPWeb.CheckZip(sZipFile, 3) then
  843. begin
  844. Application.MessageBox('up数据包文件无法通过检验请重试!如果重试后仍不能解决该问题,请联系纵横客服。', '提示', MB_OK + MB_ICONWARNING);
  845. Exit;
  846. end;
  847. ProgressProRun('生成并检验up数据包文件。OK', 10, pmtEdit);
  848. try
  849. ProgressProRun('上传数据包到云端...(温馨提示:请不要乱点哦,Windows容易死机)', 0);
  850. if PHPWeb.UpDataFile(PHPWeb.UserID, ProjectData.WebID, ProjectData.PhaseIndex,
  851. sZipFile, sMD5_JL, bSubmit, sResult, ACheckPassed, sCheckerMemo) then
  852. begin
  853. DeleteFile(sAppFile);
  854. ProgressProRun('上传数据包到云端。OK', 90, pmtEdit, pptSet);
  855. if ProjectData.CurUserIsChecker then
  856. ProjectData.Checkers.FindByID(PHPWeb.UserID).Memo := sCheckerMemo;
  857. if ProjectData.PhaseIndex = 0 then // 0号台账,现已废弃
  858. begin
  859. MainForm.ProjectManagerFrame.ShowProjectInfoTop(0);
  860. end
  861. else
  862. Begin
  863. vRec := MainForm.ProjectManagerFrame.Rec(ProjectData.ProjectID);
  864. vRec.BeginUpdate;
  865. vRec.ValueByName('WebMD5').AsString := sMD5_JL;
  866. vRec.EndUpdate;
  867. MainForm.ProjectManagerFrame.ShowProjectInfoTop;
  868. if ProjectData.CurUserIsAuthor then
  869. begin
  870. CheckerFrame.FirstChecker.CheckStatus := csChecking;
  871. CheckerFrame.AddFrame.Visible := False;
  872. end
  873. else if ProjectData.CurUserIsChecker then
  874. begin
  875. if ACheckPassed then
  876. begin
  877. CheckerFrame.Me.CheckStatus := csFinished;
  878. CheckerFrame.NextChecker.CheckStatus := csChecking;
  879. end
  880. else
  881. CheckerFrame.Me.CheckStatus := csNotPass;
  882. CheckerFrame.Me.CheckerMemo := sCheckerMemo;
  883. end
  884. else if ProjectData.CurUserIsOwner then
  885. begin
  886. if ACheckPassed then
  887. CheckerFrame.Me.CheckStatus := csFinished
  888. else
  889. CheckerFrame.Me.CheckStatus := csNotPass;
  890. end;
  891. end;
  892. btnSubmit.Enabled := False;
  893. FCheckerFrame.RepairDelete(False);
  894. btnPass.Enabled := False;
  895. btnNotPass.Enabled := btnPass.Enabled;
  896. pnlProjectCheckStatus.Visible := CheckerFrame.OwnerFrame.CheckStatus = csFinished;
  897. Application.MessageBox('^_^ 恭喜!数据已成功上传到云端服务器。', '提示', MB_OK + MB_ICONINFORMATION);
  898. end
  899. else
  900. Application.MessageBox(PChar('数据上传失败请重试!服务器故障:' + sResult), '警告', MB_OK + MB_ICONWARNING);
  901. except
  902. Application.MessageBox(PChar('数据上传失败请重试!网络较差,数据文件无法送达云端:' +
  903. sResult), '警告', MB_OK + MB_ICONWARNING);
  904. end;
  905. finally
  906. ProgressProFree;
  907. end;
  908. end;
  909. procedure TProjectFrame.btnNotPassClick(Sender: TObject);
  910. begin
  911. Screen.Cursor := crHourGlass;
  912. try
  913. UpToWeb(False);
  914. finally
  915. Screen.Cursor := crDefault;
  916. end;
  917. end;
  918. function TProjectFrame.CheckersHint: string;
  919. var vSL: TStringList;
  920. i: Integer;
  921. sChecker, sChar: string;
  922. Rec: TsdDataRecord;
  923. begin
  924. vSL := TStringList.Create;
  925. try
  926. CheckerFrame.CheckerNameList(vSL);
  927. for i := 0 to vSL.Count - 1 do
  928. begin
  929. if i = 0 then
  930. sChar := ''
  931. else
  932. sChar := ' > ';
  933. sChecker := sChecker + sChar + vSL[i];
  934. end;
  935. while Length(sChecker) < 38 do // 保证提示框的大小达到最佳效果
  936. sChecker := sChecker + ' ';
  937. Rec := ProjectData.MainListData.GetPhaseMainRecord(FProjectData.PhaseIndex);
  938. Result := Format('本期计量:%m元。%s审批流程:%s%s上报后将不可更改,确定要上报吗?',
  939. [Rec.ValueByName('GatherTotalPrice').AsFloat, #10#13#10#13, sChecker, #10#13#10#13]);
  940. finally
  941. vSL.Free;
  942. end;
  943. end;
  944. procedure TProjectFrame.btnNewPhaseClick(Sender: TObject);
  945. begin
  946. dxsbViewControl.SelectedItem := dxsbViewControl.Groups[0].Items[1];
  947. dxsbViewControl.OnItemClick(Sender, dxsbViewControl.Groups[0].Items[1]);
  948. CreateNewPhase;
  949. end;
  950. procedure TProjectFrame.ButtonControl_NewPhase;
  951. var b1, b2, b3: Boolean;
  952. begin
  953. // “新建一期计量”按钮的显示隐藏
  954. // 计量界面,且是原报才显示
  955. b1 := (dxsbViewControl.SelectedItem.Index = 0) and ProjectData.CurUserIsAuthor;
  956. // ①尚无审核人列表 ②当前期已审核完成
  957. b2 := (not Assigned(CheckerFrame)) or (Assigned(CheckerFrame) and CheckerFrame.OwnerFrame.IsFinished);
  958. // 当前查看的是最新期。查看历史期不显示。
  959. b3 := (FProjectData.ProjProperties.PhaseCount = FProjectData.PhaseIndex);
  960. pnlNewPhase.Visible := b1 and b2 and b3;
  961. end;
  962. procedure TProjectFrame.actnCurPhaseExecute(Sender: TObject);
  963. begin
  964. ExpandCurPhase;
  965. end;
  966. procedure TProjectFrame.RepairAudits;
  967. var i, iSel: Integer;
  968. UserArr: array of string;
  969. sURL: string;
  970. begin
  971. jcbAudit.ItemHeight := 20;
  972. jcbAudit.Font.Name := '微软雅黑';
  973. jcbAudit.Font.Size := 10;
  974. jcbAudit.DropDownBox.Height := jcbAudit.Items.Count * jcbAudit.ItemHeight + 35;
  975. iSel := jcbAudit.ItemIndex;
  976. for i := 0 to jcbAudit.Items.Count - 1 do
  977. begin
  978. if i = 0 then
  979. begin
  980. // 原报:编制人。没有跟审核人一个表,另外查询。个人觉得这里设计得不好。
  981. // 打开软件时自动扫描,杰哥那头返回不了编制人的项目,也是这个原因。
  982. // 说服不了特工,先这样吧。
  983. sURL := Format('%suser/get/%d/info', [PHPWeb.MeasureURL, FProjectData.WebAuthorID]);
  984. UserArr := VarArrayOf(['avatar', 'name', 'jobs', 'company']);
  985. if PHPWeb.Search(sURL, [], [], UserArr) = 1 then
  986. jcbAudit.Items[i] := jcbAudit.Items[i] + ' ' + UserArr[1] + '-' + UserArr[2];
  987. end
  988. else
  989. begin
  990. // 某种漏洞的操作下,文件中记载的审核人数和审核人列表中的审核人数不一致,
  991. // 匹配时会溢出。这里要加判断。
  992. if i > CheckerFrame.List.Count then Break;
  993. if TOrderCheckerFrame(CheckerFrame.List[i - 1]) = FCheckerFrame.OwnerFrame then
  994. begin
  995. jcbAudit.Items[i] := ' 终审 ' +
  996. TOrderCheckerFrame(CheckerFrame.List[i - 1]).UserName + '-' +
  997. TOrderCheckerFrame(CheckerFrame.List[i - 1]).UserRole
  998. end
  999. else
  1000. begin
  1001. jcbAudit.Items[i] := jcbAudit.Items[i] + ' ' +
  1002. TOrderCheckerFrame(CheckerFrame.List[i - 1]).UserName + '-' +
  1003. TOrderCheckerFrame(CheckerFrame.List[i - 1]).UserRole;
  1004. end;
  1005. end;
  1006. end;
  1007. jcbAudit.ItemIndex := iSel;
  1008. end;
  1009. procedure TProjectFrame.CreateFrames;
  1010. begin
  1011. UpdateSysProgress(10, '正在解析数据');
  1012. CreateBillsFrame;
  1013. UpdateSysProgress(130, '正在解析数据');
  1014. CreateDealPaymentFrame;
  1015. UpdateSysProgress(140, '正在解析数据');
  1016. CreateBillsGatherFrame;
  1017. UpdateSysProgress(150, '正在解析数据');
  1018. CreatePriceMarginFrame;
  1019. FZJJLFrame := TZJJLFrame.Create(Self, FProjectData.PhaseData.ZJJLData);
  1020. FZJJLFrame.DataReadOnly := FProjectData.PhaseData.StageDataReadOnly;
  1021. AlignControl(FZJJLFrame, jpsAssistantZJJL, alClient);
  1022. UpdateSysProgress(160, '正在解析数据');
  1023. FBGLFrame := TBGLFrame.Create(Self, FProjectData.BGLData);
  1024. AlignControl(FBGLFrame, jpsAssistantBGL, alClient);
  1025. UpdateSysProgress(170, '正在解析数据');
  1026. FSearchFrame := TSearchFrame.Create(Self, FProjectData.SearchData);
  1027. AlignControl(FSearchFrame, jpsAssistantSearch, alClient);
  1028. UpdateSysProgress(180, '正在解析数据');
  1029. FBookmarkFrame := TBookmarkFrame.Create(Self, FProjectData);
  1030. AlignControl(FBookmarkFrame, jpsAssistantBookmark, alClient);
  1031. UpdateSysProgress(190, '正在解析数据');
  1032. FDealBillsFrame := TDealBillsFrame.Create(Self, FProjectData.DealBillsData);
  1033. AlignControl(FDealBillsFrame, jpsAssistantDealBills, alClient);
  1034. UpdateSysProgress(200, '就绪');
  1035. end;
  1036. procedure TProjectFrame.InitialForVersions;
  1037. begin
  1038. if _ModuleType = mtCompile then
  1039. begin
  1040. // 去掉审核比较
  1041. dxsbViewControl.Groups.Items[0].Items.Delete(3);
  1042. // 去掉计量台账
  1043. dxsbViewControl.Groups.Items[0].Items.Delete(1);
  1044. end;
  1045. end;
  1046. procedure TProjectFrame.ExpandBookmarkFrame(AExpandFrame: Boolean);
  1047. begin
  1048. // 展开书签
  1049. if AExpandFrame then
  1050. begin
  1051. jpsAssistant.ActivePageIndex := tobtnBookmark.Tag;
  1052. sbtnExpend.Tag := tobtnBookmark.Tag;
  1053. ControlAssistantButtonsDown(tobtnBookmark.Tag);
  1054. jpsMain.ActivePage.Tag := tobtnBookmark.Tag;
  1055. SetAssistantViewVisible(True);
  1056. SetImageOfsbtnExpend(True);
  1057. end;
  1058. // 刷新书签批注
  1059. FBookmarkFrame.RefreshMarkMemo;
  1060. end;
  1061. {
  1062. 在意外情况下,文件中记录的审核人与云端记录的审核人不一致,文件中的审核表有时
  1063. 被多创建,有时少创建。这时不允许继续操作,需强制关闭:
  1064. 1、如果第x个人为审核中,则:
  1065. ①当前登录用户,如果非工作中,无论编制人、审核人还是业主,审核表个数应为x。
  1066. ②当前登录用户,如果工作中,必是审核人或业主,审核表个数应为x + 1。
  1067. 2、如果找不到审核中,找到了第x个人为审核不通过,则:
  1068. ①当前登录用户为编制人:
  1069. a.重新开始:审核表个数应为1。
  1070. b.仅查看不通过项目:审核表个数应为x + 1。
  1071. ②当前登录用户为审核人或业主:一定是非工作中(编制人工作中),审核表个数应为x + 1。
  1072. 3、如果找不到审核中,也找不到审核不通过,如果最后一个人是审核完成,则:
  1073. ①当前登录用户为编制人,此时编制人尚末开始新的一期,下拉还是上一期的,审核表个数亦为x+1。
  1074. ②当前登录用户为审核人或业主,审核表个数为x+1。
  1075. 4、如果找不到审核中,也找不到审核不通过,如果第一个人是末审核,则:
  1076. ①当前登录用户为编制人,审核表个数应为1。 }
  1077. function TProjectFrame.CheckFileAndCloudChekerList: Boolean;
  1078. var iNo, iC: Integer;
  1079. begin
  1080. Result := False;
  1081. iC := jcbAudit.Items.Count;
  1082. if not Assigned(FCheckerFrame) then // 0号台帐阶段还没有审核人业务
  1083. begin
  1084. Result := True;
  1085. Exit;
  1086. end;
  1087. iNo := FCheckerFrame.CheckNo(csChecking);
  1088. if iNo <> -1 then // 审核中
  1089. begin
  1090. // FCheckerFrame.Me = nil :编制 (这里体现出编制人不在审核人列表中极不合理!)
  1091. if (FCheckerFrame.Me <> nil) and FCheckerFrame.Me.IsChecking then
  1092. Result := (iC = iNo + 1)
  1093. else
  1094. Result := (iC = iNo);
  1095. end
  1096. else
  1097. begin
  1098. iNo := FCheckerFrame.CheckNo(csNotPass);
  1099. if iNo <> -1 then // 审核不通过
  1100. begin
  1101. if ProjectData.CurUserIsAuthor then
  1102. Result := ((iC = 1) or (iC = iNo + 1))
  1103. else if FCheckerFrame.InCheckerList(PHPWeb.UserID) then
  1104. Result := (iC = iNo + 1);
  1105. end
  1106. else
  1107. begin
  1108. if FCheckerFrame.LastChecker.CheckStatus = csFinished then // 最后一个人是审核完成
  1109. Result := (iC = FCheckerFrame.List.Count + 1)
  1110. else // 第一个人是末审核
  1111. Result := (iC = 1);
  1112. end;
  1113. end;
  1114. end;
  1115. procedure TProjectFrame.tobtnUpFileClick(Sender: TObject);
  1116. begin
  1117. with TToolButton(Sender) do
  1118. begin
  1119. if Down then
  1120. begin
  1121. jpsAssistant.ActivePageIndex := Tag;
  1122. sbtnExpend.Tag := Tag;
  1123. ControlAssistantButtonsDown(Tag);
  1124. jpsMain.ActivePage.Tag := Tag;
  1125. end;
  1126. SetAssistantViewVisible(Down);
  1127. SetImageOfsbtnExpend(Down);
  1128. end;
  1129. CheckUpFile;
  1130. end;
  1131. procedure TProjectFrame.CreateUpFile;
  1132. begin
  1133. FUpFileManageView := TUpFileManageView.Create(nil);
  1134. FUpFileManageView.Owner := Self;
  1135. FUpFileManageView.ProjectData := FProjectData;
  1136. FUpFileManageView.Datas := FProjectData.AttachmentData;
  1137. FUpFileManageView.Parent := jpsAssistantUpFile;
  1138. FUpFileManageView.Align := alClient;
  1139. end;
  1140. procedure TProjectFrame.SetUpFileManageView(
  1141. const Value: TUpFileManageView);
  1142. begin
  1143. FUpFileManageView := Value;
  1144. end;
  1145. procedure TProjectFrame.jpsAssistantActivePageChanged(Sender: TObject);
  1146. begin
  1147. if G_IsCloud then
  1148. CheckUpFile;
  1149. end;
  1150. procedure TProjectFrame.CheckUpFile;
  1151. var vRec: TsdDataRecord;
  1152. begin
  1153. if jpsAssistant.Visible and (jpsAssistant.ActivePage = jpsAssistantUpFile) then
  1154. begin
  1155. if jpsMain.ActivePage = jpsMainBillsCompile then
  1156. begin
  1157. vRec := FBillsCompileFrame.BillsCompileData.sdvBillsCompile.Current;
  1158. if vRec = nil then
  1159. vRec := FBillsCompileFrame.stdBillsCompile.IDTree.Items[0].Rec;
  1160. end
  1161. else if jpsMain.ActivePage = jpsMainBillsMeasure then
  1162. begin
  1163. vRec := FBillsMeasureFrame.BillsMeasureData.sdvBillsMeasure.Current;
  1164. if vRec = nil then
  1165. vRec := FBillsMeasureFrame.stdBillsMeasure.IDTree.Items[0].Rec;
  1166. end;
  1167. FUpFileManageView.DoOnBillChange(vRec);
  1168. end;
  1169. end;
  1170. procedure TProjectFrame.SaveLog(AStr: string);
  1171. var
  1172. sFileName: string;
  1173. F: TextFile;
  1174. begin
  1175. sFileName := GetAppFilePath + 'TimeLog.txt';
  1176. AssignFile(F, sFileName);
  1177. if FileExists(sFileName) then
  1178. Append(F)
  1179. else
  1180. Rewrite(F);
  1181. Writeln(F, AStr);
  1182. CloseFile(F);
  1183. end;
  1184. procedure TProjectFrame.ReLockData;
  1185. begin
  1186. FProjectData.CanUnlockInfo := False;
  1187. FBillsCompileFrame.stdBillsCompile.Column('LockedInfo').ReadOnly := True;
  1188. end;
  1189. procedure TProjectFrame.CloseCompare;
  1190. begin
  1191. FPhaseCompareFrame.Free;
  1192. FProjectData.PhaseCompareData.Close;
  1193. FProjectData.PhaseData.StageCompareData.Close;
  1194. end;
  1195. procedure TProjectFrame.OpenCompare;
  1196. begin
  1197. FProjectData.PhaseData.Save;
  1198. FProjectData.PhaseData.StageCompareData.Open;
  1199. FProjectData.PhaseCompareData.Open;
  1200. FPhaseCompareFrame := TPhaseCompareFrame.Create(Self, FProjectData.PhaseCompareData);
  1201. AlignControl(FPhaseCompareFrame, jpsMainStageCompare, alClient);
  1202. end;
  1203. procedure TProjectFrame.RefreshColumnDisplay;
  1204. begin
  1205. BillsCompileFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
  1206. BillsCompileFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
  1207. BillsMeasureFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
  1208. BillsMeasureFrame.ShowBGLCode := FProjectData.ProjProperties.ShowBGLCode;
  1209. BillsMeasureFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
  1210. BillsMeasureFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
  1211. BillsGatherFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
  1212. end;
  1213. procedure TProjectFrame.RefreshProjectState;
  1214. begin
  1215. FBillsCompileFrame.RefreshPhase_Stage;
  1216. FBillsMeasureFrame.RefreshPhase_Stage;
  1217. FDealPaymentFrame.RefreshPhase_Stage;
  1218. FPriceMarginFrame.ResetViewControl;
  1219. end;
  1220. procedure TProjectFrame.ExpandCurPhase;
  1221. begin
  1222. Screen.Cursor := crHourGlass;
  1223. UpdateSysProgress(0, '正在显示至项目节');
  1224. try
  1225. case jpsMain.ActivePageIndex of
  1226. 1: FBillsMeasureFrame.ExpandCurPhase;
  1227. 3: FPhaseCompareFrame.ExpandCurPhase;
  1228. end;
  1229. finally
  1230. UpdateSysProgress(0, '就绪');
  1231. Screen.Cursor := crDefault;
  1232. end;
  1233. end;
  1234. function TProjectFrame.CheckCanReport: Boolean;
  1235. begin
  1236. Result := QuestMessageYesNo('请确定已生成中间计量数据?');
  1237. // 使用控件点击进行定位,重新定义方法太复杂
  1238. if not Result then
  1239. begin
  1240. // 先定位至计量台账界面
  1241. dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items[1];
  1242. dxsbViewControlItemClick(dxsbViewControl, dxsbViewControl.ActiveGroup.Items[1]);
  1243. // 再定位至中间计量界面
  1244. tobtnZJJL.Down := True;
  1245. tobtnZJJL.Click;
  1246. end;
  1247. end;
  1248. procedure TProjectFrame.actnAllPegExecute(Sender: TObject);
  1249. begin
  1250. Screen.Cursor := crHourGlass;
  1251. UpdateSysProgress(0, '正在显示至桩号(项目节)');
  1252. try
  1253. case jpsMain.ActivePageIndex of
  1254. 0: FBillsCompileFrame.ExpandPegXmjNode;
  1255. end;
  1256. finally
  1257. UpdateSysProgress(0, '就绪');
  1258. Screen.Cursor := crDefault;
  1259. end;
  1260. end;
  1261. procedure TProjectFrame.CreatePriceMarginFrame;
  1262. begin
  1263. FPriceMarginFrame := TPriceMarginFrame.Create(FProjectData);
  1264. AlignControl(FPriceMarginFrame, jpsMainPriceMargin, alClient);
  1265. end;
  1266. end.