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

$PBExportHeader$w_msg_send_mt.srw
forward
global type w_msg_send_mt from w_publ_base
end type
type sle_msgtitle from singlelineedit within w_msg_send_mt
end type
type st_2 from statictext within w_msg_send_mt
end type
type mle_objdpm from multilineedit within w_msg_send_mt
end type
type dw_1 from u_dw_rbtnfilter within w_msg_send_mt
end type
type rb_usergrp from radiobutton within w_msg_send_mt
end type
type rb_user from radiobutton within w_msg_send_mt
end type
type cb_que from uo_imflatbutton within w_msg_send_mt
end type
type cb_1 from uo_imflatbutton within w_msg_send_mt
end type
type st_1 from statictext within w_msg_send_mt
end type
type sle_billcode from singlelineedit within w_msg_send_mt
end type
type st_3 from statictext within w_msg_send_mt
end type
type uo_html from uo_html_editor within w_msg_send_mt
end type
type dw_mt_fj from datawindow within w_msg_send_mt
end type
type p_fj_add from picture within w_msg_send_mt
end type
type st_4 from statictext within w_msg_send_mt
end type
type st_fj_add from statictext within w_msg_send_mt
end type
type st_6 from statictext within w_msg_send_mt
end type
type st_send_suc_w from statictext within w_msg_send_mt
end type
type ln_bar from line within w_msg_send_mt
end type
type ln_bar2 from line within w_msg_send_mt
end type
type r_bar from rectangle within w_msg_send_mt
end type
type st_send_suc from statictext within w_msg_send_mt
end type
end forward

global type w_msg_send_mt from w_publ_base
integer x = 23
integer y = 24
integer width = 3502
integer height = 2568
string title = "唛头邮件"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 16777215
event ue_fj_del ( )
event ue_fj_del_all ( )
event ue_fj_add_link ( )
event ue_fj_add ( )
sle_msgtitle sle_msgtitle
st_2 st_2
mle_objdpm mle_objdpm
dw_1 dw_1
rb_usergrp rb_usergrp
rb_user rb_user
cb_que cb_que
cb_1 cb_1
st_1 st_1
sle_billcode sle_billcode
st_3 st_3
uo_html uo_html
dw_mt_fj dw_mt_fj
p_fj_add p_fj_add
st_4 st_4
st_fj_add st_fj_add
st_6 st_6
st_send_suc_w st_send_suc_w
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
st_send_suc st_send_suc
end type
global w_msg_send_mt w_msg_send_mt

type variables
uo_transmsg uo_msg

Blob ins_fjdata[] //附件转换为的blob
Long ins_max_fj = 0//附件数目

s_admsg s_msg,s_return

long ins_kind //0普通 1唛头 -1全部
end variables

forward prototypes
public function integer wf_addobjdpm (string arg_objdpm)
public function integer wf_dw ()
end prototypes

event ue_fj_del();Long lrow
Long ls_i,ls_j = 0
Blob ls_filedata[]
lrow = dw_mt_fj.GetRow()
IF lrow <= 0 THEN
	MessageBox('系统提示','请先选择目标!')
	RETURN
END IF

if messagebox('系统提示','确定要删除当前附件吗?',question!,yesno!) = 2 then return  

dw_mt_fj.DeleteRow(lrow)
end event

event ue_fj_del_all();//Long ls_i
//Blob ls_null[]
//ins_fjdata[] = ls_null[]
//ins_max_fj = 0
//IF dw_msg_fj.RowCount() > 0 THEN
//	FOR ls_i = dw_msg_fj.RowCount() TO 1 STEP -1
//		dw_msg_fj.DeleteRow(ls_i)
//	NEXT
//END IF
//
end event

