Q5/ws_objects/xls_Billprint_win.pbl.src/w_templates_monitor.srw

$PBExportHeader$w_templates_monitor.srw
$PBExportComments$分页选择窗口
forward
global type w_templates_monitor from w_xls_publ_pageretr
end type
type cb_choice from uo_xls_imflatbutton within w_templates_monitor
end type
type cb_refresh from uo_xls_imflatbutton within w_templates_monitor
end type
type dw_index from u_xls_dw_rbtnfilter within w_templates_monitor
end type
type dw_templates from u_xls_dw within w_templates_monitor
end type
type cb_add from uo_xls_imflatbutton within w_templates_monitor
end type
type cb_del from uo_xls_imflatbutton within w_templates_monitor
end type
type cb_edit from uo_xls_imflatbutton within w_templates_monitor
end type
type cb_save from uo_xls_imflatbutton within w_templates_monitor
end type
type cb_saveas from uo_xls_imflatbutton within w_templates_monitor
end type
type ole_1 from olecontrol within w_templates_monitor
end type
type cb_preview from uo_xls_imflatbutton within w_templates_monitor
end type
type cb_edittemp from uo_xls_imflatbutton within w_templates_monitor
end type
type ln_bar from line within w_templates_monitor
end type
type ln_bar2 from line within w_templates_monitor
end type
type r_bar from rectangle within w_templates_monitor
end type
type ln_1 from line within w_templates_monitor
end type
type ln_2 from line within w_templates_monitor
end type
end forward

global type w_templates_monitor from w_xls_publ_pageretr
integer width = 3611
integer height = 2380
string title = "Excel模版管理"
boolean maxbox = true
windowstate windowstate = maximized!
event retrieve_table ( )
event retrieve_templates ( )
event update_template ( )
event edit_template ( )
event delete_template ( )
event new_template ( )
event edit_template_ifpic ( )
cb_choice cb_choice
cb_refresh cb_refresh
dw_index dw_index
dw_templates dw_templates
cb_add cb_add
cb_del cb_del
cb_edit cb_edit
cb_save cb_save
cb_saveas cb_saveas
ole_1 ole_1
cb_preview cb_preview
cb_edittemp cb_edittemp
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_1 ln_1
ln_2 ln_2
end type
global w_templates_monitor w_templates_monitor

type variables
//blob blob_excel
Boolean templates_edit = FALSE
s_xls_templates s_tem
oleobject obj,tobj
String workbook = ''
//string temppwd
//string sign_begin = '<@'
//string sign_end = '@>'

uo_sendtoexcel obj_st

uo_xls_constant uo_constant



end variables

forward prototypes
public function integer wf_refresh_curuc (long arg_tid, long arg_id)
end prototypes

EVENT retrieve_table();
dw_index.Retrieve( )
END EVENT

event retrieve_templates();
IF dw_pageretr.GetRow( ) <= 0 THEN
	dw_templates.Reset() 
	BLOB NULLBLOB
	ole_1.ObjectData = NULLBLOB
	RETURN
END IF
String arg_msg
s_tem.tid = dw_pageretr.Object.tid[dw_pageretr.GetRow( )]
s_tem.TemplatesID = dw_pageretr.Object.ID[dw_pageretr.GetRow( )]
s_tem.templatesname = dw_pageretr.Object.templatesname[dw_pageretr.GetRow( )]

dw_templates.Retrieve(s_tem.tid , s_tem.TemplatesID)

cb_save.Enabled = FALSE


s_tem = obj_st.of_gettemplatedata(s_tem.tid,s_tem.TemplatesID,arg_msg)
IF IsNull(s_tem.templates ) OR s_tem.templatesname = '' THEN
	MessageBox('系统提示',arg_msg)
	RETURN
END IF
if ole_1.visible then 
	ole_1.ObjectData = s_tem.templates
else
//	dw_templates.object.ole_1.ObjectData = s_tem.templates
end if



end event

event edit_template();
IF dw_templates.GetRow( ) <= 0 THEN
	MessageBox('系统提示','请选定目标模版!')
	RETURN
END IF
TRY
	THIS.TriggerEvent( 'retrieve_templates')
	OpenWithParm(w_templates_editor,s_tem)
Catch(runtimeerror err)
	MessageBox('',err.Text)
END TRY


end event

event delete_template();
IF dw_pageretr.GetRow( ) <= 0 THEN
	MessageBox('系统提示','请选定目标模版!')
	RETURN
