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

$PBExportHeader$m_ware_fz_biz.srm
forward
global type m_ware_fz_biz from menu
end type
type m_3 from menu within m_ware_fz_biz
end type
type m_4 from menu within m_ware_fz_biz
end type
type m_物料监控表 from menu within m_ware_fz_biz
end type
type m_5 from menu within m_ware_fz_biz
end type
type m_2 from menu within m_ware_fz_biz
end type
type m_产品计划价调整单 from menu within m_ware_fz_biz
end type
type m_1 from menu within m_ware_fz_biz
end type
type m_客户投拆单 from menu within m_ware_fz_biz
end type
type m_客户费用单 from menu within m_ware_fz_biz
end type
type m_客户补件单 from menu within m_ware_fz_biz
end type
type m_产品价格 from menu within m_ware_fz_biz
end type
type m_库存配置调整单 from menu within m_ware_fz_biz
end type
type m_扣费品领用单 from menu within m_ware_fz_biz
end type
global type m_ware_fz_biz from menu
m_3 m_3
m_4 m_4
m_物料监控表 m_物料监控表
m_5 m_5
m_2 m_2
m_产品计划价调整单 m_产品计划价调整单
m_1 m_1
m_客户投拆单 m_客户投拆单
m_客户费用单 m_客户费用单
m_客户补件单 m_客户补件单
m_产品价格 m_产品价格
m_库存配置调整单 m_库存配置调整单
m_扣费品领用单 m_扣费品领用单
end type
end forward

global type m_ware_fz_biz from menu
m_3 m_3
m_4 m_4
m_物料监控表 m_物料监控表
m_5 m_5
m_2 m_2
m_产品计划价调整单 m_产品计划价调整单
m_1 m_1
m_客户投拆单 m_客户投拆单
m_客户费用单 m_客户费用单
m_客户补件单 m_客户补件单
m_产品价格 m_产品价格
m_库存配置调整单 m_库存配置调整单
m_扣费品领用单 m_扣费品领用单
end type
global m_ware_fz_biz m_ware_fz_biz

on m_ware_fz_biz.create
m_ware_fz_biz=this
call super::create
this.text = "m_ware_fz1"
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_3=create m_3
this.m_4=create m_4
this.m_物料监控表=create m_物料监控表
this.m_5=create m_5
this.m_2=create m_2
this.m_产品计划价调整单=create m_产品计划价调整单
this.m_1=create m_1
this.m_客户投拆单=create m_客户投拆单
this.m_客户费用单=create m_客户费用单
this.m_客户补件单=create m_客户补件单
this.m_产品价格=create m_产品价格
this.m_库存配置调整单=create m_库存配置调整单
this.m_扣费品领用单=create m_扣费品领用单
this.Item[UpperBound(this.Item)+1]=this.m_3
this.Item[UpperBound(this.Item)+1]=this.m_4
this.Item[UpperBound(this.Item)+1]=this.m_物料监控表
this.Item[UpperBound(this.Item)+1]=this.m_5
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_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_客户补件单
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_fz_biz.destroy
call super::destroy
destroy(this.m_3)
destroy(this.m_4)
destroy(this.m_物料监控表)
destroy(this.m_5)
destroy(this.m_2)
destroy(this.m_产品计划价调整单)
destroy(this.m_1)
destroy(this.m_客户投拆单)
destroy(this.m_客户费用单)
destroy(this.m_客户补件单)
destroy(this.m_产品价格)
destroy(this.m_库存配置调整单)
destroy(this.m_扣费品领用单)
end on

type m_3 from menu within m_ware_fz_biz
end type

on m_3.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_3.destroy
call super::destroy
end on

event clicked;f_sys_main(331)
end event

type m_4 from menu within m_ware_fz_biz
end type

event clicked;f_sys_main(312)
end event

on m_4.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_4.destroy
call super::destroy
end on

type m_物料监控表 from menu within m_ware_fz_biz
end type

event clicked;f_sys_main(209)
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_5 from menu within m_ware_fz_biz
end type

on m_5.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_5.destroy
call super::destroy
end on

type m_2 from menu within m_ware_fz_biz
end type

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

event clicked;f_sys_main(333)
end event

type m_产品计划价调整单 from menu within m_ware_fz_biz
end type

event clicked;f_sys_main(424)
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_1 from menu within m_ware_fz_biz
end type

on m_1.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_1.destroy
call super::destroy
end on

type m_客户投拆单 from menu within m_ware_fz_biz
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(314)
end event

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

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

event clicked;f_sys_main(306)

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

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

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

event clicked;f_sys_main(329)
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