event ue_fj_add_link();//s_inputbox s_ipb
//String ls_linkpath = ''
//Long ls_newrow
//
//s_ipb.Title = '请输入超链接路径'
//OpenWithParm(w_inputbox,s_ipb)
//ls_linkpath = Message.StringParm
//
//IF Trim(ls_linkpath) = '' THEN
//	RETURN
//END IF
//
//ls_newrow = dw_msg_fj.InsertRow(0)
//dw_msg_fj.Object.fjname[ls_newrow] = ls_linkpath
//dw_msg_fj.Object.fjpath[ls_newrow] = ls_linkpath
//dw_msg_fj.Object.fjtype[ls_newrow] = 1 //0为文件,1为超链接
//ins_max_fj++
//ins_fjdata[ins_max_fj] = Blob(ls_linkpath)
//
end event

event ue_fj_add();////ue_selectfile
	String Pathname,Filename,FileType
	Integer i
	long row

	FileType = ''
	FileType = '所有文件(*.*),*.*,'
	
	//	FileType += "配置文件(*.ini), *.ini," 
	FileType += "Zip压缩文件(*.Zip),*.Zip," 
	FileType += "RAR压缩文件(*.rar),*.rar,"
	//	FileType += "XML文件(*.xml),*.xml," 
	FileType += "文本文件(*.txt),*.txt," 
	FileType += "Excel模版(*.xlt),*.xlt," 
	//	FileType += "Excel文档(*.xls),*.xls," 
	//	FileType += "Word模版(*.dot),*.dot," 
	FileType += "Word文档(*.doc),*.doc,"
	FileType += "JPG(*.JPG),*.JPG,"
	FileType += "位图文件(*.bmp),*.bmp,"	
	FileType += "GIF文件(*.GIF),*.GIF"
	
	i = GetFileOpenName("请选择文件", Pathname,Filename, "All", FileType)
	IF i = 1 AND Trim(Pathname) <> '' AND Trim(Filename) <> "" THEN
		IF Pathname = '' OR NOT FileExists(Pathname) THEN
			MessageBox('系统提示','请选择文件!')
			RETURN
		END IF
		if FileLength(Pathname)/1024 > 10240 then
			messagebox('限制','附件文件大小不得大于10M')
			return
		end if
		
			row= dw_mt_fj.insertrow(0)
			
		dw_mt_fj.Object.fjpath[row] = Pathname
		Long poi = 0,Begin = 1
		Begin = Pos(Filename,'.',1)
		DO WHILE Begin > 0
			poi = Begin
			Begin = Pos(Filename,'.',Begin + 1)
		LOOP
		IF poi > 0 THEN
			dw_mt_fj.Object.fjname[row] = Filename//Mid(Filename,1,poi -1)
			dw_mt_fj.Object.FileType[row] = Mid(Filename,poi +1,Len(Filename) - poi)
		ELSE
			dw_mt_fj.Object.fjname[row] = Filename
			dw_mt_fj.Object.FileType[row] = ''
		END IF
	END IF


//Integer i
//Long ls_i,ls_j,ls_newrow,ls_filesize
//Blob ls_filedata
//String Pathname,ls_filename
//String Filename[],errmsg
//i = GetFileSaveName("选择附件",Pathname,Filename[],"*","程序文件,*.*")
//
//IF i = 1 AND Trim(Pathname) <> '' THEN
//	FOR ls_i = 1 TO UpperBound(Filename)
//		IF UpperBound(Filename) = 1 THEN
//			ls_filename = Pathname
//		ELSE
//			ls_filename = Pathname + '\'+Filename[ls_i]
//		END IF
////		IF dw_msg_fj.Find( 'fjpath='+"'"+ls_filename+"'", 0, dw_msg_fj.RowCount()) > 0 THEN
////			CONTINUE;
////		END IF
////		IF f_filetoblob(ls_filename,ls_filedata,errmsg) = 0 THEN
////			MessageBox('系统提示',errmsg)
////			RETURN
////		END IF
////		ls_filesize = Len(ls_filedata)
//		ls_newrow = dw_mt_fj.InsertRow(0)
//		dw_mt_fj.Object.fjname[ls_newrow] = Filename[ls_i]
//		dw_mt_fj.Object.fileid[ls_newrow] = 0
//		dw_mt_fj.Object.fjpath[ls_newrow] = ls_filename
//	NEXT
//END IF

