Q5/ws_objects/Ew_mainface.pbl.src/w_msg_list_main.srw

$PBExportHeader$w_msg_list_main.srw
forward
global type w_msg_list_main from w_publ_base
end type
type tab_1 from tab within w_msg_list_main
end type
type tabpage_2 from userobject within tab_1
end type
type cbx_showmeredeal from checkbox within tabpage_2
end type
type dw_msg_rec from u_dw_rbtnfilter within tabpage_2
end type
type tab_5 from tab within tabpage_2
end type
type tabpage_12 from userobject within tab_5
end type
type dw_msg_content from multilineedit within tabpage_12
end type
type tabpage_12 from userobject within tab_5
dw_msg_content dw_msg_content
end type
type tabpage_13 from userobject within tab_5
end type
type lv_in_fj from uo_msg_lv within tabpage_13
end type
type tabpage_13 from userobject within tab_5
lv_in_fj lv_in_fj
end type
type tab_5 from tab within tabpage_2
tabpage_12 tabpage_12
tabpage_13 tabpage_13
end type
type st_retrieve from uo_text_m_main within tabpage_2
end type
type st_read from uo_text_m_main within tabpage_2
end type
type st_del from uo_text_m_main within tabpage_2
end type
type p_retrieve from picture within tabpage_2
end type
type p_back_msg from picture within tabpage_2
end type
type p_del from picture within tabpage_2
end type
type st_back_msg from uo_text_m_main within tabpage_2
end type
type tabpage_2 from userobject within tab_1
cbx_showmeredeal cbx_showmeredeal
dw_msg_rec dw_msg_rec
tab_5 tab_5
st_retrieve st_retrieve
st_read st_read
st_del st_del
p_retrieve p_retrieve
p_back_msg p_back_msg
p_del p_del
st_back_msg st_back_msg
end type
type tabpage_3 from userobject within tab_1
end type
type tab_3 from tab within tabpage_3
end type
type tabpage_5 from userobject within tab_3
end type
type mle_msg from multilineedit within tabpage_5
end type
type tabpage_5 from userobject within tab_3
mle_msg mle_msg
end type
type tabpage_7 from userobject within tab_3
end type
type lv_out_fj from uo_msg_lv within tabpage_7
end type
type tabpage_7 from userobject within tab_3
lv_out_fj lv_out_fj
end type
type tabpage_6 from userobject within tab_3
end type
type dw_user from u_dw_rbtnfilter within tabpage_6
end type
type tabpage_6 from userobject within tab_3
dw_user dw_user
end type
type tab_3 from tab within tabpage_3
tabpage_5 tabpage_5
tabpage_7 tabpage_7
tabpage_6 tabpage_6
end type
type dw_hismsg from u_dw_rbtnfilter within tabpage_3
end type
type em_firstdate from editmask within tabpage_3
end type
type em_enddate from editmask within tabpage_3
end type
type st_21 from statictext within tabpage_3
end type
type st_22 from statictext within tabpage_3
end type
type st_retrieve_his from uo_text_m_main within tabpage_3
end type
type p_19 from picture within tabpage_3
end type
type tabpage_3 from userobject within tab_1
tab_3 tab_3
dw_hismsg dw_hismsg
em_firstdate em_firstdate
em_enddate em_enddate
st_21 st_21
st_22 st_22
st_retrieve_his st_retrieve_his
p_19 p_19
end type
type tab_1 from tab within w_msg_list_main
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type
end forward

global type w_msg_list_main from w_publ_base
integer width = 3611
integer height = 2288
string title = "消息管理"
boolean minbox = false
windowtype windowtype = response!
event ue_back_msg ( )
tab_1 tab_1
end type
global w_msg_list_main w_msg_list_main

type variables
uo_transmsg uo_msg
long ins_findid
end variables

event ue_back_msg();String sendemp,msgtitle,msg,ls_billcode
Long ll_row

ll_row = tab_1.tabpage_2.dw_msg_rec.GetRow()