END IF
IF MessageBox ('系统提示',"是否确定要删除当前模版?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF
Long ls_tid,ls_TemplatesID
ls_tid = dw_pageretr.Object.tid[dw_pageretr.GetRow( )]
ls_TemplatesID = dw_pageretr.Object.ID[dw_pageretr.GetRow( )]

//uo_sendtoexcel obj_st
//obj_st = CREATE uo_sendtoexcel
//obj_st.commit_transaction = sqlca
String arg_msg
IF obj_st.of_delete_template( ls_tid ,ls_TemplatesID,TRUE, arg_msg) <> 1 THEN
	MessageBox('',arg_msg)
ELSE
	THIS.TriggerEvent('retrieve_pageretr')
	THIS.TriggerEvent('retrieve_templates')
END IF


end event

EVENT new_template();
IF dw_index.GetRow( ) <= 0 THEN
	MessageBox('系统提示','请选择模版所属的主表')
	RETURN
END IF
Long ls_tid
ls_tid = dw_index.Object.BillID[dw_index.GetRow( )]
OpenWithParm(w_xls_update_templates,ls_tid )
THIS.TriggerEvent('retrieve_pageretr')
THIS.TriggerEvent('retrieve_templates')

END EVENT

public function integer wf_refresh_curuc (long arg_tid, long arg_id);IF IsNull(arg_tid) THEN RETURN 0
IF arg_tid <= 0 THEN RETURN 0
IF IsNull(arg_id) THEN RETURN 0
IF arg_id <= 0 THEN RETURN 0

Long ll_row
ll_row = dw_pageretr.GetRow()

IF ll_row <= 0 THEN RETURN 0

Long  ifpic,defaults
String templatesname

SELECT ifpic,defaults,templatesname
	INTO  :ifpic,:defaults,:templatesname
	FROM U_XLS_Templates
	WHERE tid = :arg_tid
	AND id = :arg_id;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询模版信息失败')
	RETURN 0
END IF

dw_pageretr.Object.defaults[ll_row] = defaults
dw_pageretr.Object.templatesname[ll_row] = templatesname
dw_pageretr.Object.ifpic[ll_row] = ifpic

dw_pageretr.ResetUpdate()
dw_pageretr.SetRedraw(TRUE)

RETURN 1

end function

on w_templates_monitor.create
int iCurrent
call super::create
this.cb_choice=create cb_choice
this.cb_refresh=create cb_refresh
this.dw_index=create dw_index
this.dw_templates=create dw_templates
this.cb_add=create cb_add
this.cb_del=create cb_del
this.cb_edit=create cb_edit
this.cb_save=create cb_save
this.cb_saveas=create cb_saveas
this.ole_1=create ole_1
this.cb_preview=create cb_preview
this.cb_edittemp=create cb_edittemp
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_1=create ln_1
this.ln_2=create ln_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_choice
this.Control[iCurrent+2]=this.cb_refresh
this.Control[iCurrent+3]=this.dw_index
this.Control[iCurrent+4]=this.dw_templates
this.Control[iCurrent+5]=this.cb_add
this.Control[iCurrent+6]=this.cb_del
this.Control[iCurrent+7]=this.cb_edit
this.Control[iCurrent+8]=this.cb_save
this.Control[iCurrent+9]=this.cb_saveas
this.Control[iCurrent+10]=this.ole_1
this.Control[iCurrent+11]=this.cb_preview
this.Control[iCurrent+12]=this.cb_edittemp
this.Control[iCurrent+13]=this.ln_bar
this.Control[iCurrent+14]=this.ln_bar2
this.Control[iCurrent+15]=this.r_bar
this.Control[iCurrent+16]=this.ln_1
this.Control[iCurrent+17]=this.ln_2
end on

on w_templates_monitor.destroy
call super::destroy
destroy(this.cb_choice)
destroy(this.cb_refresh)
destroy(this.dw_index)
destroy(this.dw_templates)
destroy(this.cb_add)
destroy(this.cb_del)
destroy(this.cb_edit)
destroy(this.cb_save)
destroy(this.cb_saveas)
destroy(this.ole_1)
destroy(this.cb_preview)
destroy(this.cb_edittemp)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_1)
destroy(this.ln_2)
end on

EVENT user_key;
CALL SUPER::user_key;
IF KeyDown(KeyD!) AND KeyDown(KeyControl!) THEN
	IF cb_choice.Enabled THEN	cb_choice.TriggerEvent(Clicked!)
ELSEIF KeyDown(KeyEnter!) And (KeyDown(KeyControl!) OR retrieve_all) THEN
	IF cb_choice.Enabled THEN	cb_choice.TriggerEvent(Clicked!)
END IF

END EVENT