end event

public function integer wf_addobjdpm (string arg_objdpm);string tmp_objdpm
tmp_objdpm=trim(mle_objdpm.text)



if tmp_objdpm = '' then
	mle_objdpm.text=arg_objdpm
else
	if pos(tmp_objdpm,arg_objdpm,1) > 0  and  len(tmp_objdpm) = len(arg_objdpm) then return 0
	if pos(tmp_objdpm,';'+arg_objdpm+';',1) > 0 then return 0
	if pos(tmp_objdpm,arg_objdpm+';',1) > 0 then return 0
	if pos(tmp_objdpm,';'+arg_objdpm,1) > 0 then return 0
	
	mle_objdpm.text=tmp_objdpm + ';'+arg_objdpm
end if

return 1
end function

public function integer wf_dw ();dw_1.SetRedraw(False)
If rb_user.Checked Then
	dw_1.DataObject = 'dw_objdpm_user_mt'
	dw_1.SetTransObject(sqlca)
	dw_1.Retrieve(sys_empid,ins_kind)
Else
	dw_1.DataObject = 'dw_objdpm_usergrp'
	dw_1.SetTransObject(sqlca)
	dw_1.Retrieve(sys_scid)
End If

dw_1.SetRedraw(True)
Return 1

end function

on w_msg_send_mt.create
int iCurrent
call super::create
this.sle_msgtitle=create sle_msgtitle
this.st_2=create st_2
this.mle_objdpm=create mle_objdpm
this.dw_1=create dw_1
this.rb_usergrp=create rb_usergrp
this.rb_user=create rb_user
this.cb_que=create cb_que
this.cb_1=create cb_1
this.st_1=create st_1
this.sle_billcode=create sle_billcode
this.st_3=create st_3
this.uo_html=create uo_html
this.dw_mt_fj=create dw_mt_fj
this.p_fj_add=create p_fj_add
this.st_4=create st_4
this.st_fj_add=create st_fj_add
this.st_6=create st_6
this.st_send_suc_w=create st_send_suc_w
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.st_send_suc=create st_send_suc
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_msgtitle
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.mle_objdpm
this.Control[iCurrent+4]=this.dw_1
this.Control[iCurrent+5]=this.rb_usergrp
this.Control[iCurrent+6]=this.rb_user
this.Control[iCurrent+7]=this.cb_que
this.Control[iCurrent+8]=this.cb_1
this.Control[iCurrent+9]=this.st_1
this.Control[iCurrent+10]=this.sle_billcode
this.Control[iCurrent+11]=this.st_3
this.Control[iCurrent+12]=this.uo_html
this.Control[iCurrent+13]=this.dw_mt_fj
this.Control[iCurrent+14]=this.p_fj_add
this.Control[iCurrent+15]=this.st_4
this.Control[iCurrent+16]=this.st_fj_add
this.Control[iCurrent+17]=this.st_6
this.Control[iCurrent+18]=this.st_send_suc_w
this.Control[iCurrent+19]=this.ln_bar
this.Control[iCurrent+20]=this.ln_bar2
this.Control[iCurrent+21]=this.r_bar
this.Control[iCurrent+22]=this.st_send_suc
end on

on w_msg_send_mt.destroy
call super::destroy
destroy(this.sle_msgtitle)
destroy(this.st_2)
destroy(this.mle_objdpm)
destroy(this.dw_1)
destroy(this.rb_usergrp)
destroy(this.rb_user)
destroy(this.cb_que)
destroy(this.cb_1)
destroy(this.st_1)
destroy(this.sle_billcode)
destroy(this.st_3)
destroy(this.uo_html)
destroy(this.dw_mt_fj)
destroy(this.p_fj_add)
destroy(this.st_4)
destroy(this.st_fj_add)
destroy(this.st_6)
destroy(this.st_send_suc_w)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.st_send_suc)
end on

