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

$PBExportHeader$m_rp_qty.srm
forward
global type m_rp_qty from menu
end type
type m_popmenu from menu within m_rp_qty
end type
type m_ from menu within m_popmenu
end type
type m_1 from menu within m_popmenu
end type
type m_popmenu from menu within m_rp_qty
m_ m_
m_1 m_1
end type
end forward

global type m_rp_qty from menu
m_popmenu m_popmenu
end type
global m_rp_qty m_rp_qty

on m_rp_qty.create
m_rp_qty=this
this.m_popmenu=create m_popmenu
this.Item[]={this.m_popmenu}
end on

on m_rp_qty.destroy
destroy(this.m_popmenu)
end on

type m_popmenu from menu within m_rp_qty
m_ m_
m_1 m_1
end type

on m_popmenu.create
this.Text=" "
this.m_=create m_
this.m_1=create m_1
this.Item[]={this.m_, &
this.m_1}
end on

on m_popmenu.destroy
destroy(this.m_)
destroy(this.m_1)
end on

type m_ from menu within m_popmenu
end type

on m_.create
this.Text="数量金额总帐"
end on

event clicked;f_sys_main(225)
end event

type m_1 from menu within m_popmenu
end type

on m_1.create
this.Text="数量金额明细帐"
end on

event clicked;f_sys_main(226)
end event