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

$PBExportHeader$m_sale_fz.srm
forward
global type m_sale_fz from menu
end type
type m_0 from menu within m_sale_fz
end type
type m_产品价格 from menu within m_sale_fz
end type
type m_客户物料别名 from menu within m_sale_fz
end type
type m_2 from menu within m_sale_fz
end type
type m_- from menu within m_sale_fz
end type
type m_客户投拆单 from menu within m_sale_fz
end type
type m_客户费用单 from menu within m_sale_fz
end type
type m_客户补件单 from menu within m_sale_fz
end type
type m_客户返利单 from menu within m_sale_fz
end type
type m_3 from menu within m_sale_fz
end type
type m_零售单 from menu within m_sale_fz
end type
global type m_sale_fz from menu
m_0 m_0
m_产品价格 m_产品价格
m_客户物料别名 m_客户物料别名
m_2 m_2
m_- m_-
m_客户投拆单 m_客户投拆单
m_客户费用单 m_客户费用单
m_客户补件单 m_客户补件单
m_客户返利单 m_客户返利单
m_3 m_3
m_零售单 m_零售单
end type
end forward

global type m_sale_fz from menu
m_0 m_0
m_产品价格 m_产品价格
m_客户物料别名 m_客户物料别名
m_2 m_2
m_- m_-
m_客户投拆单 m_客户投拆单
m_客户费用单 m_客户费用单
m_客户补件单 m_客户补件单
m_客户返利单 m_客户返利单
m_3 m_3
m_零售单 m_零售单
end type
global m_sale_fz m_sale_fz

on m_sale_fz.create
m_sale_fz=this
call super::create
this.text = "m_sale_fz"
this.m_0=create m_0
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.m_客户返利单=create m_客户返利单
this.m_3=create m_3
this.m_零售单=create m_零售单
this.Item[UpperBound(this.Item)+1]=this.m_0
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_客户补件单
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_零售单
end on

on m_sale_fz.destroy
call super::destroy
destroy(this.m_0)
destroy(this.m_产品价格)
destroy(this.m_客户物料别名)
destroy(this.m_2)
destroy(this.m_-)
destroy(this.m_客户投拆单)
destroy(this.m_客户费用单)
destroy(this.m_客户补件单)
destroy(this.m_客户返利单)
destroy(this.m_3)
destroy(this.m_零售单)
end on

type m_0 from menu within m_sale_fz
end type

event clicked;f_sys_main(107)
end event

on m_0.create
call super::create
this.text = "客户价格表"
end on

on m_0.destroy
call super::destroy
end on

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

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

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

on m_2.create
call super::create
this.text = "客户变更业务员"
end on

on m_2.destroy
call super::destroy
end on

event clicked;f_sys_main(139)
end event

type m_- from menu within m_sale_fz
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_sale_fz
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(122)
end event

type m_客户费用单 from menu within m_sale_fz
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(172)
end event

type m_客户补件单 from menu within m_sale_fz
end type

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

event clicked;f_sys_main(134)
end event

on m_客户返利单.create
call super::create
this.text = "客户返利单"
end on

on m_客户返利单.destroy
call super::destroy
end on

type m_3 from menu within m_sale_fz
end type

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

on m_3.destroy
call super::destroy
end on

type m_零售单 from menu within m_sale_fz
end type

event clicked;f_sys_main(138)
end event

on m_零售单.create
call super::create
this.text = "零售单"
end on

on m_零售单.destroy
call super::destroy
end on