Q5/ws_objects/cw_account.pbl.src/m_rp_item.srm

$PBExportHeader$m_rp_item.srm
forward
global type m_rp_item from menu
end type
type m_popmenu from menu within m_rp_item
end type
type m_1 from menu within m_popmenu
end type
type m_2 from menu within m_popmenu
end type
type m_3 from menu within m_popmenu
end type
type m_4 from menu within m_popmenu
end type
type m_popmenu from menu within m_rp_item
m_1 m_1
m_2 m_2
m_3 m_3
m_4 m_4
end type
global type m_rp_item from menu
m_popmenu m_popmenu
end type
end forward

global type m_rp_item from menu
m_popmenu m_popmenu
end type
global m_rp_item m_rp_item

on m_rp_item.create
m_rp_item=this
call super::create
this.m_popmenu=create m_popmenu
this.Item[UpperBound(this.Item)+1]=this.m_popmenu
end on

on m_rp_item.destroy
call super::destroy
destroy(this.m_popmenu)
end on

type m_popmenu from menu within m_rp_item
m_1 m_1
m_2 m_2
m_3 m_3
m_4 m_4
end type

on m_popmenu.create
call super::create
this.text = " "
this.m_1=create m_1
this.m_2=create m_2
this.m_3=create m_3
this.m_4=create m_4
this.Item[UpperBound(this.Item)+1]=this.m_1
this.Item[UpperBound(this.Item)+1]=this.m_2
this.Item[UpperBound(this.Item)+1]=this.m_3
this.Item[UpperBound(this.Item)+1]=this.m_4
end on

on m_popmenu.destroy
call super::destroy
destroy(this.m_1)
destroy(this.m_2)
destroy(this.m_3)
destroy(this.m_4)
end on

type m_1 from menu within m_popmenu
end type

on m_1.create
call super::create
this.text = "项目总帐"
end on

event clicked;f_sys_main(1214)
end event

on m_1.destroy
call super::destroy
end on

type m_2 from menu within m_popmenu
end type

on m_2.create
call super::create
this.text = "项目科目总帐"
end on

event clicked;f_sys_main(1215)
end event

on m_2.destroy
call super::destroy
end on

type m_3 from menu within m_popmenu
end type

on m_3.create
call super::create
this.text = "项目明细帐"
end on

event clicked;f_sys_main(1216)
end event

on m_3.destroy
call super::destroy
end on

type m_4 from menu within m_popmenu
end type

on m_4.create
call super::create
this.text = "项目科目明细帐"
end on

event clicked;f_sys_main(1217)
end event

on m_4.destroy
call super::destroy
end on