IF ll_row <= 0 THEN RETURN

sendemp = tab_1.tabpage_2.dw_msg_rec.Object.sendemp[ll_row]
msgtitle = tab_1.tabpage_2.dw_msg_rec.Object.sys_admsgmx_s_msgtitle[ll_row]
msg = tab_1.tabpage_2.dw_msg_rec.Object.sys_admsgmx_s_msg[ll_row]
ls_billcode = tab_1.tabpage_2.dw_msg_rec.Object.sys_admsgmx_billcode[ll_row]

s_admsg s_msg
s_msg.sendemp = sendemp
s_msg.billcode = ls_billcode
s_msg.msgtitle = msgtitle
s_msg.msg = msg
s_msg.ifback = 1

OpenWithParm(w_msg_send,s_msg)

end event

on w_msg_list_main.create
int iCurrent
call super::create
this.tab_1=create tab_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.tab_1
end on

on w_msg_list_main.destroy
call super::destroy
destroy(this.tab_1)
end on

event open;call super::open;tab_1.tabpage_2.dw_msg_rec.SetTransObject(sqlca)
tab_1.tabpage_3.dw_hismsg.SetTransObject(sqlca)
tab_1.tabpage_3.tab_3.tabpage_6.dw_user.SetTransObject(sqlca)

tab_1.tabpage_2.st_retrieve.TriggerEvent(Clicked!)
tab_1.tabpage_3.st_retrieve_his.TriggerEvent(Clicked!)

ins_findid = Message.DoubleParm

Long ll_findrow

IF ins_findid > 0 THEN
	ll_findrow = tab_1.tabpage_2.dw_msg_rec.Find('sys_admsgmx_msgid = '+String(ins_findid),1,tab_1.tabpage_2.dw_msg_rec.RowCount())
	
	tab_1.tabpage_2.dw_msg_rec.SetRow(ll_findrow)
	tab_1.tabpage_2.dw_msg_rec.ScrollToRow(ll_findrow)
	tab_1.tabpage_2.dw_msg_rec.SelectRow(0,False)
	tab_1.tabpage_2.dw_msg_rec.SelectRow(ll_findrow,True)
END IF


end event

