ProjectData.pas 71 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003
  1. unit ProjectData;
  2. interface
  3. uses
  4. Connections, BillsDm, PhaseData, UpdateDataBase, ZhAPI, ProjectProperty,
  5. PhaseCompareDm, DealPaymentDm, SearchDm, DealBillsDm, MainDataListDm,
  6. BillsGatherDm, BGLDm, StaffDm, BillsCompileDm, BillsMeasureDm,
  7. BillsBookmarkDm, UpFileManageUnit, ProjectGLDm, PriceMarginBillsDm,
  8. DetailGLDm, OtherMeasureOnceDm,
  9. Classes, SysUtils, ADODB, sdDB, Checker;
  10. type
  11. TProjectData = class
  12. private
  13. // 临时文件夹,解压项目后存放文件的文件夹
  14. FTempFolder: string;
  15. // 项目管理界面看到的项目名称
  16. FProjectName: string;
  17. FFileName: string;
  18. FProjectID: Integer;
  19. FConnection: TEncryptConnection;
  20. FUpdator: TUpdateProjectDB;
  21. FIsNewFile: Boolean;
  22. FDebugDir: string;
  23. FBillsData: TBillsData;
  24. FBillsCompileData: TBillsCompileData;
  25. FBillsMeasureData: TBillsMeasureData;
  26. FBillsBookmarkData: TBillsBookmarkData;
  27. FDealBillsData: TDealBillsData;
  28. FProjProperties: TProjProperties;
  29. FPhaseIndex: Integer;
  30. FPhaseData: TPhaseData;
  31. FPhaseCompareData: TPhaseCompareData;
  32. FBillsGatherData: TBillsGatherData;
  33. FDealPaymentData: TDealPaymentData;
  34. FBGLData: TBGLData;
  35. FStaffData: TStaffData;
  36. FSearchData: TSearchData;
  37. FMainListData: TMainListData;
  38. FProjectGLData: TProjectGLData;
  39. FDetailGLData: TDetailGLData;
  40. FPriceMarginBillsData: TPriceMarginBillsData;
  41. FOtherMeasureOnceData: TOtherMeasureOnceData;
  42. FCanUnlockInfo: Boolean;
  43. FWebID: Integer;
  44. FWebOwnerID: Integer;
  45. FWebAuthorID: Integer;
  46. FAuthorHasSubmited: Boolean;
  47. FProjectReadOnly: Boolean;
  48. FAttachmentData: TUpFiles;
  49. FCheckers: TCheckers;
  50. {For Open}
  51. procedure UpdateProjectDataBase;
  52. procedure CheckNewFile(AConnection: TADOConnection);
  53. procedure OpenLastPhaseData;
  54. procedure UpdateOldData;
  55. procedure SaveInfoToManager;
  56. procedure DropCacheTable(const AKey: string);
  57. // 备份0号台账的历史数据
  58. procedure CopyLedgerHistoryData(AAudit: Integer);
  59. // 备份各期的截止本期累计完成数据
  60. procedure CopyPhaseCompleteData;
  61. procedure SetPhaseIndexSimple(AIndex: Integer);
  62. // 锁定数据 -- Sql语句方式(使用时注意相应的DataMoudle应处于关闭状态)
  63. procedure LockBillsBaseData;
  64. procedure LockDealPaymentData;
  65. procedure LockProjectGLData;
  66. procedure LockDetailGLData;
  67. procedure UpdatePhaseData;
  68. procedure CloseAllData;
  69. procedure OpenAllData;
  70. function GetMainFileName: string;
  71. procedure SetPhaseIndex(const Value: Integer);
  72. function GetTempPath: string;
  73. function GetProjectFileName: string;
  74. function GetAllowInsert: Boolean;
  75. function GetBaseDataReadOnly: Boolean;
  76. function GetADOConnection: TADOConnection;
  77. procedure SetCheckers(const Value: TCheckers);
  78. function GetStageDataReadOnly: Boolean;
  79. function GetPriceMarginReadOnly: Boolean;
  80. function GetStageIndex: Integer;
  81. procedure SetStageIndex(const Value: Integer);
  82. function GetCanInsertNormalBills: Boolean;
  83. function GetValidStageIsRefer: Boolean;
  84. public
  85. constructor Create;
  86. destructor Destroy; override;
  87. procedure Open(AProjRec: TsdDataRecord);
  88. procedure Save;
  89. //----------------------- Begin ---后台打开 ------------------------
  90. {总说明:
  91. 为节省内存使用,对不同的后台打开分别写不同的方法
  92. 按需使用,稍有不同,则新增后台打开方法
  93. 变更(新增)方法须同步变更(新增)注释
  94. }
  95. {OpenForSubmit: ProjProperties, StaffData}
  96. procedure OpenForSubmit(const AFileName: string);
  97. procedure SaveAsForSubmit(const AFileName: string);
  98. {OpenForReply: ProjProperties, StaffData, PhaseData, DetailGLData}
  99. procedure OpenForReply(const AFileName: string);
  100. procedure SaveForReply(const AFileName: string);
  101. {OpenForReceive: ProjProperties, StaffData, PhaseData, StageData}
  102. procedure OpenForReceive(const AFileName: string);
  103. procedure SaveForReceive(const AFileName: string);
  104. {SimpleOpen: 仅打开数据库[项目+最后一期],不打开除属性以外的任何数据表(项目属性都是通过Sql语句修改)}
  105. procedure SimpleOpen(const AFileName: string);
  106. procedure SimpleSaveAs(const AFileName: string);
  107. {OpenForReport: BillsData, BillsCompileData, DealPaymentData, BGLData 报表仅读取数据不做任何修改}
  108. procedure OpenForReport(const AFileName: string);
  109. {OpenForReport2: OpenForReport的基础上打开最后一期数据}
  110. procedure OpenForReport2(const AFileName: string);
  111. {OpenForReport3: OpenForReport2的基础上打开最后一个审核人数据,打开BillsMeasureTree不打开BillsCompileTree,链接BillsMeasureTree跟StageData}
  112. procedure OpenForReport3(const AFileName: string);
  113. {OpenForGather: BillsData, BillsMeasureTree, DealPaymentData, BGLData, PhaseData(根据PhaseIndex指定打开)}
  114. procedure OpenForGather(const AFileName: string; APhaseIndex: Integer = -1);
  115. //----------------------- End ---后台打开 ------------------------
  116. procedure SaveDebugFile(const AFileName: string);
  117. procedure SaveTempDataBaseFile(const AFileName: string);
  118. procedure SaveLastestPhaseMainData;
  119. procedure CopyPreData;
  120. procedure CreateNewPhase;
  121. {重设所有LookUpDataset连接}
  122. procedure ResetPhaseDataLink;
  123. {重设所有DataView小数位数显示}
  124. procedure ResetFloatDigitView;
  125. {锁定数据}
  126. // 上报
  127. procedure LockedDataForSubmit;
  128. // 终审批复
  129. procedure LockedDataForReply;
  130. {创建审核数据}
  131. procedure UpdateDataForReceive;
  132. // 上报文件:
  133. { 返回值:
  134. 1. True 文件检验结果正确,生成文件
  135. 2. False 文件检验结果错误,不生成文件}
  136. function SubmitProject(const AFileName: string = ''): Boolean;
  137. // 批复文件: 返回值含义同上报
  138. function ReplyProject(const AFileName: string = ''): Boolean;
  139. // json文件:清单
  140. procedure ExportJson_Bills(const AFileName: string);
  141. procedure ExportJson_Common(const AFileName: string);
  142. // 断开所有树的链接
  143. procedure DisConnectTree;
  144. // 重新连接所有的树
  145. procedure ReConnectTree;
  146. {For Reports: 复制当期的全部数据到项目数据中}
  147. procedure CopyPhaseData;
  148. procedure ClearReportCacheData;
  149. procedure ClearReportPrepareData;
  150. procedure ExecuteSql(const ASql: string);
  151. procedure CalculateAll;
  152. procedure CalculatePriceMargin;
  153. function CheckDataBaseInfo(APhaseCount, AAuditStatus: Integer): Boolean;
  154. procedure ImportCloudTenderFile(const AFileName: string);
  155. procedure ImportDmfFile(const AFileName: string);
  156. function CheckPassword: Boolean;
  157. function CurUserIsOwner: Boolean;
  158. function CurUserIsAuthor: Boolean;
  159. function CurUserIsChecker: Boolean;
  160. property BillsData: TBillsData read FBillsData;
  161. property BillsCompileData: TBillsCompileData read FBillsCompileData;
  162. property BillsMeasureData: TBillsMeasureData read FBillsMeasureData;
  163. property BillsBookmarkData: TBillsBookmarkData read FBillsBookmarkData;
  164. property DealBillsData: TDealBillsData read FDealBillsData;
  165. property PhaseIndex: Integer read FPhaseIndex write SetPhaseIndex;
  166. property StageIndex: Integer read GetStageIndex write SetStageIndex;
  167. property PhaseData: TPhaseData read FPhaseData;
  168. property ProjProperties: TProjProperties read FProjProperties;
  169. property PhaseCompareData: TPhaseCompareData read FPhaseCompareData;
  170. property BillsGatherData: TBillsGatherData read FBillsGatherData;
  171. property DealPaymentData: TDealPaymentData read FDealPaymentData;
  172. property BGLData: TBGLData read FBGLData;
  173. property StaffData: TStaffData read FStaffData;
  174. property SearchData: TSearchData read FSearchData;
  175. property MainListData: TMainListData read FMainListData;
  176. property AttachmentData: TUpFiles read FAttachmentData; // 附件
  177. property ProjectGLData: TProjectGLData read FProjectGLData;
  178. property DetailGLData: TDetailGLData read FDetailGLData;
  179. property PriceMarginBillsData: TPriceMarginBillsData read FPriceMarginBillsData;
  180. property OtherMeasureOnceData: TOtherMeasureOnceData read FOtherMeasureOnceData;
  181. // 台账、合同支付
  182. property AllowInsert: Boolean read GetAllowInsert;
  183. property BaseDataReadOnly: Boolean read GetBaseDataReadOnly;
  184. property StageDataReadOnly: Boolean read GetStageDataReadOnly;
  185. property PriceMarginReadOnly: Boolean read GetPriceMarginReadOnly;
  186. property ValidStageIsRefer: Boolean read GetValidStageIsRefer;
  187. property CanUnlockInfo: Boolean read FCanUnlockInfo write FCanUnlockInfo;
  188. property CanInsertNormalBills: Boolean read GetCanInsertNormalBills;
  189. property ProjectName: string read FProjectName;
  190. // 磁盘上存储该项目的文件名称
  191. property FileName: string read FFileName;
  192. property ProjectID: Integer read FProjectID;
  193. property MainFileName: string read GetMainFileName;
  194. property TempPath: string read GetTempPath;
  195. property ADOConnection: TADOConnection read GetADOConnection;
  196. property WebID: Integer read FWebID;
  197. property WebOwnerID: Integer read FWebOwnerID;
  198. property WebAuthorID: Integer read FWebAuthorID;
  199. property AuthorHasSubmited: Boolean read FAuthorHasSubmited write FAuthorHasSubmited;
  200. property ProjectReadOnly: Boolean read FProjectReadOnly;
  201. property Checkers: TCheckers read FCheckers write SetCheckers;
  202. end;
  203. implementation
  204. uses UtilMethods, Globals, ProjectCommands, sdIDTree, StageDm,
  205. ZJJLDm, PHPWebDm, XMLDoc, XMLIntf, ConstUnit, PasswordInputFrm,
  206. mProgressProFrm, mDataRecord, ConditionalDefines, DbTreeImport;
  207. { TProjectData }
  208. procedure TProjectData.CheckNewFile(AConnection: TADOConnection);
  209. var
  210. FTableList: TStringList;
  211. begin
  212. FTableList := TStringList.Create;
  213. try
  214. AConnection.GetTableNames(FTableList);
  215. FIsNewFile := FTableList.Count = 0;
  216. finally
  217. FTableList.Free;
  218. end;
  219. end;
  220. procedure TProjectData.CopyLedgerHistoryData(AAudit: Integer);
  221. const
  222. sSql = 'Select ID as BillsID, Quantity, TotalPrice, QtyFlag, QtyFormula ' +
  223. 'Into LedgerHistory%d '+
  224. 'From Bills';
  225. begin
  226. ExecuteSql(Format(sSql, [AAudit]));
  227. end;
  228. constructor TProjectData.Create;
  229. begin
  230. FCheckers := TCheckers.Create;
  231. FTempFolder := GenerateTempFolder(GetTempFilePath);
  232. FConnection := TEncryptConnection.Create;
  233. FUpdator := TUpdateProjectDB.Create;
  234. FProjProperties := TProjProperties.Create(Self);
  235. FBillsData := TBillsData.Create(Self);
  236. FBillsCompileData := TBillsCompileData.Create(Self);
  237. FBillsMeasureData := TBillsMeasureData.Create(Self);
  238. FBillsBookmarkData := TBillsBookmarkData.Create(Self);
  239. FDealBillsData := TDealBillsData.Create(Self);
  240. FPhaseData := TPhaseData.Create(Self);
  241. FPhaseCompareData := TPhaseCompareData.Create(Self);
  242. FBillsGatherData := TBillsGatherData.Create(Self);
  243. FDealPaymentData := TDealPaymentData.Create(Self);
  244. FBGLData := TBGLData.Create(Self);
  245. FStaffData := TStaffData.Create(Self);
  246. FSearchData := TSearchData.Create(Self);
  247. FMainListData := TMainListData.Create(Self);
  248. FProjectGLData := TProjectGLData.Create(Self);
  249. FDetailGLData := TDetailGLData.Create(Self);
  250. FPriceMarginBillsData := TPriceMarginBillsData.Create(Self);
  251. FOtherMeasureOnceData := TOtherMeasureOnceData.Create(Self);
  252. FAttachmentData := TUpFiles.Create;
  253. FPhaseIndex := 0;
  254. end;
  255. procedure TProjectData.CreateNewPhase;
  256. var
  257. sPhaseFileName: string;
  258. begin
  259. FBillsData.LockedBaseData;
  260. FProjProperties.PhaseCount := FProjProperties.PhaseCount + 1;
  261. FProjProperties.AuditStatus := 0;
  262. FStaffData.UpdateDataForNewPhase;
  263. sPhaseFileName := Format('%s\Phase%d.dat', [TempPath, FProjProperties.PhaseCount]);
  264. CopyFileOrFolder(GetEmptyDataBaseFileName, sPhaseFileName);
  265. end;
  266. destructor TProjectData.Destroy;
  267. begin
  268. try
  269. FCheckers.Free;
  270. FOtherMeasureOnceData.Free;
  271. FPriceMarginBillsData.Free;
  272. FDetailGLData.Free;
  273. FProjectGLData.Free;
  274. FMainListData.Free;
  275. FSearchData.Free;
  276. FStaffData.Free;
  277. FBGLData.Free;
  278. FDealPaymentData.Free;
  279. FPhaseCompareData.Free;
  280. FPhaseData.Free;
  281. FProjProperties.Free;
  282. FDealBillsData.Free;
  283. FBillsBookmarkData.Free;
  284. FBillsMeasureData.Free;
  285. FBillsCompileData.Free;
  286. FBillsData.Free;
  287. FAttachmentData.Free;
  288. FUpdator.Free;
  289. FConnection.Free;
  290. finally
  291. DeleteFileOrFolder(FTempFolder);
  292. DeleteFileOrFolder(FDebugDir);
  293. end;
  294. inherited;
  295. end;
  296. function TProjectData.GetBaseDataReadOnly: Boolean;
  297. begin
  298. if FProjProperties.PhaseCount = 0 then
  299. Result := False
  300. else
  301. Result := not AllowInsert;
  302. end;
  303. function TProjectData.GetAllowInsert: Boolean;
  304. begin
  305. if FPhaseData.Active then
  306. Result := FPhaseData.AllowInsert
  307. else
  308. Result := True;
  309. end;
  310. function TProjectData.GetMainFileName: string;
  311. begin
  312. Result := TempPath + 'Main.dat';
  313. end;
  314. function TProjectData.GetProjectFileName: string;
  315. begin
  316. Result := GetMyProjectsFilePath + FProjectName;
  317. end;
  318. function TProjectData.GetTempPath: string;
  319. begin
  320. Result := FTempFolder + '\';
  321. end;
  322. procedure TProjectData.LockedDataForReply;
  323. begin
  324. LockBillsBaseData;
  325. LockDealPaymentData;
  326. LockProjectGLData;
  327. LockDetailGLData;
  328. FPhaseData.PhaseProperty.FinalAudit := True;
  329. // 有顺序限制,谨慎修改
  330. FProjProperties.AuditCompany := FStaffData.FinalStaffCompany;
  331. FProjProperties.AuditStatus := -1;
  332. FProjProperties.FinalAuditCount := FProjProperties.PhaseCount;
  333. FStaffData.LockedDataForReply;
  334. end;
  335. procedure TProjectData.LockedDataForSubmit;
  336. begin
  337. LockBillsBaseData;
  338. LockDealPaymentData;
  339. FProjProperties.AuditCompany := FStaffData.FinalStaffCompany;
  340. FStaffData.LockedDataForAudit;
  341. end;
  342. procedure TProjectData.Open(AProjRec: TsdDataRecord);
  343. begin
  344. {Open规则:在打开Phase或者设置PhaseIndex时,会设置多个LookUpDataset,
  345. 故要求须在BillsData、DealPayment打开之后}
  346. FProjectName := AProjRec.ValueByName('Name').AsString;
  347. FFileName := GetMyProjectsFilePath + AProjRec.ValueByName('FileName').AsString;
  348. FProjectID := AProjRec.ValueByName('ID').AsInteger;
  349. FWebID := AProjRec.ValueByName('WebID').AsInteger;
  350. FWebOwnerID := AProjRec.ValueByName('WebOwnerID').AsInteger;
  351. FWebAuthorID := AProjRec.ValueByName('WebAuthorID').AsInteger;
  352. FAttachmentData.ProjectData := Self;
  353. FAttachmentData.LoadDatas;
  354. UpdateSysProgress(5, '正在打开项目');
  355. UnZipFile(FileName, TempPath);
  356. UpdateSysProgress(10, '正在打开项目');
  357. FConnection.Open(MainFileName);
  358. CheckNewFile(FConnection.Connection);
  359. UpdateSysProgress(15, '正在升级文件');
  360. UpdateProjectDataBase;
  361. UpdateSysProgress(20, '正在读取数据');
  362. FProjProperties.Open(FConnection.Connection);
  363. if FIsNewFile then
  364. FProjProperties.UpdateFlag := 1;
  365. UpdateOldData;
  366. ResetFloatDigitView;
  367. FProjProperties.DecimalManager.ResetLinkViewColumns;
  368. UpdateSysProgress(25, '正在读取数据');
  369. FBillsData.Open(FConnection.Connection);
  370. if FIsNewFile then
  371. FBillsData.InitBills;
  372. FBillsCompileData.Open;
  373. FBillsMeasureData.Open;
  374. UpdateSysProgress(65, '正在读取数据');
  375. FBillsBookmarkData.Open;
  376. UpdateSysProgress(70, '正在读取数据');
  377. FDealBillsData.Open(FConnection.Connection);
  378. UpdateSysProgress(80, '正在读取数据');
  379. FDealPaymentData.Open(FConnection.Connection);
  380. if FIsNewFile then
  381. FDealPaymentData.Init;
  382. UpdateSysProgress(90, '正在读取数据');
  383. OpenLastPhaseData;
  384. UpdateSysProgress(140, '正在读取数据');
  385. // 价差数据应在当期数据打开后打开
  386. FProjectGLData.Open(FConnection.Connection);
  387. FDetailGLData.Open(FConnection.Connection);
  388. FBGLData.Open(FConnection.Connection);
  389. UpdateSysProgress(160, '正在读取数据');
  390. FStaffData.Open(FConnection.Connection);
  391. UpdateSysProgress(180, '正在读取数据');
  392. //FBillsGatherData.RefreshBills;
  393. FMainListData.Open(FConnection.Connection);
  394. FOtherMeasureOnceData.Open(FConnection.Connection);
  395. UpdateSysProgress(200, '就绪');
  396. if _IsDebugView then
  397. begin
  398. FDebugDir := GetAppFilePath + 'Debug\' + FProjectName;
  399. CreateDirectoryInDeep(FDebugDir);
  400. end;
  401. end;
  402. procedure TProjectData.OpenLastPhaseData;
  403. begin
  404. if ProjProperties.PhaseCount = 0 then Exit;
  405. FPhaseIndex := ProjProperties.PhaseCount;
  406. FProjProperties.PhaseIndex := FPhaseIndex;
  407. FPhaseData.Open(Format('%sPhase%d.dat', [TempPath, FPhaseIndex]));
  408. ResetPhaseDataLink;
  409. end;
  410. procedure TProjectData.Save;
  411. begin
  412. try
  413. UpdateSysProgress(5, '正在保存数据');
  414. SaveLastestPhaseMainData;
  415. UpdateSysProgress(10, '正在保存数据');
  416. if (FPhaseData.Active) and (FPhaseIndex = ProjProperties.PhaseCount) then
  417. FPhaseData.Save;
  418. UpdateSysProgress(40, '正在保存数据');
  419. FMainListData.Save;
  420. FDealPaymentData.Save;
  421. UpdateSysProgress(50, '正在保存数据');
  422. FStaffData.Save;
  423. UpdateSysProgress(60, '正在保存数据');
  424. FBGLData.Save;
  425. UpdateSysProgress(70, '正在保存数据');
  426. FDealBillsData.Save;
  427. UpdateSysProgress(80, '正在保存数据');
  428. FProjectGLData.Save;
  429. FDetailGLData.Save;
  430. UpdateSysProgress(100, '正在保存数据');
  431. FBillsCompileData.ReLockBaseData;
  432. UpdateSysProgress(110, '正在保存数据');
  433. FBillsData.Save;
  434. UpdateSysProgress(165, '正在保存数据');
  435. FOtherMeasureOnceData.Save;
  436. UpdateSysProgress(170, '正在保存数据');
  437. FProjProperties.AuditCompany := FStaffData.FinalStaffCompany;
  438. FProjProperties.Save;
  439. UpdateSysProgress(180, '正在保存数据');
  440. FConnection.Save;
  441. UpdateSysProgress(190, '正在保存数据');
  442. ZipFolder(FTempFolder, FileName);
  443. SaveInfoToManager;
  444. UpdateSysProgress(200, '就绪');
  445. ProjectManager.AddSaveTenderBackup(FProjectID);
  446. except
  447. ErrorMessage('保存数据出错。请重试,或联系纵横客服:企业QQ:800003850 客服热线:(0756)3850888');
  448. end;
  449. end;
  450. procedure TProjectData.SaveInfoToManager;
  451. var
  452. InfoRec, PhaseRec: TsdDataRecord;
  453. begin
  454. InfoRec := ProjectManager.sddProjectsInfo.FindKey('idxID', FProjectID);
  455. PhaseRec := MainListData.GetPhaseMainRecord(ProjProperties.PhaseCount);
  456. InfoRec.ValueByName('DealTotalPrice').AsFloat := FBillsData.Settlement[DealIndex];
  457. InfoRec.ValueByName('Deal_BGLTotalPrice').AsFloat := FBillsData.Settlement[DealIndex] + FBGLData.AllBGLTotalPrice;
  458. InfoRec.ValueByName('PhaseTotalPrice').AsFloat := PhaseRec.ValueByName('GatherTotalPrice').AsFloat;
  459. InfoRec.ValueByName('EndDealTotalPrice').AsFloat := PhaseRec.ValueByName('EndDealTotalPrice').AsFloat;
  460. InfoRec.ValueByName('EndChangeTotalPrice').AsFloat :=
  461. PhaseRec.ValueByName('EndQcTotalPrice').AsFloat + PhaseRec.ValueByName('EndPcTotalPrice').AsFloat;
  462. InfoRec.ValueByName('EndTotalPrice').AsFloat := PhaseRec.ValueByName('EndGatherTotalPrice').AsFloat;
  463. InfoRec.ValueByName('PreTotalPrice').AsFloat := PhaseRec.ValueByName('PreGatherTotalPrice').AsFloat;
  464. InfoRec.ValueByName('PhasePay').AsFloat := PhaseRec.ValueByName('PhasePay').AsFloat;
  465. InfoRec.ValueByName('PhaseCount').AsInteger := FProjProperties.PhaseCount;
  466. InfoRec.ValueByName('AuditStatus').AsInteger := FProjProperties.AuditStatus;
  467. ProjectManager.Save;
  468. end;
  469. procedure TProjectData.SetPhaseIndex(const Value: Integer);
  470. function GetPhaseFileName: string;
  471. begin
  472. Result := Format('%s\Phase%d.dat', [TempPath, FPhaseIndex]);
  473. end;
  474. procedure ReCreatePhaseData(AOrgPhaseIndex: Integer);
  475. begin
  476. if (FPhaseData.Active) and (AOrgPhaseIndex = ProjProperties.PhaseCount) then
  477. FPhaseData.Save;
  478. FPhaseData.Free;
  479. FBillsMeasureData.FreeTreeNodeStageRec;
  480. FPhaseData := TPhaseData.Create(Self);
  481. end;
  482. var
  483. iOrgPhaseIndex: Integer;
  484. begin
  485. SaveLastestPhaseMainData;
  486. FProjectGLData.Save;
  487. iOrgPhaseIndex := FPhaseIndex;
  488. FPhaseIndex := Value;
  489. ProjProperties.PhaseIndex := FPhaseIndex;
  490. ReCreatePhaseData(iOrgPhaseIndex);
  491. FPhaseData.Open(GetPhaseFileName);
  492. ResetPhaseDataLink;
  493. // 须保存项目工料数据,重新加载当期的项目工料数据
  494. FProjectGLData.LoadCurPhaseInfoPrice;
  495. FProjectGLData.LoadStagePM_CalcData;
  496. FProjectGLData.RefreshGatherData;
  497. //BillsGatherData.RefreshBills;
  498. end;
  499. procedure TProjectData.SetPhaseIndexSimple(AIndex: Integer);
  500. begin
  501. FPhaseIndex := AIndex;
  502. if FPhaseData.Active then
  503. FPhaseData.SimpleSave;
  504. FPhaseData.Free;
  505. FPhaseData := TPhaseData.Create(Self);
  506. FPhaseData.SimpleOpen(Format('%s\Phase%d.dat', [TempPath, FPhaseIndex]));
  507. end;
  508. procedure TProjectData.UpdateProjectDataBase;
  509. const
  510. sHint = '标段文件(%s)高于当前软件支持:' + #13#10 +
  511. '专业版:请升级软件;' + #13#10 +
  512. '云版:请联系纵横客服,确认是否可升级软件。';
  513. begin
  514. if TEncryptConnection(FConnection).OverExe then
  515. WarningMessage(Format(sHint, [TEncryptConnection(FConnection).CurFileVersion]));
  516. FUpdator.Update(FConnection);
  517. end;
  518. procedure TProjectData.ResetPhaseDataLink;
  519. begin
  520. BillsMeasureData.ResetPhaseStageLink;
  521. BillsMeasureData.ResetTreeNodeStageRec;
  522. DealPaymentData.ResetPhaseLink;
  523. BillsBookmarkData.ResetPhaseStageLink;
  524. end;
  525. procedure TProjectData.SimpleOpen(const AFileName: string);
  526. begin
  527. FProjectID := -1;
  528. UnZipFile(AFileName, TempPath);
  529. FConnection.Open(MainFileName);
  530. UpdateProjectDataBase;
  531. FProjProperties.Open(FConnection.Connection);
  532. if ProjProperties.PhaseCount > 0 then
  533. begin
  534. FPhaseIndex := ProjProperties.PhaseCount;
  535. FPhaseData.SimpleOpen(Format('%sPhase%d.dat', [TempPath, FPhaseIndex]));
  536. end;
  537. end;
  538. procedure TProjectData.SimpleSaveAs(const AFileName: string);
  539. begin
  540. if FPhaseData.Active then
  541. FPhaseData.SimpleSave;
  542. FProjProperties.Save;
  543. FConnection.Save;
  544. ZipFolder(FTempFolder, AFileName);
  545. end;
  546. procedure TProjectData.UpdateDataForReceive;
  547. begin
  548. UpdatePhaseData;
  549. end;
  550. procedure TProjectData.UpdatePhaseData;
  551. function GetUpdateGLPriceSql(AAuditStatus, APhaseCount: Integer): string;
  552. const
  553. vFields: array [0..5] of String = ('PM_Quantity', 'PM_TotalPrice', 'PAL_UsedQuantity', 'PAL_UsedTotalPrice', 'PAL_DeltaPrice', 'PAL_Total');
  554. sUpdateSql = 'Update GLPrice Set %s Where PhaseID = %d';
  555. {sUpdateSql = 'Update GLPrice Set PM_Quantity%d = PM_Quantity%d, PM_TotalPrice%d = PM_TotalPrice%d,'+
  556. ' PAL_UsedQuantity%d = PAL_UsedQuantity%d, PAL_UsedTotalPrice%d = PAL_UsedTotalPrice%d,'+
  557. ' PAL_DeltaPrice%d = PAL_DeltaPrice%d, PAL_Total%d = PAL_Total%d'+
  558. ' Where PhaseID = %d';}
  559. var
  560. sField: string;
  561. i: Integer;
  562. begin
  563. sField := '';
  564. for i := Low(vFields) to High(vFields) do
  565. begin
  566. if i = High(vFields) then
  567. sField := sField + Format('%s%d = %s%d', [vFields[i], AAuditStatus, vFields[i], AAuditStatus-1])
  568. else
  569. sField := sField + Format('%s%d = %s%d, ', [vFields[i], AAuditStatus, vFields[i], AAuditStatus-1])
  570. end;
  571. Result := Format(sUpdateSql, [sField, APhaseCount]);
  572. end;
  573. procedure UpdateGLPriceData;
  574. var
  575. sSql: string;
  576. begin
  577. if (ProjProperties.PhaseCount < 1) or (ProjProperties.AuditStatus < 1) then Exit;
  578. sSql := GetUpdateGLPriceSql(ProjProperties.AuditStatus, ProjProperties.PhaseCount);
  579. ExecuteSql(sSql);
  580. end;
  581. var
  582. iPhase: Integer;
  583. begin
  584. FProjProperties.AuditStatus := FProjProperties.AuditStatus + 1;
  585. for iPhase := FProjProperties.FinalAuditCount + 1 to FProjProperties.PhaseCount do
  586. begin
  587. SetPhaseIndexSimple(iPhase);
  588. PhaseData.CreateNewAuditData;
  589. StaffData.UpdateDataForNewAudit;
  590. UpdateGLPriceData;
  591. end;
  592. end;
  593. function TProjectData.ReplyProject(const AFileName: string = ''): Boolean;
  594. var
  595. Replyor: TReplyProject;
  596. begin
  597. Replyor := TReplyProject.Create(FProjectName, FFileName, FProjectID);
  598. try
  599. if AFileName = '' then
  600. Result := Replyor.Execute
  601. else
  602. Result := Replyor.ExportTo(AFileName);
  603. finally
  604. Replyor.Free;
  605. end;
  606. end;
  607. function TProjectData.SubmitProject(const AFileName: string = ''): Boolean;
  608. var
  609. Submitor :TSubmitProject;
  610. begin
  611. Submitor := TSubmitProject.Create(FProjectName, FFileName, FProjectID);
  612. try
  613. if AFileName = '' then
  614. Result := Submitor.Execute
  615. else
  616. Result := Submitor.ExportTo(AFileName);
  617. finally
  618. Submitor.Free;
  619. end;
  620. end;
  621. procedure TProjectData.ExportJson_Bills(const AFileName: string);
  622. function GetProjectName: string;
  623. var
  624. vNode: tsdIDTreeNode;
  625. begin
  626. vNode := ProjectManager.ProjectsTree.FindNode(FProjectID).Parent;
  627. Result := vNode.Rec.ValueByName('Name').AsString;
  628. end;
  629. // lkJSON 暂时未找到添加数组结构的办法,官方也没有提供相关的Demo,自己合成。
  630. // lkJSON 合成的长文本自动带有大量“\”转义字符,这点有些烦人。
  631. // 其实这么折腾,还不如自己直接合成。那为什么还要用它?自己写是很容易,但是
  632. // 要自己读JSON,那写起来就很麻烦了。
  633. function BillsStr: string;
  634. var vRec: TsdDataRecord;
  635. i: Integer;
  636. sSplit: string;
  637. function v(AFieldName: string): string;
  638. begin
  639. Result := vRec.ValueByName(AFieldName).AsString;
  640. end;
  641. // 杰哥那头不识别中文,将中文转成URL编码形式
  642. function URLEncode(const S: string; const InQueryString: Boolean): string;
  643. var
  644. Idx: Integer;
  645. begin
  646. Result := '';
  647. for Idx := 1 to Length(S) do
  648. begin
  649. case S[Idx] of
  650. 'A'..'Z', 'a'..'z', '0'..'9', '-', '_', '.':
  651. Result := Result + S[Idx];
  652. ' ':
  653. if InQueryString then
  654. Result := Result + '+'
  655. else
  656. Result := Result + '%20';
  657. else
  658. Result := Result + '%' + SysUtils.IntToHex(Ord(S[Idx]), 2);
  659. end;
  660. end;
  661. end;
  662. begin
  663. for i := 0 to BillsMeasureData.BillsMeasureTree.Count - 1 do
  664. begin
  665. vRec := BillsMeasureData.BillsMeasureTree.Items[i].Rec;
  666. if (i mod 100) = 0 then
  667. ProgressProRun('生成汇总数据... ' + IntToStr(i), 0, pmtEdit, pptSet);
  668. if i = 0 then
  669. sSplit := ''
  670. else
  671. sSplit := ',';
  672. Result := Result + sSplit + Format('{"Code":"%s","B_Code":"%s","Name":"%s",' +
  673. '"Units":"%s","Price":"%s","Quantity":"%s","TotalPrice":"%s"}',
  674. [v('Code'), v('B_Code'), v('Name'), v('Units'), v('Price'),
  675. v('Quantity'), v('TotalPrice')]);
  676. end;
  677. end;
  678. var
  679. fPhasePay: Double;
  680. vSL: TStringList;
  681. begin
  682. vSL := TStringList.Create;
  683. try
  684. vSL.Text := Format('{"DealTotalPrice":"%s","Bills":[%s]}',
  685. [FloatToStr(FBillsData.Settlement[DealIndex]), AnsiToUtf8(BillsStr)]);
  686. vSL.SaveToFile(AFileName);
  687. finally
  688. vSL.Free;
  689. end;
  690. end;
  691. procedure TProjectData.DisConnectTree;
  692. begin
  693. BillsMeasureData.BillsMeasureTree.Active := False;
  694. BillsCompileData.BillsCompileTree.Active := False;
  695. end;
  696. procedure TProjectData.ReConnectTree;
  697. begin
  698. BillsCompileData.ReConnectTree;
  699. BillsMeasureData.ReConnectTree;
  700. end;
  701. procedure TProjectData.CopyPhaseCompleteData;
  702. const
  703. sInsertSql = 'Insert Into PhaseComplete (BillsID)' +
  704. ' Select ID' +
  705. ' From Bills where Bills.CreatePhaseID = %d';
  706. sUpdateSql = 'Update PhaseComplete Inner Join [Bills]' +
  707. ' On PhaseComplete.BillsID=Bills.ID' +
  708. ' Set PhaseComplete.Quantity%d=Bills.AddGatherQuantity,' +
  709. ' PhaseComplete.TotalPrice%d=Bills.AddGatherTotalPrice';
  710. var
  711. iPhase: Integer;
  712. sSql: string;
  713. begin
  714. for iPhase := FProjProperties.FinalAuditCount + 1 to FProjProperties.PhaseCount do
  715. begin
  716. SetPhaseIndexSimple(iPhase);
  717. // 插入本期新增的数据
  718. sSql := Format(sInsertSql, [iPhase]);
  719. ExecuteSql(sSql);
  720. // 更新所有截止本期完成计量数据
  721. sSql := Format(sInsertSql, [iPhase, iPhase]);
  722. ExecuteSql(sSql);
  723. end;
  724. end;
  725. procedure TProjectData.CopyPhaseData;
  726. procedure CopyStageData(const AFileName, ASourceTable, AResultTable: string);
  727. const
  728. sCopySql = 'Select BillsID, DealQuantity, DealTotalPrice, QcQuantity, QcTotalPrice, QcBGLCode, QcBGLNum,' +
  729. ' PcQuantity, PcTotalPrice, PcBGLCode, PcBGLNum, GatherQuantity, GatherTotalPrice,' +
  730. ' EndDealQuantity, EndDealTotalPrice, EndQcQuantity, EndQcTotalPrice,' +
  731. ' EndPcQuantity, EndPcTotalPrice, EndGatherQuantity, EndGatherTotalPrice,' +
  732. ' PreDealQuantity, PreDealTotalPrice, PreQcQuantity, PreQcTotalPrice,' +
  733. ' PrePcQuantity, PrePcTotalPrice, PreGatherQuantity, PreGatherTotalPrice' +
  734. ' Into %s' +
  735. ' From %s' +
  736. ' In ''%s''';
  737. var
  738. sSql: string;
  739. begin
  740. sSql := Format(sCopySql, [AResultTable, ASourceTable, AFileName]);
  741. ExecuteSql(sSql);
  742. end;
  743. procedure CopyEmptyStageData(const AFileName, ASourceTable, AResultTable: string);
  744. const
  745. sCopySql = 'Select BillsID, DealQuantity, DealTotalPrice, QcQuantity, QcTotalPrice, QcBGLCode, QcBGLNum,' +
  746. ' PcQuantity, PcTotalPrice, PcBGLCode, PcBGLNum, GatherQuantity, GatherTotalPrice,' +
  747. ' EndDealQuantity, EndDealTotalPrice, EndQcQuantity, EndQcTotalPrice,' +
  748. ' EndPcQuantity, EndPcTotalPrice, EndGatherQuantity, EndGatherTotalPrice,' +
  749. ' PreDealQuantity, PreDealTotalPrice, PreQcQuantity, PreQcTotalPrice,' +
  750. ' PrePcQuantity, PrePcTotalPrice, PreGatherQuantity, PreGatherTotalPrice' +
  751. ' Into %s' +
  752. ' From %s' +
  753. ' In ''%s''' +
  754. ' Where 1=2';
  755. var
  756. sSql: string;
  757. begin
  758. sSql := Format(sCopySql, [AResultTable, ASourceTable, AFileName]);
  759. ExecuteSql(sSql);
  760. end;
  761. procedure AddSettlementData;
  762. const
  763. sAddSql = 'Insert Into P_Stage (BillsID,' +
  764. ' DealTotalPrice, QcTotalPrice, PcTotalPrice, GatherTotalPrice,' +
  765. ' EndDealTotalPrice, EndQcTotalPrice, EndPcTotalPrice, EndGatherTotalPrice,' +
  766. ' PreDealTotalPrice, PreQcTotalPrice, PrePcTotalPrice, PreGatherTotalPrice)' +
  767. ' Values (-2,'+
  768. ' %f, %f, %f, %f,'+
  769. ' %f, %f, %f, %f,'+
  770. ' %f, %f, %f, %f)';
  771. var
  772. sSql: string;
  773. begin
  774. with PhaseData.StageData do
  775. sSql := Format(sAddSql,
  776. [StageSettlement[1,1], StageSettlement[1,2], StageSettlement[1,3], StageSettlement[1,4],
  777. StageSettlement[2,1], StageSettlement[2,2], StageSettlement[2,3], StageSettlement[2,4],
  778. StageSettlement[3,1], StageSettlement[3,2], StageSettlement[3,3], StageSettlement[3,4]]);
  779. ExecuteSql(sSql);
  780. end;
  781. procedure UpdateZJJLData;
  782. const
  783. sUpdateSql = 'Update P_ZJJL' +
  784. ' Set BGLCode = ''%s'', PegName = ''%s'', FBFXName = ''%s'',' +
  785. ' UnitName = ''%s'', DrawingCode = ''%s''' +
  786. ' Where ID = %d';
  787. var
  788. sSql: string;
  789. ZJJLInfoRec: TZJJLInfoRec;
  790. begin
  791. with PhaseData.ZJJLData do
  792. begin
  793. cdsZJJL.First;
  794. while not cdsZJJL.Eof do
  795. begin
  796. ZJJLInfoRec := GetInfoRec(cdsZJJLBillsID.AsInteger, cdsZJJLType.AsInteger);
  797. sSql := Format(sUpdateSql, [ZJJLInfoRec.BGLCode, ZJJLInfoRec.PegName,
  798. ZJJLInfoRec.FBFXName, ZJJLInfoRec.UnitName, ZJJLInfoRec.DrawingCode,
  799. cdsZJJLID.AsInteger]);
  800. ExecuteSql(sSql);
  801. cdsZJJL.Next;
  802. end;
  803. end;
  804. end;
  805. procedure CopyZJJLBillsData;
  806. var
  807. sSql: string;
  808. begin
  809. sSql := 'Select PZ.ID, B.B_Code, B.Name, B.Units, B.Price, PS.GatherQuantity As Quantity, PS.GatherTotalPrice As TotalPrice' +
  810. ' Into P_ZJJLBills'+
  811. ' From Bills As B, P_Stage As PS, P_ZJJL As PZ' +
  812. ' Where (PZ.BillsID = B.LeafXmjParentID) And (B.ID = PS.BillsID) And (B.IsLeaf=True)';
  813. ExecuteSql(sSql);
  814. end;
  815. procedure CopyZJJLData(const AFileName: string);
  816. var
  817. sSql: string;
  818. begin
  819. sSql := 'Select ID, BillsID, Code, CertificateCode, BillsCode, FormulaMemo, RelaFile,' +
  820. ' '''' As BGLCode, '''' As PegName, '''' As FBFXName, '''' As UnitName, '''' As DrawingCode' +
  821. ' Into P_ZJJL' +
  822. ' From ' + PhaseData.ZJJLData.atZJJL.TableName +
  823. ' In ' + Format('''%s''', [AFileName]);
  824. ExecuteSql(sSql);
  825. // 获取分部分项等实时统计字段值
  826. UpdateZJJLData;
  827. CopyZJJLBillsData;
  828. end;
  829. procedure CopyPhasePayData(const AFileName: string);
  830. const
  831. sCopySql = 'Select ID, TotalPrice%d As CurTotalPrice, EndTotalPrice%d As EndTotalPrice,' +
  832. ' PreTotalPrice%d As PreTotalPrice,' +
  833. ' TotalPrice0, EndTotalPrice0, PreTotalPrice0,' +
  834. ' TotalPrice1, EndTotalPrice1, PreTotalPrice1,' +
  835. ' TotalPrice2, EndTotalPrice2, PreTotalPrice2,' +
  836. ' TotalPrice3, EndTotalPrice3, PreTotalPrice3,' +
  837. ' TotalPrice4, EndTotalPrice4, PreTotalPrice4,' +
  838. ' TotalPrice5, EndTotalPrice5, PreTotalPrice5,' +
  839. ' TotalPrice6, EndTotalPrice6, PreTotalPrice6,' +
  840. ' TotalPrice7, EndTotalPrice7, PreTotalPrice7,' +
  841. ' TotalPrice8, EndTotalPrice8, PreTotalPrice8,' +
  842. ' TotalPrice9, EndTotalPrice9, PreTotalPrice9,' +
  843. ' TotalPrice10, EndTotalPrice10, PreTotalPrice10,' +
  844. ' TotalPrice11, EndTotalPrice11, PreTotalPrice11,' +
  845. ' TotalPrice12, EndTotalPrice12, PreTotalPrice12,' +
  846. ' TotalPrice13, EndTotalPrice13, PreTotalPrice13,' +
  847. ' TotalPrice14, EndTotalPrice14, PreTotalPrice14,' +
  848. ' TotalPrice%d As TotalPrice_F, EndTotalPrice%d As EndTotalPrice_F, PreTotalPrice%d As PreTotalPrice_F' +
  849. ' Into P_PhasePay' +
  850. ' From PhasePay' +
  851. ' In ''%s''';
  852. var
  853. sSql: string;
  854. begin
  855. with PhaseData do
  856. sSql := Format(sCopySql, [StageIndex, StageIndex, StageIndex, StageCount - 1, StageCount - 1, StageCount - 1, AFileName]);
  857. ExecuteSql(sSql);
  858. end;
  859. procedure CopyReportData(const AFileName: string);
  860. const
  861. sCopySql = 'Select Flag, SubFlag, SerialNo, Select1, Result1, Result2' +
  862. ' Into P_ReportData' +
  863. ' From ReportData' +
  864. ' In ''%s''';
  865. begin
  866. ExecuteSql(Format(sCopySql, [AFileName]));
  867. end;
  868. procedure CopyCurPhaseData;
  869. var
  870. sTempFile: string;
  871. i: Integer;
  872. begin
  873. sTempFile := GetTempFileName;
  874. try
  875. SimpleDecrypt(Format('%s\Phase%d.dat', [TempPath, FPhaseIndex]), sTempFile);
  876. // 复制当前阶段数据
  877. CopyStageData(sTempFile, PhaseData.StageData.sdpStage.TableName, 'P_Stage');
  878. // 复制原报、审核、批复数据
  879. // 其中审核、批复数据,如果存在则复制,如果不存在,则创建空表
  880. CopyStageData(sTempFile, 'Refer', 'P_Refer');
  881. for i := 1 to iMaxStageCount - 1 do
  882. if PhaseData.AuditCount >= i then
  883. CopyStageData(sTempFile, PhaseData.StageTableName[i],
  884. 'P_Audit' + IntToStr(i))
  885. else
  886. CopyEmptyStageData(sTempFile, PhaseData.StageTableName[PhaseData.AuditCount],
  887. 'P_Audit' + IntToStr(i));
  888. if PhaseData.StageCount > 1 then
  889. CopyStageData(sTempFile, PhaseData.StageTableName[PhaseData.AuditCount], 'P_Reply')
  890. else
  891. CopyEmptyStageData(sTempFile, PhaseData.StageTableName[PhaseData.AuditCount], 'P_Reply');
  892. AddSettlementData;
  893. CopyZJJLData(sTempFile);
  894. CopyPhasePayData(sTempFile);
  895. CopyReportData(sTempFile);
  896. finally
  897. DeleteFile(sTempFile);
  898. end;
  899. end;
  900. procedure CopyHistoryCompleteData;
  901. const
  902. sCopySql1 = 'Select BillsID, 0 As Quantity1, 0 As TotalPrice1,' +
  903. ' Quantity%d As Quantity2, TotalPrice%d As TotalPrice2' +
  904. ' Into P_Complete' +
  905. ' From PhaseComplete';
  906. sCopySqlN = 'Select BillsID, Quantity%d As Quantity1, TotalPrice%d As TotalPrice1,' +
  907. ' Quantity%d As Quantity2, TotalPrice%d As TotalPrice2' +
  908. ' Into P_Complete' +
  909. ' From PhaseComplete';
  910. sUnionCopySql1 = 'Select BillsID, 0 As Quantity1, 0 As TotalPrice1,' +
  911. ' GatherQuantity As Quantity2, GatherTotalPrice As TotalPrice2' +
  912. ' Into P_Complete' +
  913. ' From P_Stage';
  914. sUnionCopySqlN = 'Select PS.BillsID As BillsID,' +
  915. ' PC.Quantity%d As Quantity1,' +
  916. ' PC.TotalPrice%d As TotalPrice1,' +
  917. ' PC.Quantity%d + PS.GatherQuantity As Quantity2,' +
  918. ' PC.TotalPrice%d + PS.GatherTotalPrice As TotalPrice2' +
  919. ' Into P_Complete' +
  920. ' From PhaseComplete As PC, P_Stage As PS';
  921. var
  922. sSql: string;
  923. begin
  924. if (ProjProperties.FinalAuditCount >= PhaseIndex) then
  925. if PhaseIndex <= 1 then
  926. sSql := Format(sCopySql1, [FPhaseIndex, FPhaseIndex])
  927. else
  928. sSql := Format(sCopySqlN, [PhaseIndex - 1, PhaseIndex - 1, PhaseIndex, PhaseIndex])
  929. else
  930. if PhaseIndex <= 1 then
  931. sSql := sUnionCopySql1
  932. else
  933. sSql := Format(sUnionCopySqlN, [PhaseIndex - 1, PhaseIndex - 1, PhaseIndex - 1, PhaseIndex - 1]);
  934. ExecuteSql(sSql);
  935. end;
  936. procedure UpdateBillsByDealBills;
  937. const
  938. sClearSql = 'Update Bills Set GclDealQuantity = 0, GclDealTotalPrice = 0';
  939. sUpdateSql = 'Update Bills As B, DealBills As D' +
  940. ' Set B.GclDealQuantity = D.Quantity, B.GclDealTotalPrice = D.TotalPrice' +
  941. ' Where (B.B_Code = D.B_Code) and (B.Name = D.Name) and (B.Units = D.Units) and (B.Price = D.Price)';
  942. begin
  943. ExecuteSql(sClearSql);
  944. ExecuteSql(sUpdateSql);
  945. end;
  946. procedure FilterDealBillsByBills;
  947. const
  948. sFilterSql = 'Select D.*' +
  949. ' Into P_FilterDealBills' +
  950. ' From DealBills As D inner join' +
  951. ' (Select D.ID' +
  952. ' From DealBills As D Left join Bills As B' +
  953. ' On (D.B_Code = B.B_Code) and (D.Name = B.Name) and (D.Units = B.Units) and (D.Price = B.Price)' +
  954. ' where B.ID is Null) As R' +
  955. ' On (D.ID = R.ID)';
  956. begin
  957. ExecuteSql(sFilterSql);
  958. end;
  959. procedure CopyCacheReportsData;
  960. begin
  961. // DealBills的数量金额填至Bills中
  962. UpdateBillsByDealBills;
  963. // 过滤DealBills中在Bills中不存在的清单
  964. FilterDealBillsByBills;
  965. end;
  966. procedure SaveCurPhaseCheckers;
  967. const
  968. sCreateSql = 'Create Table P_Checkers (CheckerNo Integer NOT NULL, Name Text(50), Role Text(50), MemoStr Text(255), CheckedDateTime Text(20), Flag Integer,'+
  969. ' CONSTRAINT PrimaryKey PRIMARY KEY (CheckerNo, Flag))';
  970. sInsertSql = 'Insert Into P_Checkers (CheckerNo, Name, Role, MemoStr, CheckedDateTime, Flag) Values (%d, ''%s'', ''%s'', ''%s'', ''%s'', %d)';
  971. var
  972. i: Integer;
  973. vChecker: TChecker;
  974. sSql: string;
  975. begin
  976. ExecuteSql(sCreateSql);
  977. // 全部审核人
  978. for i := 0 to Checkers.Count - 1 do
  979. begin
  980. vChecker := Checkers.Item[i];
  981. sSql := Format(sInsertSql, [vChecker.No, vChecker.Name, vChecker.Role, vChecker.Memo, vChecker.CheckedDateTime, 0]);
  982. ExecuteSql(sSql);
  983. end;
  984. // 审核通过的最后一人
  985. vChecker := Checkers.LastChecker;
  986. if Assigned(vChecker) then
  987. sSql := Format(sInsertSql, [vChecker.No, vChecker.Name, vChecker.Role, vChecker.Memo, vChecker.CheckedDateTime, 1])
  988. else
  989. sSql := Format(sInsertSql, [-1, '', '', '', '', 1]);
  990. ExecuteSql(sSql);
  991. end;
  992. procedure SaveCloudInfo;
  993. begin
  994. SaveCurPhaseCheckers;
  995. end;
  996. begin
  997. Save;
  998. ClearReportCacheData;
  999. CopyCacheReportsData;
  1000. if FPhaseIndex > 0 then
  1001. CopyCurPhaseData;
  1002. FDealPaymentData.UpdateLinkSerialNo;
  1003. //CopyHistoryCompleteData;
  1004. if _IsCloud then
  1005. SaveCloudInfo;
  1006. if _IsDebugView then
  1007. SaveDebugFile('Report.dat');
  1008. end;
  1009. procedure TProjectData.ExecuteSql(const ASql: string);
  1010. var
  1011. FQuery: TADOQuery;
  1012. begin
  1013. FQuery := TADOQuery.Create(nil);
  1014. try
  1015. FQuery.Connection := FConnection.Connection;
  1016. FQuery.SQL.Clear;
  1017. FQuery.SQL.Add(ASql);
  1018. FQuery.ExecSQL;
  1019. finally
  1020. FQuery.Free;
  1021. end;
  1022. end;
  1023. function TProjectData.GetADOConnection: TADOConnection;
  1024. begin
  1025. Result := FConnection.Connection;
  1026. end;
  1027. procedure TProjectData.ExportJson_Common(const AFileName: string);
  1028. var
  1029. Rec: TsdDataRecord;
  1030. vSL: TStringList;
  1031. sBQHTJL, sBQSLBGJL, sJZSQLJWC, sBQWCJL, sLJWCJL, sTotalPrice: string;
  1032. begin
  1033. vSL := TStringList.Create;
  1034. try
  1035. Rec := MainListData.GetPhaseMainRecord(ProjProperties.PhaseCount);
  1036. sBQHTJL := FloatToStr(Rec.ValueByName('DealTotalPrice').AsFloat); // 本期合同计量
  1037. sBQSLBGJL := FloatToStr(Rec.ValueByName('QcTotalPrice').AsFloat); // 本期数量变更计量
  1038. sJZSQLJWC := FloatToStr(Rec.ValueByName('PreGatherTotalPrice').AsFloat); // 截止上期累计完成
  1039. sBQWCJL := FloatToStr(Rec.ValueByName('GatherTotalPrice').AsFloat); // 本期完成计量
  1040. sLJWCJL := FloatToStr(Rec.ValueByName('EndGatherTotalPrice').AsFloat); // 累计完成计量
  1041. sTotalPrice := FloatToStr(BillsData.Settlement[0] + Rec.ValueByName('EndQcTotalPrice').AsFloat); // 0号台帐+截止本期累期变更计量
  1042. vSL.Text := Format('{"BQHTJL":"%s","BQSLBGJL":"%s","JZSQLJWC":"%s","BQWCJL":"%s","LJWCJL":"%s","TotalPrice":"%s"}',
  1043. [sBQHTJL, sBQSLBGJL, sJZSQLJWC, sBQWCJL, sLJWCJL, sTotalPrice]);
  1044. vSL.SaveToFile(AFileName);
  1045. finally
  1046. vSL.Free;
  1047. end;
  1048. end;
  1049. function TProjectData.CurUserIsAuthor: Boolean;
  1050. begin
  1051. Result := PHPWeb.UserID = WebAuthorID;
  1052. end;
  1053. function TProjectData.CurUserIsChecker: Boolean;
  1054. begin
  1055. Result := (PHPWeb.UserID <> WebOwnerID) and (PHPWeb.UserID <> WebAuthorID);
  1056. end;
  1057. function TProjectData.CurUserIsOwner: Boolean;
  1058. begin
  1059. Result := PHPWeb.UserID = WebOwnerID;
  1060. end;
  1061. procedure TProjectData.SaveLastestPhaseMainData;
  1062. var
  1063. Rec: TsdDataRecord;
  1064. begin
  1065. if (FPhaseIndex = ProjProperties.PhaseCount) and PhaseData.IsLastStage then
  1066. begin
  1067. Rec := MainListData.GetPhaseMainRecord(FPhaseIndex);
  1068. Rec.ValueByName('DealTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[1, 1];
  1069. Rec.ValueByName('QcTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[1, 2];
  1070. Rec.ValueByName('PcTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[1, 3];
  1071. Rec.ValueByName('GatherTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[1, 4];
  1072. Rec.ValueByName('EndDealTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[2, 1];
  1073. Rec.ValueByName('EndQcTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[2, 2];
  1074. Rec.ValueByName('EndPcTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[2, 3];
  1075. Rec.ValueByName('EndGatherTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[2, 4];
  1076. Rec.ValueByName('PreDealTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[3, 1];
  1077. Rec.ValueByName('PreQcTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[3, 2];
  1078. Rec.ValueByName('PrePcTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[3, 3];
  1079. Rec.ValueByName('PreGatherTotalPrice').AsFloat := PhaseData.StageData.StageSettlement[3, 4];
  1080. Rec.ValueByName('PhasePay').AsFloat := PhaseData.PhasePayData.LastestPhasePay[1];
  1081. Rec.ValueByName('EndPhasePay').AsFloat := PhaseData.PhasePayData.LastestPhasePay[2];
  1082. Rec.ValueByName('PrePhasePay').AsFloat := PhaseData.PhasePayData.LastestPhasePay[3];
  1083. end;
  1084. end;
  1085. procedure TProjectData.CalculateAll;
  1086. begin
  1087. FBillsCompileData.CalculateAll; //台账
  1088. FProjectGLData.CalculateAll; //工料价差
  1089. FPhaseData.StageData.CalculateAll; //计量&清单价差
  1090. FBillsMeasureData.CalculateAll; //累计
  1091. FPhaseData.PhasePayData.CalculateAll;
  1092. end;
  1093. procedure TProjectData.ImportCloudTenderFile(const AFileName: string);
  1094. function GetTempFile(const TempDir: string): string;
  1095. var
  1096. FXmlDocument: IXMLDocument;
  1097. XmlNode, InfoXmlNode: IXMLNode;
  1098. ChildNodes: IXMLNodeList;
  1099. begin
  1100. FXmlDocument := TXMLDocument.Create(nil) as IXMLDocument;
  1101. try
  1102. FXmlDocument.LoadFromFile(TempDir + '\Info.xml');
  1103. FXmlDocument.Options := [doNodeAutoCreate,doNodeAutoIndent,doAutoPrefix,doNamespaceDecl];
  1104. XmlNode := FXmlDocument.DocumentElement;
  1105. ChildNodes := XmlNode.ChildNodes;
  1106. InfoXmlNode := ChildNodes.FindNode('ProjectInfo');
  1107. Result := TempDir + '\' + InfoXmlNode.Attributes['FileName'];
  1108. finally
  1109. FXmlDocument := nil;
  1110. end;
  1111. end;
  1112. procedure ClearAllData;
  1113. var
  1114. sSql: string;
  1115. begin
  1116. sSql := 'Delete * From Bills';
  1117. ExecuteSql(sSql);
  1118. sSql := 'Delete * From DealBills';
  1119. ExecuteSql(sSql);
  1120. sSql := 'Delete * From ProjProperties';
  1121. ExecuteSql(sSql);
  1122. sSql := 'Delete * From DealPayment';
  1123. ExecuteSql(sSql);
  1124. end;
  1125. procedure CopyData(const AFileName: string);
  1126. const
  1127. sBillsSql = 'Insert Into Bills (ID, ParentID, NextSiblingID,' +
  1128. ' Code, B_Code, Name, Units, Alias, Price, NewPrice,' +
  1129. ' OrgQuantity, OrgTotalPrice, MisQuantity, MisTotalPrice, OthQuantity, OthTotalPrice,' +
  1130. ' DgnQuantity1, DgnQuantity2,'+
  1131. ' Peg, DrawingCode, MemoStr, HasBookMark, MarkMemo)'+
  1132. ' Select ID, ParentID, NextSiblingID,'+
  1133. ' Code, B_Code, Name, Units, Alias, Price, NewPrice,' +
  1134. ' OrgQuantity, OrgTotalPrice, MisQuantity, MisTotalPrice, OthQuantity, OthTotalPrice,' +
  1135. ' DgnQuantity1, DgnQuantity2,'+
  1136. ' Peg, DrawingCode, MemoStr, HasBookMark, MarkMemo'+
  1137. ' From Bills In ''%s''';
  1138. sDealBillsSql = 'Insert Into DealBills Select ID, B_Code, Name, Units, Price, Quantity, TotalPrice'+
  1139. ' From DealBills In ''%s''';
  1140. sDealPaymentSql = 'Insert Into DealPayment (ID, Name, CalcType, IsMinus,'+
  1141. ' Formula, StartedPrice, SFormula, RangePrice, RFormula)'+
  1142. ' Select ID, Name, CalcType, IsMinus,'+
  1143. ' Formula, StartedPrice, SFormula, RangePrice, RFormula'+
  1144. ' From DealPayment In ''%s''';
  1145. sPropertySql = 'Insert Into ProjProperties'+
  1146. ' Select * From ProjProperties In ''%s'''+
  1147. ' Where (Name <> ''PHASECOUNT'') and (Name <> ''UNLOCKINFOPASSWORD'') and (Name <> ''AUDITSTATUS'')'+
  1148. ' and (Name <> ''FINALAUDITCOUNT'') and (Name <> ''AUDITCOMPANY'') and (Name <> ''UPDATEFLAG'')';
  1149. var
  1150. sSql: string;
  1151. begin
  1152. sSql := Format(sBillsSql, [AFileName]);
  1153. ExecuteSql(sSql);
  1154. sSql := Format(sDealBillsSql, [AFileName]);
  1155. ExecuteSql(sSql);
  1156. sSql := Format(sDealPaymentSql, [AFileName]);
  1157. ExecuteSql(sSql);
  1158. sSql := Format(sPropertySql, [AFileName]);
  1159. ExecuteSql(sSql);
  1160. end;
  1161. function CreateTempSourceFile: string;
  1162. var
  1163. TempDir, TempDir2: string;
  1164. begin
  1165. TempDir := GenerateTempFolder(GetTempPath);
  1166. UnZipFile(AFileName, TempDir);
  1167. try
  1168. TempDir2 := GenerateTempFolder(GetTempPath);
  1169. try
  1170. UnZipFile(GetTempFile(TempDir), TempDir2);
  1171. Result := GetTempFileName;
  1172. SimpleDecrypt(TempDir2 + '\Main.dat', Result);
  1173. finally
  1174. DeleteFileOrFolder(TempDir2);
  1175. end;
  1176. finally
  1177. DeleteFileOrFolder(TempDir);
  1178. end;
  1179. end;
  1180. procedure BeforeCopyData;
  1181. begin
  1182. DisConnectTree;
  1183. CloseAllData;
  1184. end;
  1185. procedure EndCopyData;
  1186. begin
  1187. OpenAllData;
  1188. FProjProperties.Reload;
  1189. FProjProperties.UpdateFlag := 1;
  1190. ReConnectTree;
  1191. ResetFloatDigitView;
  1192. BillsCompileData.CalculateAll;
  1193. end;
  1194. function CheckFile: Boolean;
  1195. var
  1196. TempDir: string;
  1197. Proj: TProjectData;
  1198. begin
  1199. TempDir := GenerateTempFolder(GetTempPath);
  1200. UnZipFile(AFileName, TempDir);
  1201. try
  1202. Proj := TProjectData.Create;
  1203. Proj.SimpleOpen(GetTempFile(TempDir));
  1204. Result := Proj.ProjProperties.UpdateFlag = 1;
  1205. finally
  1206. Proj.Free;
  1207. DeleteFileOrFolder(TempDir);
  1208. end;
  1209. end;
  1210. procedure UpdateSourceFile(const AFileName: string);
  1211. var
  1212. vCon: TADOConnection;
  1213. vUpdate: TUpdateProjectDB;
  1214. begin
  1215. vCon := TADOConnection.Create(nil);
  1216. vCon.LoginPrompt := False;
  1217. try
  1218. vCon.ConnectionString := Format(SAdoConnectStr, [AFileName]);
  1219. vUpdate := TUpdateProjectDB.Create;
  1220. vUpdate.ForceUpdate(vCon);
  1221. finally
  1222. vUpdate.Free;
  1223. vCon.Free;
  1224. end;
  1225. end;
  1226. var
  1227. sTemMainFile: string;
  1228. begin
  1229. sTemMainFile := CreateTempSourceFile;
  1230. UpdateSourceFile(sTemMainFile);
  1231. BeforeCopyData;
  1232. try
  1233. ClearAllData;
  1234. CopyData(sTemMainFile);
  1235. finally
  1236. EndCopyData;
  1237. DeleteFileOrFolder(sTemMainFile);
  1238. end;
  1239. end;
  1240. function TProjectData.CheckPassword: Boolean;
  1241. var
  1242. sPassword: string;
  1243. begin
  1244. if ProjProperties.UnlockInfoPassword = '' then
  1245. Result := True
  1246. else
  1247. begin
  1248. Result := InputPassword(sPassword);
  1249. if Result then
  1250. begin
  1251. Result := sPassword = ProjProperties.UnlockInfoPassword;
  1252. if not Result then ErrorMessage('您输入的密码不正确!');
  1253. end;
  1254. end;
  1255. end;
  1256. procedure TProjectData.SetCheckers(const Value: TCheckers);
  1257. begin
  1258. FCheckers := Value;
  1259. end;
  1260. procedure TProjectData.OpenForSubmit(const AFileName: string);
  1261. begin
  1262. FProjectID := -1;
  1263. UnZipFile(AFileName, TempPath);
  1264. FConnection.Open(MainFileName);
  1265. UpdateProjectDataBase;
  1266. FProjProperties.Open(FConnection.Connection);
  1267. FStaffData.Open(FConnection.Connection);
  1268. end;
  1269. procedure TProjectData.SaveAsForSubmit(const AFileName: string);
  1270. begin
  1271. FStaffData.Save;
  1272. FProjProperties.Save;
  1273. FConnection.Save;
  1274. ZipFolder(FTempFolder, AFileName);
  1275. end;
  1276. procedure TProjectData.LockBillsBaseData;
  1277. const
  1278. sLockInfoSql = 'Update Bills Set LockedInfo = True, LockedLevel = True';
  1279. sLockNPSql = 'Update Bills Set LockedNewPrice = True Where NewPrice <> 0';
  1280. begin
  1281. ExecuteSql(sLockInfoSql);
  1282. ExecuteSql(sLockNPSql);
  1283. end;
  1284. procedure TProjectData.LockDealPaymentData;
  1285. const
  1286. sLockDealSql = 'Update DealPayment Set Locked = True';
  1287. sLockFormulaSql = 'Update DealPayment Set LockedFormula = True Where (Formula <> '''')';
  1288. begin
  1289. ExecuteSql(sLockDealSql);
  1290. ExecuteSql(sLockFormulaSql);
  1291. end;
  1292. procedure TProjectData.OpenForReport(const AFileName: string);
  1293. begin
  1294. FProjectID := -1;
  1295. UnZipFile(AFileName, TempPath);
  1296. FConnection.Open(MainFileName);
  1297. UpdateProjectDataBase;
  1298. FProjProperties.Open(FConnection.Connection);
  1299. UpdateOldData;
  1300. FBillsData.Open(FConnection.Connection);
  1301. FBillsCompileData.Open;
  1302. FDealPaymentData.Open(FConnection.Connection);
  1303. FBGLData.Open(FConnection.Connection);
  1304. end;
  1305. procedure TProjectData.OpenForReply(const AFileName: string);
  1306. begin
  1307. FProjectID := -1;
  1308. UnZipFile(AFileName, TempPath);
  1309. FConnection.Open(MainFileName);
  1310. UpdateProjectDataBase;
  1311. FProjProperties.Open(FConnection.Connection);
  1312. if ProjProperties.PhaseCount > 0 then
  1313. begin
  1314. FPhaseIndex := ProjProperties.PhaseCount;
  1315. FPhaseData.SimpleOpen(Format('%sPhase%d.dat', [TempPath, FPhaseIndex]));
  1316. end;
  1317. FStaffData.Open(FConnection.Connection);
  1318. FDetailGLData.Open(FConnection.Connection);
  1319. end;
  1320. procedure TProjectData.SaveForReply(const AFileName: string);
  1321. begin
  1322. FDetailGLData.Save;
  1323. FStaffData.Save;
  1324. if FPhaseData.Active then
  1325. FPhaseData.SimpleSave;
  1326. FProjProperties.Save;
  1327. FConnection.Save;
  1328. ZipFolder(FTempFolder, AFileName);
  1329. end;
  1330. procedure TProjectData.OpenForReceive(const AFileName: string);
  1331. begin
  1332. FProjectID := -1;
  1333. UnZipFile(AFileName, TempPath);
  1334. FConnection.Open(MainFileName);
  1335. UpdateProjectDataBase;
  1336. FProjProperties.Open(FConnection.Connection);
  1337. if ProjProperties.PhaseCount > 0 then
  1338. begin
  1339. FPhaseIndex := ProjProperties.PhaseCount;
  1340. FPhaseData.SimpleOpen(Format('%sPhase%d.dat', [TempPath, FPhaseIndex]));
  1341. end;
  1342. FStaffData.Open(FConnection.Connection);
  1343. end;
  1344. procedure TProjectData.SaveForReceive(const AFileName: string);
  1345. begin
  1346. FStaffData.Save;
  1347. if FPhaseData.Active then
  1348. FPhaseData.SimpleSave;
  1349. FProjProperties.Save;
  1350. FConnection.Save;
  1351. ZipFolder(FTempFolder, AFileName);
  1352. end;
  1353. procedure TProjectData.CloseAllData;
  1354. begin
  1355. FBillsBookmarkData.Close;
  1356. FBillsData.Close;
  1357. FBillsCompileData.Close;
  1358. FBillsMeasureData.Close;
  1359. FDealBillsData.Close;
  1360. FDealPaymentData.Close;
  1361. FBGLData.Close;
  1362. FStaffData.Close;
  1363. FMainListData.Close;
  1364. end;
  1365. procedure TProjectData.OpenAllData;
  1366. begin
  1367. FProjProperties.Open(FConnection.Connection);
  1368. FBillsData.Open(FConnection.Connection);
  1369. FBillsCompileData.Open;
  1370. FBillsMeasureData.Open;
  1371. FDealBillsData.Open(FConnection.Connection);
  1372. FDealPaymentData.Open(FConnection.Connection);
  1373. FBGLData.Open(FConnection.Connection);
  1374. FStaffData.Open(FConnection.Connection);
  1375. FMainListData.Open(FConnection.Connection);
  1376. FBillsBookmarkData.Open;
  1377. end;
  1378. procedure TProjectData.UpdateOldData;
  1379. procedure UpdateBills_OrgData;
  1380. const
  1381. sUpdateSql = 'Update Bills Set OrgQuantity = Quantity, OrgTotalPrice = TotalPrice';
  1382. begin
  1383. ExecuteSql(sUpdateSql);
  1384. end;
  1385. begin
  1386. if ProjProperties.UpdateFlag = 1 then Exit;
  1387. ProjProperties.UpdateFlag := 1;
  1388. UpdateBills_OrgData;
  1389. end;
  1390. procedure TProjectData.ResetFloatDigitView;
  1391. procedure SetBillsCompileDigit;
  1392. begin
  1393. with FBillsCompileData.sdvBillsCompile do
  1394. begin
  1395. Columns.FindColumn('OrgQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1396. Columns.FindColumn('MisQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1397. Columns.FindColumn('OthQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1398. Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
  1399. Columns.FindColumn('DgnQuantity1').DisplayFormat := FProjProperties.QuantityFormat;
  1400. Columns.FindColumn('DgnQuantity2').DisplayFormat := FProjProperties.QuantityFormat;
  1401. Columns.FindColumn('OrgTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1402. Columns.FindColumn('MisTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1403. Columns.FindColumn('OthTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1404. Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1405. Columns.FindColumn('Price').DisplayFormat := FProjProperties.PriceFormat;
  1406. Columns.FindColumn('DgnPrice').DisplayFormat := FProjProperties.PriceFormat;
  1407. Columns.FindColumn('OrgQuantity').EditFormat := FProjProperties.QuantityFormat;
  1408. Columns.FindColumn('MisQuantity').EditFormat := FProjProperties.QuantityFormat;
  1409. Columns.FindColumn('OthQuantity').EditFormat := FProjProperties.QuantityFormat;
  1410. Columns.FindColumn('Quantity').EditFormat := FProjProperties.QuantityFormat;
  1411. Columns.FindColumn('DgnQuantity1').EditFormat := FProjProperties.QuantityFormat;
  1412. Columns.FindColumn('DgnQuantity2').EditFormat := FProjProperties.QuantityFormat;
  1413. Columns.FindColumn('OrgTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1414. Columns.FindColumn('MisTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1415. Columns.FindColumn('OthTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1416. Columns.FindColumn('TotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1417. Columns.FindColumn('Price').EditFormat := FProjProperties.PriceFormat;
  1418. Columns.FindColumn('DgnPrice').EditFormat := FProjProperties.PriceFormat;
  1419. end;
  1420. end;
  1421. procedure SetBillsMeasureDigit;
  1422. begin
  1423. with FBillsMeasureData.sdvBillsMeasure do
  1424. begin
  1425. Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
  1426. Columns.FindColumn('CurDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1427. Columns.FindColumn('CurQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1428. Columns.FindColumn('CurPcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1429. Columns.FindColumn('CurGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1430. Columns.FindColumn('EndDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1431. Columns.FindColumn('EndQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1432. Columns.FindColumn('EndPcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1433. Columns.FindColumn('EndGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1434. Columns.FindColumn('AddDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1435. Columns.FindColumn('AddQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1436. Columns.FindColumn('AddPcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1437. Columns.FindColumn('AddGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1438. Columns.FindColumn('DealDgnQuantity1').DisplayFormat := FProjProperties.QuantityFormat;
  1439. Columns.FindColumn('DealDgnQuantity2').DisplayFormat := FProjProperties.QuantityFormat;
  1440. Columns.FindColumn('CDgnQuantity1').DisplayFormat := FProjProperties.QuantityFormat;
  1441. Columns.FindColumn('CDgnQuantity2').DisplayFormat := FProjProperties.QuantityFormat;
  1442. Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1443. Columns.FindColumn('CurDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1444. Columns.FindColumn('CurQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1445. Columns.FindColumn('CurPcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1446. Columns.FindColumn('CurGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1447. Columns.FindColumn('EndDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1448. Columns.FindColumn('EndQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1449. Columns.FindColumn('EndPcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1450. Columns.FindColumn('EndGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1451. Columns.FindColumn('AddDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1452. Columns.FindColumn('AddQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1453. Columns.FindColumn('AddPcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1454. Columns.FindColumn('AddGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1455. Columns.FindColumn('Price').DisplayFormat := FProjProperties.PriceFormat;
  1456. Columns.FindColumn('NewPrice').DisplayFormat := FProjProperties.PriceFormat;
  1457. Columns.FindColumn('Quantity').EditFormat := FProjProperties.QuantityFormat;
  1458. Columns.FindColumn('CurDealQuantity').EditFormat := FProjProperties.QuantityFormat;
  1459. Columns.FindColumn('CurQcQuantity').EditFormat := FProjProperties.QuantityFormat;
  1460. Columns.FindColumn('CurPcQuantity').EditFormat := FProjProperties.QuantityFormat;
  1461. Columns.FindColumn('CurGatherQuantity').EditFormat := FProjProperties.QuantityFormat;
  1462. Columns.FindColumn('EndDealQuantity').EditFormat := FProjProperties.QuantityFormat;
  1463. Columns.FindColumn('EndQcQuantity').EditFormat := FProjProperties.QuantityFormat;
  1464. Columns.FindColumn('EndPcQuantity').EditFormat := FProjProperties.QuantityFormat;
  1465. Columns.FindColumn('EndGatherQuantity').EditFormat := FProjProperties.QuantityFormat;
  1466. Columns.FindColumn('AddDealQuantity').EditFormat := FProjProperties.QuantityFormat;
  1467. Columns.FindColumn('AddQcQuantity').EditFormat := FProjProperties.QuantityFormat;
  1468. Columns.FindColumn('AddPcQuantity').EditFormat := FProjProperties.QuantityFormat;
  1469. Columns.FindColumn('AddGatherQuantity').EditFormat := FProjProperties.QuantityFormat;
  1470. Columns.FindColumn('DealDgnQuantity1').EditFormat := FProjProperties.QuantityFormat;
  1471. Columns.FindColumn('DealDgnQuantity2').EditFormat := FProjProperties.QuantityFormat;
  1472. Columns.FindColumn('CDgnQuantity1').EditFormat := FProjProperties.QuantityFormat;
  1473. Columns.FindColumn('CDgnQuantity2').EditFormat := FProjProperties.QuantityFormat;
  1474. Columns.FindColumn('TotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1475. Columns.FindColumn('CurDealTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1476. Columns.FindColumn('CurQcTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1477. Columns.FindColumn('CurPcTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1478. Columns.FindColumn('CurGatherTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1479. Columns.FindColumn('EndDealTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1480. Columns.FindColumn('EndQcTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1481. Columns.FindColumn('EndPcTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1482. Columns.FindColumn('EndGatherTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1483. Columns.FindColumn('AddDealTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1484. Columns.FindColumn('AddQcTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1485. Columns.FindColumn('AddPcTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1486. Columns.FindColumn('AddGatherTotalPrice').EditFormat := FProjProperties.TotalPriceFormat;
  1487. Columns.FindColumn('Price').EditFormat := FProjProperties.PriceFormat;
  1488. Columns.FindColumn('NewPrice').EditFormat := FProjProperties.PriceFormat;
  1489. end;
  1490. end;
  1491. procedure SetBillsGatherDigit;
  1492. begin
  1493. with FBillsGatherData.sdvGclBills do
  1494. begin
  1495. Columns.FindColumn('Price').DisplayFormat := FProjProperties.PriceFormat;
  1496. Columns.FindColumn('DealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1497. Columns.FindColumn('DealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1498. Columns.FindColumn('BGLQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1499. Columns.FindColumn('BGLTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1500. Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
  1501. Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1502. Columns.FindColumn('CurDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1503. Columns.FindColumn('CurDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1504. Columns.FindColumn('CurQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1505. Columns.FindColumn('CurQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1506. Columns.FindColumn('CurGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1507. Columns.FindColumn('CurGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1508. Columns.FindColumn('PreDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1509. Columns.FindColumn('PreDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1510. Columns.FindColumn('PreQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1511. Columns.FindColumn('PreQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1512. Columns.FindColumn('PreGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1513. Columns.FindColumn('PreGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1514. Columns.FindColumn('AddDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1515. Columns.FindColumn('AddDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1516. Columns.FindColumn('AddQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1517. Columns.FindColumn('AddQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1518. Columns.FindColumn('AddGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1519. Columns.FindColumn('AddGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1520. Columns.FindColumn('EndDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1521. Columns.FindColumn('EndDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1522. Columns.FindColumn('EndQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1523. Columns.FindColumn('EndQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1524. Columns.FindColumn('EndGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1525. Columns.FindColumn('EndGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1526. Columns.FindColumn('Deal_BGLQuantity').DisplayFormat := FProjProperties.QuantityFormat;
  1527. Columns.FindColumn('Deal_BGLTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1528. end;
  1529. with FBillsGatherData.sdvDetailGclBills do
  1530. begin
  1531. Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
  1532. end;
  1533. with FBillsGatherData.sdvDetailDealBills do
  1534. begin
  1535. Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
  1536. Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1537. end;
  1538. with FBillsGatherData.sdvDetailBGLBills do
  1539. begin
  1540. Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
  1541. Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1542. end;
  1543. end;
  1544. procedure SetDealPaymentDigit;
  1545. begin
  1546. with FDealPaymentData.sdvDealPayment do
  1547. begin
  1548. Columns.FindColumn('CurTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1549. Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1550. Columns.FindColumn('StartedPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1551. Columns.FindColumn('RangePrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1552. end;
  1553. end;
  1554. procedure SetBGLDigit;
  1555. begin
  1556. FBGLData.cdsBGLViewTotalPrice.DisplayFormat := FProjProperties.TotalPriceFormat;
  1557. FBGLData.cdsBGBillsViewPrice.DisplayFormat := FProjProperties.PriceFormat;
  1558. FBGLData.cdsBGBillsViewQuantity.DisplayFormat := FProjProperties.QuantityFormat;
  1559. FBGLData.cdsBGBillsViewTotalPrice.DisplayFormat := FProjProperties.TotalPriceFormat;
  1560. FBGLData.cdsBGBillsViewUsedQuantity.DisplayFormat := FProjProperties.QuantityFormat;
  1561. end;
  1562. procedure SetOtherMeasureDigit;
  1563. begin
  1564. with FOtherMeasureOnceData.sdvOnce do
  1565. begin
  1566. Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
  1567. end;
  1568. end;
  1569. begin
  1570. SetBillsCompileDigit;
  1571. SetBillsMeasureDigit;
  1572. SetDealPaymentDigit;
  1573. SetBillsGatherDigit;
  1574. SetBGLDigit;
  1575. SetOtherMeasureDigit;
  1576. end;
  1577. function TProjectData.GetStageDataReadOnly: Boolean;
  1578. begin
  1579. if FPhaseData.Active then
  1580. Result := FPhaseData.StageDataReadOnly
  1581. else
  1582. Result := True;
  1583. end;
  1584. procedure TProjectData.OpenForReport2(const AFileName: string);
  1585. begin
  1586. FProjectID := -1;
  1587. UnZipFile(AFileName, TempPath);
  1588. FConnection.Open(MainFileName);
  1589. UpdateProjectDataBase;
  1590. FProjProperties.Open(FConnection.Connection);
  1591. UpdateOldData;
  1592. FBillsData.Open(FConnection.Connection);
  1593. FBillsCompileData.Open;
  1594. FDealPaymentData.Open(FConnection.Connection);
  1595. FBGLData.Open(FConnection.Connection);
  1596. if ProjProperties.PhaseCount > 0 then
  1597. begin
  1598. FPhaseIndex := ProjProperties.PhaseCount;
  1599. FPhaseData.SimpleOpen(Format('%sPhase%d.dat', [TempPath, FPhaseIndex]));
  1600. end;
  1601. end;
  1602. function TProjectData.CheckDataBaseInfo(APhaseCount, AAuditStatus: Integer): Boolean;
  1603. begin
  1604. Result := (FProjProperties.PhaseCount = APhaseCount)
  1605. and (FProjProperties.AuditStatus = AAuditStatus);
  1606. if Result and (APhaseCount > 0) and (AAuditStatus <> -1) then
  1607. Result := PhaseData.AuditCount = AAuditStatus;
  1608. end;
  1609. procedure TProjectData.OpenForReport3(const AFileName: string);
  1610. begin
  1611. FProjectID := -1;
  1612. UnZipFile(AFileName, TempPath);
  1613. FConnection.Open(MainFileName);
  1614. UpdateProjectDataBase;
  1615. FProjProperties.Open(FConnection.Connection);
  1616. UpdateOldData;
  1617. FBillsData.Open(FConnection.Connection);
  1618. FBillsMeasureData.Open;
  1619. FDealPaymentData.Open(FConnection.Connection);
  1620. FBGLData.Open(FConnection.Connection);
  1621. if ProjProperties.PhaseCount > 0 then
  1622. begin
  1623. FPhaseIndex := ProjProperties.PhaseCount;
  1624. FPhaseData.SimpleOpen2(Format('%sPhase%d.dat', [TempPath, FPhaseIndex]));
  1625. end;
  1626. FBillsMeasureData.ResetTreeNodeStageRec;
  1627. end;
  1628. function TProjectData.GetPriceMarginReadOnly: Boolean;
  1629. begin
  1630. if FPhaseData.Active then
  1631. Result := not((FPhaseIndex = FProjProperties.PhaseCount) and (FPhaseData.StageCount = 1) and (FProjProperties.AuditStatus <> -1))
  1632. else
  1633. Result := True;
  1634. end;
  1635. procedure TProjectData.CalculatePriceMargin;
  1636. begin
  1637. // 计算工料价差数据
  1638. FProjectGLData.CalculateAll;
  1639. {if not FPhaseData.StageDataReadOnly then
  1640. begin
  1641. // 计算清单价差节点
  1642. PhaseData.StageData.CalculatePriceMarginNode;
  1643. // 计算合同支付
  1644. PhaseData.PhasePayData.CalculateAll;
  1645. end;}
  1646. end;
  1647. procedure TProjectData.LockProjectGLData;
  1648. const
  1649. sLockSql = 'Update ProjectGL As P, GLPrice As G' +
  1650. ' Set P.LockedPhaseID = %d'+
  1651. ' Where (P.ID = G.GLID) and (G.PM_Quantity_F <> 0) and (IsNull(P.LockedPhaseID) or (P.LockedPhaseID = 0))';
  1652. var
  1653. sSql: string;
  1654. begin
  1655. sSql := Format(sLockSql, [FProjProperties.PhaseCount]);
  1656. ExecuteSql(sSql);
  1657. end;
  1658. procedure TProjectData.LockDetailGLData;
  1659. const
  1660. sLockSql = 'Update DetailGL As D Set D.LockedPhaseID = %d' +
  1661. ' Where (D.LastBillsQuantity <> 0) and (IsNull(D.LockedPhaseID) or (D.LockedPhaseID = 0))';
  1662. var
  1663. sSql: string;
  1664. begin
  1665. sSql := Format(sLockSql, [FProjProperties.PhaseCount]);
  1666. ExecuteSql(sSql);
  1667. end;
  1668. procedure TProjectData.CopyPreData;
  1669. procedure CopyPreGLPrice;
  1670. const
  1671. sCopySql = 'Insert Into GLPrice (GLID, PhaseID,' +
  1672. ' InfoPrice, InfoDate, DeltaPrice, ValidDeltaPrice,' +
  1673. ' PreUsedQuantity, PreUsedTotalPrice,' +
  1674. ' PM_PreQuantity, PM_PreTotalPrice,'+
  1675. ' PrePAL_UsedQuantity, PrePAL_UsedTotalPrice,'+
  1676. ' PrePAL_DeltaPrice, PrePAL_Total)'+
  1677. ' Select GLID, %d,'+
  1678. ' InfoPrice, InfoDate, DeltaPrice, ValidDeltaPrice,'+
  1679. ' iif(IsNull(PreUsedQuantity), 0, PreUsedQuantity)+UsedQuantity, iif(IsNull(PreUsedTotalPrice), 0, PreUsedTotalPrice)+UsedTotalPrice,'+
  1680. ' iif(IsNull(PM_PreQuantity), 0, PM_PreQuantity)+PM_Quantity_F, iif(IsNull(PM_PreTotalPrice), 0, PM_PreTotalPrice)+PM_TotalPrice_F,'+
  1681. ' iif(IsNull(PrePAL_UsedQuantity), 0, PrePAL_UsedQuantity)+PAL_UsedQuantity_F, iif(IsNull(PrePAL_UsedTotalPrice), 0, PrePAL_UsedTotalPrice)+PAL_UsedTotalPrice_F,'+
  1682. ' iif(IsNull(PrePAL_DeltaPrice), 0, PrePAL_DeltaPrice)+PAL_DeltaPrice_F, iif(IsNull(PrePAL_Total), 0, PrePAL_Total)+PAL_Total_F'+
  1683. ' From GLPrice Where PhaseID = %d';
  1684. begin
  1685. if FProjProperties.PhaseCount > 1 then
  1686. ExecuteSql(Format(sCopySql, [FProjProperties.PhaseCount, FProjProperties.PhaseCount - 1]));
  1687. end;
  1688. begin
  1689. CopyPreGLPrice;
  1690. PhaseData.CopyPreData;
  1691. ProjectGLData.LoadCurPhaseInfoPrice;
  1692. ProjectGLData.LoadStagePM_CalcData;
  1693. FProjectGLData.RefreshGatherData;
  1694. BillsMeasureData.ResetTreeNodeStageRec;
  1695. end;
  1696. function TProjectData.GetStageIndex: Integer;
  1697. begin
  1698. Result := FPhaseData.StageIndex;
  1699. end;
  1700. procedure TProjectData.SetStageIndex(const Value: Integer);
  1701. begin
  1702. FProjectGLData.Save;
  1703. FPhaseData.StageIndex := Value;
  1704. FProjectGLData.LoadStagePM_CalcData;
  1705. end;
  1706. procedure TProjectData.ClearReportCacheData;
  1707. begin
  1708. DropCacheTable('P_');
  1709. end;
  1710. function TProjectData.GetCanInsertNormalBills: Boolean;
  1711. begin
  1712. if FProjProperties.PhaseCount > 0 then
  1713. Result := CanUnlockInfo
  1714. else
  1715. Result := True;
  1716. end;
  1717. procedure TProjectData.ClearReportPrepareData;
  1718. begin
  1719. DropCacheTable('rdp_');
  1720. end;
  1721. procedure TProjectData.DropCacheTable(const AKey: string);
  1722. var
  1723. FTableList: TStringList;
  1724. iIndex: Integer;
  1725. sDeleteTableSql: String;
  1726. begin
  1727. FTableList := TStringList.Create;
  1728. try
  1729. FConnection.Connection.GetTableNames(FTableList);
  1730. iIndex := 0;
  1731. while iIndex < FTableList.Count do
  1732. begin
  1733. if Pos(AKey, FTableList.Strings[iIndex]) = 1 then
  1734. begin
  1735. sDeleteTableSql := Format('Drop Table %s', [FTableList.Strings[iIndex]]);
  1736. ExecuteSql(sDeleteTableSql);
  1737. end;
  1738. Inc(iIndex);
  1739. end;
  1740. finally
  1741. FTableList.Free;
  1742. end;
  1743. end;
  1744. procedure TProjectData.SaveDebugFile(const AFileName: string);
  1745. var
  1746. sFileName: string;
  1747. begin
  1748. sFileName := ExtractFileName(AFileName);
  1749. FConnection.SaveDebugFile(FDebugDir + '\' + sFileName);
  1750. end;
  1751. procedure TProjectData.SaveTempDataBaseFile(const AFileName: string);
  1752. begin
  1753. FConnection.SaveDebugFile(AFileName);
  1754. end;
  1755. procedure TProjectData.ImportDmfFile(const AFileName: string);
  1756. begin
  1757. ImportDbTreeTo(AFileName, Self);
  1758. end;
  1759. function TProjectData.GetValidStageIsRefer: Boolean;
  1760. begin
  1761. if FPhaseData.Active then
  1762. Result := (FPhaseIndex = FProjProperties.PhaseCount) and (FPhaseData.StageCount = 1) and (FProjProperties.AuditStatus <> -1)
  1763. else
  1764. Result := False;
  1765. end;
  1766. procedure TProjectData.OpenForGather(const AFileName: string;
  1767. APhaseIndex: Integer = -1);
  1768. begin
  1769. FProjectID := -1;
  1770. UnZipFile(AFileName, TempPath);
  1771. FConnection.Open(MainFileName);
  1772. UpdateProjectDataBase;
  1773. FProjProperties.Open(FConnection.Connection);
  1774. UpdateOldData;
  1775. FBillsData.Open(FConnection.Connection);
  1776. FBillsCompileData.Open;
  1777. FDealPaymentData.Open(FConnection.Connection);
  1778. FBGLData.Open(FConnection.Connection);
  1779. if ProjProperties.PhaseCount > 0 then
  1780. begin
  1781. if (APhaseIndex <= ProjProperties.PhaseCount) and (APhaseIndex > 0) then
  1782. FPhaseIndex := APhaseIndex
  1783. else
  1784. FPhaseIndex := ProjProperties.PhaseCount;
  1785. FPhaseData.SimpleOpen2(Format('%sPhase%d.dat', [TempPath, FPhaseIndex]));
  1786. end;
  1787. FBillsMeasureData.ResetTreeNodeStageRec;
  1788. end;
  1789. end.