Q5/ws_objects/Ew_mainface.pbl.src/m_ware_rp_biz.srm

$PBExportHeader$m_ware_rp_biz.srm
forward
global type m_ware_rp_biz from menu
end type
type m_客户投拆单 from menu within m_ware_rp_biz
end type
type m_计划价变更历史统计表 from menu within m_ware_rp_biz
end type
type m_1 from menu within m_ware_rp_biz
end type
type m_客户费用单 from menu within m_ware_rp_biz
end type
type m_产品价格 from menu within m_ware_rp_biz
end type
type m_2 from menu within m_ware_rp_biz
end type
type m_- from menu within m_ware_rp_biz
end type
type m_废弃销售单明细表 from menu within m_ware_rp_biz
end type
type m_仓库推算结存表 from menu within m_ware_rp_biz
end type
type m_客户投诉统计表 from menu within m_ware_rp_biz
end type
global type m_ware_rp_biz from menu
m_客户投拆单 m_客户投拆单
m_计划价变更历史统计表 m_计划价变更历史统计表
m_1 m_1
m_客户费用单 m_客户费用单
m_产品价格 m_产品价格
m_2 m_2
m_- m_-
m_废弃销售单明细表 m_废弃销售单明细表
m_仓库推算结存表 m_仓库推算结存表
m_客户投诉统计表 m_客户投诉统计表
end type
end forward

global type m_ware_rp_biz from menu
m_客户投拆单 m_客户投拆单
m_计划价变更历史统计表 m_计划价变更历史统计表
m_1 m_1
m_客户费用单 m_客户费用单
m_产品价格 m_产品价格
m_2 m_2
m_- m_-
m_废弃销售单明细表 m_废弃销售单明细表
m_仓库推算结存表 m_仓库推算结存表
m_客户投诉统计表 m_客户投诉统计表
end type
global m_ware_rp_biz m_ware_rp_biz

on m_ware_rp_biz.create
m_ware_rp_biz=this
call super::create
this.text = "m_ware_rp_biz"
this.m_客户投拆单=create m_客户投拆单
this.m_计划价变更历史统计表=create m_计划价变更历史统计表
this.m_1=create m_1
this.m_客户费用单=create m_客户费用单
this.m_产品价格=create m_产品价格
this.m_2=create m_2
this.m_-=create m_-
this.m_废弃销售单明细表=create m_废弃销售单明细表
this.m_仓库推算结存表=create m_仓库推算结存表
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_产品价格
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_废弃销售单明细表
this.Item[UpperBound(this.Item)+1]=this.m_仓库推算结存表
this.Item[UpperBound(this.Item)+1]=this.m_客户投诉统计表
end on

on m_ware_rp_biz.destroy
call super::destroy
destroy(this.m_客户投拆单)
destroy(this.m_计划价变更历史统计表)
destroy(this.m_1)
destroy(this.m_客户费用单)
destroy(this.m_产品价格)
destroy(this.m_2)
destroy(this.m_-)
destroy(this.m_废弃销售单明细表)
destroy(this.m_仓库推算结存表)
destroy(this.m_客户投诉统计表)
end on

event clicked;f_sys_main(335)
end event

type m_客户投拆单 from menu within m_ware_rp_biz
end type

event clicked;f_sys_main(337)
end event

on m_客户投拆单.create
call super::create
this.text = "成本价调整单明细表"
end on

on m_客户投拆单.destroy
call super::destroy
end on

type m_计划价变更历史统计表 from menu within m_ware_rp_biz
end type

event clicked;f_sys_main(425)
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_ware_rp_biz
end type

on m_1.create
call super::create
this.text = "-"
end on

on m_1.destroy
call super::destroy
end on

type m_客户费用单 from menu within m_ware_rp_biz
end type

event clicked;f_sys_main(334)
end event

on m_客户费用单.create
call super::create
this.text = "拆装单明细表"
end on

on m_客户费用单.destroy
call super::destroy
end on

type m_产品价格 from menu within m_ware_rp_biz
end type

event clicked;f_sys_main(335)

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_ware_rp_biz
end type

event clicked;f_sys_main(330)
end event

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_ware_rp_biz
end type

on m_-.create
call super::create
this.text = "-"
end on

on m_-.destroy
call super::destroy
end on

type m_废弃销售单明细表 from menu within m_ware_rp_biz
end type

event clicked;f_sys_main(321)
end event

on m_废弃销售单明细表.create
call super::create
this.text = "库存报警表"
end on

on m_废弃销售单明细表.destroy
call super::destroy
end on

type m_仓库推算结存表 from menu within m_ware_rp_biz
end type

event clicked;f_sys_main(332)
end event

on m_仓库推算结存表.create
call super::create
this.text = "仓库推算结存表"
end on

on m_仓库推算结存表.destroy
call super::destroy
end on

type m_客户投诉统计表 from menu within m_ware_rp_biz
end type

event clicked;f_sys_main(344)
end event

on m_客户投诉统计表.create
call super::create
this.text = "物料库存可装数查询"
end on

on m_客户投诉统计表.destroy
call super::destroy
end on