rmBillsGatherDm.dfm 36 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339
  1. object rmBillsGatherData: TrmBillsGatherData
  2. OldCreateOrder = False
  3. Left = 648
  4. Top = 526
  5. Height = 276
  6. Width = 288
  7. object cdsFxBills: TClientDataSet
  8. Aggregates = <>
  9. FieldDefs = <>
  10. IndexDefs = <>
  11. Params = <>
  12. StoreDefs = True
  13. Left = 32
  14. Top = 24
  15. object cdsFxBillsXiangCode: TStringField
  16. FieldName = 'XiangCode'
  17. Size = 10
  18. end
  19. object cdsFxBillsMuCode: TStringField
  20. FieldName = 'MuCode'
  21. Size = 10
  22. end
  23. object cdsFxBillsJieCode: TStringField
  24. FieldName = 'JieCode'
  25. Size = 10
  26. end
  27. object cdsFxBillsXiMuCode: TStringField
  28. FieldName = 'XiMuCode'
  29. Size = 30
  30. end
  31. object cdsFxBillsCode: TStringField
  32. FieldName = 'Code'
  33. Size = 50
  34. end
  35. object cdsFxBillsB_Code: TStringField
  36. FieldName = 'B_Code'
  37. Size = 50
  38. end
  39. object cdsFxBillsName: TWideStringField
  40. FieldName = 'Name'
  41. Size = 200
  42. end
  43. object cdsFxBillsUnits: TWideStringField
  44. FieldName = 'Units'
  45. end
  46. object cdsFxBillsPrice: TFloatField
  47. FieldName = 'Price'
  48. end
  49. object cdsFxBillsAddDealQuantity: TFloatField
  50. FieldName = 'AddDealQuantity'
  51. end
  52. object cdsFxBillsAddDealTotalPrice: TFloatField
  53. FieldName = 'AddDealTotalPrice'
  54. end
  55. object cdsFxBillsAddQcQuantity: TFloatField
  56. FieldName = 'AddQcQuantity'
  57. end
  58. object cdsFxBillsAddQcTotalPrice: TFloatField
  59. FieldName = 'AddQcTotalPrice'
  60. end
  61. object cdsFxBillsAddPcQuantity: TFloatField
  62. FieldName = 'AddPcQuantity'
  63. end
  64. object cdsFxBillsAddPcTotalPrice: TFloatField
  65. FieldName = 'AddPcTotalPrice'
  66. end
  67. object cdsFxBillsAddGatherQuantity: TFloatField
  68. FieldName = 'AddGatherQuantity'
  69. end
  70. object cdsFxBillsAddGatherTotalPrice: TFloatField
  71. FieldName = 'AddGatherTotalPrice'
  72. end
  73. object cdsFxBillsPercent: TFloatField
  74. FieldName = 'Percent'
  75. end
  76. object cdsFxBillsMemoStr: TWideStringField
  77. FieldName = 'MemoStr'
  78. Size = 100
  79. end
  80. object cdsFxBillsQuantity: TFloatField
  81. FieldName = 'Quantity'
  82. end
  83. object cdsFxBillsTotalPrice: TFloatField
  84. FieldName = 'TotalPrice'
  85. end
  86. object cdsFxBillsDgnQuantity1: TFloatField
  87. FieldName = 'DgnQuantity1'
  88. end
  89. object cdsFxBillsDgnQuantity2: TFloatField
  90. FieldName = 'DgnQuantity2'
  91. end
  92. object cdsFxBillsDgnQuantity: TStringField
  93. FieldName = 'DgnQuantity'
  94. Size = 50
  95. end
  96. object cdsFxBillsDgnPrice2: TFloatField
  97. FieldName = 'DgnPrice2'
  98. end
  99. object cdsFxBillsDgnPrice1: TFloatField
  100. FieldName = 'DgnPrice1'
  101. end
  102. object cdsFxBillsDgnPrice: TStringField
  103. FieldName = 'DgnPrice'
  104. Size = 50
  105. end
  106. object cdsFxBillsRatioPercent: TFloatField
  107. FieldName = 'RatioPercent'
  108. end
  109. object cdsFxBillsAddRatioPercent: TFloatField
  110. FieldName = 'AddRatioPercent'
  111. end
  112. object cdsFxBillsDealDgnQuantity1: TFloatField
  113. FieldName = 'DealDgnQuantity1'
  114. end
  115. object cdsFxBillsDealDgnQuantity2: TFloatField
  116. FieldName = 'DealDgnQuantity2'
  117. end
  118. object cdsFxBillsDealDgnQuantity: TStringField
  119. FieldName = 'DealDgnQuantity'
  120. Size = 50
  121. end
  122. object cdsFxBillsDealDgnPrice1: TFloatField
  123. FieldName = 'DealDgnPrice1'
  124. end
  125. object cdsFxBillsDealDgnPrice2: TFloatField
  126. FieldName = 'DealDgnPrice2'
  127. end
  128. object cdsFxBillsDealDgnPrice: TStringField
  129. FieldName = 'DealDgnPrice'
  130. end
  131. object cdsFxBillsCDgnQuantity1: TFloatField
  132. FieldName = 'CDgnQuantity1'
  133. end
  134. object cdsFxBillsCDgnQuantity2: TFloatField
  135. FieldName = 'CDgnQuantity2'
  136. end
  137. object cdsFxBillsCDgnQuantity: TStringField
  138. FieldName = 'CDgnQuantity'
  139. Size = 50
  140. end
  141. object cdsFxBillsCDgnPrice1: TFloatField
  142. FieldName = 'CDgnPrice1'
  143. end
  144. object cdsFxBillsCDgnPrice2: TFloatField
  145. FieldName = 'CDgnPrice2'
  146. end
  147. object cdsFxBillsCDgnPrice: TStringField
  148. FieldName = 'CDgnPrice'
  149. end
  150. object cdsFxBillsFinalDgnQuantity1: TFloatField
  151. FieldName = 'FinalDgnQuantity1'
  152. end
  153. object cdsFxBillsFinalDgnQuantity2: TFloatField
  154. FieldName = 'FinalDgnQuantity2'
  155. end
  156. object cdsFxBillsFinalDgnQuantity: TFloatField
  157. FieldName = 'FinalDgnQuantity'
  158. end
  159. object cdsFxBillsFinalDgnPrice1: TFloatField
  160. FieldName = 'FinalDgnPrice1'
  161. end
  162. object cdsFxBillsFinalDgnPrice2: TFloatField
  163. FieldName = 'FinalDgnPrice2'
  164. end
  165. object cdsFxBillsFinalDgnPrice: TFloatField
  166. FieldName = 'FinalDgnPrice'
  167. end
  168. end
  169. object cdsGclBills: TClientDataSet
  170. Active = True
  171. Aggregates = <>
  172. FieldDefs = <
  173. item
  174. Name = 'B_Code'
  175. DataType = ftString
  176. Size = 50
  177. end
  178. item
  179. Name = 'IndexCode'
  180. DataType = ftString
  181. Size = 50
  182. end
  183. item
  184. Name = 'Name'
  185. DataType = ftWideString
  186. Size = 200
  187. end
  188. item
  189. Name = 'Units'
  190. DataType = ftWideString
  191. Size = 20
  192. end
  193. item
  194. Name = 'Price'
  195. DataType = ftFloat
  196. end
  197. item
  198. Name = 'AddDealQuantity'
  199. DataType = ftFloat
  200. end
  201. item
  202. Name = 'AddDealTotalPrice'
  203. DataType = ftFloat
  204. end
  205. item
  206. Name = 'AddQcQuantity'
  207. DataType = ftFloat
  208. end
  209. item
  210. Name = 'AddQcTotalPrice'
  211. DataType = ftFloat
  212. end
  213. item
  214. Name = 'AddPcQuantity'
  215. DataType = ftFloat
  216. end
  217. item
  218. Name = 'AddPcTotalPrice'
  219. DataType = ftFloat
  220. end
  221. item
  222. Name = 'AddGatherQuantity'
  223. DataType = ftFloat
  224. end
  225. item
  226. Name = 'AddGatherTotalPrice'
  227. DataType = ftFloat
  228. end
  229. item
  230. Name = 'Precent'
  231. DataType = ftFloat
  232. end
  233. item
  234. Name = 'MemoStr'
  235. DataType = ftWideString
  236. Size = 100
  237. end>
  238. IndexDefs = <>
  239. IndexFieldNames = 'IndexCode'
  240. Params = <>
  241. StoreDefs = True
  242. Left = 32
  243. Top = 136
  244. Data = {
  245. 840100009619E0BD01000000180000000F000000000003000000840106425F43
  246. 6F6465010049000000010005574944544802000200320009496E646578436F64
  247. 650100490000000100055749445448020002003200044E616D6502004A000000
  248. 010005574944544802000200900105556E69747301004A000000010005574944
  249. 544802000200280005507269636508000400000000000F4164644465616C5175
  250. 616E746974790800040000000000114164644465616C546F74616C5072696365
  251. 08000400000000000D41646451635175616E7469747908000400000000000F41
  252. 64645163546F74616C507269636508000400000000000D41646450635175616E
  253. 7469747908000400000000000F4164645063546F74616C507269636508000400
  254. 00000000114164644761746865725175616E7469747908000400000000001341
  255. 6464476174686572546F74616C50726963650800040000000000075072656365
  256. 6E740800040000000000074D656D6F53747201004A0000000100055749445448
  257. 02000200C8000000}
  258. object cdsGclBillsB_Code: TStringField
  259. FieldName = 'B_Code'
  260. Size = 50
  261. end
  262. object cdsGclBillsIndexCode: TStringField
  263. FieldName = 'IndexCode'
  264. Size = 50
  265. end
  266. object cdsGclBillsName: TWideStringField
  267. FieldName = 'Name'
  268. Size = 200
  269. end
  270. object cdsGclBillsUnits: TWideStringField
  271. FieldName = 'Units'
  272. end
  273. object cdsGclBillsPrice: TFloatField
  274. FieldName = 'Price'
  275. end
  276. object cdsGclBillsAddDealQuantity: TFloatField
  277. FieldName = 'AddDealQuantity'
  278. end
  279. object cdsGclBillsAddDealTotalPrice: TFloatField
  280. FieldName = 'AddDealTotalPrice'
  281. end
  282. object cdsGclBillsAddQcQuantity: TFloatField
  283. FieldName = 'AddQcQuantity'
  284. end
  285. object cdsGclBillsAddQcTotalPrice: TFloatField
  286. FieldName = 'AddQcTotalPrice'
  287. end
  288. object cdsGclBillsAddPcQuantity: TFloatField
  289. FieldName = 'AddPcQuantity'
  290. end
  291. object cdsGclBillsAddPcTotalPrice: TFloatField
  292. FieldName = 'AddPcTotalPrice'
  293. end
  294. object cdsGclBillsAddGatherQuantity: TFloatField
  295. FieldName = 'AddGatherQuantity'
  296. end
  297. object cdsGclBillsAddGatherTotalPrice: TFloatField
  298. FieldName = 'AddGatherTotalPrice'
  299. end
  300. object cdsGclBillsPrecent: TFloatField
  301. FieldName = 'Precent'
  302. end
  303. object cdsGclBillsMemoStr: TWideStringField
  304. FieldName = 'MemoStr'
  305. Size = 100
  306. end
  307. end
  308. object cdsProjectBills: TClientDataSet
  309. Active = True
  310. Aggregates = <>
  311. FieldDefs = <
  312. item
  313. Name = 'ProjectID'
  314. DataType = ftInteger
  315. end
  316. item
  317. Name = 'ProjectName'
  318. DataType = ftWideString
  319. Size = 100
  320. end
  321. item
  322. Name = 'XiangCode'
  323. DataType = ftString
  324. Size = 10
  325. end
  326. item
  327. Name = 'MuCode'
  328. DataType = ftString
  329. Size = 10
  330. end
  331. item
  332. Name = 'JieCode'
  333. DataType = ftString
  334. Size = 10
  335. end
  336. item
  337. Name = 'XiMuCode'
  338. DataType = ftString
  339. Size = 30
  340. end
  341. item
  342. Name = 'Code'
  343. DataType = ftString
  344. Size = 50
  345. end
  346. item
  347. Name = 'Name'
  348. DataType = ftWideString
  349. Size = 200
  350. end
  351. item
  352. Name = 'Units'
  353. DataType = ftWideString
  354. Size = 20
  355. end
  356. item
  357. Name = 'Quantity'
  358. DataType = ftFloat
  359. end
  360. item
  361. Name = 'TotalPrice'
  362. DataType = ftFloat
  363. end
  364. item
  365. Name = 'P_Quantity'
  366. DataType = ftFloat
  367. end
  368. item
  369. Name = 'P_TotalPrice'
  370. DataType = ftFloat
  371. end
  372. item
  373. Name = 'EcoIndex'
  374. DataType = ftFloat
  375. end
  376. item
  377. Name = 'Percent'
  378. DataType = ftFloat
  379. end
  380. item
  381. Name = 'MemoStr'
  382. DataType = ftWideString
  383. Size = 100
  384. end
  385. item
  386. Name = 'SerialNo'
  387. DataType = ftInteger
  388. end
  389. item
  390. Name = 'B_Code'
  391. DataType = ftString
  392. Size = 50
  393. end
  394. item
  395. Name = 'P_Price'
  396. DataType = ftFloat
  397. end>
  398. IndexDefs = <>
  399. Params = <>
  400. StoreDefs = True
  401. Left = 120
  402. Top = 24
  403. Data = {
  404. CF0100009619E0BD010000001800000013000000000003000000CF010950726F
  405. 6A656374494404000100000000000B50726F6A6563744E616D6501004A000000
  406. 010005574944544802000200C800095869616E67436F64650100490000000100
  407. 055749445448020002000A00064D75436F646501004900000001000557494454
  408. 48020002000A00074A6965436F64650100490000000100055749445448020002
  409. 000A000858694D75436F64650100490000000100055749445448020002001E00
  410. 04436F64650100490000000100055749445448020002003200044E616D650200
  411. 4A000000010005574944544802000200900105556E69747301004A0000000100
  412. 055749445448020002002800085175616E7469747908000400000000000A546F
  413. 74616C507269636508000400000000000A505F5175616E746974790800040000
  414. 0000000C505F546F74616C507269636508000400000000000845636F496E6465
  415. 7808000400000000000750657263656E740800040000000000074D656D6F5374
  416. 7201004A000000010005574944544802000200C8000853657269616C4E6F0400
  417. 01000000000006425F436F646501004900000001000557494454480200020032
  418. 0007505F507269636508000400000000000000}
  419. object cdsProjectBillsProjectID: TIntegerField
  420. FieldName = 'ProjectID'
  421. end
  422. object cdsProjectBillsProjectName: TWideStringField
  423. FieldName = 'ProjectName'
  424. Size = 100
  425. end
  426. object cdsProjectBillsXiangCode: TStringField
  427. FieldName = 'XiangCode'
  428. Size = 10
  429. end
  430. object cdsProjectBillsMuCode: TStringField
  431. DisplayWidth = 10
  432. FieldName = 'MuCode'
  433. Size = 10
  434. end
  435. object cdsProjectBillsJieCode: TStringField
  436. FieldName = 'JieCode'
  437. Size = 10
  438. end
  439. object cdsProjectBillsXiMuCode: TStringField
  440. FieldName = 'XiMuCode'
  441. Size = 30
  442. end
  443. object cdsProjectBillsCode: TStringField
  444. FieldName = 'Code'
  445. Size = 50
  446. end
  447. object cdsProjectBillsName: TWideStringField
  448. FieldName = 'Name'
  449. Size = 200
  450. end
  451. object cdsProjectBillsUnits: TWideStringField
  452. FieldName = 'Units'
  453. end
  454. object cdsProjectBillsQuantity: TFloatField
  455. FieldName = 'Quantity'
  456. end
  457. object cdsProjectBillsTotalPrice: TFloatField
  458. FieldName = 'TotalPrice'
  459. end
  460. object cdsProjectBillsP_Quantity: TFloatField
  461. FieldName = 'P_Quantity'
  462. end
  463. object cdsProjectBillsP_TotalPrice: TFloatField
  464. FieldName = 'P_TotalPrice'
  465. end
  466. object cdsProjectBillsEcoIndex: TFloatField
  467. FieldName = 'EcoIndex'
  468. end
  469. object cdsProjectBillsPercent: TFloatField
  470. FieldName = 'Percent'
  471. end
  472. object cdsProjectBillsMemoStr: TWideStringField
  473. FieldName = 'MemoStr'
  474. Size = 100
  475. end
  476. object cdsProjectBillsSerialNo: TIntegerField
  477. FieldName = 'SerialNo'
  478. end
  479. object cdsProjectBillsB_Code: TStringField
  480. FieldName = 'B_Code'
  481. Size = 50
  482. end
  483. object cdsProjectBillsP_Price: TFloatField
  484. FieldName = 'P_Price'
  485. end
  486. end
  487. object cdsEstimateBills: TClientDataSet
  488. Active = True
  489. Aggregates = <>
  490. FieldDefs = <
  491. item
  492. Name = 'XiangCode'
  493. DataType = ftString
  494. Size = 10
  495. end
  496. item
  497. Name = 'MuCode'
  498. DataType = ftString
  499. Size = 10
  500. end
  501. item
  502. Name = 'JieCode'
  503. DataType = ftString
  504. Size = 20
  505. end
  506. item
  507. Name = 'XiMuCode'
  508. DataType = ftString
  509. Size = 30
  510. end
  511. item
  512. Name = 'Code'
  513. DataType = ftString
  514. Size = 50
  515. end
  516. item
  517. Name = 'Name'
  518. DataType = ftWideString
  519. Size = 200
  520. end
  521. item
  522. Name = 'Units'
  523. DataType = ftWideString
  524. Size = 20
  525. end
  526. item
  527. Name = 'Quantity'
  528. DataType = ftFloat
  529. end
  530. item
  531. Name = 'TotalPrice'
  532. DataType = ftFloat
  533. end
  534. item
  535. Name = 'DgnQuantity'
  536. DataType = ftString
  537. Size = 20
  538. end
  539. item
  540. Name = 'DgnQuantity1'
  541. DataType = ftFloat
  542. end
  543. item
  544. Name = 'DgnQuantity2'
  545. DataType = ftFloat
  546. end
  547. item
  548. Name = 'AddDealQuantity'
  549. DataType = ftFloat
  550. end
  551. item
  552. Name = 'AddDealTotalPrice'
  553. DataType = ftFloat
  554. end
  555. item
  556. Name = 'AddCQuantity'
  557. DataType = ftFloat
  558. end
  559. item
  560. Name = 'AddCTotalPrice'
  561. DataType = ftFloat
  562. end
  563. item
  564. Name = 'AddGatherQuantity'
  565. DataType = ftFloat
  566. end
  567. item
  568. Name = 'AddGatherTotalPrice'
  569. DataType = ftFloat
  570. end
  571. item
  572. Name = 'DealDgnQuantity'
  573. DataType = ftString
  574. Size = 20
  575. end
  576. item
  577. Name = 'DealDgnQuantity1'
  578. DataType = ftFloat
  579. end
  580. item
  581. Name = 'DealDgnQuantity2'
  582. DataType = ftFloat
  583. end
  584. item
  585. Name = 'CDgnQuantity'
  586. DataType = ftString
  587. Size = 20
  588. end
  589. item
  590. Name = 'CDgnQuantity1'
  591. DataType = ftFloat
  592. end
  593. item
  594. Name = 'CDgnQuantity2'
  595. DataType = ftFloat
  596. end
  597. item
  598. Name = 'GatherDgnQuantity'
  599. DataType = ftString
  600. Size = 20
  601. end
  602. item
  603. Name = 'GatherDgnQuantity1'
  604. DataType = ftFloat
  605. end
  606. item
  607. Name = 'GatherDgnQuantity2'
  608. DataType = ftFloat
  609. end
  610. item
  611. Name = 'PDQuantity'
  612. DataType = ftFloat
  613. end
  614. item
  615. Name = 'PDTotalPrice'
  616. DataType = ftFloat
  617. end
  618. item
  619. Name = 'PDDgnQuantity'
  620. DataType = ftString
  621. Size = 20
  622. end
  623. item
  624. Name = 'PDDgnQuantity1'
  625. DataType = ftFloat
  626. end
  627. item
  628. Name = 'PDDgnQuantity2'
  629. DataType = ftFloat
  630. end
  631. item
  632. Name = 'CDDQuantity'
  633. DataType = ftFloat
  634. end
  635. item
  636. Name = 'CDDTotalPrice'
  637. DataType = ftFloat
  638. end
  639. item
  640. Name = 'CDDDgnQuantity'
  641. DataType = ftString
  642. Size = 20
  643. end
  644. item
  645. Name = 'CDDDgnQuantity1'
  646. DataType = ftFloat
  647. end
  648. item
  649. Name = 'CDDDgnQuantity2'
  650. DataType = ftFloat
  651. end
  652. item
  653. Name = 'QuantityAdjust'
  654. DataType = ftFloat
  655. end
  656. item
  657. Name = 'TotalPriceAdjust'
  658. DataType = ftFloat
  659. end
  660. item
  661. Name = 'MemoStr'
  662. DataType = ftWideString
  663. Size = 100
  664. end
  665. item
  666. Name = 'ABQuantity'
  667. DataType = ftFloat
  668. end
  669. item
  670. Name = 'ABTotalPrice'
  671. DataType = ftFloat
  672. end
  673. item
  674. Name = 'ABDgnQuantity'
  675. DataType = ftString
  676. Size = 20
  677. end
  678. item
  679. Name = 'ABDgnQuantity1'
  680. DataType = ftFloat
  681. end
  682. item
  683. Name = 'ABDgnQuantity2'
  684. DataType = ftFloat
  685. end
  686. item
  687. Name = 'QuantityCompare1'
  688. DataType = ftFloat
  689. end
  690. item
  691. Name = 'TotalPriceCompare1'
  692. DataType = ftFloat
  693. end
  694. item
  695. Name = 'DgnQuantityCompare1'
  696. DataType = ftString
  697. Size = 20
  698. end
  699. item
  700. Name = 'DgnQuantity1Compare1'
  701. DataType = ftFloat
  702. end
  703. item
  704. Name = 'DgnQuantity2Compare1'
  705. DataType = ftFloat
  706. end
  707. item
  708. Name = 'QuantityCompare2'
  709. DataType = ftFloat
  710. end
  711. item
  712. Name = 'TotalPriceCompare2'
  713. DataType = ftFloat
  714. end
  715. item
  716. Name = 'DgnQuantityCompare2'
  717. DataType = ftString
  718. Size = 20
  719. end
  720. item
  721. Name = 'DgnQuantity1Compare2'
  722. DataType = ftFloat
  723. end
  724. item
  725. Name = 'DgnQuantity2Compare2'
  726. DataType = ftFloat
  727. end
  728. item
  729. Name = 'QuantityCompare3'
  730. DataType = ftFloat
  731. end
  732. item
  733. Name = 'TotalPriceCompare3'
  734. DataType = ftFloat
  735. end
  736. item
  737. Name = 'DgnQuantityCompare3'
  738. DataType = ftString
  739. Size = 20
  740. end
  741. item
  742. Name = 'DgnQuantity1Compare3'
  743. DataType = ftFloat
  744. end
  745. item
  746. Name = 'DgnQuantity2Compare3'
  747. DataType = ftFloat
  748. end
  749. item
  750. Name = 'B_Code'
  751. DataType = ftString
  752. Size = 50
  753. end
  754. item
  755. Name = 'Price'
  756. DataType = ftFloat
  757. end
  758. item
  759. Name = 'PDDgnPrice'
  760. DataType = ftFloat
  761. end
  762. item
  763. Name = 'CDDDgnPrice'
  764. DataType = ftFloat
  765. end
  766. item
  767. Name = 'ABDgnPrice'
  768. DataType = ftFloat
  769. end
  770. item
  771. Name = 'FinalDgnQty'
  772. DataType = ftString
  773. Size = 20
  774. end
  775. item
  776. Name = 'FinalDgnQty1'
  777. DataType = ftFloat
  778. end
  779. item
  780. Name = 'FinalDgnQty2'
  781. DataType = ftFloat
  782. end>
  783. IndexDefs = <>
  784. Params = <>
  785. StoreDefs = True
  786. Left = 32
  787. Top = 80
  788. Data = {
  789. 010700009619E0BD010000001800000044000000000003000000010709586961
  790. 6E67436F64650100490000000100055749445448020002000A00064D75436F64
  791. 650100490000000100055749445448020002000A00074A6965436F6465010049
  792. 00000001000557494454480200020014000858694D75436F6465010049000000
  793. 0100055749445448020002001E0004436F646501004900000001000557494454
  794. 48020002003200044E616D6502004A0000000100055749445448020002009001
  795. 05556E69747301004A0000000100055749445448020002002800085175616E74
  796. 69747908000400000000000A546F74616C507269636508000400000000000B44
  797. 676E5175616E7469747901004900000001000557494454480200020014000C44
  798. 676E5175616E746974793108000400000000000C44676E5175616E7469747932
  799. 08000400000000000F4164644465616C5175616E746974790800040000000000
  800. 114164644465616C546F74616C507269636508000400000000000C4164644351
  801. 75616E7469747908000400000000000E41646443546F74616C50726963650800
  802. 040000000000114164644761746865725175616E746974790800040000000000
  803. 13416464476174686572546F74616C507269636508000400000000000F446561
  804. 6C44676E5175616E746974790100490000000100055749445448020002001400
  805. 104465616C44676E5175616E74697479310800040000000000104465616C4467
  806. 6E5175616E746974793208000400000000000C4344676E5175616E7469747901
  807. 004900000001000557494454480200020014000D4344676E5175616E74697479
  808. 3108000400000000000D4344676E5175616E7469747932080004000000000011
  809. 47617468657244676E5175616E74697479010049000000010005574944544802
  810. 00020014001247617468657244676E5175616E74697479310800040000000000
  811. 1247617468657244676E5175616E746974793208000400000000000A50445175
  812. 616E7469747908000400000000000C5044546F74616C50726963650800040000
  813. 0000000D504444676E5175616E74697479010049000000010005574944544802
  814. 00020014000E504444676E5175616E746974793108000400000000000E504444
  815. 676E5175616E746974793208000400000000000B4344445175616E7469747908
  816. 000400000000000D434444546F74616C507269636508000400000000000E4344
  817. 4444676E5175616E746974790100490000000100055749445448020002001400
  818. 0F43444444676E5175616E746974793108000400000000000F43444444676E51
  819. 75616E746974793208000400000000000E5175616E7469747941646A75737408
  820. 0004000000000010546F74616C507269636541646A7573740800040000000000
  821. 074D656D6F53747201004A000000010005574944544802000200C8000A414251
  822. 75616E7469747908000400000000000C4142546F74616C507269636508000400
  823. 000000000D414244676E5175616E746974790100490000000100055749445448
  824. 0200020014000E414244676E5175616E746974793108000400000000000E4142
  825. 44676E5175616E74697479320800040000000000105175616E74697479436F6D
  826. 7061726531080004000000000012546F74616C5072696365436F6D7061726531
  827. 08000400000000001344676E5175616E74697479436F6D706172653101004900
  828. 000001000557494454480200020014001444676E5175616E7469747931436F6D
  829. 706172653108000400000000001444676E5175616E7469747932436F6D706172
  830. 65310800040000000000105175616E74697479436F6D70617265320800040000
  831. 00000012546F74616C5072696365436F6D706172653208000400000000001344
  832. 676E5175616E74697479436F6D70617265320100490000000100055749445448
  833. 0200020014001444676E5175616E7469747931436F6D70617265320800040000
  834. 0000001444676E5175616E7469747932436F6D70617265320800040000000000
  835. 105175616E74697479436F6D7061726533080004000000000012546F74616C50
  836. 72696365436F6D706172653308000400000000001344676E5175616E74697479
  837. 436F6D706172653301004900000001000557494454480200020014001444676E
  838. 5175616E7469747931436F6D706172653308000400000000001444676E517561
  839. 6E7469747932436F6D7061726533080004000000000006425F436F6465010049
  840. 000000010005574944544802000200320005507269636508000400000000000A
  841. 504444676E507269636508000400000000000B43444444676E50726963650800
  842. 0400000000000A414244676E507269636508000400000000000B46696E616C44
  843. 676E51747901004900000001000557494454480200020014000C46696E616C44
  844. 676E5174793108000400000000000C46696E616C44676E517479320800040000
  845. 0000000000}
  846. object cdsEstimateBillsXiangCode: TStringField
  847. FieldName = 'XiangCode'
  848. Size = 10
  849. end
  850. object cdsEstimateBillsMuCode: TStringField
  851. FieldName = 'MuCode'
  852. Size = 10
  853. end
  854. object cdsEstimateBillsJieCode: TStringField
  855. FieldName = 'JieCode'
  856. end
  857. object cdsEstimateBillsXiMuCode: TStringField
  858. FieldName = 'XiMuCode'
  859. Size = 30
  860. end
  861. object cdsEstimateBillsCode: TStringField
  862. FieldName = 'Code'
  863. Size = 50
  864. end
  865. object cdsEstimateBillsName: TWideStringField
  866. FieldName = 'Name'
  867. Size = 200
  868. end
  869. object cdsEstimateBillsUnits: TWideStringField
  870. FieldName = 'Units'
  871. end
  872. object cdsEstimateBillsQuantity: TFloatField
  873. FieldName = 'Quantity'
  874. end
  875. object cdsEstimateBillsTotalPrice: TFloatField
  876. FieldName = 'TotalPrice'
  877. end
  878. object cdsEstimateBillsDgnQuantity: TStringField
  879. FieldName = 'DgnQuantity'
  880. end
  881. object cdsEstimateBillsDgnQuantity1: TFloatField
  882. FieldName = 'DgnQuantity1'
  883. end
  884. object cdsEstimateBillsDgnQuantity2: TFloatField
  885. FieldName = 'DgnQuantity2'
  886. end
  887. object cdsEstimateBillsAddDealQuantity: TFloatField
  888. FieldName = 'AddDealQuantity'
  889. end
  890. object cdsEstimateBillsAddDealTotalPrice: TFloatField
  891. FieldName = 'AddDealTotalPrice'
  892. end
  893. object cdsEstimateBillsAddCQuantity: TFloatField
  894. FieldName = 'AddCQuantity'
  895. end
  896. object cdsEstimateBillsAddCTotalPrice: TFloatField
  897. FieldName = 'AddCTotalPrice'
  898. end
  899. object cdsEstimateBillsAddGatherQuantity: TFloatField
  900. FieldName = 'AddGatherQuantity'
  901. end
  902. object cdsEstimateBillsAddGatherTotalPrice: TFloatField
  903. FieldName = 'AddGatherTotalPrice'
  904. end
  905. object cdsEstimateBillsDealDgnQuantity: TStringField
  906. FieldName = 'DealDgnQuantity'
  907. end
  908. object cdsEstimateBillsDealDgnQuantity1: TFloatField
  909. FieldName = 'DealDgnQuantity1'
  910. end
  911. object cdsEstimateBillsDealDgnQuantity2: TFloatField
  912. FieldName = 'DealDgnQuantity2'
  913. end
  914. object cdsEstimateBillsCDgnQuantity: TStringField
  915. FieldName = 'CDgnQuantity'
  916. end
  917. object cdsEstimateBillsCDgnQuantity1: TFloatField
  918. FieldName = 'CDgnQuantity1'
  919. end
  920. object cdsEstimateBillsCDgnQuantity2: TFloatField
  921. FieldName = 'CDgnQuantity2'
  922. end
  923. object cdsEstimateBillsGatherDgnQuantity: TStringField
  924. FieldName = 'GatherDgnQuantity'
  925. end
  926. object cdsEstimateBillsGatherDgnQuantity1: TFloatField
  927. FieldName = 'GatherDgnQuantity1'
  928. end
  929. object cdsEstimateBillsGatherDgnQuantity2: TFloatField
  930. FieldName = 'GatherDgnQuantity2'
  931. end
  932. object cdsEstimateBillsPDQuantity: TFloatField
  933. FieldName = 'PDQuantity'
  934. end
  935. object cdsEstimateBillsPDTotalPrice: TFloatField
  936. FieldName = 'PDTotalPrice'
  937. end
  938. object cdsEstimateBillsPDDgnQuantity: TStringField
  939. FieldName = 'PDDgnQuantity'
  940. end
  941. object cdsEstimateBillsPDDgnQuantity1: TFloatField
  942. FieldName = 'PDDgnQuantity1'
  943. end
  944. object cdsEstimateBillsPDDgnQuantity2: TFloatField
  945. FieldName = 'PDDgnQuantity2'
  946. end
  947. object cdsEstimateBillsCDDQuantity: TFloatField
  948. FieldName = 'CDDQuantity'
  949. end
  950. object cdsEstimateBillsCDDTotalPrice: TFloatField
  951. FieldName = 'CDDTotalPrice'
  952. end
  953. object cdsEstimateBillsCDDDgnQuantity: TStringField
  954. FieldName = 'CDDDgnQuantity'
  955. end
  956. object cdsEstimateBillsCDDDgnQuantity1: TFloatField
  957. FieldName = 'CDDDgnQuantity1'
  958. end
  959. object cdsEstimateBillsCDDDgnQuantity2: TFloatField
  960. FieldName = 'CDDDgnQuantity2'
  961. end
  962. object cdsEstimateBillsQuantityAdjust: TFloatField
  963. FieldName = 'QuantityAdjust'
  964. end
  965. object cdsEstimateBillsTotalPriceAdjust: TFloatField
  966. FieldName = 'TotalPriceAdjust'
  967. end
  968. object cdsEstimateBillsMemoStr: TWideStringField
  969. FieldName = 'MemoStr'
  970. Size = 100
  971. end
  972. object cdsEstimateBillsABQuantity: TFloatField
  973. FieldName = 'ABQuantity'
  974. end
  975. object cdsEstimateBillsABTotalPrice: TFloatField
  976. FieldName = 'ABTotalPrice'
  977. end
  978. object cdsEstimateBillsABDgnQuantity: TStringField
  979. FieldName = 'ABDgnQuantity'
  980. end
  981. object cdsEstimateBillsABDgnQuantity1: TFloatField
  982. FieldName = 'ABDgnQuantity1'
  983. end
  984. object cdsEstimateBillsABDgnQuantity2: TFloatField
  985. FieldName = 'ABDgnQuantity2'
  986. end
  987. object cdsEstimateBillsQuantityCompare1: TFloatField
  988. FieldName = 'QuantityCompare1'
  989. end
  990. object cdsEstimateBillsTotalPriceCompare1: TFloatField
  991. FieldName = 'TotalPriceCompare1'
  992. end
  993. object cdsEstimateBillsDgnQuantityCompare1: TStringField
  994. FieldName = 'DgnQuantityCompare1'
  995. end
  996. object cdsEstimateBillsDgnQuantity1Compare1: TFloatField
  997. FieldName = 'DgnQuantity1Compare1'
  998. end
  999. object cdsEstimateBillsDgnQuantity2Compare1: TFloatField
  1000. FieldName = 'DgnQuantity2Compare1'
  1001. end
  1002. object cdsEstimateBillsQuantityCompare2: TFloatField
  1003. FieldName = 'QuantityCompare2'
  1004. end
  1005. object cdsEstimateBillsTotalPriceCompare2: TFloatField
  1006. FieldName = 'TotalPriceCompare2'
  1007. end
  1008. object cdsEstimateBillsDgnQuantityCompare2: TStringField
  1009. FieldName = 'DgnQuantityCompare2'
  1010. end
  1011. object cdsEstimateBillsDgnQuantity1Compare2: TFloatField
  1012. FieldName = 'DgnQuantity1Compare2'
  1013. end
  1014. object cdsEstimateBillsDgnQuantity2Compare2: TFloatField
  1015. FieldName = 'DgnQuantity2Compare2'
  1016. end
  1017. object cdsEstimateBillsQuantityCompare3: TFloatField
  1018. FieldName = 'QuantityCompare3'
  1019. end
  1020. object cdsEstimateBillsTotalPriceCompare3: TFloatField
  1021. FieldName = 'TotalPriceCompare3'
  1022. end
  1023. object cdsEstimateBillsDgnQuantityCompare3: TStringField
  1024. FieldName = 'DgnQuantityCompare3'
  1025. end
  1026. object cdsEstimateBillsDgnQuantity1Compare3: TFloatField
  1027. FieldName = 'DgnQuantity1Compare3'
  1028. end
  1029. object cdsEstimateBillsDgnQuantity2Compare3: TFloatField
  1030. FieldName = 'DgnQuantity2Compare3'
  1031. end
  1032. object cdsEstimateBillsB_Code: TStringField
  1033. FieldName = 'B_Code'
  1034. Size = 50
  1035. end
  1036. object cdsEstimateBillsPrice: TFloatField
  1037. FieldName = 'Price'
  1038. end
  1039. object cdsEstimateBillsPDDgnPrice: TFloatField
  1040. FieldName = 'PDDgnPrice'
  1041. end
  1042. object cdsEstimateBillsCDDDgnPrice: TFloatField
  1043. FieldName = 'CDDDgnPrice'
  1044. end
  1045. object cdsEstimateBillsABDgnPrice: TFloatField
  1046. FieldName = 'ABDgnPrice'
  1047. end
  1048. object cdsEstimateBillsFinalDgnQty: TStringField
  1049. FieldName = 'FinalDgnQty'
  1050. end
  1051. object cdsEstimateBillsFinalDgnQty1: TFloatField
  1052. FieldName = 'FinalDgnQty1'
  1053. end
  1054. object cdsEstimateBillsFinalDgnQty2: TFloatField
  1055. FieldName = 'FinalDgnQty2'
  1056. end
  1057. end
  1058. object cdsProjectGclBills: TClientDataSet
  1059. Active = True
  1060. Aggregates = <>
  1061. FieldDefs = <
  1062. item
  1063. Name = 'ProjectID'
  1064. DataType = ftInteger
  1065. end
  1066. item
  1067. Name = 'ProjectName'
  1068. DataType = ftWideString
  1069. Size = 100
  1070. end
  1071. item
  1072. Name = 'B_Code'
  1073. DataType = ftString
  1074. Size = 50
  1075. end
  1076. item
  1077. Name = 'IndexCode'
  1078. DataType = ftString
  1079. Size = 50
  1080. end
  1081. item
  1082. Name = 'Name'
  1083. DataType = ftWideString
  1084. Size = 100
  1085. end
  1086. item
  1087. Name = 'Units'
  1088. DataType = ftWideString
  1089. Size = 20
  1090. end
  1091. item
  1092. Name = 'Price'
  1093. DataType = ftFloat
  1094. end
  1095. item
  1096. Name = 'Quantity'
  1097. DataType = ftFloat
  1098. end
  1099. item
  1100. Name = 'TotalPrice'
  1101. DataType = ftFloat
  1102. end
  1103. item
  1104. Name = 'P_Price'
  1105. DataType = ftFloat
  1106. end
  1107. item
  1108. Name = 'P_Quantity'
  1109. DataType = ftFloat
  1110. end
  1111. item
  1112. Name = 'P_TotalPrice'
  1113. DataType = ftFloat
  1114. end
  1115. item
  1116. Name = 'SerialNo'
  1117. DataType = ftInteger
  1118. end
  1119. item
  1120. Name = 'P_AddGatherQuantity'
  1121. DataType = ftFloat
  1122. end
  1123. item
  1124. Name = 'P_AddGatherTotalPrice'
  1125. DataType = ftFloat
  1126. end
  1127. item
  1128. Name = 'AddGatherQuantity'
  1129. DataType = ftFloat
  1130. end
  1131. item
  1132. Name = 'AddGatherTotalPrice'
  1133. DataType = ftFloat
  1134. end>
  1135. IndexDefs = <
  1136. item
  1137. Name = 'DEFAULT_ORDER'
  1138. end
  1139. item
  1140. Name = 'CHANGEINDEX'
  1141. end>
  1142. IndexFieldNames = 'ProjectID;SerialNo;IndexCode'
  1143. Params = <>
  1144. StoreDefs = True
  1145. Left = 120
  1146. Top = 136
  1147. Data = {
  1148. A30100009619E0BD010000001800000011000000000003000000A3010950726F
  1149. 6A656374494404000100000000000B50726F6A6563744E616D6501004A000000
  1150. 010005574944544802000200C80006425F436F64650100490000000100055749
  1151. 44544802000200320009496E646578436F646501004900000001000557494454
  1152. 48020002003200044E616D6501004A000000010005574944544802000200C800
  1153. 05556E69747301004A0000000100055749445448020002002800055072696365
  1154. 0800040000000000085175616E7469747908000400000000000A546F74616C50
  1155. 72696365080004000000000007505F507269636508000400000000000A505F51
  1156. 75616E7469747908000400000000000C505F546F74616C507269636508000400
  1157. 000000000853657269616C4E6F040001000000000013505F4164644761746865
  1158. 725175616E74697479080004000000000015505F416464476174686572546F74
  1159. 616C50726963650800040000000000114164644761746865725175616E746974
  1160. 79080004000000000013416464476174686572546F74616C5072696365080004
  1161. 00000000000000}
  1162. object cdsProjectGclBillsProjectID: TIntegerField
  1163. FieldName = 'ProjectID'
  1164. end
  1165. object cdsProjectGclBillsProjectName: TWideStringField
  1166. FieldName = 'ProjectName'
  1167. Size = 100
  1168. end
  1169. object cdsProjectGclBillsB_Code: TStringField
  1170. FieldName = 'B_Code'
  1171. Size = 50
  1172. end
  1173. object cdsProjectGclBillsIndexCode: TStringField
  1174. FieldName = 'IndexCode'
  1175. Size = 50
  1176. end
  1177. object cdsProjectGclBillsName: TWideStringField
  1178. FieldName = 'Name'
  1179. Size = 100
  1180. end
  1181. object cdsProjectGclBillsUnits: TWideStringField
  1182. FieldName = 'Units'
  1183. end
  1184. object cdsProjectGclBillsPrice: TFloatField
  1185. FieldName = 'Price'
  1186. end
  1187. object cdsProjectGclBillsQuantity: TFloatField
  1188. FieldName = 'Quantity'
  1189. end
  1190. object cdsProjectGclBillsTotalPrice: TFloatField
  1191. FieldName = 'TotalPrice'
  1192. end
  1193. object cdsProjectGclBillsP_Price: TFloatField
  1194. FieldName = 'P_Price'
  1195. end
  1196. object cdsProjectGclBillsP_Quantity: TFloatField
  1197. FieldName = 'P_Quantity'
  1198. end
  1199. object cdsProjectGclBillsP_TotalPrice: TFloatField
  1200. FieldName = 'P_TotalPrice'
  1201. end
  1202. object cdsProjectGclBillsSerialNo: TIntegerField
  1203. FieldName = 'SerialNo'
  1204. end
  1205. object cdsProjectGclBillsP_AddGatherQuantity: TFloatField
  1206. FieldName = 'P_AddGatherQuantity'
  1207. end
  1208. object cdsProjectGclBillsP_AddGatherTotalPrice: TFloatField
  1209. FieldName = 'P_AddGatherTotalPrice'
  1210. end
  1211. object cdsProjectGclBillsAddGatherQuantity: TFloatField
  1212. FieldName = 'AddGatherQuantity'
  1213. end
  1214. object cdsProjectGclBillsAddGatherTotalPrice: TFloatField
  1215. FieldName = 'AddGatherTotalPrice'
  1216. end
  1217. end
  1218. object cdsBGLFlow: TClientDataSet
  1219. Active = True
  1220. Aggregates = <>
  1221. FieldDefs = <
  1222. item
  1223. Name = 'MergeBGLCode'
  1224. DataType = ftWideString
  1225. Size = 100
  1226. end
  1227. item
  1228. Name = 'BGLName'
  1229. DataType = ftWideString
  1230. Size = 100
  1231. end
  1232. item
  1233. Name = 'ApprovalCode'
  1234. DataType = ftWideString
  1235. Size = 50
  1236. end
  1237. item
  1238. Name = 'Suggestion'
  1239. DataType = ftWideString
  1240. Size = 50
  1241. end
  1242. item
  1243. Name = 'BGReason'
  1244. DataType = ftWideString
  1245. Size = 100
  1246. end
  1247. item
  1248. Name = 'BGTotalPrice'
  1249. DataType = ftFloat
  1250. end
  1251. item
  1252. Name = 'B_Code'
  1253. DataType = ftString
  1254. Size = 50
  1255. end
  1256. item
  1257. Name = 'Name'
  1258. DataType = ftWideString
  1259. Size = 200
  1260. end
  1261. item
  1262. Name = 'Units'
  1263. DataType = ftWideString
  1264. Size = 20
  1265. end
  1266. item
  1267. Name = 'Quantity'
  1268. DataType = ftFloat
  1269. end
  1270. item
  1271. Name = 'Price'
  1272. DataType = ftFloat
  1273. end
  1274. item
  1275. Name = 'TotalPrice'
  1276. DataType = ftFloat
  1277. end>
  1278. IndexDefs = <>
  1279. Params = <>
  1280. StoreDefs = True
  1281. Left = 32
  1282. Top = 192
  1283. Data = {
  1284. 490100009619E0BD01000000180000000C00000000000300000049010C4D6572
  1285. 676542474C436F646501004A000000010005574944544802000200C800074247
  1286. 4C4E616D6501004A000000010005574944544802000200C8000C417070726F76
  1287. 616C436F646501004A00000001000557494454480200020064000A5375676765
  1288. 7374696F6E01004A000000010005574944544802000200640008424752656173
  1289. 6F6E01004A000000010005574944544802000200C8000C4247546F74616C5072
  1290. 696365080004000000000006425F436F64650100490000000100055749445448
  1291. 020002003200044E616D6502004A000000010005574944544802000200900105
  1292. 556E69747301004A0000000100055749445448020002002800085175616E7469
  1293. 7479080004000000000005507269636508000400000000000A546F74616C5072
  1294. 69636508000400000000000000}
  1295. object cdsBGLFlowMergeBGLCode: TWideStringField
  1296. FieldName = 'MergeBGLCode'
  1297. Size = 100
  1298. end
  1299. object cdsBGLFlowBGLName: TWideStringField
  1300. FieldName = 'BGLName'
  1301. Size = 100
  1302. end
  1303. object cdsBGLFlowApprovalCode: TWideStringField
  1304. FieldName = 'ApprovalCode'
  1305. Size = 50
  1306. end
  1307. object cdsBGLFlowSuggestion: TWideStringField
  1308. FieldName = 'Suggestion'
  1309. Size = 50
  1310. end
  1311. object cdsBGLFlowBGReason: TWideStringField
  1312. FieldName = 'BGReason'
  1313. Size = 100
  1314. end
  1315. object cdsBGLFlowBGTotalPrice: TFloatField
  1316. FieldName = 'BGTotalPrice'
  1317. end
  1318. object cdsBGLFlowB_Code: TStringField
  1319. FieldName = 'B_Code'
  1320. Size = 50
  1321. end
  1322. object cdsBGLFlowName: TWideStringField
  1323. FieldName = 'Name'
  1324. Size = 200
  1325. end
  1326. object cdsBGLFlowUnits: TWideStringField
  1327. FieldName = 'Units'
  1328. end
  1329. object cdsBGLFlowQuantity: TFloatField
  1330. FieldName = 'Quantity'
  1331. end
  1332. object cdsBGLFlowPrice: TFloatField
  1333. FieldName = 'Price'
  1334. end
  1335. object cdsBGLFlowTotalPrice: TFloatField
  1336. FieldName = 'TotalPrice'
  1337. end
  1338. end
  1339. end