Q5/ws_objects/Ew_epmmsg.pbl.src/w_msg_newstyle.srw

$PBExportHeader$w_msg_newstyle.srw
forward
global type w_msg_newstyle from w_publ_base
end type
type r_bg from rectangle within w_msg_newstyle
end type
type dw_list from datawindow within w_msg_newstyle
end type
type dw_msg from datawindow within w_msg_newstyle
end type
type dw_fj from datawindow within w_msg_newstyle
end type
type st_fjtitle from statictext within w_msg_newstyle
end type
type st_empname from statictext within w_msg_newstyle
end type
type mle_edit from multilineedit within w_msg_newstyle
end type
type cb_send from commandbutton within w_msg_newstyle
end type
type st_3 from statictext within w_msg_newstyle
end type
type st_add_msg from statictext within w_msg_newstyle
end type
type p_add_msg from picture within w_msg_newstyle
end type
type st_fjtitle_sub from statictext within w_msg_newstyle
end type
type shl_old from statichyperlink within w_msg_newstyle
end type
type p_fj_add from picture within w_msg_newstyle
end type
type st_fj_add from statictext within w_msg_newstyle
end type
type sle_title from singlelineedit within w_msg_newstyle
end type
type ln_1 from line within w_msg_newstyle
end type
type ln_3 from line within w_msg_newstyle
end type
type st_title_tip_warp from statictext within w_msg_newstyle
end type
type st_title_tip from statictext within w_msg_newstyle
end type
type st_msg_tip_warp from statictext within w_msg_newstyle
end type
type st_msg_tip from statictext within w_msg_newstyle
end type
type sle_billcode from singlelineedit within w_msg_newstyle
end type
type st_billcode_tip_warp from statictext within w_msg_newstyle
end type
type st_billcode_tip from statictext within w_msg_newstyle
end type
type sle_find from singlelineedit within w_msg_newstyle
end type
type st_1 from statictext within w_msg_newstyle
end type
type p_filter_close from picture within w_msg_newstyle
end type
type st_search_tip_warp from statictext within w_msg_newstyle
end type
type st_search_tip from statictext within w_msg_newstyle
end type
type st_no_fj from statictext within w_msg_newstyle
end type
type r_1 from rectangle within w_msg_newstyle
end type
end forward

global type w_msg_newstyle from w_publ_base
integer width = 4704
integer height = 2876
string title = "内部消息"
boolean maxbox = true
long backcolor = 16777215
event ue_msg_setroll ( )
event ue_open_fj ( )
event ue_download_fj ( )
event ue_add_fj ( )
event ue_ifshow_tip ( )
event ue_retrieve_msg ( )
event ue_retrieve_fj ( )
event ue_retrieve_list ( )
event ue_retrieve_all ( )
r_bg r_bg
dw_list dw_list
dw_msg dw_msg
dw_fj dw_fj
st_fjtitle st_fjtitle
st_empname st_empname
mle_edit mle_edit
cb_send cb_send
st_3 st_3
st_add_msg st_add_msg
p_add_msg p_add_msg
st_fjtitle_sub st_fjtitle_sub
shl_old shl_old
p_fj_add p_fj_add
st_fj_add st_fj_add
sle_title sle_title
ln_1 ln_1
ln_3 ln_3
st_title_tip_warp st_title_tip_warp
st_title_tip st_title_tip
st_msg_tip_warp st_msg_tip_warp
st_msg_tip st_msg_tip
sle_billcode sle_billcode
st_billcode_tip_warp st_billcode_tip_warp
st_billcode_tip st_billcode_tip
sle_find sle_find
st_1 st_1
p_filter_close p_filter_close
st_search_tip_warp st_search_tip_warp
st_search_tip st_search_tip
st_no_fj st_no_fj
r_1 r_1
end type
global w_msg_newstyle w_msg_newstyle

type variables
String smax1,smax2,spos1
string fjfilepathname = 'fjtemp'

string ins_openfile_log[]  //用于退出后删除
long ins_openfile_log_p=0    //用于退出后删除 

s_msg_fj ins_msg_fj[],ins_fj_empty[]

s_msg_newstyle ins_msg_tmp[]

string ins_empname
long ins_empid


uo_transmsg uo_msg

boolean ins_iffocus_title = false,ins_iffocus_msg = false,ins_iffocus_billcode = false


string ori_select_msg,ori_select_fj

s_edit_index_tran s_open

long ins_toprow = 200
end variables

forward prototypes
public subroutine wf_addlog_tempfilepathname (string arg_filepathname)
public subroutine wf_del_tempfilepathname ()
end prototypes

event ue_msg_setroll();////String smax1
//smax1 = dw_msg.Describe("DataWindow.VerticalScrollMaximum")
//dw_msg.Modify("DataWindow.VerticalScrollPosition='"+smax1+"'")
//


smax2 = dw_msg.Describe("DataWindow.VerticalScrollMaximum")
long ll_spos2
If long(smax1) > 0 Then
	ll_spos2 = long(spos1) * (long(smax2) / long(smax1))
Else
	ll_spos2 = long(smax1)
End If

dw_msg.Modify("DataWindow.VerticalScrollPosition='"+String(ll_spos2)+"'")


end event

event ue_open_fj();int rslt = 1

