StageDm.pas 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989
  1. unit StageDm;
  2. // 原报、审核数据通用
  3. // 原报 - Refer
  4. // 审核 - Audit1, Audit2 ...
  5. interface
  6. uses
  7. mDataRecord, BillsTree,
  8. SysUtils, Classes, sdDB, sdProvider, ADODB, ZhAPI, sdIDTree;
  9. type
  10. TStageData = class(TDataModule)
  11. sdpStage: TsdADOProvider;
  12. sddStage: TsdDataSet;
  13. procedure sddStageAfterValueChanged(AValue: TsdValue);
  14. procedure sddStageBeforeValueChange(AValue: TsdValue;
  15. const NewValue: Variant; var Allow: Boolean);
  16. procedure sddStageGetRecordClass(var ARecordClass: TsdRecordClass);
  17. private
  18. FPhaseData: TObject;
  19. FIndex: Integer;
  20. FBeforeChangeQuantity: Double;
  21. FBeforeChangeTotalPrice: Double;
  22. procedure BeforeBatchOperation;
  23. procedure AfterBatchOperation;
  24. procedure UpdateParentRecord(ABillsID: Integer; ATotalPrice: Double; const AFieldName: string);
  25. procedure UpdateComplete(ABillsID: Integer; AQuantity, ATotalPrice: Double);
  26. function HasPriceMarginBills: Boolean;
  27. // 向父项增量--PM_TotalPrice
  28. procedure UpdateParentPriceMargin(ABillsID: Integer; ADiffer: Double);
  29. // 向价差调整节点增量--GatherTotalPrice
  30. procedure UpdatePriceMarginNode(ADiffer: Double);
  31. // 重新计算相关的项目工料的价差数据
  32. procedure UpdateProjectGL(ABillsID: Integer);
  33. procedure CalculateDeal(ABillsID: Integer);
  34. procedure CalculateQuantityChange(ABillsID: Integer);
  35. procedure CalculatePriceChange(ABillsID: Integer);
  36. procedure CalculateGather(ABillsID: Integer);
  37. procedure CalculateParent(ANode: TMeasureBillsIDTreeNode);
  38. procedure CalculateLeaf(ANode: TMeasureBillsIDTreeNode);
  39. procedure CalculateSpecialLeaf(ANode: TMeasureBillsIDTreeNode);
  40. function GetTotalPrice(ABillsID, AType, AStageIndex: Integer): Double;
  41. function GetCalcType(ABillsID: Integer): Integer;
  42. function GetBillsUnitPriceMargin(ABillsID: Integer): Double;
  43. function GetBillsPrice(ABillsID: Integer): Double;
  44. function GetBillsNewPrice(ABillsID: Integer): Double;
  45. function GetBillsPriceDiffer(ABillsID: Integer): Double;
  46. function GetMainBillsTree: TBillsIDTree;
  47. function GetBuildLoadInterest(AType, AIndex: Integer): Double;
  48. function GetFirstPart(AType, AIndex: Integer): Double;
  49. function GetOtherFee(AType, AIndex: Integer): Double;
  50. function GetOtherProjectFee(AType, AIndex: Integer): Double;
  51. function GetRecyclingFee(AType, AIndex: Integer): Double;
  52. function GetReservedFee(AType, AIndex: Integer): Double;
  53. function GetSecondPart(AType, AIndex: Integer): Double;
  54. function GetStageSettlement(AType, AIndex: Integer): Double;
  55. function GetThirdPart(AType, AIndex: Integer): Double;
  56. function GetActive: Boolean;
  57. procedure SetTableName(const Value: string);
  58. function GetChapterStageGather(AChapter: Integer): Double;
  59. public
  60. constructor Create(APhaseData: TObject);
  61. destructor Destroy; override;
  62. procedure Open(AConnection: TADOConnection);
  63. procedure Save;
  64. // 计算任一清单节点的价差金额,并增量汇总至父项
  65. procedure CalculatePriceMargin(ABillsID: Integer);
  66. // 计算材料调差节点
  67. procedure CalculatePriceMarginNode;
  68. procedure CalculateNode(ANode: TsdIDTreeNode);
  69. procedure CalculateAll;
  70. function AddPhaseData(ABillsID: Integer;
  71. const AField, ANewValue: string): Boolean;
  72. function AddStageRecord(ABillsID: Integer): TStageRecord;
  73. procedure DeletePhaseRecord(ABillsID: Integer);
  74. procedure ReCalculate(ABillsID: Integer);
  75. procedure UpdateBGLInfo(ARec: TsdDataRecord; const AType: string);
  76. // 查找
  77. function StageRecord(ABillsID: Integer): TStageRecord;
  78. // 查找,如未找到则新增
  79. function StageRecordWithAdd(ABillsID: Integer): TStageRecord;
  80. // 将Bills表中存的累计计量数据拷贝至截止本期计量、截止上期计量,除新增一期计量外不可调用
  81. procedure CopyPrePhaseData;
  82. property Active: Boolean read GetActive;
  83. property TableName: string Write SetTableName;
  84. property MainBillsTree: TBillsIDTree read GetMainBillsTree;
  85. {可选计算数}
  86. // AType表示不同类型,取值如下:
  87. // 1: 本期数据 2: 截止本期数据 3: 截止上期数据
  88. // AIndex表示AType下不同数据类型,取值如下:
  89. // 1: 合同计量 2: 数量变更计量 3: 单价变更计量 4: 完成计量
  90. // 第一部分
  91. property FirstPart[AType, AIndex: Integer]: Double read GetFirstPart;
  92. // 第二部分
  93. property SecondPart[AType, AIndex: Integer]: Double read GetSecondPart;
  94. // 第三部分
  95. property ThirdPart[AType, AIndex: Integer]: Double read GetThirdPart;
  96. // 预留费用
  97. property ReservedFee[AType, AIndex: Integer]: Double read GetReservedFee;
  98. // 其他费用项目
  99. property OtherFee[AType, AIndex: Integer]: Double read GetOtherFee;
  100. // 建设期贷款利息
  101. property BuildLoadInterest[AType, AIndex: Integer]: Double read GetBuildLoadInterest;
  102. // 回收金额
  103. property RecyclingFee[AType, AIndex: Integer]: Double read GetRecyclingFee;
  104. // 公路工程以外的工程费用
  105. property OtherProjectFee[AType, AIndex: Integer]: Double read GetOtherProjectFee;
  106. // 本期结算价
  107. property StageSettlement[AType, AIndex: Integer]: Double read GetStageSettlement;
  108. // 100/200/.../900章本期完成计量
  109. property ChapterStageGather[AChapter: Integer]: Double read GetChapterStageGather;
  110. end;
  111. implementation
  112. uses
  113. ProjectData, BillsDm, PhaseData, Math, BGLDm, BillsMeasureDm,
  114. UtilMethods, ConditionalDefines, FormulaCalc, DetailGLDm, ConstUnit,
  115. ProjectGLDm;
  116. {$R *.dfm}
  117. { TPhaseData }
  118. function TStageData.AddPhaseData(ABillsID: Integer;
  119. const AField, ANewValue: string): Boolean;
  120. procedure SetPhaseRecord(ARec: TsdDataRecord; const AField, AValue: string);
  121. begin
  122. if CheckNumeric(ANewValue) then
  123. ARec.ValueByName(AField).AsString := AValue
  124. else
  125. begin
  126. ARec.ValueByName(AField).AsFloat := EvaluateExprs(AValue);
  127. ARec.ValueByName(StringReplace(AField, 'Quantity', 'Flag', [])).AsInteger := 1;
  128. ARec.ValueByName(StringReplace(AField, 'Quantity', 'Formula', [])).AsString := AValue;
  129. end;
  130. end;
  131. var
  132. Rec: TsdDataRecord;
  133. begin
  134. if Assigned(sddStage.FindKey('idxBID', ABillsID)) then Exit;
  135. Rec := sddStage.Add;
  136. Rec.ValueByName('BillsID').AsInteger := ABillsID;
  137. SetPhaseRecord(Rec, AField, ANewValue);
  138. end;
  139. function TStageData.AddStageRecord(ABillsID: Integer): TStageRecord;
  140. begin
  141. Result := TStageRecord(sddStage.FindKey('idxBID', ABillsID));
  142. if Assigned(Result) then Exit;
  143. Result := TStageRecord(sddStage.Add(True));
  144. try
  145. Result.ValueByName('BillsID').AsInteger := ABillsID;
  146. finally
  147. Result.EndUpdate;
  148. end;
  149. end;
  150. procedure TStageData.CalculateDeal(ABillsID: Integer);
  151. var
  152. Rec: TsdDataRecord;
  153. fQtyDiffer, fTPDiffer: Double;
  154. begin
  155. Rec := sddStage.FindKey('idxBID', ABillsID);
  156. if GetCalcType(ABillsID) = 0 then
  157. Rec.ValueByName('DealTotalPrice').AsFloat :=
  158. TotalPriceRoundTo(Rec.ValueByName('DealQuantity').AsFloat * GetBillsPrice(ABillsID));
  159. fQtyDiffer := Rec.ValueByName('DealQuantity').AsFloat - FBeforeChangeQuantity;
  160. fTPDiffer := Rec.ValueByName('DealTotalPrice').AsFloat - FBeforeChangeTotalPrice;
  161. Rec.ValueByName('EndDealQuantity').AsFloat := QuantityRoundTo(
  162. Rec.ValueByName('EndDealQuantity').AsFloat + fQtyDiffer);
  163. Rec.ValueByName('EndDealTotalPrice').AsFloat := TotalPriceRoundTo(
  164. Rec.ValueByName('EndDealTotalPrice').AsFloat + fTPDiffer);
  165. UpdateParentRecord(ABillsID, fTPDiffer, 'DealTotalPrice');
  166. UpdateComplete(ABillsID, fQtyDiffer, fTPDiffer);
  167. if TPhaseData(FPhaseData).IsLastStage then
  168. with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
  169. UpdateRecordDeal(ABillsID, fQtyDiffer, fTPDiffer);
  170. CalculatePriceMargin(ABillsID);
  171. if ABillsID = iPriceMarginID then
  172. CalculateGather(ABillsID);
  173. TPhaseData(FPhaseData).PhasePayData.CalculateAll;
  174. end;
  175. procedure TStageData.CalculatePriceChange(ABillsID: Integer);
  176. var
  177. Rec: TsdDataRecord;
  178. fQtyDiffer, fTPDiffer: Double;
  179. begin
  180. Rec := sddStage.FindKey('idxBID', ABillsID);
  181. if GetCalcType(ABillsID) < 2 then
  182. Rec.ValueByName('PcTotalPrice').AsFloat :=
  183. TotalPriceRoundTo(Rec.ValueByName('PcQuantity').AsFloat * GetBillsPriceDiffer(ABillsID));
  184. fQtyDiffer := Rec.ValueByName('PcQuantity').AsFloat - FBeforeChangeQuantity;
  185. fTPDiffer := Rec.ValueByName('PcTotalPrice').AsFloat - FBeforeChangeTotalPrice;
  186. Rec.ValueByName('EndPcQuantity').AsFloat := QuantityRoundTo(
  187. Rec.ValueByName('EndPcQuantity').AsFloat + fQtyDiffer);
  188. Rec.ValueByName('EndPcTotalPrice').AsFloat := TotalPriceRoundTo(
  189. Rec.ValueByName('EndPcTotalPrice').AsFloat + fTPDiffer);
  190. UpdateParentRecord(ABillsID, fTPDiffer, 'PcTotalPrice');
  191. UpdateComplete(ABillsID, 0, fTPDiffer);
  192. if TPhaseData(FPhaseData).IsLastStage then
  193. with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
  194. UpdateRecordPc(ABillsID, fQtyDiffer, fTPDiffer);
  195. TPhaseData(FPhaseData).PhasePayData.CalculateAll;
  196. end;
  197. procedure TStageData.CalculateQuantityChange(ABillsID: Integer);
  198. var
  199. Rec: TsdDataRecord;
  200. fQtyDiffer, fTPDiffer: Double;
  201. begin
  202. Rec := sddStage.FindKey('idxBID', ABillsID);
  203. if GetCalcType(ABillsID) = 0 then
  204. Rec.ValueByName('QcTotalPrice').AsFloat :=
  205. TotalPriceRoundTo(Rec.ValueByName('QcQuantity').AsFloat * GetBillsPrice(ABillsID));
  206. fQtyDiffer := Rec.ValueByName('QcQuantity').AsFloat - FBeforeChangeQuantity;
  207. fTPDiffer := Rec.ValueByName('QcTotalPrice').AsFloat - FBeforeChangeTotalPrice;
  208. Rec.ValueByName('EndQcQuantity').AsFloat := QuantityRoundTo(
  209. Rec.ValueByName('EndQcQuantity').AsFloat + fQtyDiffer);
  210. Rec.ValueByName('EndQcTotalPrice').AsFloat := TotalPriceRoundTo(
  211. Rec.ValueByName('EndQcTotalPrice').AsFloat + fTPDiffer);
  212. UpdateParentRecord(ABillsID, fTPDiffer, 'QcTotalPrice');
  213. UpdateComplete(ABillsID, fQtyDiffer, fTPDiffer);
  214. if TPhaseData(FPhaseData).IsLastStage then
  215. with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
  216. UpdateRecordQc(ABillsID, fQtyDiffer, fTPDiffer);
  217. CalculatePriceMargin(ABillsID);
  218. if ABillsID = iPriceMarginID then
  219. CalculateGather(ABillsID);
  220. TPhaseData(FPhaseData).PhasePayData.CalculateAll;
  221. end;
  222. constructor TStageData.Create(APhaseData: TObject);
  223. begin
  224. inherited Create(nil);
  225. FPhaseData := APhaseData;
  226. end;
  227. procedure TStageData.DeletePhaseRecord(ABillsID: Integer);
  228. var
  229. Rec: TsdDataRecord;
  230. begin
  231. Rec := sddStage.FindKey('idxBID', ABillsID);
  232. if Assigned(Rec) then
  233. sddStage.Remove(Rec);
  234. end;
  235. destructor TStageData.Destroy;
  236. begin
  237. inherited;
  238. end;
  239. function TStageData.GetBillsNewPrice(ABillsID: Integer): Double;
  240. begin
  241. Result := MainBillsTree.FindNode(ABillsID).Rec.ValueByName('NewPrice').AsFloat;
  242. end;
  243. function TStageData.GetBillsPrice(ABillsID: Integer): Double;
  244. begin
  245. Result := MainBillsTree.FindNode(ABillsID).Rec.ValueByName('Price').AsFloat;
  246. end;
  247. procedure TStageData.Open(AConnection: TADOConnection);
  248. begin
  249. sdpStage.Connection := AConnection;
  250. sddStage.Open;
  251. if not Assigned(sddStage.IndexList.FindByName('idxBID')) then
  252. sddStage.AddIndex('idxBID', 'BillsID');
  253. sddStage.FieldByName('DealQuantity').ValidChars := sddStage.FieldByName('DealQuantity').ValidChars + ArithmeticCharSet;
  254. sddStage.FieldByName('DealTotalPrice').ValidChars := sddStage.FieldByName('DealQuantity').ValidChars;
  255. end;
  256. function TStageData.StageRecord(ABillsID: Integer): TStageRecord;
  257. begin
  258. Result := nil;
  259. if Assigned(sddStage.IndexList.FindByName('idxBID')) then
  260. Result := TStageRecord(sddStage.FindKey('idxBID', ABillsID));
  261. end;
  262. procedure TStageData.ReCalculate(ABillsID: Integer);
  263. var
  264. Rec: TsdDataRecord;
  265. fDiffer: Double;
  266. begin
  267. Rec := sddStage.FindKey('idxBID', ABillsID);
  268. if not Assigned(Rec) then Exit;
  269. if Rec.ValueByName('DealFlag').AsInteger = 1 then
  270. Rec.ValueByName('DealQuantity').AsFloat := QuantityRoundTo(
  271. EvaluateExprs(Rec.ValueByName('DealFormula').AsString));
  272. if Rec.ValueByName('DealFlag').AsInteger < 2 then
  273. begin
  274. fDiffer := Rec.ValueByName('DealQuantity').AsFloat * GetBillsPrice(ABillsID)
  275. - Rec.ValueByName('DealTotalPrice').AsFloat;
  276. Rec.ValueByName('DealTotalPrice').AsFloat := TotalPriceRoundTo(
  277. Rec.ValueByName('DealQuantity').AsFloat * GetBillsPrice(ABillsID));
  278. end;
  279. Rec.ValueByName('EndDealQuantity').AsFloat := QuantityRoundTo(
  280. Rec.ValueByName('PreDealQuantity').AsFloat + Rec.ValueByName('DealQuantity').AsFloat);
  281. Rec.ValueByName('EndDealTotalPrice').AsFloat := TotalPriceRoundTo(
  282. Rec.ValueByName('PreDealTotalPrice').AsFloat + Rec.ValueByName('DealTotalPrice').AsFloat);
  283. if Rec.ValueByName('QcFlag').AsInteger = 1 then
  284. Rec.ValueByName('QcQuantity').AsFloat := QuantityRoundTo(
  285. EvaluateExprs(Rec.ValueByName('QcFormula').AsString));
  286. if Rec.ValueByName('QcFlag').AsInteger < 2 then
  287. begin
  288. fDiffer := Rec.ValueByName('QcQuantity').AsFloat * GetBillsPrice(ABillsID)
  289. - Rec.ValueByName('QcTotalPrice').AsFloat;
  290. Rec.ValueByName('QcTotalPrice').AsFloat := TotalPriceRoundTo(
  291. Rec.ValueByName('QcQuantity').AsFloat * GetBillsPrice(ABillsID));
  292. end;
  293. Rec.ValueByName('EndQcQuantity').AsFloat := QuantityRoundTo(
  294. Rec.ValueByName('PreQcQuantity').AsFloat + Rec.ValueByName('QcQuantity').AsFloat);
  295. Rec.ValueByName('EndQcTotalPrice').AsFloat := TotalPriceRoundTo(
  296. Rec.ValueByName('PreQcTotalPrice').AsFloat + Rec.ValueByName('QcTotalPrice').AsFloat);
  297. if Rec.ValueByName('PcFlag').AsInteger = 1 then
  298. Rec.ValueByName('PcQuantity').AsFloat := QuantityRoundTo(
  299. EvaluateExprs(Rec.ValueByName('PcFormula').AsString));
  300. if Rec.ValueByName('DealFlag').AsInteger < 2 then
  301. begin
  302. fDiffer := Rec.ValueByName('PcQuantity').AsFloat * GetBillsNewPrice(ABillsID)
  303. - Rec.ValueByName('PcTotalPrice').AsFloat;
  304. Rec.ValueByName('PcTotalPrice').AsFloat := TotalPriceRoundTo(
  305. Rec.ValueByName('PcQuantity').AsFloat * GetBillsNewPrice(ABillsID));
  306. end;
  307. Rec.ValueByName('EndPcQuantity').AsFloat := QuantityRoundTo(
  308. Rec.ValueByName('PrePcQuantity').AsFloat + Rec.ValueByName('PcQuantity').AsFloat);
  309. Rec.ValueByName('EndPcTotalPrice').AsFloat := TotalPriceRoundTo(
  310. Rec.ValueByName('PrePcTotalPrice').AsFloat + Rec.ValueByName('PcTotalPrice').AsFloat);
  311. end;
  312. procedure TStageData.Save;
  313. begin
  314. sddStage.Save;
  315. end;
  316. procedure TStageData.sddStageAfterValueChanged(AValue: TsdValue);
  317. var
  318. iBillsID: Integer;
  319. stnNode: TsdIDTreeNode;
  320. begin
  321. iBillsID := AValue.Owner.ValueByName('BillsID').AsInteger;
  322. stnNode := MainBillsTree.FindNode(iBillsID);
  323. if not Assigned(stnNode) or stnNode.HasChildren then Exit;
  324. if (AValue.FieldName = 'DealQuantity') or
  325. (AValue.FieldName = 'DealFormula') or
  326. (AValue.FieldName = 'DealTotalPrice') then
  327. CalculateDeal(iBillsID);
  328. if (AValue.FieldName = 'QcQuantity') or
  329. (AValue.FieldName = 'QcFormula') or
  330. (AValue.FieldName = 'QcTotalPrice') then
  331. CalculateQuantityChange(iBillsID);
  332. if (AValue.FieldName = 'PcQuantity') or
  333. (AValue.FieldName = 'PcFormula') or
  334. (AValue.FieldName = 'PcTotalPrice') then
  335. CalculatePriceChange(iBillsID);
  336. if (AValue.FieldName = 'DealQuantity') or
  337. (AValue.FieldName = 'QcQuantity') then
  338. UpdateProjectGL(iBillsID);
  339. end;
  340. function TStageData.GetMainBillsTree: TBillsIDTree;
  341. begin
  342. with TProjectData(TPhaseData(FPhaseData).ProjectData) do
  343. Result := BillsMeasureData.BillsMeasureTree;
  344. end;
  345. procedure TStageData.sddStageBeforeValueChange(AValue: TsdValue;
  346. const NewValue: Variant; var Allow: Boolean);
  347. procedure SetBeforeChangeValue(const AType: string);
  348. begin
  349. if SameText(AValue.FieldName, AType + 'Quantity') or
  350. SameText(AValue.FieldName, AType + 'Formula') or
  351. SameText(AValue.FieldName, AType + 'TotalPrice') then
  352. begin
  353. FBeforeChangeQuantity := AValue.Owner.ValueByName(AType + 'Quantity').AsFloat;
  354. FBeforeChangeTotalPrice := AValue.Owner.ValueByName(AType + 'TotalPrice').AsFloat;
  355. end;
  356. end;
  357. procedure CheckOverRange;
  358. var
  359. vNode: TsdIDTreeNode;
  360. fAvailableQty: Double;
  361. begin
  362. if SameText(AValue.FieldName, 'DealQuantity') then
  363. begin
  364. vNode := MainBillsTree.FindNode(AValue.Owner.ValueByName('BillsID').AsInteger);
  365. fAvailableQty := vNode.Rec.ValueByName('Quantity').AsFloat
  366. - vNode.Rec.ValueByName('AddDealQuantity').AsFloat + AValue.AsFloat;
  367. if VarToFloatDef(NewValue, 0) > fAvailableQty then
  368. DataSetErrorMessage(Allow, '不可超过0号台账合同数量!');
  369. end;
  370. end;
  371. begin
  372. // 不检查超计
  373. //CheckOverRange;
  374. SetBeforeChangeValue('Deal');
  375. SetBeforeChangeValue('Qc');
  376. SetBeforeChangeValue('Pc');
  377. end;
  378. procedure TStageData.AfterBatchOperation;
  379. begin
  380. sddStage.BeforeValueChange := sddStageBeforeValueChange;
  381. sddStage.AfterValueChanged := sddStageAfterValueChanged;
  382. end;
  383. procedure TStageData.BeforeBatchOperation;
  384. begin
  385. sddStage.BeforeValueChange := nil;
  386. sddStage.AfterValueChanged := nil;
  387. end;
  388. function TStageData.GetBillsPriceDiffer(ABillsID: Integer): Double;
  389. begin
  390. with MainBillsTree.FindNode(ABillsID).Rec do
  391. Result := ValueByName('NewPrice').AsFloat - ValueByName('Price').AsFloat;
  392. end;
  393. procedure TStageData.UpdateComplete(ABillsID: Integer; AQuantity,
  394. ATotalPrice: Double);
  395. var
  396. Rec: TStageRecord;
  397. begin
  398. if ABillsID = -1 then Exit;
  399. Rec := StageRecord(ABillsID);
  400. Rec.GatherQuantity.AsFloat := QuantityRoundTo(Rec.GatherQuantity.AsFloat + AQuantity);
  401. Rec.GatherTotalPrice.AsFloat := TotalPriceRoundTo(Rec.GatherTotalPrice.AsFloat + ATotalPrice);
  402. Rec.EndGatherQuantity.AsFloat := QuantityRoundTo(Rec.EndGatherQuantity.AsFloat + AQuantity);
  403. Rec.EndGatherTotalPrice.AsFloat := TotalPriceRoundTo(Rec.EndGatherTotalPrice.AsFloat + ATotalPrice);
  404. // 数量不向上汇总
  405. UpdateParentRecord(ABillsID, ATotalPrice, 'GatherTotalPrice');
  406. end;
  407. procedure TStageData.UpdateParentRecord(ABillsID: Integer;
  408. ATotalPrice: Double; const AFieldName: string);
  409. var
  410. iParentID: Integer;
  411. Rec: TsdDataRecord;
  412. begin
  413. iParentID := MainBillsTree.FindNode(ABillsID).ParentID;
  414. if iParentID = -1 then Exit;
  415. Rec := StageRecordWithAdd(iParentID);
  416. Rec.ValueByName(AFieldName).AsFloat := TotalPriceRoundTo(
  417. Rec.ValueByName(AFieldName).AsFloat + ATotalPrice);
  418. Rec.ValueByName('End' + AFieldName).AsFloat := TotalPriceRoundTo(
  419. Rec.ValueByName('End' + AFieldName).AsFloat + ATotalPrice);
  420. UpdateParentRecord(iParentID, ATotalPrice, AFieldName);
  421. end;
  422. function TStageData.GetBuildLoadInterest(AType, AIndex: Integer): Double;
  423. begin
  424. Result := GetTotalPrice(34, AType, AIndex);
  425. end;
  426. function TStageData.GetFirstPart(AType, AIndex: Integer): Double;
  427. begin
  428. Result := GetTotalPrice(1, AType, AIndex);
  429. end;
  430. function TStageData.GetOtherFee(AType, AIndex: Integer): Double;
  431. begin
  432. Result := GetTotalPrice(15, AType, AIndex);
  433. end;
  434. function TStageData.GetOtherProjectFee(AType, AIndex: Integer): Double;
  435. begin
  436. Result := GetTotalPrice(9, AType, AIndex);
  437. end;
  438. function TStageData.GetRecyclingFee(AType, AIndex: Integer): Double;
  439. begin
  440. Result := GetTotalPrice(16, AType, AIndex);
  441. end;
  442. function TStageData.GetReservedFee(AType, AIndex: Integer): Double;
  443. begin
  444. Result := GetTotalPrice(7, AType, AIndex);
  445. end;
  446. function TStageData.GetSecondPart(AType, AIndex: Integer): Double;
  447. begin
  448. Result := GetTotalPrice(2, AType, AIndex);
  449. end;
  450. function TStageData.GetStageSettlement(AType, AIndex: Integer): Double;
  451. begin
  452. // 全国
  453. // 第一部分+第二部分+第三部分+预备费+新增加费用项目(其他费用_广东)-回收金额
  454. Result := FirstPart[AType, AIndex] + SecondPart[AType, AIndex] + ThirdPart[AType, AIndex]
  455. + ReservedFee[AType, AIndex] + OtherFee[AType, AIndex] - RecyclingFee[AType, AIndex];
  456. // 广东
  457. // 全国的基础上+建设期贷款利息+公路功能以外的项目
  458. if _IsGuangDong then
  459. Result := Result + BuildLoadInterest[AType, AIndex] + OtherProjectFee[AType, AIndex]
  460. end;
  461. function TStageData.GetThirdPart(AType, AIndex: Integer): Double;
  462. begin
  463. Result := GetTotalPrice(3, AType, AIndex);
  464. end;
  465. function TStageData.GetTotalPrice(ABillsID, AType, AStageIndex: Integer): Double;
  466. var
  467. Rec: TsdDataRecord;
  468. sFieldName: string;
  469. begin
  470. Result := 0;
  471. Rec := StageRecord(ABillsID);
  472. if not Assigned(Rec) then Exit;
  473. case AType of
  474. 1: sFieldName := '';
  475. 2: sFieldName := 'End';
  476. 3: sFieldName := 'Pre';
  477. end;
  478. case AStageIndex of
  479. 1: sFieldName := sFieldName + 'DealTotalPrice';
  480. 2: sFieldName := sFieldName + 'QcTotalPrice';
  481. 3: sFieldName := sFieldName + 'PcTotalPrice';
  482. 4: sFieldName := sFieldName + 'GatherTotalPrice';
  483. end;
  484. Result := Rec.ValueByName(sFieldName).AsFloat;
  485. end;
  486. procedure TStageData.CopyPrePhaseData;
  487. var
  488. iRecord: Integer;
  489. Rec: TBillsRecord;
  490. NewRec: TStageRecord;
  491. begin
  492. BeforeBatchOperation;
  493. try
  494. with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsData do
  495. for iRecord := 0 to sddBills.RecordCount - 1 do
  496. begin
  497. Rec := TBillsRecord(sddBills.Records[iRecord]);
  498. if (Rec.AddGatherTotalPrice.AsFloat = 0) and
  499. (Rec.AddDealTotalPrice.AsFloat = 0) and
  500. (Rec.AddQcTotalPrice.AsFloat = 0) and
  501. (Rec.AddPcTotalPrice.AsFloat = 0) and
  502. (Rec.PM_AddTotalPrice.AsFloat = 0) then Continue;
  503. NewRec := TStageRecord(sddStage.Add);
  504. NewRec.BillsID.AsInteger := Rec.ID.AsInteger;
  505. NewRec.EndDealQuantity.AsFloat := Rec.AddDealQuantity.AsFloat;
  506. NewRec.EndDealTotalPrice.AsFloat := Rec.AddDealTotalPrice.AsFloat;
  507. NewRec.EndQcQuantity.AsFloat := Rec.AddQcQuantity.AsFloat;
  508. NewRec.EndQcTotalPrice.AsFloat := Rec.AddQcTotalPrice.AsFloat;
  509. NewRec.EndQcBGLCode.AsString := Rec.AddQcBGLCode.AsString;
  510. NewRec.EndQcBGLNum.AsString := Rec.AddQcBGLNum.AsString;
  511. NewRec.EndPcQuantity.AsFloat := Rec.AddPcQuantity.AsFloat;
  512. NewRec.EndPcTotalPrice.AsFloat := Rec.AddPcTotalPrice.AsFloat;
  513. NewRec.EndPcBGLCode.AsString := Rec.AddPcBGLCode.AsString;
  514. NewRec.EndPcBGLNum.AsString := Rec.AddPcBGLNum.AsString;
  515. NewRec.EndGatherQuantity.AsFloat := Rec.AddGatherQuantity.AsFloat;
  516. NewRec.EndGatherTotalPrice.AsFloat := Rec.AddGatherTotalPrice.AsFloat;
  517. NewRec.PreDealQuantity.AsFloat := Rec.AddDealQuantity.AsFloat;
  518. NewRec.PreDealTotalPrice.AsFloat := Rec.AddDealTotalPrice.AsFloat;
  519. NewRec.PreQcQuantity.AsFloat := Rec.AddQcQuantity.AsFloat;
  520. NewRec.PreQcTotalPrice.AsFloat := Rec.AddQcTotalPrice.AsFloat;
  521. NewRec.PreQcBGLCode.AsString := Rec.AddQcBGLCode.AsString;
  522. NewRec.PreQcBGLNum.AsString := Rec.AddQcBGLNum.AsString;
  523. NewRec.PrePcQuantity.AsFloat := Rec.AddPcQuantity.AsFloat;
  524. NewRec.PrePcTotalPrice.AsFloat := Rec.AddPcTotalPrice.AsFloat;
  525. NewRec.PrePcBGLCode.AsString := Rec.AddPcBGLCode.AsString;
  526. NewRec.PrePcBGLNum.AsString := Rec.AddPcBGLNum.AsString;
  527. NewRec.PreGatherQuantity.AsFloat := Rec.AddGatherQuantity.AsFloat;
  528. NewRec.PreGatherTotalPrice.AsFloat := Rec.AddGatherTotalPrice.AsFloat;
  529. NewRec.PM_PreTotalPrice.AsFloat := Rec.PM_AddTotalPrice.AsFloat;
  530. end;
  531. finally
  532. AfterBatchOperation;
  533. end;
  534. end;
  535. procedure TStageData.UpdateBGLInfo(ARec: TsdDataRecord; const AType: string);
  536. var
  537. sPreBGLCode, sPreBGLNum, sCurBGLCode, sCurBGLNum: string;
  538. begin
  539. sPreBGLCode := ARec.ValueByName('Pre' + AType + 'BGLCode').AsString;
  540. sPreBGLNum := ARec.ValueByName('Pre' + AType + 'BGLNum').AsString;
  541. sCurBGLCode := ARec.ValueByName(AType + 'BGLCode').AsString;
  542. sCurBGLNum := ARec.ValueByName(AType + 'BGLNum').AsString;
  543. MergeRelaBGLAndNum(sPreBGLCode, sPreBGLNum, sCurBGLCode, sCurBGLNum);
  544. ARec.ValueByName('End' + AType + 'BGLCode').AsString := sPreBGLCode;
  545. ARec.ValueByName('End' + AType + 'BGLNum').AsString := sPreBGLNum;
  546. end;
  547. procedure TStageData.CalculateAll;
  548. begin
  549. BeforeBatchOperation;
  550. CalculateNode(MainBillsTree.FirstNode);
  551. AfterBatchOperation;
  552. end;
  553. procedure TStageData.CalculateNode(ANode: TsdIDTreeNode);
  554. function IsSpecialNode: Boolean;
  555. begin
  556. //Result := ANode.ID = iPriceMarginID;
  557. Result := False;
  558. end;
  559. begin
  560. if not Assigned(ANode) then Exit;
  561. if ANode.HasChildren then
  562. begin
  563. CalculateNode(ANode.FirstChild);
  564. CalculateParent(TMeasureBillsIDTreeNode(ANode));
  565. end
  566. else
  567. begin
  568. if IsSpecialNode then
  569. CalculateSpecialLeaf(TMeasureBillsIDTreeNode(ANode))
  570. else
  571. CalculateLeaf(TMeasureBillsIDTreeNode(ANode));
  572. end;
  573. CalculateNode(ANode.NextSibling);
  574. end;
  575. procedure TStageData.CalculateParent(ANode: TMeasureBillsIDTreeNode);
  576. var
  577. iChild: Integer;
  578. ChildNode: TMeasureBillsIDTreeNode;
  579. fDeal, fQc, fPc, fTotal, fPM: Double;
  580. begin
  581. if not Assigned(ANode.StageRec) then Exit;
  582. fDeal := 0;
  583. fQc := 0;
  584. fPc := 0;
  585. fPM := 0;
  586. for iChild := 0 to ANode.ChildCount - 1 do
  587. begin
  588. ChildNode := TMeasureBillsIDTreeNode(ANode.ChildNodes[iChild]);
  589. if not Assigned(ChildNode.StageRec) then Continue;
  590. fDeal := TotalPriceRoundTo(fDeal + ChildNode.StageRec.DealTotalPrice.AsFloat);
  591. fQc := TotalPriceRoundTo(fQc + ChildNode.StageRec.QcTotalPrice.AsFloat);
  592. fPc := TotalPriceRoundTo(fPc + ChildNode.StageRec.PcTotalPrice.AsFloat);
  593. fPM := TotalPriceRoundTo(fPM + ChildNode.StageRec.PM_TotalPrice.AsFloat);
  594. end;
  595. fTotal := TotalPriceRoundTo(fDeal + fQc + fPc);
  596. with ANode.StageRec do
  597. begin
  598. if DealTotalPrice.AsFloat <> fDeal then
  599. begin
  600. DealTotalPrice.AsFloat := fDeal;
  601. EndDealTotalPrice.AsFloat := TotalPriceRoundTo(PreDealTotalPrice.AsFloat + fDeal);
  602. end;
  603. if QcTotalPrice.AsFloat <> fQc then
  604. begin
  605. QcTotalPrice.AsFloat := fQc;
  606. EndQcTotalPrice.AsFloat := TotalPriceRoundTo(PreQcTotalPrice.AsFloat + fQc);
  607. end;
  608. if PcTotalPrice.AsFloat <> fPc then
  609. begin
  610. PcTotalPrice.AsFloat := fPc;
  611. EndPcTotalPrice.AsFloat := TotalPriceRoundTo(PrePcTotalPrice.AsFloat + fPc);
  612. end;
  613. if GatherTotalPrice.AsFloat <> fTotal then
  614. begin
  615. GatherTotalPrice.AsFloat := fTotal;
  616. EndGatherTotalPrice.AsFloat := TotalPriceRoundTo(PreGatherTotalPrice.AsFloat + fTotal);
  617. end;
  618. if PM_TotalPrice.AsFloat <> fPM then
  619. PM_TotalPrice.AsFloat := fPM;
  620. end;
  621. end;
  622. procedure TStageData.CalculateLeaf(ANode: TMeasureBillsIDTreeNode);
  623. procedure CalculateMeasure(ARec: TsdDataRecord; const AType: string);
  624. begin
  625. if GetCalcType(ANode.ID) = 0 then
  626. begin
  627. if ARec.ValueByName(AType + 'Formula').AsString <> '' then
  628. ARec.ValueByName(AType + 'Quantity').AsFloat :=
  629. EvaluateExprs(ARec.ValueByName(AType + 'Formula').AsString);
  630. ARec.ValueByName(AType + 'TotalPrice').AsFloat := TotalPriceRoundTo(
  631. ARec.ValueByName(AType + 'Quantity').AsFloat * GetBillsPrice(ANode.ID));
  632. end;
  633. ARec.ValueByName('End' + AType + 'Quantity').AsFloat := QuantityRoundTo(
  634. ARec.ValueByName('Pre' + AType + 'Quantity').AsFloat + ARec.ValueByName(AType + 'Quantity').AsFloat);
  635. ARec.ValueByName('End' + AType + 'TotalPrice').AsFloat := TotalPriceRoundTo(
  636. ARec.ValueByName('Pre' + AType + 'TotalPrice').AsFloat + ARec.ValueByName(AType + 'TotalPrice').AsFloat);
  637. end;
  638. procedure CalculatePriceMargin(ARec: TStageRecord);
  639. var
  640. fPrice: Double;
  641. begin
  642. fPrice := GetBillsUnitPriceMargin(ARec.BillsID.AsInteger);
  643. ARec.SetFloatValue(ARec.PM_TotalPrice, TotalPriceRoundTo(ARec.GatherQuantity.AsFloat * fPrice));
  644. end;
  645. var
  646. Rec: TStageRecord;
  647. begin
  648. Rec := ANode.StageRec;
  649. if not Assigned(Rec) then Exit;
  650. CalculateMeasure(Rec, 'Deal');
  651. CalculateMeasure(Rec, 'Pc');
  652. CalculateMeasure(Rec, 'Qc');
  653. Rec.GatherQuantity.AsFloat := QuantityRoundTo(
  654. Rec.DealQuantity.AsFloat + Rec.QcQuantity.AsFloat);
  655. Rec.GatherTotalPrice.AsFloat := TotalPriceRoundTo(
  656. Rec.DealTotalPrice.AsFloat + Rec.QcTotalPrice.AsFloat + Rec.PcTotalPrice.AsFloat);
  657. Rec.EndGatherQuantity.AsFloat := QuantityRoundTo(
  658. Rec.PreGatherQuantity.AsFloat + Rec.GatherQuantity.AsFloat);
  659. Rec.EndGatherTotalPrice.AsFloat := TotalPriceRoundTo(
  660. Rec.PreGatherTotalPrice.AsFloat + Rec.GatherTotalPrice.AsFloat);
  661. CalculatePriceMargin(Rec);
  662. end;
  663. function TStageData.GetActive: Boolean;
  664. begin
  665. Result := sddStage.Active;
  666. end;
  667. procedure TStageData.SetTableName(const Value: string);
  668. begin
  669. sdpStage.TableName := Value;
  670. end;
  671. procedure TStageData.sddStageGetRecordClass(
  672. var ARecordClass: TsdRecordClass);
  673. begin
  674. ARecordClass := TStageRecord;
  675. end;
  676. function TStageData.GetChapterStageGather(AChapter: Integer): Double;
  677. function CheckCodeChapter(const ACode: string): Boolean;
  678. var
  679. iFirst: Integer;
  680. sgs: TStrings;
  681. begin
  682. sgs := TStringList.Create;
  683. try
  684. sgs.Delimiter := '-';
  685. sgs.DelimitedText := ACode;
  686. if sgs.Count > 1 then
  687. begin
  688. iFirst := StrToIntDef(sgs[0], 0) div 100;
  689. Result := iFirst = AChapter;
  690. end
  691. else
  692. Result := False;
  693. finally
  694. sgs.Free;
  695. end;
  696. end;
  697. var
  698. iIndex: Integer;
  699. Rec: TsdDataRecord;
  700. stnNode: TsdIDTreeNode;
  701. begin
  702. Result := 0;
  703. for iIndex := 0 to sddStage.RecordCount - 1 do
  704. begin
  705. Rec := sddStage.Records[iIndex];
  706. stnNode := MainBillsTree.FindNode(Rec.ValueByName('BillsID').AsInteger);
  707. if not stnNode.HasChildren and CheckCodeChapter(stnNode.Rec.ValueByName('B_Code').AsString) then
  708. Result := Result + Rec.ValueByName('GatherTotalPrice').AsFloat;
  709. end;
  710. end;
  711. function TStageData.GetCalcType(ABillsID: Integer): Integer;
  712. begin
  713. Result := MainBillsTree.FindNode(ABillsID).Rec.ValueByName('CalcType').AsInteger;
  714. end;
  715. procedure TStageData.CalculatePriceMarginNode;
  716. var
  717. Rec: TStageRecord;
  718. fDiffer: Double;
  719. begin
  720. if not HasPriceMarginBills then Exit;
  721. with TProjectData(TPhaseData(FPhaseData).ProjectData) do
  722. begin
  723. Rec := StageRecord(iPriceMarginID);
  724. if not Assigned(Rec) then
  725. Rec := AddStageRecord(iPriceMarginID);
  726. fDiffer := TotalPriceRoundTo(ProjectGLData.PM_TotalPrice - Rec.GatherTotalPrice.AsFloat);
  727. if fDiffer <> 0 then
  728. begin
  729. Rec.AddDifferValue(Rec.GatherTotalPrice, fDiffer);
  730. Rec.AddDifferValue(Rec.EndGatherTotalPrice, fDiffer);
  731. UpdateParentRecord(Rec.BillsID.AsInteger, fDiffer, 'GatherTotalPrice');
  732. end;
  733. end;
  734. end;
  735. function TStageData.GetBillsUnitPriceMargin(ABillsID: Integer): Double;
  736. var
  737. vGLs: TList;
  738. iGL: Integer;
  739. GLRec: TDetailGLRecord;
  740. begin
  741. Result := 0;
  742. vGLs := TList.Create;
  743. try
  744. with TProjectData(TPhaseData(FPhaseData).ProjectData).DetailGLData do
  745. LoadDetailGLs(ABillsID, vGLs);
  746. for iGL := 0 to vGLs.Count - 1 do
  747. begin
  748. GLRec := TDetailGLRecord(vGLs.Items[iGL]);
  749. Result := Result + GLRec.Quantity.AsFloat * GLRec.RelaProjectGL.ValidDeltaPrice.AsFloat;
  750. end;
  751. finally
  752. vGLs.Free;
  753. end;
  754. end;
  755. procedure TStageData.CalculatePriceMargin(ABillsID: Integer);
  756. var
  757. Rec: TStageRecord;
  758. fPM, fPMDiffer: Double;
  759. begin
  760. //if not HasPriceMarginBills then Exit;
  761. Rec := StageRecord(ABillsID);
  762. if not Assigned(Rec) then Exit;
  763. fPM := TotalPriceRoundTo(Rec.GatherQuantity.AsFloat * GetBillsUnitPriceMargin(ABillsID));
  764. if fPM <> Rec.PM_TotalPrice.AsFloat then
  765. begin
  766. fPMDiffer := fPM - Rec.PM_TotalPrice.AsFloat;
  767. Rec.PM_TotalPrice.AsFloat := fPM;
  768. UpdateParentPriceMargin(ABillsID, fPMDiffer);
  769. //UpdatePriceMarginNode(fPMDiffer);
  770. with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
  771. UpdateRecordPM(ABillsID, fPMDiffer);
  772. end;
  773. end;
  774. procedure TStageData.UpdatePriceMarginNode(ADiffer: Double);
  775. var
  776. Rec: TStageRecord;
  777. begin
  778. Rec := StageRecordWithAdd(iPriceMarginID);
  779. Rec.AddDifferValue(Rec.GatherTotalPrice, ADiffer);
  780. Rec.AddDifferValue(Rec.EndGatherTotalPrice, ADiffer);
  781. UpdateParentRecord(iPriceMarginID, ADiffer, 'GatherTotalPrice');
  782. with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
  783. UpdateGather(Rec.BillsID.AsInteger, ADiffer);
  784. end;
  785. procedure TStageData.UpdateParentPriceMargin(ABillsID: Integer; ADiffer: Double);
  786. var
  787. iParentID: Integer;
  788. Rec: TStageRecord;
  789. begin
  790. iParentID := MainBillsTree.FindNode(ABillsID).ParentID;
  791. if iParentID = -1 then Exit;
  792. Rec := StageRecordWithAdd(iParentID);
  793. Rec.PM_TotalPrice.AsFloat := TotalPriceRoundTo(Rec.PM_TotalPrice.AsFloat + ADiffer);
  794. UpdateParentPriceMargin(iParentID, ADiffer);
  795. end;
  796. function TStageData.StageRecordWithAdd(ABillsID: Integer): TStageRecord;
  797. begin
  798. Result := StageRecord(ABillsID);
  799. if not Assigned(Result) then
  800. Result := AddStageRecord(ABillsID);
  801. end;
  802. procedure TStageData.UpdateProjectGL(ABillsID: Integer);
  803. var
  804. vGLs: TList;
  805. iGL: Integer;
  806. GLRec: TDetailGLRecord;
  807. begin
  808. vGLs := TList.Create;
  809. try
  810. with TProjectData(TPhaseData(FPhaseData).ProjectData) do
  811. begin
  812. DetailGLData.LoadDetailGLs(ABillsID, vGLs);
  813. ProjectGLData.CalculateGLs_PM(vGLs);
  814. ProjectGLData.RefreshGatherData;
  815. end;
  816. finally
  817. vGLs.Free;
  818. end;
  819. end;
  820. procedure TStageData.CalculateSpecialLeaf(ANode: TMeasureBillsIDTreeNode);
  821. procedure GatherPriceMargin(ARec: TStageRecord);
  822. begin
  823. with TProjectData(TPhaseData(FPhaseData).ProjectData).ProjectGLData do
  824. ARec.SetFloatValue(ARec.GatherTotalPrice, PM_TotalPrice);
  825. ARec.SetFloatValue(ARec.EndGatherTotalPrice,
  826. ARec.PreGatherTotalPrice.AsFloat + ARec.GatherTotalPrice.AsFloat);
  827. end;
  828. var
  829. StageRec: TStageRecord;
  830. begin
  831. StageRec := ANode.StageRec;
  832. if not Assigned(StageRec) then Exit;
  833. case ANode.ID of
  834. iPriceMarginID: GatherPriceMargin(StageRec);
  835. end;
  836. end;
  837. function TStageData.HasPriceMarginBills: Boolean;
  838. var
  839. vPM_Node: TsdIDTreeNode;
  840. begin
  841. vPM_Node := MainBillsTree.FindNode(iPriceMarginID);
  842. Result := Assigned(vPM_Node);
  843. end;
  844. procedure TStageData.CalculateGather(ABillsID: Integer);
  845. var
  846. Rec: TStageRecord;
  847. fQuantity, fTotalPrice: Double;
  848. begin
  849. Rec := TStageRecord(sddStage.FindKey('idxBID', ABillsID));
  850. if not Assigned(Rec) then Exit;
  851. fQuantity := QuantityRoundTo(Rec.DealQuantity.AsFloat + Rec.QcQuantity.AsFloat) - Rec.GatherQuantity.AsFloat;
  852. fTotalPrice := TotalPriceRoundTo(
  853. Rec.DealTotalPrice.AsFloat + Rec.QcTotalPrice.AsFloat + Rec.PcTotalPrice.AsFloat) - Rec.GatherTotalPrice.AsFloat;
  854. UpdateComplete(ABillsID, fQuantity, fTotalPrice);
  855. end;
  856. end.