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

$PBExportHeader$m_jg_fz.srm
forward
global type m_jg_fz from menu
end type
type m_外协损耗单 from menu within m_jg_fz
end type
type m_外协商罚款单 from menu within m_jg_fz
end type
type m_0 from menu within m_jg_fz
end type
type m_1 from menu within m_jg_fz
end type
type m_产品价格 from menu within m_jg_fz
end type
type m_客户投拆单 from menu within m_jg_fz
end type
type m_外协商盘点表 from menu within m_jg_fz
end type
type m_外协商盘盈单 from menu within m_jg_fz
end type
type m_外协商盘亏单 from menu within m_jg_fz
end type
type m_外协商库存成本价调整单 from menu within m_jg_fz
end type
global type m_jg_fz from menu
m_外协损耗单 m_外协损耗单
m_外协商罚款单 m_外协商罚款单
m_0 m_0
m_1 m_1
m_产品价格 m_产品价格
m_客户投拆单 m_客户投拆单
m_外协商盘点表 m_外协商盘点表
m_外协商盘盈单 m_外协商盘盈单
m_外协商盘亏单 m_外协商盘亏单
m_外协商库存成本价调整单 m_外协商库存成本价调整单
end type
end forward

global type m_jg_fz from menu
m_外协损耗单 m_外协损耗单
m_外协商罚款单 m_外协商罚款单
m_0 m_0
m_1 m_1
m_产品价格 m_产品价格
m_客户投拆单 m_客户投拆单
m_外协商盘点表 m_外协商盘点表
m_外协商盘盈单 m_外协商盘盈单
m_外协商盘亏单 m_外协商盘亏单
m_外协商库存成本价调整单 m_外协商库存成本价调整单
end type
global m_jg_fz m_jg_fz

on m_jg_fz.create
m_jg_fz=this
call super::create
this.text = "m_jg_fz"
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_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_外协损耗单
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_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_jg_fz.destroy
call super::destroy
destroy(this.m_外协损耗单)
destroy(this.m_外协商罚款单)
destroy(this.m_0)
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_外协损耗单 from menu within m_jg_fz
end type

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

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

event clicked;f_sys_main(412)
end event

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_1 from menu within m_jg_fz
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

event clicked;f_sys_main(410)

end event

type m_产品价格 from menu within m_jg_fz
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(427)
end event

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

type m_外协商盘点表 from menu within m_jg_fz
end type

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

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

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

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