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

$PBExportHeader$m_buy_fz.srm
forward
global type m_buy_fz from menu
end type
type m_1 from menu within m_buy_fz
end type
type m_供应商物料别名 from menu within m_buy_fz
end type
type m_0 from menu within m_buy_fz
end type
type m_- from menu within m_buy_fz
end type
type m_2 from menu within m_buy_fz
end type
type m_客户投拆单 from menu within m_buy_fz
end type
type m_产品价格 from menu within m_buy_fz
end type
type m_3 from menu within m_buy_fz
end type
type m_采购收货单仓审仓撤 from menu within m_buy_fz
end type
type m_采购退货单仓审仓撤 from menu within m_buy_fz
end type
global type m_buy_fz from menu
m_1 m_1
m_供应商物料别名 m_供应商物料别名
m_0 m_0
m_- m_-
m_2 m_2
m_客户投拆单 m_客户投拆单
m_产品价格 m_产品价格
m_3 m_3
m_采购收货单仓审仓撤 m_采购收货单仓审仓撤
m_采购退货单仓审仓撤 m_采购退货单仓审仓撤
end type
end forward

global type m_buy_fz from menu
m_1 m_1
m_供应商物料别名 m_供应商物料别名
m_0 m_0
m_- m_-
m_2 m_2
m_客户投拆单 m_客户投拆单
m_产品价格 m_产品价格
m_3 m_3
m_采购收货单仓审仓撤 m_采购收货单仓审仓撤
m_采购退货单仓审仓撤 m_采购退货单仓审仓撤
end type
global m_buy_fz m_buy_fz

on m_buy_fz.create
m_buy_fz=this
call super::create
this.text = "m_buy_fz"
this.m_1=create m_1
this.m_供应商物料别名=create m_供应商物料别名
this.m_0=create m_0
this.m_-=create m_-
this.m_2=create m_2
this.m_客户投拆单=create m_客户投拆单
this.m_产品价格=create m_产品价格
this.m_3=create m_3
this.m_采购收货单仓审仓撤=create m_采购收货单仓审仓撤
this.m_采购退货单仓审仓撤=create 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_0
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_3
this.Item[UpperBound(this.Item)+1]=this.m_采购收货单仓审仓撤
this.Item[UpperBound(this.Item)+1]=this.m_采购退货单仓审仓撤
end on

on m_buy_fz.destroy
call super::destroy
destroy(this.m_1)
destroy(this.m_供应商物料别名)
destroy(this.m_0)
destroy(this.m_-)
destroy(this.m_2)
destroy(this.m_客户投拆单)
destroy(this.m_产品价格)
destroy(this.m_3)
destroy(this.m_采购收货单仓审仓撤)
destroy(this.m_采购退货单仓审仓撤)
end on

type m_1 from menu within m_buy_fz
end type

event clicked;f_sys_main(412)

end event

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

event clicked;f_sys_main(421)

end event

on m_供应商物料别名.create
call super::create
this.text = "供应商物料别名"
end on

on m_供应商物料别名.destroy
call super::destroy
end on

type m_0 from menu within m_buy_fz
end type

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

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_buy_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(418)
end event

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

event clicked;f_sys_main(406)
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_buy_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(427)
end event

type m_3 from menu within m_buy_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_buy_fz
end type

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

event clicked;f_sys_main(429)
end event

on m_采购退货单仓审仓撤.create
call super::create
this.text = "采购退货单仓审/仓撤"
end on

on m_采购退货单仓审仓撤.destroy
call super::destroy
end on