BillsGatherDm.pas 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402
  1. unit BillsGatherDm;
  2. interface
  3. uses
  4. SysUtils, Classes, DB, DBClient, sdIDTree, sdDB, sdProvider,
  5. GclBillsGatherModel;
  6. type
  7. TBillsGatherData = class(TDataModule)
  8. smpGclBills: TsdMemoryProvider;
  9. sddGclBills: TsdDataSet;
  10. sdvGclBills: TsdDataView;
  11. smpDetailGclBills: TsdMemoryProvider;
  12. sddDetailGclBills: TsdDataSet;
  13. sdvDetailGclBills: TsdDataView;
  14. smpDetailDealBills: TsdMemoryProvider;
  15. sddDetailDealBills: TsdDataSet;
  16. sdvDetailDealBills: TsdDataView;
  17. smpDetailBGLBills: TsdMemoryProvider;
  18. sddDetailBGLBills: TsdDataSet;
  19. sdvDetailBGLBills: TsdDataView;
  20. procedure sdvGclBillsCurrentChanged(ARecord: TsdDataRecord);
  21. procedure sdvDetailGclBillsFilterRecord(ARecord: TsdDataRecord;
  22. var Allow: Boolean);
  23. procedure sdvGclBillsGetText(var Text: String; ARecord: TsdDataRecord;
  24. AValue: TsdValue; AColumn: TsdViewColumn; DisplayText: Boolean);
  25. private
  26. FProjectData: TObject;
  27. procedure WriteGatherRecord(AGcls, AXmjs: TList);
  28. function GetMainBillsTree: TsdIDTree;
  29. public
  30. constructor Create(AProjectData: TObject);
  31. destructor Destroy; override;
  32. procedure RefreshBills;
  33. property ProjectData: TObject read FProjectData;
  34. property MainBillsTree: TsdIDTree read GetMainBillsTree;
  35. end;
  36. implementation
  37. uses
  38. ProjectData, PhaseData, StageDm, BillsDm, UtilMethods,
  39. ZhAPI, BillsCompileDm, DealBillsDm, BGLDm, BillsTree, BillsMeasureDm;
  40. {$R *.dfm}
  41. { TBillsGatherData }
  42. constructor TBillsGatherData.Create(AProjectData: TObject);
  43. begin
  44. inherited Create(nil);
  45. FProjectData := AProjectData;
  46. sddGclBills.Open;
  47. if not Assigned(sddGclBills.FindIndex('idxIndexCode')) then
  48. sddGclBills.AddIndex('idxIndexCode', 'IndexCode');
  49. sdvGclBills.Open;
  50. sdvGclBills.IndexName := 'idxIndexCode';
  51. sddDetailGclBills.Open;
  52. if not Assigned(sddDetailGclBills.FindIndex('idxSerialNo')) then
  53. sddDetailGclBills.AddIndex('idxSerialNo', 'BillsID;TreeSerialNo');
  54. if not Assigned(sddDetailGclBills.FindIndex('idxRelaBills')) then
  55. sddDetailGclBills.AddIndex('idxRelaBills', 'RelaBillsID');
  56. sdvDetailGclBills.Open;
  57. sdvDetailGclBills.IndexName := 'idxSerialNo';
  58. sddDetailDealBills.Open;
  59. if not Assigned(sddDetailDealBills.FindIndex('idxDeal')) then
  60. sddDetailDealBills.AddIndex('idxDeal', 'DealID');
  61. sdvDetailDealBills.Open;
  62. sdvDetailDealBills.IndexName := 'idxDeal';
  63. sddDetailBGLBills.Open;
  64. if not Assigned(sddDetailBGLBills.FindIndex('idxBGL')) then
  65. sddDetailBGLBills.AddIndex('idxBGL', 'BGLID');
  66. sdvDetailBGLBills.Open;
  67. sdvDetailBGLBills.IndexName := 'idxBGL';
  68. end;
  69. destructor TBillsGatherData.Destroy;
  70. begin
  71. inherited;
  72. end;
  73. function TBillsGatherData.GetMainBillsTree: TsdIDTree;
  74. begin
  75. Result := TProjectData(FProjectData).BillsMeasureData.BillsMeasureTree;
  76. end;
  77. procedure TBillsGatherData.RefreshBills;
  78. var
  79. vGather: TGclGatherModel;
  80. begin
  81. vGather := TGclGatherModel.Create(FProjectData);
  82. try
  83. vGather.GatherDeal := True;
  84. vGather.GatherBGL := True;
  85. vGather.WriteGatherData := WriteGatherRecord;
  86. vGather.Execute;
  87. finally
  88. vGather.Free;
  89. end;
  90. end;
  91. procedure TBillsGatherData.WriteGatherRecord(AGcls, AXmjs: TList);
  92. var
  93. sCurB_Code, sCurName, sCurUnits, sCurPrice: string;
  94. bHasCurrrent: Boolean;
  95. procedure DisableAndClearDataSet(ADataSet: TsdDataSet);
  96. begin
  97. ADataSet.DisableControls;
  98. ADataSet.BeginUpdate;
  99. ADataSet.DeleteAll;
  100. end;
  101. procedure EnableDataSet(ADataSet: TsdDataSet);
  102. begin
  103. ADataSet.EndUpdate;
  104. ADataSet.EnableControls;
  105. end;
  106. procedure BeforeWrite;
  107. begin
  108. bHasCurrrent := Assigned(sdvGclBills.Current);
  109. if Assigned(sdvGclBills.Current) then
  110. begin
  111. sCurB_Code := sdvGclBills.Current.ValueByName('B_Code').AsString;
  112. sCurName := sdvGclBills.Current.ValueByName('Name').AsString;
  113. sCurUnits := sdvGclBills.Current.ValueByName('Units').AsString;
  114. sCurPrice := sdvGclBills.Current.ValueByName('Price').AsString;
  115. end;
  116. sdvDetailGclBills.Filtered := False;
  117. sdvDetailDealBills.Filtered := False;
  118. sdvDetailBGLBills.Filtered := False;
  119. DisableAndClearDataSet(sddGclBills);
  120. DisableAndClearDataSet(sddDetailGclBills);
  121. DisableAndClearDataSet(sddDetailDealBills);
  122. DisableAndClearDataSet(sddDetailBGLBills);
  123. end;
  124. function FindCurrentRecord: TsdDataRecord;
  125. var
  126. i: Integer;
  127. Rec: TsdDataRecord;
  128. begin
  129. Result := nil;
  130. for i := 0 to sddGclBills.RecordCount - 1 do
  131. begin
  132. Rec := sddGclBills.Records[i];
  133. if SameText(sCurB_Code, Rec.ValueByName('B_Code').AsString) and
  134. SameText(sCurName, Rec.ValueByName('Name').AsString) and
  135. SameText(sCurUnits, Rec.ValueByName('Units').AsString) and
  136. SameText(sCurPrice, Rec.ValueByName('Price').AsString) then
  137. begin
  138. Result := Rec;
  139. Break;
  140. end;
  141. end;
  142. end;
  143. procedure AfterWrite;
  144. var
  145. Rec: TsdDataRecord;
  146. begin
  147. EnableDataSet(sddDetailBGLBills);
  148. EnableDataSet(sddDetailDealBills);
  149. EnableDataSet(sddDetailGclBills);
  150. EnableDataSet(sddGclBills);
  151. if bHasCurrrent then
  152. Rec := FindCurrentRecord;
  153. if not Assigned(Rec) and (sdvGclBills.RecordCount > 0) then
  154. Rec := sdvGclBills.Records[0];
  155. sdvGclBills.LocateInControl(Rec);
  156. sdvDetailGclBills.Filtered := True;
  157. sdvDetailDealBills.Filtered := True;
  158. sdvDetailBGLBills.Filtered := True;
  159. end;
  160. procedure WriteDetailDealNode(AGclNode: TGclNode);
  161. var
  162. iDeal: Integer;
  163. vDeal: TDetailDealNode;
  164. Rec: TsdDataRecord;
  165. begin
  166. for iDeal := 0 to AGclNode.DetailDealCount - 1 do
  167. begin
  168. vDeal := AGclNode.DetailDeal[iDeal];
  169. Rec := sddDetailDealBills.Add;
  170. Rec.ValueByName('ID').AsInteger := vDeal.ID;
  171. Rec.ValueByName('BillsID').AsInteger := AGclNode.ID;
  172. Rec.ValueByName('DealID').AsInteger := vDeal.DealID;
  173. Rec.ValueByName('B_Code').AsString := AGclNode.B_Code;
  174. Rec.ValueByName('Name').AsString := AGclNode.Name;
  175. Rec.ValueByName('Units').AsString := AGclNode.Units;
  176. Rec.ValueByName('Price').AsFloat := AGclNode.Price;
  177. Rec.ValueByName('Quantity').AsFloat := vDeal.Quantity;
  178. Rec.ValueByName('TotalPrice').AsFloat := vDeal.TotalPrice;
  179. end;
  180. end;
  181. procedure WriteDetailBGLNode(AGclNode: TGclNode);
  182. var
  183. iBGL: Integer;
  184. vBGL: TDetailBGLNode;
  185. Rec: TsdDataRecord;
  186. begin
  187. for iBGL := 0 to AGclNode.DetailBGLCount - 1 do
  188. begin
  189. vBGL := AGclNode.DetailBGL[iBGL];
  190. Rec := sddDetailBGLBills.Add;
  191. Rec.ValueByName('ID').AsInteger := vBGL.ID;
  192. Rec.ValueByName('BillsID').AsInteger := AGclNode.ID;
  193. Rec.ValueByName('BGBillsID').AsInteger := vBGL.BGBillsID;
  194. Rec.ValueByName('BGLID').AsInteger := vBGL.BGLID;
  195. Rec.ValueByName('BGLCode').AsString := vBGL.BGLCode;
  196. Rec.ValueByName('BGLName').AsString := vBGL.BGLName;
  197. Rec.ValueByName('BGLApprovalCode').AsString := vBGL.BGLApprovalCode;
  198. Rec.ValueByName('BGLDrawingCode').AsString := vBGL.BGLDrawingCode;
  199. Rec.ValueByName('Quantity').AsFloat := vBGL.Quantity;
  200. Rec.ValueByName('TotalPrice').AsFloat := vBGL.TotalPrice;
  201. end;
  202. end;
  203. procedure WriteDetailGclNode(AGclNode: TGclNode);
  204. var
  205. iDetailGcl: Integer;
  206. vDetailGcl: TDetailGclNode;
  207. Rec: TsdDataRecord;
  208. begin
  209. for iDetailGcl := 0 to AGclNode.DetailGclCount -1 do
  210. begin
  211. vDetailGcl := AGclNode.DetailGcl[iDetailGcl];
  212. Rec := sddDetailGclBills.Add;
  213. Rec.ValueByName('ID').AsInteger := vDetailGcl.ID;
  214. Rec.ValueByName('BillsID').AsInteger := AGclNode.ID;
  215. Rec.ValueByName('TreeSerialNo').AsInteger := vDetailGcl.TreeSerialNo;
  216. Rec.ValueByName('RelaBillsID').AsInteger := vDetailGcl.BillsID;
  217. if Assigned(vDetailGcl.LeafXmj) then
  218. begin
  219. Rec.ValueByName('LeafXmjID').AsInteger := vDetailGcl.LeafXmj.ID;
  220. Rec.ValueByName('XmjCode').AsString := vDetailGcl.LeafXmj.XmjCode;
  221. Rec.ValueByName('XmjName').AsString := vDetailGcl.LeafXmj.XmjName;
  222. Rec.ValueByName('XmjUnits').AsString := vDetailGcl.LeafXmj.XmjUnits;
  223. Rec.ValueByName('NameDanWei').AsString := vDetailGcl.LeafXmj.NameDanWei;
  224. Rec.ValueByName('NameFenXiang').AsString := vDetailGcl.LeafXmj.NameFenXiang;
  225. Rec.ValueByName('NameFenBu').AsString := vDetailGcl.LeafXmj.NameFenBu;
  226. Rec.ValueByName('NameUnit').AsString := vDetailGcl.LeafXmj.NameUnit;
  227. Rec.ValueByName('Peg').AsString := vDetailGcl.LeafXmj.Peg;
  228. Rec.ValueByName('Position').AsString := vDetailGcl.LeafXmj.Position;
  229. Rec.ValueByName('DrawingCode').AsString := vDetailGcl.LeafXmj.DrawingCode;
  230. end;
  231. Rec.ValueByName('Quantity').AsFloat := vDetailGcl.Quantity;
  232. Rec.ValueByName('TotalPrice').AsFloat := vDetailGcl.TotalPrice;
  233. Rec.ValueByName('CurDealQuantity').AsFloat := vDetailGcl.CurDealQuantity;
  234. Rec.ValueByName('CurDealTotalPrice').AsFloat := vDetailGcl.CurDealTotalPrice;
  235. Rec.ValueByName('CurQcQuantity').AsFloat := vDetailGcl.CurQcQuantity;
  236. Rec.ValueByName('CurQcTotalPrice').AsFloat := vDetailGcl.CurQcTotalPrice;
  237. Rec.ValueByName('CurGatherQuantity').AsFloat := vDetailGcl.CurGatherQuantity;
  238. Rec.ValueByName('CurGatherTotalPrice').AsFloat := vDetailGcl.CurGatherTotalPrice;
  239. Rec.ValueByName('PreDealQuantity').AsFloat := vDetailGcl.PreDealQuantity;
  240. Rec.ValueByName('PreDealTotalPrice').AsFloat := vDetailGcl.PreDealTotalPrice;
  241. Rec.ValueByName('PreQcQuantity').AsFloat := vDetailGcl.PreQcQuantity;
  242. Rec.ValueByName('PreQcTotalPrice').AsFloat := vDetailGcl.PreQcTotalPrice;
  243. Rec.ValueByName('PreGatherQuantity').AsFloat := vDetailGcl.PreGatherQuantity;
  244. Rec.ValueByName('PreGatherTotalPrice').AsFloat := vDetailGcl.PreGatherTotalPrice;
  245. Rec.ValueByName('EndDealQuantity').AsFloat := vDetailGcl.EndDealQuantity;
  246. Rec.ValueByName('EndDealTotalPrice').AsFloat := vDetailGcl.EndDealTotalPrice;
  247. Rec.ValueByName('EndQcQuantity').AsFloat := vDetailGcl.EndQcQuantity;
  248. Rec.ValueByName('EndQcTotalPrice').AsFloat := vDetailGcl.EndQcTotalPrice;
  249. Rec.ValueByName('EndGatherQuantity').AsFloat := vDetailGcl.EndGatherQuantity;
  250. Rec.ValueByName('EndGatherTotalPrice').AsFloat := vDetailGcl.EndGatherTotalPrice;
  251. Rec.ValueByName('Percent').AsFloat := vDetailGcl.Percent;
  252. Rec.ValueByName('AddDealQuantity').AsFloat := vDetailGcl.AddDealQuantity;
  253. Rec.ValueByName('AddDealTotalPrice').AsFloat := vDetailGcl.AddDealTotalPrice;
  254. Rec.ValueByName('AddQcQuantity').AsFloat := vDetailGcl.AddQcQuantity;
  255. Rec.ValueByName('AddQcTotalPrice').AsFloat := vDetailGcl.AddQcTotalPrice;
  256. Rec.ValueByName('AddGatherQuantity').AsFloat := vDetailGcl.AddGatherQuantity;
  257. Rec.ValueByName('AddGatherTotalPrice').AsFloat := vDetailGcl.AddGatherTotalPrice;
  258. end;
  259. end;
  260. procedure WriteGclNode(AGclNode: TGclNode);
  261. var
  262. Rec: TsdDataRecord;
  263. begin
  264. Rec := sddGclBills.Add;
  265. Rec.ValueByName('ID').AsInteger := AGclNode.ID;
  266. Rec.ValueByName('IndexCode').AsString := AGclNode.IndexCode;
  267. Rec.ValueByName('B_Code').AsString := AGclNode.B_Code;
  268. Rec.ValueByName('Name').AsString := AGclNode.Name;
  269. Rec.ValueByName('Units').AsString := AGclNode.Units;
  270. Rec.ValueByName('Price').AsFloat := AGclNode.Price;
  271. Rec.ValueByName('DealQuantity').AsFloat := AGclNode.DealQuantity;
  272. Rec.ValueByName('DealTotalPrice').AsFloat := AGclNode.DealTotalPrice;
  273. Rec.ValueByName('BGLQuantity').AsFloat := AGclNode.BGLQuantity;
  274. Rec.ValueByName('BGLTotalPrice').AsFloat := AGclNode.BGLTotalPrice;
  275. Rec.ValueByName('Quantity').AsFloat := AGclNode.Quantity;
  276. Rec.ValueByName('TotalPrice').AsFloat := AGclNode.TotalPrice;
  277. Rec.ValueByName('CurDealQuantity').AsFloat := AGclNode.CurDealQuantity;
  278. Rec.ValueByName('CurDealTotalPrice').AsFloat := AGclNode.CurDealTotalPrice;
  279. Rec.ValueByName('CurQcQuantity').AsFloat := AGclNode.CurQcQuantity;
  280. Rec.ValueByName('CurQcTotalPrice').AsFloat := AGclNode.CurQcTotalPrice;
  281. Rec.ValueByName('CurGatherQuantity').AsFloat := AGclNode.CurGatherQuantity;
  282. Rec.ValueByName('CurGatherTotalPrice').AsFloat := AGclNode.CurGatherTotalPrice;
  283. Rec.ValueByName('PreDealQuantity').AsFloat := AGclNode.PreDealQuantity;
  284. Rec.ValueByName('PreDealTotalPrice').AsFloat := AGclNode.PreDealTotalPrice;
  285. Rec.ValueByName('PreQcQuantity').AsFloat := AGclNode.PreQcQuantity;
  286. Rec.ValueByName('PreQcTotalPrice').AsFloat := AGclNode.PreQcTotalPrice;
  287. Rec.ValueByName('PreGatherQuantity').AsFloat := AGclNode.PreGatherQuantity;
  288. Rec.ValueByName('PreGatherTotalPrice').AsFloat := AGclNode.PreGatherTotalPrice;
  289. Rec.ValueByName('EndDealQuantity').AsFloat := AGclNode.EndDealQuantity;
  290. Rec.ValueByName('EndDealTotalPrice').AsFloat := AGclNode.EndDealTotalPrice;
  291. Rec.ValueByName('EndQcQuantity').AsFloat := AGclNode.EndQcQuantity;
  292. Rec.ValueByName('EndQcTotalPrice').AsFloat := AGclNode.EndQcTotalPrice;
  293. Rec.ValueByName('EndGatherQuantity').AsFloat := AGclNode.EndGatherQuantity;
  294. Rec.ValueByName('EndGatherTotalPrice').AsFloat := AGclNode.EndGatherTotalPrice;
  295. Rec.ValueByName('AddDealQuantity').AsFloat := AGclNode.AddDealQuantity;
  296. Rec.ValueByName('AddDealTotalPrice').AsFloat := AGclNode.AddDealTotalPrice;
  297. Rec.ValueByName('AddQcQuantity').AsFloat := AGclNode.AddQcQuantity;
  298. Rec.ValueByName('AddQcTotalPrice').AsFloat := AGclNode.AddQcTotalPrice;
  299. Rec.ValueByName('AddGatherQuantity').AsFloat := AGclNode.AddGatherQuantity;
  300. Rec.ValueByName('AddGatherTotalPrice').AsFloat := AGclNode.AddGatherTotalPrice;
  301. Rec.ValueByName('Deal_BGLQuantity').AsFloat := AGclNode.Deal_BGLQuantity;
  302. Rec.ValueByName('Deal_BGLTotalPrice').AsFloat := AGclNode.Deal_BGLTotalPrice;
  303. Rec.ValueByName('Deal_BGLPercent').AsFloat := AGclNode.Deal_BGLPercent;
  304. WriteDetailGclNode(AGclNode);
  305. WriteDetailDealNode(AGclNode);
  306. WriteDetailBGLNode(AGclNode);
  307. end;
  308. var
  309. iGcl: Integer;
  310. vGclNode: TGclNode;
  311. begin
  312. BeforeWrite;
  313. try
  314. for iGcl := 0 to AGcls.Count - 1 do
  315. begin
  316. vGclNode := TGclNode(AGcls.Items[iGcl]);
  317. WriteGclNode(vGclNode);
  318. end;
  319. finally
  320. AfterWrite;
  321. end;
  322. end;
  323. procedure TBillsGatherData.sdvGclBillsCurrentChanged(
  324. ARecord: TsdDataRecord);
  325. begin
  326. sdvDetailGclBills.RefreshFilter;
  327. sdvDetailDealBills.RefreshFilter;
  328. sdvDetailBGLBills.RefreshFilter;
  329. end;
  330. procedure TBillsGatherData.sdvDetailGclBillsFilterRecord(
  331. ARecord: TsdDataRecord; var Allow: Boolean);
  332. begin
  333. if Assigned(ARecord) and Assigned(sdvGclBills.Current) then
  334. Allow := ARecord.ValueByName('BillsID').AsInteger = sdvGclBills.Current.ValueByName('ID').AsInteger
  335. else
  336. Allow := False;
  337. end;
  338. procedure TBillsGatherData.sdvGclBillsGetText(var Text: String;
  339. ARecord: TsdDataRecord; AValue: TsdValue; AColumn: TsdViewColumn;
  340. DisplayText: Boolean);
  341. begin
  342. if Assigned(AValue) and (AValue.Field.DataType = ftFloat) and (AValue.AsFloat = 0) then
  343. Text := '';
  344. end;
  345. end.