ProjectFme.pas 41 KB

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