event close;

f_setProfileString (sys_empid,this.classname(), "x",string(this.x))
f_setProfileString (sys_empid,this.classname(), "y",string(this.y)) 

closewithreturn(this,s_return)



end event

event open;This.TriggerEvent('ue_before_open')

s_msg = Message.PowerObjectParm
ins_kind = 1
dw_mt_fj.SetTransObject(sys_filedb_sqlca)

wf_dw()

If Integer(f_ProfileString (sys_empid,This.ClassName(), "x",String(This.X))) = 0 Then
	This.X = 23
	This.Y = 24
Else
	This.X = Integer(f_ProfileString (sys_empid,This.ClassName(), "x",String(This.X)))
	This.Y = Integer(f_ProfileString (sys_empid,This.ClassName(), "y",String(This.Y)))
End If

If s_msg.ifback = 1 Then
	mle_objdpm.Text = s_msg.sendemp
	sle_billcode.Text = s_msg.billcode
	sle_msgtitle.Text = '回复:'+s_msg.msgtitle
	uo_html.uf_sethtml('<DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><HR color=#b5c4df SIZE=1>' + s_msg.msg)
Else
	sle_billcode.Text = s_msg.billcode
	
	If s_msg.ifpmc = 0 Then
		If Trim(s_msg.relcode) <> '' Then
			uo_html.uf_sethtml('附件为单号:'+s_msg.relcode+'的唛头文件，请查收')
		ElseIf Trim(s_msg.billcode) <> '' Then
			uo_html.uf_sethtml('附件为单号:'+s_msg.billcode+'的唛头文件，请查收')
		End If
	Elseif s_msg.ifpmc = 1 Then
		uo_html.uf_sethtml('销售订单:'+s_msg.billcode+'唛头用料已审核，请跟进')
	Elseif s_msg.ifpmc = 2 Then
		uo_html.uf_sethtml('销售订单:'+s_msg.billcode+'唛头文件已审核，请进行增加唛头用料操作')		
	End If
	
End If

//读取最近一次发送唛头邮件时的收件人
String ls_objdpm
Select top 1 objdpm
	Into :ls_objdpm
	From Sys_admsg
	Where kind = 1
	And sendempid = :sys_empid
	Order By msgid Desc;
If sqlca.SQLCode = 0 Then
	mle_objdpm.Text = ls_objdpm
End If

//刷新销售订单唛头附件
dw_mt_fj.Retrieve(sys_mt_classid,s_msg.scid,s_msg.relid,s_msg.billtype,0)


end event

event key;if keydown(KeyControl!) and keydown(keyS!) then
	cb_que.triggerevent(clicked!)
	return 1
end if

end event

event resize;call super::resize;//if newwidth < 3493 then this.width = 3493
//if newheight < 2388 then this.height = 2388

ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width

//dw_1.x = this.width - dw_1.width - 40
//rb_user.x = dw_1.x + 50
//rb_usergrp.x = dw_1.x + 300
//
//mle_objdpm.width = dw_1.x - mle_objdpm.x
//sle_msgtitle.width = mle_objdpm.width
//
//uo_html.width = dw_1.x - uo_html.x
//dw_mt_fj.width = uo_html.width
//
//
//
//dw_1.height = this.height - dw_1.y - 140
//
//uo_html.height = this.height - uo_html.y - dw_mt_fj.height - 140
//
//dw_mt_fj.y = uo_html.y + uo_html.height
end event

type cb_func from w_publ_base`cb_func within w_msg_send_mt
boolean visible = false
integer x = 14
integer y = 1092
integer width = 133
integer taborder = 10
boolean enabled = false
string text = ""
end type

type cb_exit from w_publ_base`cb_exit within w_msg_send_mt
integer x = 594
integer width = 151
integer height = 164
integer taborder = 110
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type sle_msgtitle from singlelineedit within w_msg_send_mt
event key pbm_keydown
integer x = 256
integer y = 372
integer width = 2560
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "唛头资料"
boolean autohscroll = false
end type