EVENT Key;
THIS.TriggerEvent('user_key')
END EVENT

event close; 
//CLOSEWITHRETURN(THIS,<INS_RT_STRU>)
//<INS_RT_STRU> 窗体级子定义结构变量,用于返回 
end event

event ue_sort;//
//CALL SUPER::ue_sort;
//OpenWithParm(w_xls_sortrow,dw_pageretr)
//String LS_EXPR
//LS_EXPR = Message.StringParm
//IF IsNull(LS_EXPR) THEN LS_EXPR = '   '
//IF Len(LS_EXPR) > 2 AND Trim(LS_EXPR) = '' THEN RETURN
//
//dw_pageretr.SetSort(LS_EXPR)
//
//dw_pageretr.SetRedraw (FALSE)
//dw_pageretr.Sort()
//dw_pageretr.SetRedraw (TRUE)
end event

event open;
CALL SUPER::OPEN;
//if_ue_sort = TRUE
dw_pageretr.RBUTTON_FILTER_USE = FALSE //右键查询功能开关
THIS.TriggerEvent( 'retrieve_table')
THIS.TriggerEvent( 'retrieve_templates')


end event

event resize;
CALL SUPER::Resize;
ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
ln_1.EndX = THIS.Width
ln_2.EndX = THIS.Width
r_bar.Width = THIS.Width

//dw_index.Height = THIS.Height - dw_index.Y - 150
dw_pageretr.Height =this.height - dw_index.Height - dw_index.y - 150
dw_templates.Height = THIS.Height - dw_templates.Y - 150
dw_templates.Width = THIS.Width - dw_pageretr.X - dw_pageretr.Width - 50
//
ole_1.Height =THIS.Height - ole_1.Y - 150
ole_1.Width = THIS.Width - dw_pageretr.X - dw_pageretr.Width - 50

//ole_xls.height = dw_index.height
//ole_xls.width = this.width - dw_pageretr.x - dw_pageretr.width - 50
end event

event ue_before_open;
dw_index.SetTransObject( sqlca)
dw_templates.SetTransObject( sqlca)
dw_pageretr.SetTransObject (sqlca)
uo_constant = create uo_xls_constant
obj_st = CREATE uo_sendtoexcel
obj_st.commit_transaction = sqlca
obj_st.uo_const = uo_constant



 
end event

event retrieve_pageretr;
Boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled




SetPointer(HourGlass!)
IF dw_index.GetRow( ) > 0 THEN
	dw_pageretr.Retrieve(dw_index.Object.BillID[dw_index.GetRow( )] )
	IF dw_pageretr.RowCount() > 0 then //AND dw_pageretr.GetRow() = 0 THEN
		dw_pageretr.SetRow(1)
		dw_pageretr.SelectRow(0,FALSE)
		dw_pageretr.SelectRow(1,TRUE)
	END IF
ELSE
	dw_pageretr.Reset()
END IF
SetPointer(Arrow!)



end event

