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

$PBExportHeader$m_cw_fz.srm
forward
global type m_cw_fz from menu
end type
type m_1 from menu within m_cw_fz
end type
type m_供应商对数单 from menu within m_cw_fz
end type
type m_销售发货单财审 from menu within m_cw_fz
end type
type m_销售退货单财审 from menu within m_cw_fz
end type
type m_2 from menu within m_cw_fz
end type
type m_0 from menu within m_cw_fz
end type
type m_会计总帐连接设置 from menu within m_cw_fz
end type
type m_3 from menu within m_cw_fz
end type
type m_其他应收单 from menu within m_cw_fz
end type
type m_其他收款单 from menu within m_cw_fz
end type
type m_其他应付单 from menu within m_cw_fz
end type
type m_其他付款单 from menu within m_cw_fz
end type
global type m_cw_fz from menu
m_1 m_1
m_供应商对数单 m_供应商对数单
m_销售发货单财审 m_销售发货单财审
m_销售退货单财审 m_销售退货单财审
m_2 m_2
m_0 m_0
m_会计总帐连接设置 m_会计总帐连接设置
m_3 m_3
m_其他应收单 m_其他应收单
m_其他收款单 m_其他收款单
m_其他应付单 m_其他应付单
m_其他付款单 m_其他付款单
end type
end forward

global type m_cw_fz from menu
m_1 m_1
m_供应商对数单 m_供应商对数单
m_销售发货单财审 m_销售发货单财审
m_销售退货单财审 m_销售退货单财审
m_2 m_2
m_0 m_0
m_会计总帐连接设置 m_会计总帐连接设置
m_3 m_3
m_其他应收单 m_其他应收单
m_其他收款单 m_其他收款单
m_其他应付单 m_其他应付单
m_其他付款单 m_其他付款单
end type
global m_cw_fz m_cw_fz

on m_cw_fz.create
m_cw_fz=this
call super::create
this.text = "m_cw_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_1=create m_1
this.m_供应商对数单=create m_供应商对数单
this.m_销售发货单财审=create m_销售发货单财审
this.m_销售退货单财审=create m_销售退货单财审
this.m_2=create m_2
this.m_0=create m_0
this.m_会计总帐连接设置=create m_会计总帐连接设置
this.m_3=create m_3
this.m_其他应收单=create m_其他应收单
this.m_其他收款单=create m_其他收款单
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_销售发货单财审
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_0
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_其他收款单
this.Item[UpperBound(this.Item)+1]=this.m_其他应付单
this.Item[UpperBound(this.Item)+1]=this.m_其他付款单
end on

on m_cw_fz.destroy
call super::destroy
destroy(this.m_1)
destroy(this.m_供应商对数单)
destroy(this.m_销售发货单财审)
destroy(this.m_销售退货单财审)
destroy(this.m_2)
destroy(this.m_0)
destroy(this.m_会计总帐连接设置)
destroy(this.m_3)
destroy(this.m_其他应收单)
destroy(this.m_其他收款单)
destroy(this.m_其他应付单)
destroy(this.m_其他付款单)
end on

type m_1 from menu within m_cw_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(538)

end event

type m_供应商对数单 from menu within m_cw_fz
end type

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

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

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

event clicked;f_sys_main(131)
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_0 from menu within m_cw_fz
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_cw_fz
end type

event clicked;f_sys_main(542)
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_3 from menu within m_cw_fz
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

type m_其他应收单 from menu within m_cw_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(565)
end event

type m_其他收款单 from menu within m_cw_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(566)
end event

type m_其他应付单 from menu within m_cw_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(567)
end event

type m_其他付款单 from menu within m_cw_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(568)
end event