event modified;keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
keybd_event ( 9, 0, 2, 0 ) // 释放tab 
return 1
end event

type st_2 from statictext within w_msg_send_mt
integer x = 23
integer y = 388
integer width = 224
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
boolean enabled = false
string text = "标题："
alignment alignment = right!
boolean focusrectangle = false
end type

type mle_objdpm from multilineedit within w_msg_send_mt
event key pbm_dwnkey
integer x = 256
integer y = 200
integer width = 2560
integer height = 164
integer taborder = 20
boolean bringtotop = true
integer textsize = -11
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
end type

type dw_1 from u_dw_rbtnfilter within w_msg_send_mt
integer x = 2821
integer y = 260
integer width = 658
integer height = 2216
integer taborder = 130
boolean bringtotop = true
string dataobject = "dw_objdpm_user_mt"
boolean vscrollbar = true
borderstyle borderstyle = stylebox!
boolean rbutton_filter_use = true
end type

event rowfocuschanged;//if currentrow<=0 then return
//this.selectrow(0,false)
//this.selectrow(currentrow,true)
end event

event doubleclicked;if row<=0 then return
string ls_objdpm
if rb_user.checked then
	ls_objdpm=dw_1.object.u_user_username[row]
else
	ls_objdpm=dw_1.object.usergroup[row]
end if


wf_addobjdpm(ls_objdpm)
end event

type rb_usergrp from radiobutton within w_msg_send_mt
integer x = 3118
integer y = 196
integer width = 247
integer height = 52
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 = "用户组"
end type

event clicked;wf_dw()
end event

type rb_user from radiobutton within w_msg_send_mt
integer x = 2871
integer y = 196
integer width = 247
integer height = 52
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;wf_dw()
end event

type cb_que from uo_imflatbutton within w_msg_send_mt
integer width = 398
integer height = 164
integer taborder = 60
string text = "发送[Ctrl+s]"
string normalpicname = "email_view2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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


ls_objdpm = Trim(mle_objdpm.Text)
ls_msgtitle = Trim(sle_msgtitle.Text)
ls_s_msg = Trim(uo_html.uf_gethtml( ))
ls_billcode = Trim(sle_billcode.Text)

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

If Trim(ls_msgtitle) = '' Then
	MessageBox('系统提示','请输入标题')
	sle_msgtitle.SetFocus()
	Return
End If

Blob ls_filedata,ls_filedate_arr[]
Long ll_cnt_fj
String ls_fjname
Long ll_FileID
For ls_i = 1 To dw_mt_fj.RowCount()
	
	ls_fjname = dw_mt_fj.Object.fjname[ls_i]
	
	ll_FileID = dw_mt_fj.Object.fileid[ls_i]
	
	If ll_FileID = 0 Then
		If f_filetoblob(dw_mt_fj.Object.fjpath[ls_i],ls_filedata,arg_msg) = 0 Then
			MessageBox('系统提示','文件读取失败:'+ls_fjname+'~r~n'+arg_msg)
			Return
		End If
	Else
		SelectBlob FileData
		Into :ls_filedata
		From U_File
		Where (fileid = :ll_FileID) Using sys_filedb_sqlca;
		if sys_filedb_sqlca.sqlcode <> 0 then 
			MessageBox('系统提示','文件读取失败:'+ls_fjname+'~r~n'+sys_filedb_sqlca.sqlerrtext)
			Return
		End If
		
	End If
	ll_cnt_fj++
	ls_filedate_arr[ll_cnt_fj] = ls_filedata
Next

If dw_mt_fj.RowCount() = 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 dw_mt_fj.RowCount()
	If ls_i = dw_mt_fj.RowCount() Then
		ifcommit = True
	Else
		ifcommit = False
	End If
	
	If uo_msg.f_save_fj(uo_msg.uo_msgid,&
	dw_mt_fj.Object.fjname[ls_i],&
	ls_filedate_arr[ls_i],&
	0,&
	0,arg_msg,ifcommit) = 0 Then
		MessageBox('系统提示','添加附件失败'+'~r~n'+arg_msg)
		Return
	End If