type cb_func from w_publ_base`cb_func within w_msg_list_main
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_msg_list_main
integer x = 3205
integer y = 2080
integer picsize = 16
end type

type tab_1 from tab within w_msg_list_main
event create ( )
event destroy ( )
integer width = 3584
integer height = 2044
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean raggedright = true
integer selectedtab = 1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type

on tab_1.create
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.Control[]={this.tabpage_2,&
this.tabpage_3}
end on

on tab_1.destroy
destroy(this.tabpage_2)
destroy(this.tabpage_3)
end on

type tabpage_2 from userobject within tab_1
event timer pbm_timer
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3547
integer height = 1916
long backcolor = 16777215
string text = "收件箱"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "graphics\newsin.BMP"
long picturemaskcolor = 16777215
cbx_showmeredeal cbx_showmeredeal
dw_msg_rec dw_msg_rec
tab_5 tab_5
st_retrieve st_retrieve
st_read st_read
st_del st_del
p_retrieve p_retrieve
p_back_msg p_back_msg
p_del p_del
st_back_msg st_back_msg
end type

on tabpage_2.create
this.cbx_showmeredeal=create cbx_showmeredeal
this.dw_msg_rec=create dw_msg_rec
this.tab_5=create tab_5
this.st_retrieve=create st_retrieve
this.st_read=create st_read
this.st_del=create st_del
this.p_retrieve=create p_retrieve
this.p_back_msg=create p_back_msg
this.p_del=create p_del
this.st_back_msg=create st_back_msg
this.Control[]={this.cbx_showmeredeal,&
this.dw_msg_rec,&
this.tab_5,&
this.st_retrieve,&
this.st_read,&
this.st_del,&
this.p_retrieve,&
this.p_back_msg,&
this.p_del,&
this.st_back_msg}
end on

on tabpage_2.destroy
destroy(this.cbx_showmeredeal)
destroy(this.dw_msg_rec)
destroy(this.tab_5)
destroy(this.st_retrieve)
destroy(this.st_read)
destroy(this.st_del)
destroy(this.p_retrieve)
destroy(this.p_back_msg)
destroy(this.p_del)
destroy(this.st_back_msg)
end on

type cbx_showmeredeal from checkbox within tabpage_2
integer x = 1065
integer y = 20
integer width = 535
integer height = 56
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "只显示待确认消息"
boolean checked = true
end type

event clicked;tab_1.tabpage_2.st_retrieve.TriggerEvent(Clicked!)
end event

type dw_msg_rec from u_dw_rbtnfilter within tabpage_2
integer y = 92
integer width = 3534
integer height = 992
integer taborder = 40
string dataobject = "dw_deal_admsg_1"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event buttonclicked;call super::buttonclicked;Long rslt = 1,ls_msgid ,ls_empid,ls_senddtint
String arg_msg
IF dwo.Name = 'bt_deal' AND row > 0 THEN
	IF MessageBox ("IF","是否确定要确认当前消息记录?"+' '+String(tab_1.tabpage_2.dw_msg_rec.Object.sys_admsgmx_s_msgtitle[row]),Question!,YesNo! ) = 2 THEN RETURN
	ls_msgid = tab_1.tabpage_2.dw_msg_rec.Object.sys_admsgmx_msgid[row]
	ls_empid = tab_1.tabpage_2.dw_msg_rec.Object.sys_admsgmx_empid[row]
	ls_senddtint = tab_1.tabpage_2.dw_msg_rec.Object.sys_admsgmx_senddtint[row]
	
	uo_transmsg uo_itransmsg
	
	rslt = uo_itransmsg.f_redeal_admsg(ls_msgid,ls_senddtint,ls_empid,arg_msg,TRUE)
	IF rslt = 0 THEN
		MessageBox('系统提示',arg_msg)
	ELSE
		st_retrieve.TriggerEvent(Clicked!)
	END IF
END IF

end event

event clicked;call super::clicked;IF row <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(row,TRUE)
this.setrow(row)
end event

event constructor;call super::constructor;RBUTTON_FILTER_USE=true
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'sys_admsgmx_billcode' THEN
		PARENT.GetParent().GetParent().TriggerEvent('ue_viewbill_msg')
	END IF
END IF

end event

event rbuttondown;IF IsNull(row) OR row <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(row,TRUE)
THIS.SetRow(row)

m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

arg_ins_xpos = xpos
arg_ins_ypos = ypos +50
arg_ins_dwname = dwo.Name
arg_ins_dwrow = row
arg_ins_dwtype = dwo.TYPE
String ls_name
ls_name = THIS.GetColumnName( )
IF row > 0 AND arg_ins_dwtype <> 'datawindow' THEN
	arg_ins_dwdata = String(dwo.primary[row])
END IF

menustr = "Text=回复消息~tEvent=ue_back_msg"
menustr = menustr+"|"+"Text=查看单据~tEvent=ue_viewbill_msg"
menustr = menustr+"|"+"Text=-"
menustr = menustr+"|"+"Text=右键查询~tEvent=ue_rbbutton"
menustr = menustr+"|"+"Text=显示全部~tEvent=ue_dwchild_filter"
IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF


end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)
this.setrow(currentrow)

st_read.triggerevent(clicked!)
end event

type tab_5 from tab within tabpage_2
event create ( )
event destroy ( )
integer y = 1092
integer width = 3529
integer height = 816
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_12 tabpage_12
tabpage_13 tabpage_13
end type

on tab_5.create
this.tabpage_12=create tabpage_12
this.tabpage_13=create tabpage_13
this.Control[]={this.tabpage_12,&
this.tabpage_13}
end on

on tab_5.destroy
destroy(this.tabpage_12)
destroy(this.tabpage_13)
end on

type tabpage_12 from userobject within tab_5
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3493
integer height = 688
long backcolor = 16777215
string text = "内容"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "graphics\content.bmp"
long picturemaskcolor = 536870912
dw_msg_content dw_msg_content
end type

on tabpage_12.create
this.dw_msg_content=create dw_msg_content
this.Control[]={this.dw_msg_content}
end on

on tabpage_12.destroy
destroy(this.dw_msg_content)
end on

type dw_msg_content from multilineedit within tabpage_12
integer x = 5
integer width = 3483
integer height = 688
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type tabpage_13 from userobject within tab_5
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3493
integer height = 688
long backcolor = 16777215
string text = "附件"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "p45workgroup.ico"
long picturemaskcolor = 536870912
lv_in_fj lv_in_fj
end type

on tabpage_13.create
this.lv_in_fj=create lv_in_fj
this.Control[]={this.lv_in_fj}
end on

on tabpage_13.destroy
destroy(this.lv_in_fj)
end on

type lv_in_fj from uo_msg_lv within tabpage_13
integer width = 3488
integer height = 688
integer taborder = 10
long textcolor = 0
long backcolor = 16777215
end type

type st_retrieve from uo_text_m_main within tabpage_2
integer x = 110
integer y = 24
integer width = 119
integer height = 52
integer textsize = -9
string text = "刷新"
end type

event clicked;call super::clicked;Int ls_dealflag
Long ll_cnt

IF tab_1.tabpage_2.cbx_showmeredeal.Checked THEN
	ls_dealflag = 0
ELSE
	ls_dealflag = -1
END IF

ll_cnt = tab_1.tabpage_2.dw_msg_rec.Retrieve(sys_empid,ls_dealflag)

IF ll_cnt > 0 THEN
	tab_1.tabpage_2.Text = '收件箱('+String(ll_cnt)+')'
ELSE
	tab_1.tabpage_2.Text = '收件箱'
END IF

IF ll_cnt = -1 THEN
	MessageBox('系统提示','因网络原因导致与服务器断开,系统即将关闭!')
	HALT
END IF
end event

type st_read from uo_text_m_main within tabpage_2
boolean visible = false
integer x = 2034
integer y = 28
integer width = 229
integer height = 52
integer textsize = -9
string text = "查看信息"
end type

event clicked;call super::clicked;String char_enter,ls_msg,ls_s_msg
Long ls_msgid,ls_empid,ls_senddtint,currentrow
currentrow = dw_msg_rec.GetRow()
char_enter = Char(13)+Char(10)

tab_1.tabpage_2.tab_5.tabpage_13.lv_in_fj.DeleteItems()

IF currentrow > 0 THEN
	dw_msg_rec.SetRow(currentrow)
	dw_msg_rec.SelectRow(0,FALSE)
	dw_msg_rec.SelectRow(currentrow,TRUE)
	tab_1.tabpage_2.tab_5.tabpage_12.dw_msg_content.Text = ''
	
	ls_msgid = dw_msg_rec.Object.sys_admsgmx_msgid[currentrow]
	ls_empid = dw_msg_rec.Object.sys_admsgmx_empid[currentrow]
	ls_senddtint = dw_msg_rec.Object.sys_admsgmx_senddtint[currentrow]
	SELECT s_msg INTO :ls_s_msg FROM Sys_admsgmx
		WHERE Sys_admsgmx.msgid = :ls_msgid
		AND Sys_admsgmx.empid = :ls_empid
		AND Sys_admsgmx.senddtint = :ls_senddtint;
		
	IF sqlca.SQLCode <> 0 THEN ls_s_msg = ''
	
	ls_msg = '**'+dw_msg_rec.Object.sys_admsgmx_s_msgtitle[currentrow]+'**' + char_enter + "  "+ls_s_msg //dw_msg_rec.object.sys_admsgmx_s_msg [row]
	tab_1.tabpage_2.tab_5.tabpage_12.dw_msg_content.Text = ls_msg
	
	//附件列表
	Long count,ls_i
	Long ll_arr_fjid[]
	Int li_arr_filetype[]
	String ls_arr_filename[]
	listviewitem l_lvi
	
	DECLARE fj_cur CURSOR FOR
		SELECT fjid,
		filename,
		filetype
		FROM Sys_admsg_fj
		Where ( Sys_admsg_fj.msgid = :ls_msgid );
	OPEN fj_cur;
	
	count = 1
	FETCH fj_cur INTO :ll_arr_fjid[count],&
		:ls_arr_filename[count],&
		:li_arr_filetype[count];
	DO WHILE sqlca.SQLCode = 0
		count++
		FETCH fj_cur INTO :ll_arr_fjid[count],&
			:ls_arr_filename[count],&
			:li_arr_filetype[count];
	LOOP
	
	count = count - 1
	CLOSE fj_cur;
	
	if count > 0 then
		tab_1.tabpage_2.tab_5.tabpage_13.text = '附件('+string(count)+')'
	else
		tab_1.tabpage_2.tab_5.tabpage_13.text = '附件'
	end if
	
	FOR ls_i = 1 TO count
		
		l_lvi.Label = ls_arr_filename[ls_i]
		l_lvi.Data = ll_arr_fjid[ls_i]
		IF li_arr_filetype[ls_i] = 1 THEN //超链接时用第二种图标
			l_lvi.PictureIndex = 2
		ELSE
			l_lvi.PictureIndex = 1
		END IF
		tab_1.tabpage_2.tab_5.tabpage_13.lv_in_fj.InsertItem(ls_i,l_lvi)
	NEXT
END IF





end event

type st_del from uo_text_m_main within tabpage_2
integer x = 750
integer y = 24
integer width = 229
integer height = 52
integer textsize = -9
string text = "确认信息"
end type

event clicked;call super::clicked;Long rslt = 1,ls_msgid ,ls_empid,ls_senddtint,row
String arg_msg
row = dw_msg_rec.GetRow()
IF  row > 0 THEN
	IF MessageBox ("询问","是否确定要确认当前消息记录?"+' '+String(dw_msg_rec.Object.sys_admsgmx_s_msgtitle[row]),Question!,YesNo! ) = 2 THEN RETURN
	ls_msgid = dw_msg_rec.Object.sys_admsgmx_msgid[row]
	ls_empid = dw_msg_rec.Object.sys_admsgmx_empid[row]
	ls_senddtint = dw_msg_rec.Object.sys_admsgmx_senddtint[row]
	rslt = uo_msg.f_redeal_admsg(ls_msgid,ls_senddtint,ls_empid,arg_msg,True)
	IF rslt = 0 THEN
		MessageBox('系统提示',arg_msg)
	ELSE
		tab_1.tabpage_2.st_retrieve.TriggerEvent(Clicked!)
	END IF
END IF

end event

type p_retrieve from picture within tabpage_2
integer x = 37
integer y = 12
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics\refresh.BMP"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_2.st_retrieve.triggerevent(clicked!)
end event

type p_back_msg from picture within tabpage_2
integer x = 347
integer y = 16
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics\open.bmp"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_2.st_back_msg.triggerevent(clicked!)
end event

type p_del from picture within tabpage_2
integer x = 672
integer y = 12
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics\ok.bmp"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_2.st_del.triggerevent(clicked!)
end event

type st_back_msg from uo_text_m_main within tabpage_2
integer x = 434
integer y = 24
integer width = 229
integer height = 52
integer textsize = -9
string text = "回复信息"
end type

event clicked;call super::clicked;parent.getparent().getparent().triggerevent('ue_back_msg')
end event

type tabpage_3 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3547
integer height = 1916
long backcolor = 16777215
string text = "发件箱"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "graphics\newsout.BMP"
long picturemaskcolor = 536870912
tab_3 tab_3
dw_hismsg dw_hismsg
em_firstdate em_firstdate
em_enddate em_enddate
st_21 st_21
st_22 st_22
st_retrieve_his st_retrieve_his
p_19 p_19
end type

on tabpage_3.create
this.tab_3=create tab_3
this.dw_hismsg=create dw_hismsg
this.em_firstdate=create em_firstdate
this.em_enddate=create em_enddate
this.st_21=create st_21
this.st_22=create st_22
this.st_retrieve_his=create st_retrieve_his
this.p_19=create p_19
this.Control[]={this.tab_3,&
this.dw_hismsg,&
this.em_firstdate,&
this.em_enddate,&
this.st_21,&
this.st_22,&
this.st_retrieve_his,&
this.p_19}
end on

on tabpage_3.destroy
destroy(this.tab_3)
destroy(this.dw_hismsg)
destroy(this.em_firstdate)
destroy(this.em_enddate)
destroy(this.st_21)
destroy(this.st_22)
destroy(this.st_retrieve_his)
destroy(this.p_19)
end on

type tab_3 from tab within tabpage_3
event create ( )
event destroy ( )
integer y = 1100
integer width = 3529
integer height = 816
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_5 tabpage_5
tabpage_7 tabpage_7
tabpage_6 tabpage_6
end type

on tab_3.create
this.tabpage_5=create tabpage_5
this.tabpage_7=create tabpage_7
this.tabpage_6=create tabpage_6
this.Control[]={this.tabpage_5,&
this.tabpage_7,&
this.tabpage_6}
end on

on tab_3.destroy
destroy(this.tabpage_5)
destroy(this.tabpage_7)
destroy(this.tabpage_6)
end on

type tabpage_5 from userobject within tab_3
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3493
integer height = 688
long backcolor = 16777215
string text = "内容"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "graphics\content.bmp"
long picturemaskcolor = 536870912
mle_msg mle_msg
end type

on tabpage_5.create
this.mle_msg=create mle_msg
this.Control[]={this.mle_msg}
end on

on tabpage_5.destroy
destroy(this.mle_msg)
end on

type mle_msg from multilineedit within tabpage_5
integer width = 3483
integer height = 688
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
boolean vscrollbar = true
boolean autovscroll = true
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type tabpage_7 from userobject within tab_3
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3493
integer height = 688
long backcolor = 16777215
string text = "附件"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "p45workgroup.ico"
long picturemaskcolor = 536870912
lv_out_fj lv_out_fj
end type

on tabpage_7.create
this.lv_out_fj=create lv_out_fj
this.Control[]={this.lv_out_fj}
end on

on tabpage_7.destroy
destroy(this.lv_out_fj)
end on

type lv_out_fj from uo_msg_lv within tabpage_7
integer width = 3483
integer height = 688
integer taborder = 10
end type

type tabpage_6 from userobject within tab_3
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3493
integer height = 688
long backcolor = 16777215
string text = "确认列表"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "graphics\people.bmp"
long picturemaskcolor = 536870912
dw_user dw_user
end type

on tabpage_6.create
this.dw_user=create dw_user
this.Control[]={this.dw_user}
end on

on tabpage_6.destroy
destroy(this.dw_user)
end on

type dw_user from u_dw_rbtnfilter within tabpage_6
integer width = 3488
integer height = 688
string dataobject = "dw_objdpm_user_cmmt"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type dw_hismsg from u_dw_rbtnfilter within tabpage_3
integer y = 100
integer width = 3538
integer height = 992
integer taborder = 30
string dataobject = "dw_hismsg"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

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;IF currentrow <= 0 THEN RETURN
if isnull(currentrow) then return 
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)
Long ls_msgid
ls_msgid = dw_hismsg.Object.msgid[currentrow]
tab_1.tabpage_3.tab_3.tabpage_6.dw_user.Retrieve(ls_msgid)

//***********************
String char_enter,ls_msg,ls_s_msg
char_enter = Char(13)+Char(10)

tab_1.tabpage_3.tab_3.tabpage_7.lv_out_fj.DeleteItems()


IF currentrow > 0 THEN
	dw_hismsg.SetRow(currentrow)
	dw_hismsg.SelectRow(0,FALSE)
	dw_hismsg.SelectRow(currentrow,TRUE)
	tab_1.tabpage_3.tab_3.tabpage_5.mle_msg.Text = ''
	
	ls_msgid = dw_hismsg.Object.msgid[currentrow]
	SELECT s_msg INTO :ls_s_msg FROM Sys_admsg
		WHERE Sys_admsg.msgid = :ls_msgid;
		
	IF sqlca.SQLCode <> 0 THEN ls_s_msg = ''
	
	ls_msg = '**'+dw_hismsg.Object.s_msgtitle[currentrow]+'**' + char_enter + "  "+ls_s_msg //dw_hismsg.object.s_msg [row]
	tab_1.tabpage_3.tab_3.tabpage_5.mle_msg.Text = ls_msg
	
	//附件列表
	Long count,ls_i
	Long ll_arr_fjid[]
	Int li_arr_filetype[]
	String ls_arr_filename[]
	listviewitem l_lvi
	
	DECLARE fj_cur CURSOR FOR
		SELECT fjid,
		filename,
		filetype
		FROM Sys_admsg_fj
		Where ( Sys_admsg_fj.msgid = :ls_msgid );
	OPEN fj_cur;
	
	count = 1
	FETCH fj_cur INTO :ll_arr_fjid[count],&
		:ls_arr_filename[count],&
		:li_arr_filetype[count];
	DO WHILE sqlca.SQLCode = 0
		count++
		FETCH fj_cur INTO :ll_arr_fjid[count],&
			:ls_arr_filename[count],&
			:li_arr_filetype[count];
	LOOP
	
	count = count - 1
	CLOSE fj_cur;
	
	
	
	if count > 0 then
		tab_1.tabpage_3.tab_3.tabpage_7.text = '附件('+string(count)+')'
	else
		tab_1.tabpage_3.tab_3.tabpage_7.text = '附件'
	end if
	
	FOR ls_i = 1 TO count
		
		l_lvi.Label = ls_arr_filename[ls_i]
		l_lvi.Data = ll_arr_fjid[ls_i]
		IF li_arr_filetype[ls_i] = 1 THEN //超链接时用第二种图标
			l_lvi.PictureIndex = 2
		ELSE
			l_lvi.PictureIndex = 1
		END IF
		tab_1.tabpage_3.tab_3.tabpage_7.lv_out_fj.InsertItem(ls_i,l_lvi)
	NEXT
	
END IF



end event

type em_firstdate from editmask within tabpage_3
integer x = 229
integer y = 8
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.text = string(today(),'yyyy-mm')+'-01'
end event

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y + tab_1.y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)

end event

type em_enddate from editmask within tabpage_3
integer x = 741
integer y = 8
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.text = string(today(),'yyyy-mm-dd')
end event

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y + tab_1.y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)

end event

type st_21 from statictext within tabpage_3
integer x = 18
integer y = 24
integer width = 206
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "日期从:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_22 from statictext within tabpage_3
integer x = 645
integer y = 24
integer width = 87
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "到"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_retrieve_his from uo_text_m_main within tabpage_3
integer x = 1239
integer y = 28
integer width = 133
integer height = 56
integer textsize = -9
string text = "刷新"
end type

event clicked;call super::clicked;DateTime ld_first
DateTime ld_end

ld_first = DateTime(Date(tab_1.tabpage_3.em_firstdate.Text),Time('0'))
ld_end = DateTime(Date(tab_1.tabpage_3.em_enddate.Text),Time('23:59:59'))
tab_1.tabpage_3.dw_hismsg.SetTransObject(sqlca)
tab_1.tabpage_3.dw_hismsg.Retrieve(sys_empid,ld_first,ld_end)

end event

type p_19 from picture within tabpage_3
integer x = 1161
integer y = 16
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics\refresh.BMP"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_3.st_retrieve_his.triggerevent(clicked!)
end event