Q5/ws_objects/Ew_price.pbl.src/m_price_print.srm

$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