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

$PBExportHeader$m_rp_cust.srm
forward
global type m_rp_cust from menu
end type
type m_popmenu from menu within m_rp_cust
end type
type m_ from menu within m_popmenu
end type
type m_客户科目总帐 from menu within m_popmenu
end type
type m_1 from menu within m_popmenu
end type
type m_客户科目明细帐 from menu within m_popmenu
end type
type m_popmenu from menu within m_rp_cust
m_ m_
m_客户科目总帐 m_客户科目总帐
m_1 m_1
m_客户科目明细帐 m_客户科目明细帐
end type
global type m_rp_cust from menu
m_popmenu m_popmenu
end type
end forward

global type m_rp_cust from menu
m_popmenu m_popmenu
end type
global m_rp_cust m_rp_cust

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

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

type m_popmenu from menu within m_rp_cust
m_ m_
m_客户科目总帐 m_客户科目总帐
m_1 m_1
m_客户科目明细帐 m_客户科目明细帐
end type

on m_popmenu.create
call super::create
this.text = " "
this.m_=create m_
this.m_客户科目总帐=create m_客户科目总帐
this.m_1=create m_1
this.m_客户科目明细帐=create m_客户科目明细帐
this.Item[UpperBound(this.Item)+1]=this.m_
this.Item[UpperBound(this.Item)+1]=this.m_客户科目总帐
this.Item[UpperBound(this.Item)+1]=this.m_1
this.Item[UpperBound(this.Item)+1]=this.m_客户科目明细帐
end on

on m_popmenu.destroy
call super::destroy
destroy(this.m_)
destroy(this.m_客户科目总帐)
destroy(this.m_1)
destroy(this.m_客户科目明细帐)
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(1241)
end event

on m_.destroy
call super::destroy
end on

type m_客户科目总帐 from menu within m_popmenu
end type

event clicked;f_sys_main(1242)
end event

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

on m_客户科目总帐.destroy
call super::destroy
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(1243)
end event

on m_1.destroy
call super::destroy
end on

type m_客户科目明细帐 from menu within m_popmenu
end type

event clicked;f_sys_main(1244)
end event

on m_客户科目明细帐.create
call super::create
this.text = "客户科目明细帐"
end on

on m_客户科目明细帐.destroy
call super::destroy
end on