$PBExportHeader$m_ware_pd.srm forward global type m_ware_pd from menu end type type m_0 from menu within m_ware_pd end type type m_1 from menu within m_ware_pd end type global type m_ware_pd from menu m_0 m_0 m_1 m_1 end type end forward global type m_ware_pd from menu m_0 m_0 m_1 m_1 end type global m_ware_pd m_ware_pd on m_ware_pd.create m_ware_pd=this call super::create this.text = "m_ware_pd" this.m_0=create m_0 this.m_1=create m_1 this.Item[UpperBound(this.Item)+1]=this.m_0 this.Item[UpperBound(this.Item)+1]=this.m_1 end on on m_ware_pd.destroy call super::destroy destroy(this.m_0) destroy(this.m_1) end on type m_0 from menu within m_ware_pd end type event clicked;f_sys_main(308) end event on m_0.create call super::create this.text = "仓库盘点表" end on on m_0.destroy call super::destroy end on type m_1 from menu within m_ware_pd end type on m_1.create call super::create this.text = "仓库盘点单" end on on m_1.destroy call super::destroy end on event clicked;f_sys_main(345) end event