rdpBillsGatherDm.pas 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316
  1. unit rdpBillsGatherDm;
  2. // Report Data Prepare -- Gcl_Bills_Gather
  3. interface
  4. uses
  5. SysUtils, Classes, sdProvider, sdDB, ADODB, GclBillsGatherModel,
  6. ProjectData;
  7. type
  8. TrdpBillsGatherData = class(TDataModule)
  9. sdpGclBills: TsdADOProvider;
  10. sddGclBills: TsdDataSet;
  11. sdpDetailGclBills: TsdADOProvider;
  12. sddDetailGclBills: TsdDataSet;
  13. sdpDetailBGLBills: TsdADOProvider;
  14. sddDetailBGLBills: TsdDataSet;
  15. sdpDetailDealBills: TsdADOProvider;
  16. sddDetailDealBills: TsdDataSet;
  17. sdpLeafXmjs: TsdADOProvider;
  18. sddLeafXmjs: TsdDataSet;
  19. private
  20. FProjectData: TProjectData;
  21. procedure BeforeWrite;
  22. procedure AfterWrite;
  23. procedure WriteDetailDealNode(AGclNode: TGclNode);
  24. procedure WriteDetailBGLNode(AGclNode: TGclNode);
  25. procedure WriteDetailGclNode(AGclNode: TGclNode);
  26. procedure WriteGclNode(AGclNode: TGclNode);
  27. procedure WriteLeafXmjNode(ALeafXmj: TLeafXmjNode);
  28. procedure WriteGatherRecord(AGcls, AXmjs: TList);
  29. public
  30. constructor Create(AProjectData: TProjectData);
  31. destructor Destroy; override;
  32. procedure LoadGclBillsGatherData;
  33. end;
  34. implementation
  35. uses
  36. mPegFilter;
  37. {$R *.dfm}
  38. { TrdpBillsGatherData }
  39. procedure TrdpBillsGatherData.AfterWrite;
  40. begin
  41. sddGclBills.EndUpdate;
  42. sddLeafXmjs.EndUpdate;
  43. sddDetailGclBills.EndUpdate;
  44. sddDetailBGLBills.EndUpdate;
  45. sddDetailDealBills.EndUpdate;
  46. end;
  47. procedure TrdpBillsGatherData.BeforeWrite;
  48. begin
  49. sddGclBills.BeginUpdate;
  50. sddLeafXmjs.BeginUpdate;
  51. sddDetailGclBills.BeginUpdate;
  52. sddDetailBGLBills.BeginUpdate;
  53. sddDetailDealBills.BeginUpdate;
  54. end;
  55. constructor TrdpBillsGatherData.Create(AProjectData: TProjectData);
  56. begin
  57. inherited Create(nil);
  58. FProjectData := AProjectData;
  59. sdpLeafXmjs.Connection := FProjectData.ADOConnection;
  60. sddLeafXmjs.Open;
  61. sdpGclBills.Connection := FProjectData.ADOConnection;
  62. sddGclBills.Open;
  63. sdpDetailGclBills.Connection := FProjectData.ADOConnection;
  64. sddDetailGclBills.Open;
  65. sdpDetailBGLBills.Connection := FProjectData.ADOConnection;
  66. sddDetailBGLBills.Open;
  67. sdpDetailDealBills.Connection := FProjectData.ADOConnection;
  68. sddDetailDealBills.Open;
  69. end;
  70. destructor TrdpBillsGatherData.Destroy;
  71. begin
  72. sddLeafXmjs.Save;
  73. sddGclBills.Save;
  74. sddDetailGclBills.Save;
  75. sddDetailBGLBills.Save;
  76. sddDetailDealBills.Save;
  77. inherited;
  78. end;
  79. procedure TrdpBillsGatherData.LoadGclBillsGatherData;
  80. var
  81. Gather: TGclGatherModel;
  82. begin
  83. Gather := TGclGatherModel.Create(FProjectData);
  84. try
  85. Gather.WriteGatherData := WriteGatherRecord;
  86. Gather.Execute;
  87. finally
  88. Gather.Free;
  89. end;
  90. end;
  91. procedure TrdpBillsGatherData.WriteDetailBGLNode(AGclNode: TGclNode);
  92. var
  93. iBGL: Integer;
  94. vBGL: TDetailBGLNode;
  95. Rec: TsdDataRecord;
  96. begin
  97. for iBGL := 0 to AGclNode.DetailBGLCount - 1 do
  98. begin
  99. vBGL := AGclNode.DetailBGL[iBGL];
  100. Rec := sddDetailBGLBills.Add;
  101. Rec.ValueByName('ID').AsInteger := vBGL.ID;
  102. Rec.ValueByName('BillsID').AsInteger := AGclNode.ID;
  103. Rec.ValueByName('BGBillsID').AsInteger := vBGL.BGBillsID;
  104. Rec.ValueByName('BGLID').AsInteger := vBGL.BGLID;
  105. Rec.ValueByName('BGLCode').AsString := vBGL.BGLCode;
  106. Rec.ValueByName('BGLName').AsString := vBGL.BGLName;
  107. Rec.ValueByName('BGLApprovalCode').AsString := vBGL.BGLApprovalCode;
  108. Rec.ValueByName('BGLDrawingCode').AsString := vBGL.BGLDrawingCode;
  109. Rec.ValueByName('Quantity').AsFloat := vBGL.Quantity;
  110. Rec.ValueByName('TotalPrice').AsFloat := vBGL.TotalPrice;
  111. end;
  112. end;
  113. procedure TrdpBillsGatherData.WriteDetailDealNode(AGclNode: TGclNode);
  114. var
  115. iDeal: Integer;
  116. vDeal: TDetailDealNode;
  117. Rec: TsdDataRecord;
  118. begin
  119. for iDeal := 0 to AGclNode.DetailDealCount - 1 do
  120. begin
  121. vDeal := AGclNode.DetailDeal[iDeal];
  122. Rec := sddDetailDealBills.Add;
  123. Rec.ValueByName('ID').AsInteger := vDeal.ID;
  124. Rec.ValueByName('BillsID').AsInteger := AGclNode.ID;
  125. Rec.ValueByName('DealID').AsInteger := vDeal.DealID;
  126. Rec.ValueByName('Quantity').AsFloat := vDeal.Quantity;
  127. Rec.ValueByName('TotalPrice').AsFloat := vDeal.TotalPrice;
  128. end;
  129. end;
  130. procedure TrdpBillsGatherData.WriteDetailGclNode(AGclNode: TGclNode);
  131. var
  132. iDetailGcl: Integer;
  133. vDetailGcl: TDetailGclNode;
  134. Rec: TsdDataRecord;
  135. begin
  136. for iDetailGcl := 0 to AGclNode.DetailGclCount -1 do
  137. begin
  138. vDetailGcl := AGclNode.DetailGcl[iDetailGcl];
  139. Rec := sddDetailGclBills.Add;
  140. Rec.ValueByName('ID').AsInteger := vDetailGcl.ID;
  141. Rec.ValueByName('BillsID').AsInteger := AGclNode.ID;
  142. Rec.ValueByName('TreeSerialNo').AsInteger := vDetailGcl.TreeSerialNo;
  143. Rec.ValueByName('RelaBillsID').AsInteger := vDetailGcl.BillsID;
  144. if Assigned(vDetailGcl.LeafXmj) then
  145. Rec.ValueByName('LeafXmjID').AsInteger := vDetailGcl.LeafXmj.ID
  146. else
  147. Rec.ValueByName('LeafXmjID').AsInteger := -1;
  148. Rec.ValueByName('Quantity').AsFloat := vDetailGcl.Quantity;
  149. Rec.ValueByName('TotalPrice').AsFloat := vDetailGcl.TotalPrice;
  150. Rec.ValueByName('CurDealQuantity').AsFloat := vDetailGcl.CurDealQuantity;
  151. Rec.ValueByName('CurDealTotalPrice').AsFloat := vDetailGcl.CurDealTotalPrice;
  152. Rec.ValueByName('CurQcQuantity').AsFloat := vDetailGcl.CurQcQuantity;
  153. Rec.ValueByName('CurQcTotalPrice').AsFloat := vDetailGcl.CurQcTotalPrice;
  154. Rec.ValueByName('CurGatherQuantity').AsFloat := vDetailGcl.CurGatherQuantity;
  155. Rec.ValueByName('CurGatherTotalPrice').AsFloat := vDetailGcl.CurGatherTotalPrice;
  156. Rec.ValueByName('PreDealQuantity').AsFloat := vDetailGcl.PreDealQuantity;
  157. Rec.ValueByName('PreDealTotalPrice').AsFloat := vDetailGcl.PreDealTotalPrice;
  158. Rec.ValueByName('PreQcQuantity').AsFloat := vDetailGcl.PreQcQuantity;
  159. Rec.ValueByName('PreQcTotalPrice').AsFloat := vDetailGcl.PreQcTotalPrice;
  160. Rec.ValueByName('PreGatherQuantity').AsFloat := vDetailGcl.PreGatherQuantity;
  161. Rec.ValueByName('PreGatherTotalPrice').AsFloat := vDetailGcl.PreGatherTotalPrice;
  162. Rec.ValueByName('EndDealQuantity').AsFloat := vDetailGcl.EndDealQuantity;
  163. Rec.ValueByName('EndDealTotalPrice').AsFloat := vDetailGcl.EndDealTotalPrice;
  164. Rec.ValueByName('EndQcQuantity').AsFloat := vDetailGcl.EndQcQuantity;
  165. Rec.ValueByName('EndQcTotalPrice').AsFloat := vDetailGcl.EndQcTotalPrice;
  166. Rec.ValueByName('EndGatherQuantity').AsFloat := vDetailGcl.EndGatherQuantity;
  167. Rec.ValueByName('EndGatherTotalPrice').AsFloat := vDetailGcl.EndGatherTotalPrice;
  168. Rec.ValueByName('AddDealQuantity').AsFloat := vDetailGcl.AddDealQuantity;
  169. Rec.ValueByName('AddDealTotalPrice').AsFloat := vDetailGcl.AddDealTotalPrice;
  170. Rec.ValueByName('AddQcQuantity').AsFloat := vDetailGcl.AddQcQuantity;
  171. Rec.ValueByName('AddQcTotalPrice').AsFloat := vDetailGcl.AddQcTotalPrice;
  172. Rec.ValueByName('AddGatherQuantity').AsFloat := vDetailGcl.AddGatherQuantity;
  173. Rec.ValueByName('AddGatherTotalPrice').AsFloat := vDetailGcl.AddGatherTotalPrice;
  174. end;
  175. end;
  176. procedure TrdpBillsGatherData.WriteGatherRecord(AGcls, AXmjs: TList);
  177. var
  178. iGcl, iXmj: Integer;
  179. vGclNode: TGclNode;
  180. vLeafXmj: TLeafXmjNode;
  181. begin
  182. BeforeWrite;
  183. try
  184. for iGcl := 0 to AGcls.Count - 1 do
  185. begin
  186. vGclNode := TGclNode(AGcls.Items[iGcl]);
  187. WriteGclNode(vGclNode);
  188. end;
  189. for iXmj := 0 to AXmjs.Count - 1 do
  190. begin
  191. vLeafXmj := TLeafXmjNode(AXmjs.Items[iXmj]);
  192. WriteLeafXmjNode(vLeafXmj);
  193. end;
  194. finally
  195. AfterWrite;
  196. end;
  197. end;
  198. procedure TrdpBillsGatherData.WriteGclNode(AGclNode: TGclNode);
  199. var
  200. Rec: TsdDataRecord;
  201. begin
  202. Rec := sddGclBills.Add;
  203. Rec.ValueByName('ID').AsInteger := AGclNode.ID;
  204. Rec.ValueByName('IndexCode').AsString := AGclNode.IndexCode;
  205. Rec.ValueByName('B_Code').AsString := AGclNode.B_Code;
  206. Rec.ValueByName('Name').AsString := AGclNode.Name;
  207. Rec.ValueByName('Units').AsString := AGclNode.Units;
  208. Rec.ValueByName('Price').AsFloat := AGclNode.Price;
  209. Rec.ValueByName('OrgQuantity').AsFloat := AGclNode.OrgQuantity;
  210. Rec.ValueByName('OrgTotalPrice').AsFloat := AGclNode.OrgTotalPrice;
  211. Rec.ValueByName('MisQuantity').AsFloat := AGclNode.MisQuantity;
  212. Rec.ValueByName('MisTotalPrice').AsFloat := AGclNode.MisTotalPrice;
  213. Rec.ValueByName('OthQuantity').AsFloat := AGclNode.OthQuantity;
  214. Rec.ValueByName('OthTotalPrice').AsFloat := AGclNode.OthTotalPrice;
  215. Rec.ValueByName('Quantity').AsFloat := AGclNode.Quantity;
  216. Rec.ValueByName('TotalPrice').AsFloat := AGclNode.TotalPrice;
  217. Rec.ValueByName('CurDealQuantity').AsFloat := AGclNode.CurDealQuantity;
  218. Rec.ValueByName('CurDealTotalPrice').AsFloat := AGclNode.CurDealTotalPrice;
  219. Rec.ValueByName('CurQcQuantity').AsFloat := AGclNode.CurQcQuantity;
  220. Rec.ValueByName('CurQcTotalPrice').AsFloat := AGclNode.CurQcTotalPrice;
  221. Rec.ValueByName('CurGatherQuantity').AsFloat := AGclNode.CurGatherQuantity;
  222. Rec.ValueByName('CurGatherTotalPrice').AsFloat := AGclNode.CurGatherTotalPrice;
  223. Rec.ValueByName('PreDealQuantity').AsFloat := AGclNode.PreDealQuantity;
  224. Rec.ValueByName('PreDealTotalPrice').AsFloat := AGclNode.PreDealTotalPrice;
  225. Rec.ValueByName('PreQcQuantity').AsFloat := AGclNode.PreQcQuantity;
  226. Rec.ValueByName('PreQcTotalPrice').AsFloat := AGclNode.PreQcTotalPrice;
  227. Rec.ValueByName('PreGatherQuantity').AsFloat := AGclNode.PreGatherQuantity;
  228. Rec.ValueByName('PreGatherTotalPrice').AsFloat := AGclNode.PreGatherTotalPrice;
  229. Rec.ValueByName('EndDealQuantity').AsFloat := AGclNode.EndDealQuantity;
  230. Rec.ValueByName('EndDealTotalPrice').AsFloat := AGclNode.EndDealTotalPrice;
  231. Rec.ValueByName('EndQcQuantity').AsFloat := AGclNode.EndQcQuantity;
  232. Rec.ValueByName('EndQcTotalPrice').AsFloat := AGclNode.EndQcTotalPrice;
  233. Rec.ValueByName('EndGatherQuantity').AsFloat := AGclNode.EndGatherQuantity;
  234. Rec.ValueByName('EndGatherTotalPrice').AsFloat := AGclNode.EndGatherTotalPrice;
  235. Rec.ValueByName('AddDealQuantity').AsFloat := AGclNode.AddDealQuantity;
  236. Rec.ValueByName('AddDealTotalPrice').AsFloat := AGclNode.AddDealTotalPrice;
  237. Rec.ValueByName('AddQcQuantity').AsFloat := AGclNode.AddQcQuantity;
  238. Rec.ValueByName('AddQcTotalPrice').AsFloat := AGclNode.AddQcTotalPrice;
  239. Rec.ValueByName('AddGatherQuantity').AsFloat := AGclNode.AddGatherQuantity;
  240. Rec.ValueByName('AddGatherTotalPrice').AsFloat := AGclNode.AddGatherTotalPrice;
  241. Rec.ValueByName('DealQuantity').AsFloat := AGclNode.DealQuantity;
  242. Rec.ValueByName('DealTotalPrice').AsFloat := AGclNode.DealTotalPrice;
  243. Rec.ValueByName('BGLQuantity').AsFloat := AGclNode.BGLQuantity;
  244. Rec.ValueByName('BGLTotalPrice').AsFloat := AGclNode.BGLTotalPrice;
  245. WriteDetailGclNode(AGclNode);
  246. WriteDetailDealNode(AGclNode);
  247. WriteDetailBGLNode(AGclNode);
  248. end;
  249. procedure TrdpBillsGatherData.WriteLeafXmjNode(ALeafXmj: TLeafXmjNode);
  250. var
  251. Rec: TsdDataRecord;
  252. begin
  253. Rec := sddLeafXmjs.Add;
  254. Rec.ValueByName('ID').AsInteger := ALeafXmj.ID;
  255. Rec.ValueByName('Code').AsString := ALeafXmj.XmjCode;
  256. Rec.ValueByName('Name').AsString := ALeafXmj.XmjName;
  257. Rec.ValueByName('Units').AsString := ALeafXmj.XmjUnits;
  258. Rec.ValueByName('NameDanWei').AsString := ALeafXmj.NameDanWei;
  259. Rec.ValueByName('NameFenBu').AsString := ALeafXmj.NameFenBu;
  260. Rec.ValueByName('NameFenXiang').AsString := ALeafXmj.NameFenXiang;
  261. Rec.ValueByName('NameUnit').AsString := ALeafXmj.NameUnit;
  262. Rec.ValueByName('Peg').AsString := ALeafXmj.Peg;
  263. if PegFilter.Filter(ALeafXmj.Peg) then
  264. Rec.ValueByName('PegLength').AsFloat := PegFilter.EndPegNum - PegFilter.BeginPegNum;
  265. Rec.ValueByName('RelaPosition').AsString := ALeafXmj.Position;
  266. Rec.ValueByName('DrawingCode').AsString := ALeafXmj.DrawingCode;
  267. end;
  268. end.