Q5/ws_objects/xls_Billprint_uo.pbl.src/xls_menuitem.srm

$PBExportHeader$xls_menuitem.srm
forward
global type xls_menuitem from menu
end type
type m_xls from menu within xls_menuitem
end type
type m_发送数据 from menu within m_xls
end type
type m_打印预览 from menu within m_xls
end type
type m_直接打印 from menu within m_xls
end type
type m_直接保存 from menu within m_xls
end type
type m_预览模版 from menu within m_xls
end type
type m_保存模版 from menu within m_xls
end type
type m_xls from menu within xls_menuitem
m_发送数据 m_发送数据
m_打印预览 m_打印预览
m_直接打印 m_直接打印
m_直接保存 m_直接保存
m_预览模版 m_预览模版
m_保存模版 m_保存模版
end type
type m_excel模版 from menu within xls_menuitem
end type
global type xls_menuitem from menu
m_xls m_xls
m_excel模版 m_excel模版
end type
end forward

global type xls_menuitem from menu
m_xls m_xls
m_excel模版 m_excel模版
end type
global xls_menuitem xls_menuitem

forward prototypes
public subroutine mf_sendtoxls (long arg_actionid, long arg_templateid)
end prototypes

public subroutine mf_sendtoxls (long arg_actionid, long arg_templateid);	uo_sendtoexcel obj_xls
	IF Not IsValid(ParentWindow) THEN
		return
		obj_xls = Create uo_sendtoexcel
	ELSEIF ParentWindow.ClassName( ) <> "uo_sendtoexcel" THEN
		return
		obj_xls = Create uo_sendtoexcel
	ELSE
		powerobject po
		po = ParentWindow
		obj_xls = po
	END IF
	IF MicroHelp = '' THEN
		obj_xls.event oe_invoke_ouerevent(arg_actionid,arg_templateid,obj_xls) 
//	ELSE	
//		obj_xls.event oe_sendtoexcel( Long(Tag))
	END IF
end subroutine

on xls_menuitem.create
xls_menuitem=this
call super::create
this.text = "xls_menuitem"
this.m_xls=create m_xls
this.m_excel模版=create m_excel模版
this.Item[UpperBound(this.Item)+1]=this.m_xls
this.Item[UpperBound(this.Item)+1]=this.m_excel模版
end on

on xls_menuitem.destroy
call super::destroy
destroy(this.m_xls)
destroy(this.m_excel模版)
end on

event clicked;IF UpperBound(Item) = 0 THEN
	if m_xls.tag = '' then return
	if not isnumber(m_xls.tag) then return
	uo_sendtoexcel obj_xls
	IF Not IsValid(ParentWindow) THEN
		return
		obj_xls = Create uo_sendtoexcel
	ELSEIF ParentWindow.ClassName( ) <> "uo_sendtoexcel" THEN
		return
		obj_xls = Create uo_sendtoexcel
	ELSE
		powerobject po
		po = ParentWindow
		obj_xls = po
	END IF
	IF MicroHelp = '' THEN
		obj_xls.event oe_invoke_ouerevent(3,Long(m_xls.Tag),obj_xls) 
//	ELSE	
//		obj_xls.event oe_sendtoexcel( Long(Tag))
	END IF
END IF


end event

type m_xls from menu within xls_menuitem
m_发送数据 m_发送数据
m_打印预览 m_打印预览
m_直接打印 m_直接打印
m_直接保存 m_直接保存
m_预览模版 m_预览模版
m_保存模版 m_保存模版
end type

on m_xls.create
call super::create
this.visible = false
this.text = "Excel模版"
this.enabled = false
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_直接打印
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_xls.destroy
call super::destroy
destroy(this.m_发送数据)
destroy(this.m_打印预览)
destroy(this.m_直接打印)
destroy(this.m_直接保存)
destroy(this.m_预览模版)
destroy(this.m_保存模版)
end on

event clicked;IF UpperBound(Item) = 0 THEN
	if tag = '' then return
	if not isnumber(tag) then return
	mf_sendtoxls(1,Long(Tag))
