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

$PBExportHeader$m_buy_rp.srm
forward
global type m_buy_rp from menu
end type
type m_客户投拆单 from menu within m_buy_rp
end type
type m_采购金额汇总对比表 from menu within m_buy_rp
end type
type m_-0 from menu within m_buy_rp
end type
type m_供应商费用统计表 from menu within m_buy_rp
end type
type m_2 from menu within m_buy_rp
end type
type m_产品价格 from menu within m_buy_rp
end type
type m_- from menu within m_buy_rp
end type
type m_客户费用单 from menu within m_buy_rp
end type
global type m_buy_rp from menu
m_客户投拆单 m_客户投拆单
m_采购金额汇总对比表 m_采购金额汇总对比表
m_-0 m_-0
m_供应商费用统计表 m_供应商费用统计表
m_2 m_2
m_产品价格 m_产品价格
m_- m_-
m_客户费用单 m_客户费用单
end type
end forward

global type m_buy_rp from menu
m_客户投拆单 m_客户投拆单
m_采购金额汇总对比表 m_采购金额汇总对比表
m_-0 m_-0
m_供应商费用统计表 m_供应商费用统计表
m_2 m_2
m_产品价格 m_产品价格
m_- m_-
m_客户费用单 m_客户费用单
end type
global m_buy_rp m_buy_rp

on m_buy_rp.create
m_buy_rp=this
call super::create
this.text = "m_buy_rp"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
this.m_客户投拆单=create m_客户投拆单
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_客户费用单=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_-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_客户费用单
end on

on m_buy_rp.destroy
call super::destroy
destroy(this.m_客户投拆单)
destroy(this.m_采购金额汇总对比表)
destroy(this.m_-0)
destroy(this.m_供应商费用统计表)
destroy(this.m_2)
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_buy_rp
end type

event clicked;f_sys_main(413)
end event

on m_客户投拆单.create
call super::create
this.text = "物料采购价格浮动表"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

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

type m_采购金额汇总对比表 from menu within m_buy_rp
end type

event clicked;f_sys_main(430)
end event

on m_采购金额汇总对比表.create
call super::create
this.text = "采购金额汇总对比表"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_采购金额汇总对比表.destroy
call super::destroy
end on

type m_-0 from menu within m_buy_rp
end type

on m_-0.create
call super::create
this.text = "-"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

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

type m_供应商费用统计表 from menu within m_buy_rp
end type

event clicked;f_sys_main(190)
end event

on m_供应商费用统计表.create
call super::create
this.text = "供应商费用统计表"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_供应商费用统计表.destroy
call super::destroy
end on

type m_2 from menu within m_buy_rp
end type

event clicked;f_sys_main(422)
end event

on m_2.create
call super::create
this.text = "供应商罚款单明细表"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_2.destroy
call super::destroy
end on

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

event clicked;f_sys_main(414)

end event

on m_产品价格.create
call super::create
this.text = "供应商投诉单明细表"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_产品价格.destroy
call super::destroy
end on

type m_- from menu within m_buy_rp
end type

on m_-.create
call super::create
this.text = "-"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

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

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

on m_客户费用单.create
call super::create
this.text = "库存报警表 "
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

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

event clicked;f_sys_main(321)
end event