$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