Next

s_return.ifsend = 1 

st_send_suc_w.visible = true
st_send_suc.visible = true


long begintime ,endtime,stoptime 
begintime = cpu()
do while stoptime < 600//(毫秒)
//   Yield()
   endtime = cpu()
   stoptime = endtime - begintime
loop

cb_exit.postevent(clicked!)
//Close(Parent)






end event

type cb_1 from uo_imflatbutton within w_msg_send_mt
boolean visible = false
integer x = 398
integer width = 197
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "附件"
string normalpicname = "email_fj.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;	m_Dfc_Control_PopupMenu dmPopupMenu
	String menustr,ls_level
	menustr = "Text=添附件~tEvent=ue_fj_add"
	menustr = menustr + "|" + "Text=添链接~tEvent=ue_fj_add_link"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=删条目~tEvent=ue_fj_del"
	menustr = menustr + "|" + "Text=清空~tEvent=ue_fj_del_all"
	
	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

type st_1 from statictext within w_msg_send_mt
integer x = 23
integer y = 200
integer width = 224
integer height = 48
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 = "收件人："
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_billcode from singlelineedit within w_msg_send_mt
event key pbm_keydown
integer x = 256
integer y = 464
integer width = 704
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
end type

event modified;keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
keybd_event ( 9, 0, 2, 0 ) // 释放tab 
return 1
end event

type st_3 from statictext within w_msg_send_mt
integer x = 23
integer y = 480
integer width = 224
integer height = 48
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 = "相关号："
alignment alignment = right!
boolean focusrectangle = false
end type

type uo_html from uo_html_editor within w_msg_send_mt
integer x = 256
integer y = 564
integer width = 2560
integer height = 912
integer taborder = 60
boolean bringtotop = true
boolean border = true
end type

on uo_html.destroy
call uo_html_editor::destroy
end on

type dw_mt_fj from datawindow within w_msg_send_mt
integer x = 256
integer y = 1572
integer width = 2560
integer height = 908
integer taborder = 20
boolean bringtotop = true
string title = "none"
string dataobject = "dw_msg_mt_fj"
boolean vscrollbar = true
boolean livescroll = true
end type

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

type p_fj_add from picture within w_msg_send_mt
integer x = 261
integer y = 1496
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_fj_add')
end event

type st_4 from statictext within w_msg_send_mt
integer x = 23
integer y = 576
integer width = 224
integer height = 48
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 = "正文："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_fj_add from statictext within w_msg_send_mt
integer x = 352
integer y = 1504
integer width = 256
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_fj_add')
end event

type st_6 from statictext within w_msg_send_mt
integer x = 23
integer y = 1592
integer width = 224
integer height = 48
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 = "附件："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_send_suc_w from statictext within w_msg_send_mt
boolean visible = false
integer x = 1285
integer y = 76
integer width = 704
integer height = 236
boolean bringtotop = true
integer textsize = -20
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "黑体"
long textcolor = 33554432
long backcolor = 15793151
boolean border = true
long bordercolor = 12632256
boolean focusrectangle = false
end type

type ln_bar from line within w_msg_send_mt
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3200
integer endy = 172
end type

type ln_bar2 from line within w_msg_send_mt
long linecolor = 16777215
integer linethickness = 4
integer beginx = 14
integer beginy = 176
integer endx = 3278
integer endy = 176
end type

type r_bar from rectangle within w_msg_send_mt
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 2126
integer y = 40
integer width = 87
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

type st_send_suc from statictext within w_msg_send_mt
boolean visible = false
integer x = 1371
integer y = 136
integer width = 544
integer height = 116
boolean bringtotop = true
integer textsize = -20
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "黑体"
long textcolor = 33554432
long backcolor = 15793151
string text = "发送成功"
boolean focusrectangle = false
end type