$PBExportHeader$m_price_print.srm forward global type m_price_print from menu end type type m_0 from menu within m_price_print end type type m_按日打印 from menu within m_0 end type type m_按单打印 from menu within m_0 end type type m_0 from menu within m_price_print m_按日打印 m_按日打印 m_按单打印 m_按单打印 end type global type m_price_print from menu m_0 m_0 end type end forward global type m_price_print from menu m_0 m_0 end type global m_price_print m_price_print on m_price_print.create m_price_print=this call super::create this.m_0=create m_0 this.Item[UpperBound(this.Item)+1]=this.m_0 end on on m_price_print.destroy call super::destroy destroy(this.m_0) end on type m_0 from menu within m_price_print m_按日打印 m_按日打印 m_按单打印 m_按单打印 end type on m_0.create call super::create this.m_按日打印=create m_按日打印 this.m_按单打印=create m_按单打印 this.Item[UpperBound(this.Item)+1]=this.m_按日打印 this.Item[UpperBound(this.Item)+1]=this.m_按单打印 end on on m_0.destroy call super::destroy destroy(this.m_按日打印) destroy(this.m_按单打印) end on type m_按日打印 from menu within m_0 end type on m_按日打印.create call super::create this.text = "按日打印" end on on m_按日打印.destroy call super::destroy end on type m_按单打印 from menu within m_0 end type on m_按单打印.create call super::create this.text = "按单打印" end on on m_按单打印.destroy call super::destroy end on