m_jg_fg.srm 1.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. $PBExportHeader$m_jg_fg.srm
  2. forward
  3. global type m_jg_fg from menu
  4. end type
  5. type m_0 from menu within m_jg_fg
  6. end type
  7. type m_车间外协返工单 from menu within m_jg_fg
  8. end type
  9. global type m_jg_fg from menu
  10. m_0 m_0
  11. m_车间外协返工单 m_车间外协返工单
  12. end type
  13. end forward
  14. global type m_jg_fg from menu
  15. m_0 m_0
  16. m_车间外协返工单 m_车间外协返工单
  17. end type
  18. global m_jg_fg m_jg_fg
  19. on m_jg_fg.create
  20. m_jg_fg=this
  21. call super::create
  22. this.text = "m_jg_fg"
  23. this.m_0=create m_0
  24. this.m_车间外协返工单=create m_车间外协返工单
  25. this.Item[UpperBound(this.Item)+1]=this.m_0
  26. this.Item[UpperBound(this.Item)+1]=this.m_车间外协返工单
  27. end on
  28. on m_jg_fg.destroy
  29. call super::destroy
  30. destroy(this.m_0)
  31. destroy(this.m_车间外协返工单)
  32. end on
  33. type m_0 from menu within m_jg_fg
  34. end type
  35. on m_0.create
  36. call super::create
  37. this.text = "仓库外协返工单"
  38. end on
  39. on m_0.destroy
  40. call super::destroy
  41. end on
  42. event clicked;f_sys_main(919)
  43. end event
  44. type m_车间外协返工单 from menu within m_jg_fg
  45. end type
  46. on m_车间外协返工单.create
  47. call super::create
  48. this.text = "车间外协返工单"
  49. end on
  50. on m_车间外协返工单.destroy
  51. call super::destroy
  52. end on
  53. event clicked;f_sys_main(911)
  54. end event