$PBExportHeader$m_buy_fz.srm forward global type m_buy_fz from menu end type type m_1 from menu within m_buy_fz end type type m_供应商物料别名 from menu within m_buy_fz end type type m_0 from menu within m_buy_fz end type type m_- from menu within m_buy_fz end type type m_2 from menu within m_buy_fz end type type m_客户投拆单 from menu within m_buy_fz end type type m_产品价格 from menu within m_buy_fz end type type m_3 from menu within m_buy_fz end type type m_采购收货单仓审仓撤 from menu within m_buy_fz end type type m_采购退货单仓审仓撤 from menu within m_buy_fz end type global type m_buy_fz from menu m_1 m_1 m_供应商物料别名 m_供应商物料别名 m_0 m_0 m_- m_- m_2 m_2 m_客户投拆单 m_客户投拆单 m_产品价格 m_产品价格 m_3 m_3 m_采购收货单仓审仓撤 m_采购收货单仓审仓撤 m_采购退货单仓审仓撤 m_采购退货单仓审仓撤 end type end forward global type m_buy_fz from menu m_1 m_1 m_供应商物料别名 m_供应商物料别名 m_0 m_0 m_- m_- m_2 m_2 m_客户投拆单 m_客户投拆单 m_产品价格 m_产品价格 m_3 m_3 m_采购收货单仓审仓撤 m_采购收货单仓审仓撤 m_采购退货单仓审仓撤 m_采购退货单仓审仓撤 end type global m_buy_fz m_buy_fz on m_buy_fz.create m_buy_fz=this call super::create this.text = "m_buy_fz" this.m_1=create m_1 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_3=create m_3 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_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_3 this.Item[UpperBound(this.Item)+1]=this.m_采购收货单仓审仓撤 this.Item[UpperBound(this.Item)+1]=this.m_采购退货单仓审仓撤 end on on m_buy_fz.destroy call super::destroy destroy(this.m_1) destroy(this.m_供应商物料别名) destroy(this.m_0) destroy(this.m_-) destroy(this.m_2) destroy(this.m_客户投拆单) destroy(this.m_产品价格) destroy(this.m_3) destroy(this.m_采购收货单仓审仓撤) destroy(this.m_采购退货单仓审仓撤) end on type m_1 from menu within m_buy_fz end type event clicked;f_sys_main(412) end event on m_1.create call super::create this.text = "物料供应商价格" end on on m_1.destroy call super::destroy end on type m_供应商物料别名 from menu within m_buy_fz end type event clicked;f_sys_main(421) end event on m_供应商物料别名.create call super::create this.text = "供应商物料别名" end on on m_供应商物料别名.destroy call super::destroy end on type m_0 from menu within m_buy_fz end type event clicked;f_sys_main(125) end event on m_0.create call super::create this.text = "物料/产品价格设定" end on on m_0.destroy call super::destroy end on type m_- from menu within m_buy_fz end type on m_-.create call super::create this.text = "-" end on on m_-.destroy call super::destroy end on type m_2 from menu within m_buy_fz end type on m_2.create call super::create this.text = "供应商罚款单" end on on m_2.destroy call super::destroy end on event clicked;f_sys_main(418) end event type m_客户投拆单 from menu within m_buy_fz end type event clicked;f_sys_main(406) end event on m_客户投拆单.create call super::create this.text = "供应商投诉单" end on on m_客户投拆单.destroy call super::destroy end on type m_产品价格 from menu within m_buy_fz end type on m_产品价格.create call super::create this.text = "供应商费用单" end on on m_产品价格.destroy call super::destroy end on event clicked;f_sys_main(427) end event type m_3 from menu within m_buy_fz end type on m_3.create call super::create this.text = "-" end on on m_3.destroy call super::destroy end on type m_采购收货单仓审仓撤 from menu within m_buy_fz end type event clicked;f_sys_main(428) end event on m_采购收货单仓审仓撤.create call super::create this.text = "采购收货单仓审/仓撤" end on on m_采购收货单仓审仓撤.destroy call super::destroy end on type m_采购退货单仓审仓撤 from menu within m_buy_fz end type event clicked;f_sys_main(429) end event on m_采购退货单仓审仓撤.create call super::create this.text = "采购退货单仓审/仓撤" end on on m_采购退货单仓审仓撤.destroy call super::destroy end on