m_ware_rp.srm 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551
  1. $PBExportHeader$m_ware_rp.srm
  2. forward
  3. global type m_ware_rp from menu
  4. end type
  5. type m_生产领料统计表 from menu within m_ware_rp
  6. end type
  7. type m_生产进仓统计表 from menu within m_ware_rp
  8. end type
  9. type m_1 from menu within m_ware_rp
  10. end type
  11. type m_客户投拆单 from menu within m_ware_rp
  12. end type
  13. type m_计划价变更历史统计表 from menu within m_ware_rp
  14. end type
  15. type m_- from menu within m_ware_rp
  16. end type
  17. type m_客户费用单 from menu within m_ware_rp
  18. end type
  19. type m_产品价格 from menu within m_ware_rp
  20. end type
  21. type m_库存配置调整统计表 from menu within m_ware_rp
  22. end type
  23. type m_2 from menu within m_ware_rp
  24. end type
  25. type m_-0 from menu within m_ware_rp
  26. end type
  27. type m_废弃销售单明细表 from menu within m_ware_rp
  28. end type
  29. type m_仓库推算结存表 from menu within m_ware_rp
  30. end type
  31. type m_客户投诉统计表 from menu within m_ware_rp
  32. end type
  33. global type m_ware_rp from menu
  34. m_生产领料统计表 m_生产领料统计表
  35. m_生产进仓统计表 m_生产进仓统计表
  36. m_1 m_1
  37. m_客户投拆单 m_客户投拆单
  38. m_计划价变更历史统计表 m_计划价变更历史统计表
  39. m_- m_-
  40. m_客户费用单 m_客户费用单
  41. m_产品价格 m_产品价格
  42. m_库存配置调整统计表 m_库存配置调整统计表
  43. m_2 m_2
  44. m_-0 m_-0
  45. m_废弃销售单明细表 m_废弃销售单明细表
  46. m_仓库推算结存表 m_仓库推算结存表
  47. m_客户投诉统计表 m_客户投诉统计表
  48. end type
  49. end forward
  50. global type m_ware_rp from menu
  51. m_生产领料统计表 m_生产领料统计表
  52. m_生产进仓统计表 m_生产进仓统计表
  53. m_1 m_1
  54. m_客户投拆单 m_客户投拆单
  55. m_计划价变更历史统计表 m_计划价变更历史统计表
  56. m_- m_-
  57. m_客户费用单 m_客户费用单
  58. m_产品价格 m_产品价格
  59. m_库存配置调整统计表 m_库存配置调整统计表
  60. m_2 m_2
  61. m_-0 m_-0
  62. m_废弃销售单明细表 m_废弃销售单明细表
  63. m_仓库推算结存表 m_仓库推算结存表
  64. m_客户投诉统计表 m_客户投诉统计表
  65. end type
  66. global m_ware_rp m_ware_rp
  67. on m_ware_rp.create
  68. m_ware_rp=this
  69. call super::create
  70. this.text = "m_ware_rp"
  71. this.menutextcolor = 134217735
  72. this.menubackcolor = 134217732
  73. this.menuhighlightcolor = 134217741
  74. this.textsize = 8
  75. this.weight = 400
  76. this.facename = "Tahoma"
  77. this.titlebackcolor = 134217730
  78. this.bitmapbackcolor = 12632256
  79. this.menubitmaps = true
  80. this.titlegradient = true
  81. this.toolbartextcolor = 134217746
  82. this.toolbarbackcolor = 67108864
  83. this.toolbarhighlightcolor = 134217741
  84. this.toolbargradient = true
  85. this.bitmapgradient = true
  86. this.m_生产领料统计表=create m_生产领料统计表
  87. this.m_生产进仓统计表=create m_生产进仓统计表
  88. this.m_1=create m_1
  89. this.m_客户投拆单=create m_客户投拆单
  90. this.m_计划价变更历史统计表=create m_计划价变更历史统计表
  91. this.m_-=create m_-
  92. this.m_客户费用单=create m_客户费用单
  93. this.m_产品价格=create m_产品价格
  94. this.m_库存配置调整统计表=create m_库存配置调整统计表
  95. this.m_2=create m_2
  96. this.m_-0=create m_-0
  97. this.m_废弃销售单明细表=create m_废弃销售单明细表
  98. this.m_仓库推算结存表=create m_仓库推算结存表
  99. this.m_客户投诉统计表=create m_客户投诉统计表
  100. this.Item[UpperBound(this.Item)+1]=this.m_生产领料统计表
  101. this.Item[UpperBound(this.Item)+1]=this.m_生产进仓统计表
  102. this.Item[UpperBound(this.Item)+1]=this.m_1
  103. this.Item[UpperBound(this.Item)+1]=this.m_客户投拆单
  104. this.Item[UpperBound(this.Item)+1]=this.m_计划价变更历史统计表
  105. this.Item[UpperBound(this.Item)+1]=this.m_-
  106. this.Item[UpperBound(this.Item)+1]=this.m_客户费用单
  107. this.Item[UpperBound(this.Item)+1]=this.m_产品价格
  108. this.Item[UpperBound(this.Item)+1]=this.m_库存配置调整统计表
  109. this.Item[UpperBound(this.Item)+1]=this.m_2
  110. this.Item[UpperBound(this.Item)+1]=this.m_-0
  111. this.Item[UpperBound(this.Item)+1]=this.m_废弃销售单明细表
  112. this.Item[UpperBound(this.Item)+1]=this.m_仓库推算结存表
  113. this.Item[UpperBound(this.Item)+1]=this.m_客户投诉统计表
  114. end on
  115. on m_ware_rp.destroy
  116. call super::destroy
  117. destroy(this.m_生产领料统计表)
  118. destroy(this.m_生产进仓统计表)
  119. destroy(this.m_1)
  120. destroy(this.m_客户投拆单)
  121. destroy(this.m_计划价变更历史统计表)
  122. destroy(this.m_-)
  123. destroy(this.m_客户费用单)
  124. destroy(this.m_产品价格)
  125. destroy(this.m_库存配置调整统计表)
  126. destroy(this.m_2)
  127. destroy(this.m_-0)
  128. destroy(this.m_废弃销售单明细表)
  129. destroy(this.m_仓库推算结存表)
  130. destroy(this.m_客户投诉统计表)
  131. end on
  132. event clicked;f_sys_main(335)
  133. end event
  134. type m_生产领料统计表 from menu within m_ware_rp
  135. end type
  136. event clicked;f_sys_main(218)
  137. end event
  138. on m_生产领料统计表.create
  139. call super::create
  140. this.text = "生产领料统计表"
  141. this.menutextcolor = 134217735
  142. this.menubackcolor = 134217732
  143. this.menuhighlightcolor = 134217741
  144. this.textsize = 8
  145. this.weight = 400
  146. this.facename = "Tahoma"
  147. this.titlebackcolor = 134217730
  148. this.bitmapbackcolor = 12632256
  149. this.menubitmaps = true
  150. this.titlegradient = true
  151. this.toolbartextcolor = 134217746
  152. this.toolbarbackcolor = 67108864
  153. this.toolbarhighlightcolor = 134217741
  154. this.toolbargradient = true
  155. this.bitmapgradient = true
  156. end on
  157. on m_生产领料统计表.destroy
  158. call super::destroy
  159. end on
  160. type m_生产进仓统计表 from menu within m_ware_rp
  161. end type
  162. event clicked;//
  163. f_sys_main(215)
  164. end event
  165. on m_生产进仓统计表.create
  166. call super::create
  167. this.text = "生产进仓统计表"
  168. this.menutextcolor = 134217735
  169. this.menubackcolor = 134217732
  170. this.menuhighlightcolor = 134217741
  171. this.textsize = 8
  172. this.weight = 400
  173. this.facename = "Tahoma"
  174. this.titlebackcolor = 134217730
  175. this.bitmapbackcolor = 12632256
  176. this.menubitmaps = true
  177. this.titlegradient = true
  178. this.toolbartextcolor = 134217746
  179. this.toolbarbackcolor = 67108864
  180. this.toolbarhighlightcolor = 134217741
  181. this.toolbargradient = true
  182. this.bitmapgradient = true
  183. end on
  184. on m_生产进仓统计表.destroy
  185. call super::destroy
  186. end on
  187. type m_1 from menu within m_ware_rp
  188. end type
  189. on m_1.create
  190. call super::create
  191. this.text = "-"
  192. this.menutextcolor = 134217735
  193. this.menubackcolor = 134217732
  194. this.menuhighlightcolor = 134217741
  195. this.textsize = 8
  196. this.weight = 400
  197. this.facename = "Tahoma"
  198. this.titlebackcolor = 134217730
  199. this.bitmapbackcolor = 12632256
  200. this.menubitmaps = true
  201. this.titlegradient = true
  202. this.toolbartextcolor = 134217746
  203. this.toolbarbackcolor = 67108864
  204. this.toolbarhighlightcolor = 134217741
  205. this.toolbargradient = true
  206. this.bitmapgradient = true
  207. end on
  208. on m_1.destroy
  209. call super::destroy
  210. end on
  211. type m_客户投拆单 from menu within m_ware_rp
  212. end type
  213. event clicked;f_sys_main(337)
  214. end event
  215. on m_客户投拆单.create
  216. call super::create
  217. this.text = "成本价调整单明细表"
  218. this.menutextcolor = 134217735
  219. this.menubackcolor = 134217732
  220. this.menuhighlightcolor = 134217741
  221. this.textsize = 8
  222. this.weight = 400
  223. this.facename = "Tahoma"
  224. this.titlebackcolor = 134217730
  225. this.bitmapbackcolor = 12632256
  226. this.menubitmaps = true
  227. this.titlegradient = true
  228. this.toolbartextcolor = 134217746
  229. this.toolbarbackcolor = 67108864
  230. this.toolbarhighlightcolor = 134217741
  231. this.toolbargradient = true
  232. this.bitmapgradient = true
  233. end on
  234. on m_客户投拆单.destroy
  235. call super::destroy
  236. end on
  237. type m_计划价变更历史统计表 from menu within m_ware_rp
  238. end type
  239. event clicked;f_sys_main(425)
  240. end event
  241. on m_计划价变更历史统计表.create
  242. call super::create
  243. this.text = "计划价变更历史统计表"
  244. this.menutextcolor = 134217735
  245. this.menubackcolor = 134217732
  246. this.menuhighlightcolor = 134217741
  247. this.textsize = 8
  248. this.weight = 400
  249. this.facename = "Tahoma"
  250. this.titlebackcolor = 134217730
  251. this.bitmapbackcolor = 12632256
  252. this.menubitmaps = true
  253. this.titlegradient = true
  254. this.toolbartextcolor = 134217746
  255. this.toolbarbackcolor = 67108864
  256. this.toolbarhighlightcolor = 134217741
  257. this.toolbargradient = true
  258. this.bitmapgradient = true
  259. end on
  260. on m_计划价变更历史统计表.destroy
  261. call super::destroy
  262. end on
  263. type m_- from menu within m_ware_rp
  264. end type
  265. on m_-.create
  266. call super::create
  267. this.text = "-"
  268. this.menutextcolor = 134217735
  269. this.menubackcolor = 134217732
  270. this.menuhighlightcolor = 134217741
  271. this.textsize = 8
  272. this.weight = 400
  273. this.facename = "Tahoma"
  274. this.titlebackcolor = 134217730
  275. this.bitmapbackcolor = 12632256
  276. this.menubitmaps = true
  277. this.titlegradient = true
  278. this.toolbartextcolor = 134217746
  279. this.toolbarbackcolor = 67108864
  280. this.toolbarhighlightcolor = 134217741
  281. this.toolbargradient = true
  282. this.bitmapgradient = true
  283. end on
  284. on m_-.destroy
  285. call super::destroy
  286. end on
  287. type m_客户费用单 from menu within m_ware_rp
  288. end type
  289. event clicked;f_sys_main(334)
  290. end event
  291. on m_客户费用单.create
  292. call super::create
  293. this.text = "拆装单明细表"
  294. this.menutextcolor = 134217735
  295. this.menubackcolor = 134217732
  296. this.menuhighlightcolor = 134217741
  297. this.textsize = 8
  298. this.weight = 400
  299. this.facename = "Tahoma"
  300. this.titlebackcolor = 134217730
  301. this.bitmapbackcolor = 12632256
  302. this.menubitmaps = true
  303. this.titlegradient = true
  304. this.toolbartextcolor = 134217746
  305. this.toolbarbackcolor = 67108864
  306. this.toolbarhighlightcolor = 134217741
  307. this.toolbargradient = true
  308. this.bitmapgradient = true
  309. end on
  310. on m_客户费用单.destroy
  311. call super::destroy
  312. end on
  313. type m_产品价格 from menu within m_ware_rp
  314. end type
  315. event clicked;f_sys_main(335)
  316. end event
  317. on m_产品价格.create
  318. call super::create
  319. this.text = "客存调整单统计表"
  320. this.menutextcolor = 134217735
  321. this.menubackcolor = 134217732
  322. this.menuhighlightcolor = 134217741
  323. this.textsize = 8
  324. this.weight = 400
  325. this.facename = "Tahoma"
  326. this.titlebackcolor = 134217730
  327. this.bitmapbackcolor = 12632256
  328. this.menubitmaps = true
  329. this.titlegradient = true
  330. this.toolbartextcolor = 134217746
  331. this.toolbarbackcolor = 67108864
  332. this.toolbarhighlightcolor = 134217741
  333. this.toolbargradient = true
  334. this.bitmapgradient = true
  335. end on
  336. on m_产品价格.destroy
  337. call super::destroy
  338. end on
  339. type m_库存配置调整统计表 from menu within m_ware_rp
  340. end type
  341. event clicked;f_sys_main(316)
  342. end event
  343. on m_库存配置调整统计表.create
  344. call super::create
  345. this.text = "库存配置调整统计表"
  346. this.menutextcolor = 134217735
  347. this.menubackcolor = 134217732
  348. this.menuhighlightcolor = 134217741
  349. this.textsize = 8
  350. this.weight = 400
  351. this.facename = "Tahoma"
  352. this.titlebackcolor = 134217730
  353. this.bitmapbackcolor = 12632256
  354. this.menubitmaps = true
  355. this.titlegradient = true
  356. this.toolbartextcolor = 134217746
  357. this.toolbarbackcolor = 67108864
  358. this.toolbarhighlightcolor = 134217741
  359. this.toolbargradient = true
  360. this.bitmapgradient = true
  361. end on
  362. on m_库存配置调整统计表.destroy
  363. call super::destroy
  364. end on
  365. type m_2 from menu within m_ware_rp
  366. end type
  367. event clicked;f_sys_main(336)
  368. end event
  369. on m_2.create
  370. call super::create
  371. this.text = "仓库调拨单统计表"
  372. this.menutextcolor = 134217735
  373. this.menubackcolor = 134217732
  374. this.menuhighlightcolor = 134217741
  375. this.textsize = 8
  376. this.weight = 400
  377. this.facename = "Tahoma"
  378. this.titlebackcolor = 134217730
  379. this.bitmapbackcolor = 12632256
  380. this.menubitmaps = true
  381. this.titlegradient = true
  382. this.toolbartextcolor = 134217746
  383. this.toolbarbackcolor = 67108864
  384. this.toolbarhighlightcolor = 134217741
  385. this.toolbargradient = true
  386. this.bitmapgradient = true
  387. end on
  388. on m_2.destroy
  389. call super::destroy
  390. end on
  391. type m_-0 from menu within m_ware_rp
  392. end type
  393. on m_-0.create
  394. call super::create
  395. this.text = "-"
  396. this.menutextcolor = 134217735
  397. this.menubackcolor = 134217732
  398. this.menuhighlightcolor = 134217741
  399. this.textsize = 8
  400. this.weight = 400
  401. this.facename = "Tahoma"
  402. this.titlebackcolor = 134217730
  403. this.bitmapbackcolor = 12632256
  404. this.menubitmaps = true
  405. this.titlegradient = true
  406. this.toolbartextcolor = 134217746
  407. this.toolbarbackcolor = 67108864
  408. this.toolbarhighlightcolor = 134217741
  409. this.toolbargradient = true
  410. this.bitmapgradient = true
  411. end on
  412. on m_-0.destroy
  413. call super::destroy
  414. end on
  415. type m_废弃销售单明细表 from menu within m_ware_rp
  416. end type
  417. event clicked;f_sys_main(321)
  418. end event
  419. on m_废弃销售单明细表.create
  420. call super::create
  421. this.text = "库存报警表"
  422. this.menutextcolor = 134217735
  423. this.menubackcolor = 134217732
  424. this.menuhighlightcolor = 134217741
  425. this.textsize = 8
  426. this.weight = 400
  427. this.facename = "Tahoma"
  428. this.titlebackcolor = 134217730
  429. this.bitmapbackcolor = 12632256
  430. this.menubitmaps = true
  431. this.titlegradient = true
  432. this.toolbartextcolor = 134217746
  433. this.toolbarbackcolor = 67108864
  434. this.toolbarhighlightcolor = 134217741
  435. this.toolbargradient = true
  436. this.bitmapgradient = true
  437. end on
  438. on m_废弃销售单明细表.destroy
  439. call super::destroy
  440. end on
  441. type m_仓库推算结存表 from menu within m_ware_rp
  442. end type
  443. event clicked;f_sys_main(332)
  444. end event
  445. on m_仓库推算结存表.create
  446. call super::create
  447. this.text = "仓库推算结存表"
  448. this.menutextcolor = 134217735
  449. this.menubackcolor = 134217732
  450. this.menuhighlightcolor = 134217741
  451. this.textsize = 8
  452. this.weight = 400
  453. this.facename = "Tahoma"
  454. this.titlebackcolor = 134217730
  455. this.bitmapbackcolor = 12632256
  456. this.menubitmaps = true
  457. this.titlegradient = true
  458. this.toolbartextcolor = 134217746
  459. this.toolbarbackcolor = 67108864
  460. this.toolbarhighlightcolor = 134217741
  461. this.toolbargradient = true
  462. this.bitmapgradient = true
  463. end on
  464. on m_仓库推算结存表.destroy
  465. call super::destroy
  466. end on
  467. type m_客户投诉统计表 from menu within m_ware_rp
  468. end type
  469. event clicked;f_sys_main(344)
  470. end event
  471. on m_客户投诉统计表.create
  472. call super::create
  473. this.text = "物料库存可装数查询"
  474. this.menutextcolor = 134217735
  475. this.menubackcolor = 134217732
  476. this.menuhighlightcolor = 134217741
  477. this.textsize = 8
  478. this.weight = 400
  479. this.facename = "Tahoma"
  480. this.titlebackcolor = 134217730
  481. this.bitmapbackcolor = 12632256
  482. this.menubitmaps = true
  483. this.titlegradient = true
  484. this.toolbartextcolor = 134217746
  485. this.toolbarbackcolor = 67108864
  486. this.toolbarhighlightcolor = 134217741
  487. this.toolbargradient = true
  488. this.bitmapgradient = true
  489. end on
  490. on m_客户投诉统计表.destroy
  491. call super::destroy
  492. end on