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

$PBExportHeader$m_rp_spt.srm
forward
global type m_rp_spt from menu
end type
type m_popmenu from menu within m_rp_spt
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_2 from menu within m_popmenu
end type
type m_供应商科目汇总表 from menu within m_popmenu
end type
type m_popmenu from menu within m_rp_spt
m_ m_
m_供应商科目总帐 m_供应商科目总帐
m_1 m_1
m_供应商科目明细帐 m_供应商科目明细帐
m_2 m_2
m_供应商科目汇总表 m_供应商科目汇总表
end type
global type m_rp_spt from menu
m_popmenu m_popmenu
end type
end forward

global type m_rp_spt from menu
m_popmenu m_popmenu
end type
global m_rp_spt m_rp_spt

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

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

type m_popmenu from menu within m_rp_spt
m_ m_
m_供应商科目总帐 m_供应商科目总帐
m_1 m_1
m_供应商科目明细帐 m_供应商科目明细帐
m_2 m_2
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.m_2=create m_2
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_供应商科目明细帐
this.Item[UpperBound(this.Item)+1]=this.m_2
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_供应商科目明细帐)
destroy(this.m_2)
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(1233)
end event

on m_.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

on m_供应商科目总帐.destroy
call super::destroy
end on

event clicked;f_sys_main(1234)
end event

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(1235)
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(1236)
end event

on m_供应商科目明细帐.create
call super::create
this.text = "供应商科目明细帐"
end on

on m_供应商科目明细帐.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

on m_2.destroy
call super::destroy
end on

type m_供应商科目汇总表 from menu within m_popmenu
end type

event clicked;f_sys_main(1245)
end event

on m_供应商科目汇总表.create
call super::create
this.text = "供应商科目汇总表"
end on

on m_供应商科目汇总表.destroy
call super::destroy
end on