string ls_pathname
string errmsg
string lsNull
setnull(lsNull)
string arg_filename
blob arg_blob

long arg_fjid
long ll_row
string arg_msg

ll_row = dw_fj.getrow()

if ll_row <= 0 then return 

arg_fjid = dw_fj.object.sys_admsg_fj_fjid[ll_row]
arg_filename  = dw_fj.object.sys_admsg_fj_filename[ll_row]

SELECTBLOB fileblob INTO :arg_blob FROM Sys_admsg_fj
	WHERE fjid = :arg_fjid;
if sqlca.sqlcode <> 0 then
	rslt = 0
	arg_msg = '获取内部消息附件失败,' + sqlca.sqlerrtext
	goto ext
end if

ls_pathname = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+arg_filename
IF FileExists(ls_pathname)	 THEN FileDelete(ls_pathname)

IF f_blobtofile(ls_pathname,arg_blob,errmsg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

wf_addlog_tempfilepathname(ls_pathname)

//打开附件
ShellExecute32( Handle(THIS), lsNull, ls_pathname, lsNull, lsNull, 1 )

ext:
IF rslt = 0 THEN
	MessageBox('系统提示',errmsg)
END IF

end event

event ue_download_fj();Int rslt = 1

String ls_pathname
String errmsg
String lsNull
SetNull(lsNull)
String arg_filename
Blob arg_blob

Long arg_fjid,i
Long ll_row
String arg_msg

ll_row = dw_fj.GetRow()

If ll_row <= 0 Then Return

arg_fjid = dw_fj.Object.sys_admsg_fj_fjid[ll_row]
arg_filename  = dw_fj.Object.sys_admsg_fj_filename[ll_row]
ls_pathname = arg_filename
long pos1
string ls_filetypename
pos1 = pos(arg_filename,'.',1)
IF pos1 > 0 THEN
	ls_filetypename = mid(arg_filename,pos1 + 1, len(arg_filename))
	i = GetFileSaveName("另存为",ls_pathname,arg_filename,"*","*."+ls_filetypename+",*."+ls_filetypename)
ELSE
	ls_filetypename = ''
	i = GetFileSaveName("另存为",ls_pathname,arg_filename,"*","*.*,*.*")
END IF


If i = 1 And Trim(ls_pathname) <> '' Then
	SelectBlob fileblob Into :arg_blob From Sys_admsg_fj
	Where fjid = :arg_fjid;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '获取内部消息附件失败,' + sqlca.SQLErrText
		Goto ext
	End If
	
	If f_blobtofile(ls_pathname,arg_blob,errmsg) = 0 Then
		rslt = 0
		Goto ext
	End If
	messagebox('系统提示','附件保存成功')
End If
ext:
If rslt = 0 Then
	MessageBox('系统提示',errmsg)
End If


end event

event ue_add_fj();s_msg_newstyle s_add_fj

s_add_fj.arg_s_fj = ins_msg_fj

openwithparm(w_msg_fj_add_newstyle,s_add_fj)

s_add_fj = message.powerobjectparm

ins_msg_fj  = s_add_fj.arg_s_fj

if UpperBound(ins_msg_fj) > 0 then 
	st_fj_add.text = '已添加'+string(UpperBound(ins_msg_fj))+'个附件'
else
	st_fj_add.text = '添加附件'
end if

mle_edit.setfocus()
end event

event ue_ifshow_tip();If ins_iffocus_title = False And ins_iffocus_msg = False And ins_iffocus_billcode = False Then
	
	//先判断是否需要执行，避免界面控件频繁刷新
	If st_title_tip_warp.Visible = True Then
		st_title_tip_warp.Visible = False
		st_title_tip.Visible = False
		st_msg_tip_warp.Visible = False
		st_msg_tip.Visible = False
		st_billcode_tip_warp.Visible = False
		st_billcode_tip.Visible = False
	End If
Else
	
	If st_title_tip_warp.Visible = False Then
		st_title_tip_warp.BringToTop = True
		st_title_tip.BringToTop = True
		
		st_title_tip_warp.Visible = True
		st_title_tip.Visible = True
		
		
		st_msg_tip_warp.BringToTop = True
		st_msg_tip.BringToTop = True
		
		st_msg_tip_warp.Visible = True
		st_msg_tip.Visible = True
		
		st_billcode_tip_warp.BringToTop = True
		st_billcode_tip.BringToTop = True
		
		st_billcode_tip_warp.Visible = True
		st_billcode_tip.Visible = True
	End If
End If

end event

event ue_retrieve_msg();String ls_wherestr,ls_newselect
String arg_msg
String ls_findstr
string ls_orderbystr

ls_wherestr = " WHERE  (sys_admsgmx.empid = "+String(sys_empid)+" and sys_admsg.sendempid = "+String(ins_empid)
ls_wherestr += "or sys_admsgmx.empid = "+String(ins_empid) +" and sys_admsg.sendempid = "+String(sys_empid)+") "

If Trim(sle_find.Text) <> '' Then
	ls_findstr = '%'+Trim(sle_find.Text)+'%'
	
	ls_wherestr += " and (sys_admsg.s_msg like '" +ls_findstr+"'" +&
		" or sys_admsg.s_msgtitle like '" +ls_findstr+"'" +&
		" or isnull(u_saletask.relcode,'') like '" +ls_findstr+"'" +&
		" or sys_admsg.billcode like  '" +ls_findstr+"')"

	
End If

//ls_orderbystr = ' order by sys_admsgmx.dealdt desc'

//ls_newselect = 'select top '+string(ins_toprow)+' '+mid( ori_select_msg , 8)  + ls_wherestr + ls_orderbystr

ls_newselect = ori_select_msg  + ls_wherestr


dw_msg.Modify("datawindow.table.select = ~"" + ls_newselect+ "~"")


dw_msg.Retrieve()

//更新收件人是我的消息的已读标记
If dw_msg.Find('read_flag = 0 and empid = '+String(sys_empid),1,dw_msg.RowCount()) > 0 Then
	
	Update Sys_admsgmx
		Set read_flag = 1
		From  Sys_admsg
		Inner JOIN Sys_admsgmx
		ON Sys_admsg.msgid = Sys_admsgmx.msgid
		Where sys_admsg.sendempid = :ins_empid
		And Sys_admsgmx.empid = :sys_empid;
	If sqlca.SQLCode <> 0 Then
		arg_msg = '更新已读标记失败,'+sqlca.SQLErrText
		Rollback;
	Else
		Commit;
	End If
End If

//String smax1
smax1 = dw_msg.Describe("DataWindow.VerticalScrollMaximum")
dw_msg.Modify("DataWindow.VerticalScrollPosition='"+smax1+"'")


dw_msg.SetFocus()

end event

event ue_retrieve_fj();string ls_wherestr,ls_newselect,ls_findstr

ls_wherestr= " WHERE  (sys_admsgmx.empid = "+string(sys_empid)+" and sys_admsg.sendempid = "+string(ins_empid) 
ls_wherestr += "or sys_admsgmx.empid = "+string(ins_empid) +" and sys_admsg.sendempid = "+string(sys_empid)+") "

If Trim(sle_find.Text) <> '' Then
	ls_findstr = '%'+Trim(sle_find.Text)+'%'
	
	ls_wherestr += " and (sys_admsg.s_msg like '" +ls_findstr+"'" +&
		" or sys_admsg.s_msgtitle like '" +ls_findstr+"'" +&
		" or isnull(u_saletask.relcode,'') like '" +ls_findstr+"'" +&
		" or sys_admsg.billcode like  '" +ls_findstr+"')"
	
End If

ls_newselect = ori_select_fj + ls_wherestr

dw_fj.Modify("datawindow.table.select = ~"" + ls_newselect+ "~"")


dw_fj.Retrieve()

st_no_fj.visible = (dw_fj.rowcount() = 0)
end event

event ue_retrieve_list();String ls_findstr

If Trim(sle_find.Text) <> '' Then
	ls_findstr = '%'+sle_find.Text+'%'
End If

dw_list.Retrieve(sys_empid,ls_findstr)

end event

event ue_retrieve_all();This.TriggerEvent('ue_retrieve_list')

If dw_list.RowCount() > 0 Then
	ins_empname = dw_list.Object.empname[1]
	ins_empid = dw_list.Object.empid[1]
	st_empname.Text = ins_empname
	
	// //刷新 dw_msg及 dw_fj,并更新已读标记，同时更新dw_list的 s_msgtitle,s_msgtitle_ori
	This.TriggerEvent('ue_retrieve_msg')
	This.TriggerEvent('ue_retrieve_fj')
	////// //
else
	dw_msg.reset()
	dw_fj.reset()
End If

end event

public subroutine wf_addlog_tempfilepathname (string arg_filepathname);//wf_addlog_tempfilepathname
if isnull(arg_filepathname) or len(trim(arg_filepathname))<3 then return
ins_openfile_log_p++
ins_openfile_log[ins_openfile_log_p]=arg_filepathname
end subroutine

public subroutine wf_del_tempfilepathname ();long li
for li=1 to ins_openfile_log_p
	if len(trim(ins_openfile_log[li]))<=0 then
	else
		 FileDelete(ins_openfile_log[li])
	end if
next
end subroutine

on w_msg_newstyle.create
int iCurrent
call super::create
this.r_bg=create r_bg
this.dw_list=create dw_list
this.dw_msg=create dw_msg
this.dw_fj=create dw_fj
this.st_fjtitle=create st_fjtitle
this.st_empname=create st_empname
this.mle_edit=create mle_edit
this.cb_send=create cb_send
this.st_3=create st_3
this.st_add_msg=create st_add_msg
this.p_add_msg=create p_add_msg
this.st_fjtitle_sub=create st_fjtitle_sub
this.shl_old=create shl_old
this.p_fj_add=create p_fj_add
this.st_fj_add=create st_fj_add
this.sle_title=create sle_title
this.ln_1=create ln_1
this.ln_3=create ln_3
this.st_title_tip_warp=create st_title_tip_warp
this.st_title_tip=create st_title_tip
this.st_msg_tip_warp=create st_msg_tip_warp
this.st_msg_tip=create st_msg_tip
this.sle_billcode=create sle_billcode
this.st_billcode_tip_warp=create st_billcode_tip_warp
this.st_billcode_tip=create st_billcode_tip
this.sle_find=create sle_find
this.st_1=create st_1
this.p_filter_close=create p_filter_close
this.st_search_tip_warp=create st_search_tip_warp
this.st_search_tip=create st_search_tip
this.st_no_fj=create st_no_fj
this.r_1=create r_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.r_bg
this.Control[iCurrent+2]=this.dw_list
this.Control[iCurrent+3]=this.dw_msg
this.Control[iCurrent+4]=this.dw_fj
this.Control[iCurrent+5]=this.st_fjtitle
this.Control[iCurrent+6]=this.st_empname
this.Control[iCurrent+7]=this.mle_edit
this.Control[iCurrent+8]=this.cb_send
this.Control[iCurrent+9]=this.st_3
this.Control[iCurrent+10]=this.st_add_msg
this.Control[iCurrent+11]=this.p_add_msg
this.Control[iCurrent+12]=this.st_fjtitle_sub
this.Control[iCurrent+13]=this.shl_old
this.Control[iCurrent+14]=this.p_fj_add
this.Control[iCurrent+15]=this.st_fj_add
this.Control[iCurrent+16]=this.sle_title
this.Control[iCurrent+17]=this.ln_1
this.Control[iCurrent+18]=this.ln_3
this.Control[iCurrent+19]=this.st_title_tip_warp
this.Control[iCurrent+20]=this.st_title_tip
this.Control[iCurrent+21]=this.st_msg_tip_warp
this.Control[iCurrent+22]=this.st_msg_tip
this.Control[iCurrent+23]=this.sle_billcode
this.Control[iCurrent+24]=this.st_billcode_tip_warp
this.Control[iCurrent+25]=this.st_billcode_tip
this.Control[iCurrent+26]=this.sle_find
this.Control[iCurrent+27]=this.st_1
this.Control[iCurrent+28]=this.p_filter_close
this.Control[iCurrent+29]=this.st_search_tip_warp
this.Control[iCurrent+30]=this.st_search_tip
this.Control[iCurrent+31]=this.st_no_fj
this.Control[iCurrent+32]=this.r_1
end on

on w_msg_newstyle.destroy
call super::destroy
destroy(this.r_bg)
destroy(this.dw_list)
destroy(this.dw_msg)
destroy(this.dw_fj)
destroy(this.st_fjtitle)
destroy(this.st_empname)
destroy(this.mle_edit)
destroy(this.cb_send)
destroy(this.st_3)
destroy(this.st_add_msg)
destroy(this.p_add_msg)
destroy(this.st_fjtitle_sub)
destroy(this.shl_old)
destroy(this.p_fj_add)
destroy(this.st_fj_add)
destroy(this.sle_title)
destroy(this.ln_1)
destroy(this.ln_3)
destroy(this.st_title_tip_warp)
destroy(this.st_title_tip)
destroy(this.st_msg_tip_warp)
destroy(this.st_msg_tip)
destroy(this.sle_billcode)
destroy(this.st_billcode_tip_warp)
destroy(this.st_billcode_tip)
destroy(this.sle_find)
destroy(this.st_1)
destroy(this.p_filter_close)
destroy(this.st_search_tip_warp)
destroy(this.st_search_tip)
destroy(this.st_no_fj)
destroy(this.r_1)
end on

event open;call super::open;ori_select_msg = dw_msg.Describe("DataWindow.Table.Select")
ori_select_fj = dw_fj.Describe("DataWindow.Table.Select")

dw_list.SetTransObject(sqlca)
dw_msg.SetTransObject(sqlca)
dw_fj.SetTransObject(sqlca)
s_open = Message.PowerObjectParm

If s_open.b_string <> '' Then
	//外面调用，定位到选定的发送人
	This.TriggerEvent('ue_retrieve_list')
	
	Long ll_row_f,ll_row_f_msg
	ll_row_f = dw_list.Find('empname = "'+s_open.b_string+'"',1,dw_list.RowCount())
	
	If ll_row_f <= 0 Then
		ll_row_f = 1
	End If
	
	If dw_list.RowCount() > 0 Then
		dw_list.SetRow(ll_row_f)
		ins_empname = dw_list.Object.empname[ll_row_f]
		ins_empid = dw_list.Object.empid[ll_row_f]
		st_empname.Text = ins_empname
		This.TriggerEvent('ue_retrieve_msg')
		This.TriggerEvent('ue_retrieve_fj')
		
		dw_list.SetRow(ll_row_f)
		dw_list.ScrollToRow(ll_row_f)
		
		If s_open.b_long > 0 Then
			ll_row_f_msg = dw_msg.Find('msgid = '+String(s_open.b_long),1,dw_msg.RowCount())
			
			dw_msg.SetRow(ll_row_f_msg)
			dw_msg.ScrollToRow(ll_row_f_msg)
		End If
		
	End If
	
Else
	This.TriggerEvent('ue_retrieve_all')
	//String smax1
	smax1 = dw_msg.Describe("DataWindow.VerticalScrollMaximum")
	dw_msg.Modify("DataWindow.VerticalScrollPosition='"+smax1+"'")
	
End If

If dw_msg.RowCount() > 0 Then
	dw_msg.SetRow(dw_msg.RowCount())
End If
//
//if dw_list.rowcount() > 0 then 
//	ins_empname = dw_list.object.empname[1]
//	ins_empid = dw_list.object.empid[1]
//	st_empname.text = ins_empname
//
//	//将XX条未读 改为 最近一条的标题，因为点击进来就是已读了
//	dw_list.Object.s_msgtitle[1] = dw_list.Object.s_msgtitle_ori[1]
//	
//	////刷新 dw_msg及 dw_fj,并更新已读标记，同时更新dw_list的 s_msgtitle,s_msgtitle_ori
//	this.triggerevent('ue_retrieve_msg')
//	this.triggerevent('ue_retrieve_fj')
//	////////
//
//end if
//

dw_msg.SetFocus()



//This.PostEvent('ue_msg_setroll')





end event

event resize;call super::resize;/////各代码前后顺序不要随便改动，涉及到相对位置，有严格的先后顺序

this.setredraw(false)

r_bg.width = this.workspacewidth() + 10
r_bg.height= ln_1.BeginY + 4

ln_1.BeginX = 0 // dw_msg.x
ln_1.EndX = This.WorkSpaceWidth() + 10 //ln_3.BeginX //dw_msg.x + dw_msg.width 

ln_3.BeginY = ln_1.BeginY
ln_3.EndY = This.WorkSpaceHeight() + 10 // dw_fj.y + dw_fj.height 

dw_list.Height = This.WorkSpaceHeight() - dw_list.Y - 10

dw_fj.X = This.WorkSpaceWidth() - dw_fj.Width - 10
ln_3.BeginX = dw_fj.X - 4
ln_3.EndX = ln_3.BeginX

//记录当前滚动条位置，用于resize后让滚动条回到该位置，否则滚动条会在最顶部
Long ll_spos2
spos1 = dw_msg.Describe("DataWindow.VerticalScrollPosition")
smax1 = dw_msg.Describe("DataWindow.VerticalScrollMaximum")



dw_msg.x = dw_list.x + dw_list.width + 10
dw_msg.object.s_msg.width = This.WorkSpaceWidth() - dw_msg.X  - dw_fj.Width - 25 - 300// dw_msg.width - 400
dw_msg.object.s_msgtitle.width = This.WorkSpaceWidth() - dw_msg.X  - dw_fj.Width - 25 - 300//dw_msg.width - 400

dw_msg.Height = This.WorkSpaceHeight() - dw_msg.Y - 830 // 830是录入部分的高度

dw_msg.Width = This.WorkSpaceWidth() - dw_msg.X  - dw_fj.Width - 25


mle_edit.X = dw_msg.X
mle_edit.Width = dw_msg.Width

sle_title.x = mle_edit.X
sle_title.y = dw_msg.Y + dw_msg.Height + 24

sle_title.width = mle_edit.Width

mle_edit.Y = sle_title.y + sle_title.height + 4 //dw_msg.Y + dw_msg.Height + 24

st_title_tip_warp.y = sle_title.y
st_title_tip.y = sle_title.y + 16

st_msg_tip_warp.y = mle_edit.y
st_msg_tip.y = mle_edit.y + 16



cb_send.X = mle_edit.X + mle_edit.Width - cb_send.Width
cb_send.Y = This.WorkSpaceHeight() - 116

sle_billcode.x = mle_edit.X
sle_billcode.y = cb_send.Y
st_billcode_tip_warp.y = sle_billcode.y
st_billcode_tip.y = sle_billcode.y + 16

mle_edit.height = sle_billcode.y - 4 - mle_edit.y

p_fj_add.y = cb_send.y + 8
st_fj_add.y = cb_send.y + 16

st_fjtitle.x = dw_fj.x + 42
st_fjtitle_sub.x = st_fjtitle.x + st_fjtitle.width + 5

dw_fj.height = This.WorkSpaceHeight() - dw_fj.Y - 10

shl_old.x = dw_msg.x + dw_msg.width - shl_old.width - 10

st_no_fj.x = dw_fj.x + 389

//还原滚动条位置
this.postevent('ue_msg_setroll')

this.setredraw(true)

end event

event close;call super::close;// 删除临时文件
wf_del_tempfilepathname()
end event

type cb_func from w_publ_base`cb_func within w_msg_newstyle
boolean visible = false
integer taborder = 30
end type

type cb_exit from w_publ_base`cb_exit within w_msg_newstyle
boolean visible = false
end type

type r_bg from rectangle within w_msg_newstyle
long linecolor = 33554432
linestyle linestyle = transparent!
integer linethickness = 4
long fillcolor = 29920514
integer width = 521
integer height = 176
end type

type dw_list from datawindow within w_msg_newstyle
integer x = 14
integer y = 132
integer width = 987
integer height = 2612
integer taborder = 60
boolean bringtotop = true
string title = "none"
string dataobject = "dw_msg_userlist_newstyle_demo"
boolean vscrollbar = true
boolean border = false
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event clicked;If row > 0 Then
	Long i
	Boolean lb_iffind = False
	Long cnt,ll_find,ll_row_f
	cnt = UpperBound(ins_msg_tmp)
	//记录原有发送对象的未发送内容
	For i = 1 To cnt
		If ins_msg_tmp[i].empname = ins_empname Then
			lb_iffind = True
			ll_find = i
			Exit
		End If
	Next
	
	If lb_iffind = False Then
		cnt++
		ins_msg_tmp[cnt].empname = ins_empname
		ins_msg_tmp[cnt].empid = ins_empid
		ll_find = cnt
	End If
	
	ins_msg_tmp[ll_find].s_msgtitle = Trim(sle_title.Text)
	ins_msg_tmp[ll_find].s_msg = Trim(mle_edit.Text)
	ins_msg_tmp[ll_find].billcode = Trim(sle_billcode.Text)
	ins_msg_tmp[ll_find].arg_s_fj = ins_msg_fj
	
	//更新换行前的那一行内容为【正在编辑发送内容】
	
	ll_row_f = dw_list.Find('empid = '+String(ins_empid),1,dw_list.RowCount())
	
	If ll_row_f > 0 Then
		If Trim(sle_title.Text) <> '' Or Trim(mle_edit.Text) <> '' or Trim(sle_billcode.Text) <> '' Or UpperBound(ins_msg_fj) > 0 Then
			dw_list.Object.s_msgtitle[ll_row_f] = '[正在编辑发送内容]'
			dw_list.Object.editing[ll_row_f] = 1
		Else
//			if trim(sle_find.text) = '' then
				dw_list.Object.s_msgtitle[ll_row_f] = dw_list.Object.s_msgtitle_ori[ll_row_f]
//			end if
			dw_list.Object.editing[ll_row_f] = 0
		End If
	End If
	
	
	/////// //
	
	
	////新的一行信息
	ins_empname = This.Object.empname[row]
	ins_empid = This.Object.empid[row]
	
	//将XX条未读 改为 最近一条的标题，因为点击进来就是已读了
	
//	if trim(sle_find.text) = '' then 
		dw_list.Object.s_msgtitle[row] = dw_list.Object.s_msgtitle_ori[row]
//	end if
	dw_list.Object.editing[row] = 0
	st_empname.Text = ins_empname
	
	ins_msg_fj = ins_fj_empty
	sle_title.Text = ''
	mle_edit.Text = ''
	sle_billcode.Text = ''
	
	////还原之前编辑未发送的内容
	For i = 1 To UpperBound(ins_msg_tmp)
		If ins_empname = ins_msg_tmp[i].empname Then
			sle_title.Text = ins_msg_tmp[i].s_msgtitle
			mle_edit.Text = ins_msg_tmp[i].s_msg
			ins_msg_fj  = ins_msg_tmp[i].arg_s_fj
			sle_billcode.Text  = ins_msg_tmp[i].billcode
		End If
	Next
	
	If UpperBound(ins_msg_fj) > 0 Then
		st_fj_add.Text = '已添加'+String(UpperBound(ins_msg_fj))+'个附件'
	Else
		st_fj_add.Text = '添加附件'
	End If
	//////
	
	////刷新 dw_msg及 dw_fj,并更新已读标记，同时更新dw_list的 s_msgtitle,s_msgtitle_ori
	parent.triggerevent('ue_retrieve_msg')
	parent.triggerevent('ue_retrieve_fj')
	////////
	
	If Trim(sle_title.Text) <> '' Or Trim(mle_edit.Text) <> '' or Trim(sle_billcode.Text) <> '' Or UpperBound(ins_msg_fj) > 0 Then
		mle_edit.setfocus()
	end if
End If






end event

type dw_msg from datawindow within w_msg_newstyle
integer x = 1006
integer y = 132
integer width = 2446
integer height = 1904
integer taborder = 70
boolean bringtotop = true
string title = "none"
string dataobject = "dw_msg_mainface_newstyle_demo"
boolean vscrollbar = true
boolean border = false
boolean livescroll = true
end type

event clicked;if row > 0 then 
	if dwo.name = 'relcode' then 
		long ll_scid
		string ls_code
		
		ll_scid = this.object.scid[row]
		ls_code = this.object.billcode[row]
		
		IF ls_code <> '' THEN
			f_open_win(ll_scid,ls_code)
		END IF
	elseif dwo.name = 'p_fj' or dwo.name = 'fjstr' then 
		s_edit_index_tran s_fj_open
		s_fj_open.b_long = this.object.msgid[row]
		
		openwithparm(w_msg_fj_view_newstyle,s_fj_open)
		
	end if
end if
end event

type dw_fj from datawindow within w_msg_newstyle
integer x = 3483
integer y = 132
integer width = 1202
integer height = 2600
integer taborder = 80
boolean bringtotop = true
string title = "none"
string dataobject = "dw_msg_fj_newstyle_demo"
boolean vscrollbar = true
boolean border = false
boolean livescroll = true
end type

event doubleclicked;parent.triggerevent('ue_open_fj')
end event

event clicked;if row > 0 then 
	this.setrow(row)
	if dwo.name = 't_download' then 
		parent.triggerevent('ue_download_fj')
	end if
end if
end event

type st_fjtitle from statictext within w_msg_newstyle
integer x = 3525
integer y = 40
integer width = 329
integer height = 60
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16777215
long backcolor = 29920514
string text = "附件汇总"
boolean focusrectangle = false
end type

type st_empname from statictext within w_msg_newstyle
integer x = 1019
integer y = 40
integer width = 320
integer height = 60
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16777215
long backcolor = 29920514
string text = "姓名"
boolean focusrectangle = false
end type

type mle_edit from multilineedit within w_msg_newstyle
integer x = 1019
integer y = 2148
integer width = 2423
integer height = 528
integer taborder = 40
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
boolean vscrollbar = true
boolean autovscroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;ins_iffocus_msg = false
parent.triggerevent('ue_ifshow_tip')
end event

event getfocus;ins_iffocus_msg = true
parent.triggerevent('ue_ifshow_tip')
end event

type cb_send from commandbutton within w_msg_newstyle
integer x = 3136
integer y = 2684
integer width = 306
integer height = 92
integer taborder = 90
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "发送"
end type

event clicked;String ls_objdpm,ls_msgtitle,ls_s_msg,arg_msg,ls_billcode
Boolean ifcommit
Long ls_i


ls_objdpm = ins_empname
ls_msgtitle = Trim(sle_title.Text)
ls_s_msg = Trim(mle_edit.Text)
ls_billcode = Trim(sle_billcode.Text)

If Trim(ls_objdpm) = '' Then
	MessageBox('系统提示','请指定收件人')
	Return
End If

if ls_s_msg = '' then 
	MessageBox('系统提示','请输入消息内容')
	Return
End If

If Trim(ls_msgtitle) = '' Then
	if len(ls_s_msg) > 12 then 
	ls_msgtitle = left(ls_s_msg,12) + '...'
else
	ls_msgtitle = ls_s_msg
end if
//	MessageBox('系统提示','请输入标题')
//	sle_title.SetFocus()
//	Return
End If

Blob ls_filedata,ls_filedate_arr[]
Long ll_cnt_fj
Long ll_FileID
For ls_i = 1 To UpperBound(ins_msg_fj)
	If f_filetoblob(ins_msg_fj[ls_i].fjpath,ls_filedata,arg_msg) = 0 Then
		MessageBox('系统提示','文件读取失败:'+ ins_msg_fj[ls_i].fjname+'~r~n'+arg_msg)
		Return
	End If
	
	ins_msg_fj[ls_i].filedata = ls_filedata
Next

If ll_cnt_fj = 0 Then
	ifcommit = True
Else
	ifcommit = False
End If

If uo_msg.f_create_admsg(sys_empid,publ_operator,ls_objdpm,ls_msgtitle,ls_s_msg,arg_msg,0,ls_billcode,ifcommit) = 0 Then
	MessageBox('系统提示','消息发送失败'+'~r~n'+arg_msg)
	
	Return
End If

For ls_i = 1 To UpperBound(ins_msg_fj)
	If ls_i = UpperBound(ins_msg_fj) Then
		ifcommit = True
	Else
		ifcommit = False
	End If
	
	If uo_msg.f_save_fj(uo_msg.uo_msgid,&
		ins_msg_fj[ls_i].fjname,&
		ins_msg_fj[ls_i].filedata,&
		0,&
		0,arg_msg,ifcommit) = 0 Then
		MessageBox('系统提示','添加附件失败'+'~r~n'+arg_msg)
		Return
	End If
Next

sle_title.Text = ''
mle_edit.Text = ''
sle_billcode.Text = ''

ins_msg_fj = ins_fj_empty

st_fj_add.text = '添加附件'

//刷新dw_msg,dw_fj
Parent.TriggerEvent('ue_retrieve_msg')
Parent.TriggerEvent('ue_retrieve_fj')



end event

type st_3 from statictext within w_msg_newstyle
integer x = 32
integer y = 40
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16777215
long backcolor = 29920514
string text = "历史联系人"
boolean focusrectangle = false
end type

type st_add_msg from statictext within w_msg_newstyle
integer x = 549
integer y = 44
integer width = 411
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 16777215
long backcolor = 29920514
string text = "新联系人/群发"
boolean focusrectangle = false
end type

event clicked;s_admsg s_msg,s_return
s_msg.ifback = 0 
openwithparm(w_msg_send_normal,s_msg)

s_return = message.powerobjectparm

if s_return.ifsend = 1 then 
	//刷新 
	parent.triggerevent('ue_retrieve_all')
end if
end event

type p_add_msg from picture within w_msg_newstyle
integer x = 466
integer y = 40
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
string picturename = "msg_add_newstyle.jpg"
boolean focusrectangle = false
end type

event clicked;st_add_msg.triggerevent(clicked!)
end event

type st_fjtitle_sub from statictext within w_msg_newstyle
integer x = 3849
integer y = 44
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16777215
long backcolor = 29920514
string text = "双击可打开附件"
boolean focusrectangle = false
end type

type shl_old from statichyperlink within w_msg_newstyle
integer x = 3008
integer y = 44
integer width = 466
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 16777215
long backcolor = 29920514
string text = "进入传统消息管理"
boolean focusrectangle = false
end type

event clicked;long ll_msgid
if dw_msg.getrow() > 0 then 
	ll_msgid = dw_msg.object.msgid[dw_msg.getrow()]
end if

OpenWithParm(w_email_view,ll_msgid)
end event

type p_fj_add from picture within w_msg_newstyle
integer x = 1632
integer y = 2692
integer width = 73
integer height = 64
boolean bringtotop = true
boolean originalsize = true
string picturename = "mt_fj_add.png"
boolean focusrectangle = false
end type

event clicked;parent.triggerevent('ue_add_fj')
end event

type st_fj_add from statictext within w_msg_newstyle
integer x = 1723
integer y = 2700
integer width = 535
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217856
long backcolor = 16777215
string text = "添加附件"
boolean focusrectangle = false
end type

event clicked;parent.triggerevent('ue_add_fj')
end event

type sle_title from singlelineedit within w_msg_newstyle
event key pbm_keydown
integer x = 1019
integer y = 2048
integer width = 2423
integer height = 92
integer taborder = 20
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
borderstyle borderstyle = stylelowered!
end type

event key;if key = keyenter! then 
	mle_edit.setfocus()
end if
end event

event getfocus;ins_iffocus_title = true
parent.triggerevent('ue_ifshow_tip')
end event

event losefocus;ins_iffocus_title = false
parent.triggerevent('ue_ifshow_tip')
end event

type ln_1 from line within w_msg_newstyle
long linecolor = 30988504
integer linethickness = 4
integer beginx = 1033
integer beginy = 124
integer endx = 2080
integer endy = 124
end type

type ln_3 from line within w_msg_newstyle
long linecolor = 30988504
integer linethickness = 4
integer beginx = 3474
integer beginy = 152
integer endx = 3474
integer endy = 712
end type

type st_title_tip_warp from statictext within w_msg_newstyle
boolean visible = false
integer x = 759
integer y = 2048
integer width = 247
integer height = 92
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 15793151
alignment alignment = center!
boolean border = true
long bordercolor = 8421504
boolean focusrectangle = false
end type

type st_title_tip from statictext within w_msg_newstyle
boolean visible = false
integer x = 782
integer y = 2064
integer width = 197
integer height = 60
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 15793151
string text = "标题"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_msg_tip_warp from statictext within w_msg_newstyle
boolean visible = false
integer x = 759
integer y = 2152
integer width = 247
integer height = 92
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 15793151
alignment alignment = center!
boolean border = true
long bordercolor = 8421504
boolean focusrectangle = false
end type

type st_msg_tip from statictext within w_msg_newstyle
boolean visible = false
integer x = 782
integer y = 2168
integer width = 197
integer height = 60
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 15793151
string text = "正文"
alignment alignment = center!
boolean focusrectangle = false
end type

type sle_billcode from singlelineedit within w_msg_newstyle
event key pbm_keydown
integer x = 1019
integer y = 2680
integer width = 549
integer height = 92
integer taborder = 50
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
borderstyle borderstyle = stylelowered!
end type

event getfocus;ins_iffocus_billcode = true
parent.triggerevent('ue_ifshow_tip')
end event

event losefocus;ins_iffocus_billcode = false
parent.triggerevent('ue_ifshow_tip')
end event

type st_billcode_tip_warp from statictext within w_msg_newstyle
boolean visible = false
integer x = 759
integer y = 2680
integer width = 247
integer height = 92
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 15793151
alignment alignment = center!
boolean border = true
long bordercolor = 8421504
boolean focusrectangle = false
end type

type st_billcode_tip from statictext within w_msg_newstyle
boolean visible = false
integer x = 782
integer y = 2700
integer width = 197
integer height = 60
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 15793151
string text = "相关号"
alignment alignment = center!
boolean focusrectangle = false
end type

type sle_find from singlelineedit within w_msg_newstyle
event key pbm_keydown
integer x = 1522
integer y = 36
integer width = 1339
integer height = 60
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
boolean border = false
end type

event key;If Key = keyenter! Then
	Parent.TriggerEvent('ue_retrieve_all')
	sle_find.SetFocus()
End If

end event

event getfocus;
st_search_tip_warp.BringToTop = True
st_search_tip.BringToTop = True

st_search_tip_warp.Visible = True
st_search_tip.Visible = True


end event

event losefocus;st_search_tip.visible = false
st_search_tip_warp.visible = false
end event

type st_1 from statictext within w_msg_newstyle
integer x = 1385
integer y = 36
integer width = 123
integer height = 52
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 16777215
string text = "搜索"
alignment alignment = right!
boolean focusrectangle = false
end type

event clicked;sle_find.setfocus()
end event

type p_filter_close from picture within w_msg_newstyle
integer x = 2875
integer y = 32
integer width = 73
integer height = 64
boolean bringtotop = true
boolean originalsize = true
string picturename = "dm_close.png"
boolean focusrectangle = false
end type

event clicked;If Trim(sle_find.Text) <> '' Then
	sle_find.Text = ''
	Parent.TriggerEvent('ue_retrieve_all')
	
End If

sle_find.SetFocus()

end event

type st_search_tip_warp from statictext within w_msg_newstyle
boolean visible = false
integer x = 1367
integer y = 120
integer width = 800
integer height = 92
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 15793151
alignment alignment = center!
boolean border = true
long bordercolor = 8421504
boolean focusrectangle = false
end type

type st_search_tip from statictext within w_msg_newstyle
boolean visible = false
integer x = 1403
integer y = 136
integer width = 727
integer height = 60
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 15793151
string text = "可搜索标题、正文、相关号"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_no_fj from statictext within w_msg_newstyle
boolean visible = false
integer x = 3872
integer y = 308
integer width = 421
integer height = 104
boolean bringtotop = true
integer textsize = -15
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "黑体"
long textcolor = 8421504
string text = "没有附件"
boolean focusrectangle = false
end type

type r_1 from rectangle within w_msg_newstyle
long linecolor = 12632256
integer linethickness = 4
long fillcolor = 16777215
integer x = 1367
integer y = 12
integer width = 1600
integer height = 100
end type