$PBExportHeader$m_rp_dept.srm
forward
global type m_rp_dept from menu
end type
type m_popmenu from menu within m_rp_dept
end type
type m_2 from menu within m_popmenu
end type
type m_ 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_dept
m_2 m_2
m_ m_
m_3 m_3
m_4 m_4
end type
global type m_rp_dept from menu
m_popmenu m_popmenu
end type
end forward

global type m_rp_dept from menu
m_popmenu m_popmenu
end type
global m_rp_dept m_rp_dept

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

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

type m_popmenu from menu within m_rp_dept
m_2 m_2
m_ m_
m_3 m_3
m_4 m_4
end type

on m_popmenu.create
call super::create
this.text = " "
this.m_2=create m_2
this.m_=create m_
this.m_3=create m_3
this.m_4=create m_4
this.Item[UpperBound(this.Item)+1]=this.m_2
this.Item[UpperBound(this.Item)+1]=this.m_
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_2)
destroy(this.m_)
destroy(this.m_3)
destroy(this.m_4)
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(1237)
end event

on m_2.destroy
call super::destroy
end on

type m_ from menu within m_popmenu
end type

on m_.create
call super::create
this.text = "部门科目总帐"
end on

event clicked;f_sys_main(1238)
end event

on m_.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(1239)
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(1240)
end event

on m_4.destroy
call super::destroy
end on