type cb_func from w_xls_publ_pageretr`cb_func within w_templates_monitor
boolean visible = false
integer x = 4151
integer y = 1116
integer width = 165
integer height = 172
integer taborder = 110
string normalpicname = "setting.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_exit from w_xls_publ_pageretr`cb_exit within w_templates_monitor
string tag = "退出模版管理窗口"
integer x = 1925
integer y = 0
integer width = 165
integer height = 168
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_pageretr from w_xls_publ_pageretr`dw_pageretr within w_templates_monitor
integer y = 1332
integer width = 859
integer height = 940
boolean bringtotop = true
string title = "模版列表"
string dataobject = "dw_xls_templates_index"
boolean hscrollbar = false
boolean resizable = false
boolean border = true
boolean hsplitscroll = false
borderstyle borderstyle = stylelowered!
end type

EVENT dw_pageretr::DoubleClicked;
CALL SUPER::DoubleClicked;
//IF mode=1 AND NOT dw_edit_mode THEN
cb_choice.TriggerEvent(Clicked!)
//END IF
END EVENT

EVENT dw_pageretr::RButtonDown;
CALL SUPER::RButtonDown;
IF Not( dw_edit_mode OR row <= 0 ) THEN  THIS.SetRow(row)
END EVENT

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;parent.TriggerEvent( 'retrieve_templates')
end event

type cb_choice from uo_xls_imflatbutton within w_templates_monitor
string tag = "选定[C^+Enter]"
boolean visible = false
integer x = 4315
integer y = 1116
integer width = 165
integer height = 172
integer taborder = 110
boolean bringtotop = true
string text = "选定"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_refresh from uo_xls_imflatbutton within w_templates_monitor
string tag = "刷新窗口"
integer x = 5
integer width = 165
integer height = 168
integer taborder = 120
boolean bringtotop = true
string text = "重查"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

EVENT Clicked;
CALL SUPER::Clicked;
PARENT.TriggerEvent('retrieve_table')
PARENT.TriggerEvent('retrieve_pageretr')
PARENT.TriggerEvent('retrieve_templates')
END EVENT

type dw_index from u_xls_dw_rbtnfilter within w_templates_monitor
integer y = 188
integer width = 859
integer height = 1148
integer taborder = 30
boolean bringtotop = true
string title = "单据列表"
string dataobject = "dw_xls_bill_list"
boolean maxbox = true
boolean vscrollbar = true
end type

EVENT Clicked;
CALL SUPER::Clicked;
THIS.SetRow( row)
END EVENT

EVENT Constructor;
CALL SUPER::Constructor;
titleclick_sort_use = TRUE //单击标题排序-功能开关
RBUTTON_FILTER_USE = TRUE //右键查询-功能开关
// setcolumn_visible_USE= true //自动保存显示列-功能开关
autosave_setlayout_USE = TRUE //自动保存列位置及宽度-功能开关
END EVENT

EVENT RowFocusChanged;
CALL SUPER::RowFocusChanged;
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)
PARENT.TriggerEvent('retrieve_pageretr')
PARENT.TriggerEvent('retrieve_templates')
END EVENT

EVENT RButtonDown;
CALL SUPER::RButtonDown;
IF Not( dw_edit_mode OR row <= 0 ) THEN  THIS.SetRow(row)
END EVENT

event dberror;call super::dberror;MESSAGEBOX(sqlerrtext,sqlsyntax)
end event

type dw_templates from u_xls_dw within w_templates_monitor
boolean visible = false
integer x = 864
integer y = 188
integer width = 2729
integer height = 2084
integer taborder = 11
boolean bringtotop = true
boolean titlebar = true
string dataobject = "dw_xlt_view"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
end type

event resize;
CALL SUPER::Resize;
//THIS.Object.blob_1.Height = THIS.Height
//THIS.Object.blob_1.Width = THIS.Width
//string str 
//str = "DataWindow.details.Height=" +string(this.height)
//this.Modify(str)
end event

EVENT DoubleClicked;
CALL SUPER::DoubleClicked;
IF dwo.Name = 'blob_1' THEN
	RETURN 1
ELSE
	//messagebox('','')
	//cb_save.enabled = true
	//templates_edit = true
END IF
END EVENT

EVENT RButtonDown;
CALL SUPER::RButtonDown;
IF dw_pageretr.RowCount() = 0 THEN RETURN
m_xls_dfc_control_popupmenu dmPopupMenu
String menustr


menustr = "Text=编辑模版~tEvent=edit_template"
IF cb_save.Enabled THEN
	menustr = menustr + "|" + "Text=保存模版~tEvent=update_template"
	menustr = menustr + "|" + "Text=取消保存~tEvent=retrieve_templates"
END IF
menustr = menustr + "|" + "Text=删除模版~tEvent=delete_template"


IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_xls_dfc_control_popupmenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF
END EVENT

type cb_add from uo_xls_imflatbutton within w_templates_monitor
string tag = "上传或创建新模版"
integer x = 169
integer width = 274
integer height = 168
integer taborder = 10
boolean bringtotop = true
string text = "添加模版"
string normalpicname = "new.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

EVENT Clicked;
CALL SUPER::Clicked;
IF dw_index.GetRow( ) <= 0 THEN
	MessageBox('系统提示','请选择模版所属的主表')
	RETURN
END IF
Long ls_tid
ls_tid = dw_index.Object.BillID[dw_index.GetRow( )]
OpenWithParm(w_xls_update_templates,ls_tid )

PARENT.TriggerEvent('retrieve_pageretr')
PARENT.TriggerEvent('retrieve_templates')

END EVENT

type cb_del from uo_xls_imflatbutton within w_templates_monitor
string tag = "删除模版"
integer x = 718
integer width = 274
integer height = 168
integer taborder = 130
boolean bringtotop = true
string text = "删除模版"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

EVENT Clicked;
CALL SUPER::Clicked;



PARENT.TriggerEvent( "delete_template")

END EVENT

type cb_edit from uo_xls_imflatbutton within w_templates_monitor
string tag = "调用模版编辑器编辑模版"
integer x = 992
integer width = 274
integer height = 168
integer taborder = 20
boolean bringtotop = true
string text = "编辑模版"
string normalpicname = "Open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

EVENT Clicked;
CALL SUPER::Clicked;
PARENT.TriggerEvent( "edit_template")

END EVENT

type cb_save from uo_xls_imflatbutton within w_templates_monitor
boolean visible = false
integer x = 4485
integer y = 740
integer width = 183
integer height = 172
integer taborder = 130
boolean bringtotop = true
boolean enabled = false
string text = "保存"
string normalpicname = "new.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

EVENT Clicked;
CALL SUPER::Clicked;
PARENT.TriggerEvent( "update_template")

END EVENT

type cb_saveas from uo_xls_imflatbutton within w_templates_monitor
string tag = "将模版另存为Excel文件"
integer x = 443
integer width = 274
integer height = 168
integer taborder = 130
boolean bringtotop = true
string text = "导出模版"
string normalpicname = "Save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;
CALL Super::Clicked;
IF dw_index.GetRow( ) <= 0 THEN
	MessageBox('系统提示','请选择模版所属的主表')
	RETURN
END IF
//String savepath ,Filename
//Long li_rc
//
//li_rc = GetFileSaveName ( "保存文件", savepath, Filename,  "Excel",   "Excel 模版(*.xlt),*.xlt,Excel Files(*.xls),*.xls")
//IF li_rc = 1 THEN
	String arg_msg
	s_xls_billlist str_billlist
	str_billlist =  obj_st.of_getbillinfo(s_tem.TemplatesID,arg_msg) //根据模版获取相应的单据信息
	IF str_billlist.count <= 0 THEN
		MessageBox('错误',arg_msg)
		RETURN
	END IF
	IF obj_st.of_setoption(5, True ,True ,arg_msg) <> 1 THEN
		MessageBox('',arg_msg)
		RETURN
	END IF
	obj_st.Event oe_sendtoexcel(str_billlist)
//ELSE
//	RETURN
//END IF

end event

type ole_1 from olecontrol within w_templates_monitor
event queryinterface ( oleobject riid,  ref pointer ppvobj )
event addref ( )
event release ( )
event selectionchange ( oleobject target )
event beforedoubleclick ( oleobject target,  ref boolean cancel )
event beforerightclick ( oleobject target,  ref boolean cancel )
event activate ( )
event deactivate ( )
event calculate ( )
event change ( oleobject target )
event followhyperlink ( oleobject target )
event pivottableupdate ( oleobject target )
integer x = 864
integer y = 192
integer width = 2455
integer height = 1972
integer taborder = 21
boolean bringtotop = true
boolean focusrectangle = false
string binarykey = "w_templates_monitor.win"
omdisplaytype displaytype = displayascontent!
omcontentsallowed contentsallowed = containsany!
omlinkupdateoptions linkupdateoptions = linkupdatemanual!
sizemode sizemode = clip!
end type

EVENT RButtonDown;
IF dw_pageretr.RowCount() = 0 THEN RETURN
m_xls_dfc_control_popupmenu dmPopupMenu
String menustr


menustr = "Text=编辑模版~tEvent=edit_template"
IF cb_save.Enabled THEN
	menustr = menustr + "|" + "Text=保存模版~tEvent=update_template"
	menustr = menustr + "|" + "Text=取消保存~tEvent=retrieve_templates"
END IF
menustr = menustr + "|" + "Text=删除模版~tEvent=delete_template"


IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_xls_dfc_control_popupmenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF
END EVENT

type cb_preview from uo_xls_imflatbutton within w_templates_monitor
string tag = "预览空白模版"
integer x = 1650
integer width = 274
integer height = 168
integer taborder = 140
boolean bringtotop = true
string text = "预览模版"
string normalpicname = "PREVIEW.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;
CALL Super::Clicked;
String arg_msg

//IF obj_st.priviewtemplate( s_tem.tid ,s_tem.TemplatesID , arg_msg) <> 1 THEN MessageBox('',arg_msg)

s_xls_billlist str_billlist
str_billlist =  obj_st.of_getbillinfo(s_tem.TemplatesID,arg_msg) //根据模版获取相应的单据信息
IF str_billlist.count <= 0 THEN
	MessageBox('错误',arg_msg)
	RETURN
END IF



IF obj_st.of_setoption(4, False ,False , arg_msg) <> 1 THEN
	MessageBox('',arg_msg)
	RETURN
END IF

obj_st.Event oe_sendtoexcel(str_billlist)



end event

type cb_edittemp from uo_xls_imflatbutton within w_templates_monitor
string tag = "修改模版属性"
integer x = 1266
integer width = 384
integer height = 168
integer taborder = 140
boolean bringtotop = true
string text = "修改模版属性"
string normalpicname = "update.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;
CALL SUPER::Clicked;
IF dw_pageretr.GetRow() <= 0 THEN
	MessageBox('系统提示','请选定目标模版!')
	RETURN
END IF

TRY
	s_tem.tid = dw_pageretr.Object.tid[dw_pageretr.GetRow()]
	s_tem.templatesid = dw_pageretr.Object.id[dw_pageretr.GetRow()]
	s_tem.templatesname = dw_pageretr.Object.templatesname[dw_pageretr.GetRow()]
	s_tem.ifpic = dw_pageretr.Object.ifpic[dw_pageretr.GetRow()]
	
	OpenWithParm(w_xls_update_templates_ifpic,s_tem)
Catch(runtimeerror err)
	MessageBox('',err.Text)
END TRY

wf_refresh_curuc(s_tem.tid,s_tem.templatesid)
end event

type ln_bar from line within w_templates_monitor
long linecolor = 268435456
integer linethickness = 4
integer beginy = 176
integer endx = 2802
integer endy = 176
end type

type ln_bar2 from line within w_templates_monitor
long linecolor = 16777215
integer linethickness = 4
integer beginy = 180
integer endx = 2802
integer endy = 180
end type

type r_bar from rectangle within w_templates_monitor
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 4311
integer y = 320
integer width = 73
integer height = 172
end type

EVENT Constructor;
THIS.FillColor = 14215660
THIS.LineColor = 14215660
THIS.X = -1
THIS.Y = -1
THIS.Height = ln_bar2.BeginY - 5

END EVENT

type ln_1 from line within w_templates_monitor
boolean visible = false
long linecolor = 268435456
integer linethickness = 4
integer beginy = 300
integer endx = 2802
integer endy = 300
end type

type ln_2 from line within w_templates_monitor
boolean visible = false
long linecolor = 16777215
integer linethickness = 4
integer beginy = 304
integer endx = 2802
integer endy = 304
end type


Start of PowerBuilder Binary Data Section : Do NOT Edit
03w_templates_monitor.bin 
2400001e00e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe000000060000000000000000000000010000000100000000000010000000000200000001fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffd00000008fffffffe0000000400000005000000060000000700000009fffffffe0000000a0000000b0000000c0000000dfffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffff000000020002082000000000000000c0460000000000000000000000000000002fe515b001c88fee000000030000134000000000004f00010065006c00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000102000affffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000000000000140000000000430001006d006f004f0070006a0062000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010200120000000100000004ffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000010000006a00000000006f0057006b0072006f0062006b006f00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001020012ffffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000003000007ea00000000fffffffe00000002fffffffe0000000400000005000000060000000700000008000000090000000a0000000b0000000c0000000d0000000e0000000f000000100000001100000012000000130000001400000015000000160000001700000018000000190000001a0000001b0000001c0000001d0000001e0000001f000000200000002100000022fffffffe0000002400000025000000260000002700000028000000290000002a0000002b0000002c0000002d0000002e0000002f000000300000003100000032000000330000003400000035000000360000003700000038000000390000003a0000003b0000003c0000003d0000003efffffffe0000004000000041000000420000004300000044fffffffe000000460000004700000048fffffffe0000004a0000004b0000004cfffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
23ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff0200000100000000000000000000000000000000001d239000000000000000000000000000000000000000000000000000000000000000000000000000000000fffe000100000a03ffffffff0002082000000000000000c0460000000000001e7263694d666f736f664f20746563696663784520b9206c65b1f7d7a4000600ed69420000003866660000000e6563784568532e6c2e74656539f40038000071b20000000000000000000000000000000000000000000000000000000000000000001008090005060007cd15ec0000c0c100000306000200e100c104b000000002000000e20070005c4c00000320204251202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202000020042016104b000000002000001c00002013d009c0001000e0002000800de0000000c060000090002001900120000000000020002001301af000000000002000201bc003d000001680012298b000f00381914000000000258000100020040008d00000000000200020022000e000000010002000201b700da00000000000200140031000000f001907fff00000000010200864f535b8b00140031000000f001907fff00000000010200864f535b8b00140031000000f001907fff00000000010200864f535b8b00140031000000f001907fff00000000010200864f535b8b00140031000000f001907fff00000000010200864f535b8b00140031000000b401907fff00000000010200864f535b8b002b041e00130005e5002201230022ff23002c003000230022003b0022ffe5002d005c002c002300230023001e0030000600350401001800ffe50022002300220023002c00300023005b003b00650052005d0064ffe50022005c00220023002d0023002c003000230037041e00190007e5002201230022ff23002c003000230030002e003b003000e50022005c0022ff23002d0023002c003000230030002e001e0030000800410401001e00ffe50022002300220023002c003000230030002e003b00300052005b006400650022005d0022ffe5002d005c002c002300230023002e0030003000300069041e0032002a20005f01e50022002a0022ff2300200023002c003000230020005f005f003b002200200022ffe50020002a002d005c002c002300230023005f0030003b00200020005f00e50022002a0022ff2200200022002d0020005f005f003b004000200020005f002e041e0029002900205f00002c23202a5f302323205f3b202d5c202a23232c233b205f30202a205f5f222d22205f3b201e205f402c00790401003a000020005fffe50022002a0022002300200023002c003000230030002e005f0030003b00200020005fffe50022002a0022005c00200023002d0023002c003000230030002e005f0030003b00200020005fffe50022002a0022002200200022002d003f003f0020005f005f003b004000200020005f0036041e0031002b2a205f00232c2320302e30233b205f30202a205f2c232d5c2e302323205f30302a205f3b222d2220205f3f3f40205f3b041e205f0017001a5c000015232c2324295f30235c285c3b232c2324295c3023001f041e001a001823245c003023232c5b3b295f5d646552245c285c23232c231e295c301900200400001b002c23245c2e302323295f30305c285c3b232c2324302e30231e295c301a002504000020002c23245c2e302323295f303065525b3b285c5d642c23245c2e302323295c3030001400e0000000000010fff5000000000000000020c00000001400e0000000010010fff50000f4000000000020c00000001400e0000000010010fff50000f4000000000020c00000001400e0000000020010fff50000f4000000000020c00000001400e0000000020010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e0000000000010fff50000f4000000000020c00000001400e00000000000100001000000000000000020c00000001400e0000900050010fff50000f8000000000020c00000001400e0002c00050010fff50000f8000000000020c00000001400e0002a00050010fff50000f8000000000020c00000001400e0002b00050010fff50000f8000000000020c00000001400e0002900050010fff50000f8000000000020c0000000040293ff05801000040293ff00800000040293ff04801100040293ff07801200040293ff03801300040293ff068014000201600085000006f7000e0000000068530006317465650004008c00560056000801c1000001c10001be22000800fc0000000000000000
21000200ff0863000808630015000000000000000000150000000000000aae00000900000000001008ec001006c107cd15060000c00d0000030100020002000c000f006400010002000200110010000000fc0008004dd2f1a95f3f50620100020002002a002b0000000000020002008200800001000000080000000000250000000000040281011d00c100020000001404000015000200830084000000000002002200a1001d00000001000101040001000000000000000000e00000000000003fe00000005500003f080002000e0200000000000001000000000000003e000000b6001202000000060000400000000000000000000f001d0000000300000000000000000100000000000600ef00370006000a0000000000000000000000000000000000000000000000000000ffffffff000000030000000400000001ffffffff000000020000000000003431000013be0000066a0009000103350300000400000000000c000400000103000000050008020b0000000000000000000500c0020c000501fa020900000000000000000005ffff0201000400ff010400000004000d0102000000030002001e000000000004ffff0127000000030004001e012700000003ffff001e000000000005ffff0201000500ff020900000000000000000004ffff0127000000030005001e0201000000ffffff0000000500000209000700000416000001f900bf0000000000000004ffff0127000000030005001e0201000000ffffff0000000500000209000700000416000001f900bf0000000000000004ffff0127000000030005001e0201000000ffffff0000000500000209000700000416000001f900bf00010001004f00020065006c0072005000730065003000300000003000000000000000000000000000000000000000000000000000000000000000000000000000000000000200180000000300000006ffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000023000006d800000000004f00020065006c007200500073006500300030000000310000000000000000000000000000000000000000000000000000000000000000000000000000000000020018ffffffffffffffffffffffff0000000000000000000000000000000000000000000000000000000000000000000000000000003f000001780000000000530005006d00750061006d00790072006e0049006f0066006d007200740061006f00690000006e000000000000000000000000000000000000000000000000010200280000000500000007ffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000045000000c800000000004400050063006f006d0075006e006500530074006d00750061006d00790072006e0049006f0066006d007200740061006f00690000006e000000000000000000020038ffffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000049000000f00000000000000004ffff0127000000030005001e0201000000ffffff0000000500000209000700000416000001f900bf0000000000000007000002fc00c0c0c000040000012d0000000500000209000000c0c0c000000005c0c00201000400c0010400000004000d010200000008000202fa000000000000c0c00000000400c0012d00000005000102140000000000000000000500000213000801f802fa0000000000000000000000040000012d0000000c00020940000000f000210000000000010000000001f800040000012d00000005000102140000000000130000000500130213000401f8012d0000000c00020940000000f000210000000000010000001301f800040000012d00000005000102140000000000260000000500260213000401f8012d0000000c00020940000000f000210000000000010000002601f800040000012d00000005000102140000000000390000000500390213000401f8012d0000000c00020940000000f000210000000000010000003901f800040000012d000000050001021400000000004c00000005004c0213000401f8012d0000000c00020940000000f000210000000000010000004c01f800040000012d000000050001021400000000005f00000005005f0213000401f8012d0000000c00020940000000f000210000000000010000005f01f800040000012d00000005000102140000000000720000000500720213000401f8012d0000000c00020940000000f000210000000000010000007201f800040000012d00000005000102140000000000850000000500850213000401f8012d0000000c00020940000000f000210000000000010000008501f800040000012d00000005000102140000000000980000000500980213000401f8012d0000000c00020940000000f000210000000000010000009801f800040000012d00000005000102140000000000ab0000000500ab0213000401f8012d0000000c00020940000000f00021000000000001000000ab01f800040000012d00000005000102140000000000be0000000500be0213000401f8012d0000000c00020940000000f00021000000000001000000be01f800040000012d00000005000102140000000000000000000500bf021300040000012d0000000c00020940000000f000210000000000bf00000000000100040000012d0000
270005000102140000004800000000000500bf021300040048012d0000000c00020940000000f000210000000000bf00000000000100040048012d00000005000102140000009000000000000500bf021300040090012d0000000c00020940000000f000210000000000bf00000000000100040090012d0000000500010214000000d800000000000500bf0213000400d8012d0000000c00020940000000f000210000000000bf000000000001000400d8012d00000005000102140000012000000000000500bf021300040120012d0000000c00020940000000f000210000000000bf00000000000100040120012d00000005000102140000016800000000000500bf021300040168012d0000000c00020940000000f000210000000000bf00000000000100040168012d0000000500010214000001b000000000000500bf0213000401b0012d0000000c00020940000000f000210000000000bf000000000001000401b0012d0000000500010214000001f800000000000500bf0213000401f8012d0000000c00020940000000f000210000000000bf000000000001000701f802fc00000000000000000000000000040003012d00000004ffff0127000000030005001e0201000000c0c0c000000005c0c00209000700c00416000001f900bf0001000100000004ffff0127000000030000000000000000000000000000000000000000494e414e00000001ffffffff000000030000000000000004ffffffff00000020000009ec000007c000000006000000070000001800000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffff000000030000000400000004ffffffff0000000700000000000009ec000007c00000013e00090001009f03000001000000000029000400000103000000050008020b00000000000000000005004b020c00050060020900000000000000000005ffff0201000a00ff062600000009000f6e6f6349796c6e4f0005000002090000000000000000000500010102001c000002fb00000000fff500000000000001900000010061540000616d6f68085403003060c30ad21877c194960012306077be068477c10004a766012d000000050000012e0000000000060000000e00240a32000600300000000400600000a4b9004bedb1f7d7000000050001012e00290000062600000048000f575c3a434f444e49495c53576174736e72656c6c30397b5c38303131362d34302d303030334431314643382d31302d4534303035333833385c7d394363696c782e736e6f0065786500000006000f06260031000200000003000000000000000000000000000000000000000000000000000000000000fffe000202050000000000000000000000000000000000000001f29f85e010684ff9000891abd9b3272b00000030000000980000000700000001000000400000000400000048000000080000005400000012000000600000000c000000780000000d00000084000000130000009000000002000003a80000001e000000040042514c0000001e000000040042514c0000001e000000107263694d666f736f78452074006c6563000000406b93388001c708bd000000406d5cfc0001c708bd000000030000000003820293000010000014017800196100000000000000000000000000000000000000000000000000000000000000000000000000000000000000fffe000202050000000000000000000000000000000000000001d5cdd502101b2e9c00089793aef92c2b00000030000000c00000000900000001000000500000000f0000005800000017000000640000000b0000006c0000001000000074000000130000007c00000016000000840000000d0000008c0000000c0000009f00000002000003a80000001e000000040000000000000003000b15e60000000b000000000000000b000000000000000b000000000000000b000000000000101e0000000100000007656568530c003174020000101e00000007000000b9000000b1f7d7a4000300ed000100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
13w_templates_monitor.bin 
End of PowerBuilder Binary Data Section : No Source Expected After This Point