//	uo_sendtoexcel obj_xls
//	IF Not IsValid(ParentWindow) THEN
//		return
//		obj_xls = Create uo_sendtoexcel
//	ELSEIF ParentWindow.ClassName( ) <> "uo_sendtoexcel" THEN
//		return
//		obj_xls = Create uo_sendtoexcel
//	ELSE
//		powerobject po
//		po = ParentWindow
//		obj_xls = po
//	END IF
//	IF MicroHelp = '' THEN
//		obj_xls.event oe_invoke_ouerevent(0,Long(Tag),obj_xls) 
////	ELSE	
////		obj_xls.event oe_sendtoexcel( Long(Tag))
//	END IF
END IF


end event

type m_发送数据 from menu within m_xls
end type

on m_发送数据.create
call super::create
this.text = "发送数据[&F]"
end on

on m_发送数据.destroy
call super::destroy
end on

event clicked;IF UpperBound(Item) = 0 THEN
	if m_xls.tag = '' then return
	if not isnumber(m_xls.tag) then return	
	mf_sendtoxls(0,Long(m_xls.Tag))
END IF


end event

type m_打印预览 from menu within m_xls
end type

on m_打印预览.create
call super::create
this.text = "打印预览[&V]"
end on

on m_打印预览.destroy
call super::destroy
end on

event clicked;IF UpperBound(Item) = 0 THEN
	if m_xls.tag = '' then return
	if not isnumber(m_xls.tag) then return
	mf_sendtoxls(1,Long(m_xls.Tag))
END IF


end event

type m_直接打印 from menu within m_xls
end type

on m_直接打印.create
call super::create
this.text = "直接打印[&P]"
end on

on m_直接打印.destroy
call super::destroy
end on

event clicked;IF UpperBound(Item) = 0 THEN
	if m_xls.tag = '' then return
	if not isnumber(m_xls.tag) then return
mf_sendtoxls(2,Long(m_xls.Tag))
END IF


end event

type m_直接保存 from menu within m_xls
end type

on m_直接保存.create
call super::create
this.text = "直接保存[S]"
end on

on m_直接保存.destroy
call super::destroy
end on

event clicked;IF UpperBound(Item) = 0 THEN
	if m_xls.tag = '' then return
	if not isnumber(m_xls.tag) then return
mf_sendtoxls(3,Long(m_xls.Tag))
END IF


end event

type m_预览模版 from menu within m_xls
end type

event clicked;IF UpperBound(Item) = 0 THEN
	if m_xls.tag = '' then return
	if not isnumber(m_xls.tag) then return
mf_sendtoxls(4,Long(m_xls.Tag))
END IF


end event

on m_预览模版.create
call super::create
this.visible = false
this.text = "预览模版[&M]"
end on

on m_预览模版.destroy
call super::destroy
end on

type m_保存模版 from menu within m_xls
end type

event clicked;IF UpperBound(Item) = 0 THEN
	if m_xls.tag = '' then return
	if not isnumber(m_xls.tag) then return
mf_sendtoxls(5,Long(m_xls.Tag))
END IF


end event

on m_保存模版.create
call super::create
this.visible = false
this.text = "保存模版[&O]"
end on

on m_保存模版.destroy
call super::destroy
end on

type m_excel模版 from menu within xls_menuitem
end type

on m_excel模版.create
call super::create
this.visible = false
this.text = "Excel模版"
end on

on m_excel模版.destroy
call super::destroy
end on

event clicked;IF UpperBound(Item) = 0 THEN
	if tag = '' then return
	if not isnumber(tag) then return
	mf_sendtoxls(1,Long(Tag))
//	uo_sendtoexcel obj_xls
//	IF Not IsValid(ParentWindow) THEN
//		return
//		obj_xls = Create uo_sendtoexcel
//	ELSEIF ParentWindow.ClassName( ) <> "uo_sendtoexcel" THEN
//		return
//		obj_xls = Create uo_sendtoexcel
//	ELSE
//		powerobject po
//		po = ParentWindow
//		obj_xls = po
//	END IF
//	IF MicroHelp = '' THEN
//		obj_xls.event oe_invoke_ouerevent(0,Long(Tag),obj_xls) 
////	ELSE	
////		obj_xls.event oe_sendtoexcel( Long(Tag))
//	END IF
END IF


end event