Q5/ws_objects/Ew_email.pbl.src/w_email_sendmx_new.srw

$PBExportHeader$w_email_sendmx_new.srw
forward
global type w_email_sendmx_new from w_publ_base
end type
type cb_add from uo_imflatbutton within w_email_sendmx_new
end type
type cb_del from uo_imflatbutton within w_email_sendmx_new
end type
type dw_revlist from u_dw_rbtnfilter within w_email_sendmx_new
end type
type cb_ok from uo_imflatbutton within w_email_sendmx_new
end type
type cb_cancel from uo_imflatbutton within w_email_sendmx_new
end type
type tv_1 from treeview within w_email_sendmx_new
end type
type sle_1 from singlelineedit within w_email_sendmx_new
end type
type sle_2 from singlelineedit within w_email_sendmx_new
end type
type lv_1 from listview within w_email_sendmx_new
end type
type cb_find from uo_imflatbutton within w_email_sendmx_new
end type
type cb_3 from uo_imflatbutton within w_email_sendmx_new
end type
type cb_1 from uo_imflatbutton within w_email_sendmx_new
end type
type ln_bar from line within w_email_sendmx_new
end type
type ln_bar2 from line within w_email_sendmx_new
end type
end forward

global type w_email_sendmx_new from w_publ_base
integer width = 4037
integer height = 2144
string title = "选择收件人"
boolean minbox = false
windowtype windowtype = response!
event ue_add_mail ( )
cb_add cb_add
cb_del cb_del
dw_revlist dw_revlist
cb_ok cb_ok
cb_cancel cb_cancel
tv_1 tv_1
sle_1 sle_1
sle_2 sle_2
lv_1 lv_1
cb_find cb_find
cb_3 cb_3
cb_1 cb_1
ln_bar ln_bar
ln_bar2 ln_bar2
end type
global w_email_sendmx_new w_email_sendmx_new

type variables
long il_tv_handle
long ll_lastrow = 0
s_sendmx_parm s_sendmxx
end variables

forward prototypes
public function boolean wf_cansee_cusarea (long arg_cusareaid)
public function boolean wf_cansee_spttype (long arg_spttypeid)
public function boolean wf_cusarea_haschild (long cusareaid)
public function boolean wf_cus_haschild (long cusid)
public function boolean wf_spttype_haschild (long spttypeid)
public function boolean wf_spt_haschild (long sptid)
public function boolean wf_group_haschild (long arg_groupid)
end prototypes

event ue_add_mail();long ll_row
if trim(sle_2.text) = '' then return
if dw_revlist.Find('revaddress=~'' + trim(sle_2.text) + '~'', 1, dw_revlist.RowCount()) = 0 then
	ll_row = dw_revlist.insertrow(0)
	dw_revlist.object.sendid[ll_row] = 0
	dw_revlist.object.printid[ll_row] = 0
	dw_revlist.object.reltype[ll_row] = 3
	dw_revlist.object.relid[ll_row] = 0
	dw_revlist.object.revaddress[ll_row] = trim(sle_2.text)
	dw_revlist.object.revname[ll_row] = trim(sle_2.text)
	dw_revlist.object.dscrp[ll_row] = ''
else
	MessageBox('提示', sle_2.text + '已存在!')
end if
end event

public function boolean wf_cansee_cusarea (long arg_cusareaid);long i
for i = lowerbound(sys_areaid) to upperbound(sys_areaid)
	if arg_cusareaid = sys_areaid[i] then
		return true
	end if
next

return false
end function

public function boolean wf_cansee_spttype (long arg_spttypeid);long i
for i = lowerbound(sys_user_spttype) to upperbound(sys_user_spttype)
	if arg_spttypeid = sys_user_spttype[i] then
		return true
	end if
next

return false
end function

public function boolean wf_cusarea_haschild (long cusareaid);boolean rslt = false
long ll_cusareaid
declare cursor1 cursor for
	select cusareaid
	from u_cusarea
	where parentid = :cusareaid;
open cursor1;
fetch cursor1 INTO :ll_cusareaid;
do while sqlca.sqlcode = 0
	if not wf_cansee_cusarea(ll_cusareaid) then goto ext1
	rslt = true
	goto ext2
	ext1:
	fetch cursor1 INTO :ll_cusareaid;
loop
ext2:
close cursor1;
if rslt then goto ext

long ll_cusid
string ls_mailname, ls_mailaddress
declare cursor2 cursor for
	SELECT     cusid AS relid, cuscode AS mailname, email AS mailaddress
	FROM         u_cust
	WHERE     (inuse = 1) AND (cusareaid = :cusareaid);
open cursor2;
fetch cursor2 INTO :ll_cusid, :ls_mailname, :ls_mailaddress;
do while sqlca.sqlcode = 0
	if trim(ls_mailaddress) <> '' then
		rslt = true
		exit
	else
		if wf_cus_haschild(ll_cusid) then
			rslt = true
			exit
		end if
	end if
	fetch cursor2 INTO :ll_cusid, :ls_mailname, :ls_mailaddress;
loop
close cursor2;
	

ext:
return rslt
end function

public function boolean wf_cus_haschild (long cusid);boolean rslt = false
long ll_count = 0
SELECT count(0) INTO :ll_count
	FROM u_cust_rep
	WHERE (cusid = :cusid) and RTRIM(LTRIM(email)) <> '';
if ll_count > 0 then
	rslt = true
end if

return rslt

end function

public function boolean wf_spttype_haschild (long spttypeid);return false
end function

public function boolean wf_spt_haschild (long sptid);boolean rslt = false
long ll_count = 0

SELECT count(0) INTO :ll_count
	FROM  u_spt_rep
	WHERE (sptid = :sptid) 
	and RTRIM(LTRIM(u_spt_rep.email)) <> '';

if ll_count > 0 then rslt = true


return rslt
end function

public function boolean wf_group_haschild (long arg_groupid);boolean rslt = false
long ll_count = 0
SELECT count(0) INTO :ll_count
	FROM u_rep_group
	WHERE (groupid = :arg_groupid);
if ll_count > 0 then
	rslt = true
end if

return rslt
end function

on w_email_sendmx_new.create
int iCurrent
call super::create
this.cb_add=create cb_add
this.cb_del=create cb_del
this.dw_revlist=create dw_revlist
this.cb_ok=create cb_ok
this.cb_cancel=create cb_cancel
this.tv_1=create tv_1
this.sle_1=create sle_1
this.sle_2=create sle_2
this.lv_1=create lv_1
this.cb_find=create cb_find
this.cb_3=create cb_3
this.cb_1=create cb_1
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_add
this.Control[iCurrent+2]=this.cb_del
this.Control[iCurrent+3]=this.dw_revlist
this.Control[iCurrent+4]=this.cb_ok
this.Control[iCurrent+5]=this.cb_cancel
this.Control[iCurrent+6]=this.tv_1
this.Control[iCurrent+7]=this.sle_1
this.Control[iCurrent+8]=this.sle_2
this.Control[iCurrent+9]=this.lv_1
this.Control[iCurrent+10]=this.cb_find
this.Control[iCurrent+11]=this.cb_3
this.Control[iCurrent+12]=this.cb_1
this.Control[iCurrent+13]=this.ln_bar
this.Control[iCurrent+14]=this.ln_bar2
end on

on w_email_sendmx_new.destroy
call super::destroy
destroy(this.cb_add)
destroy(this.cb_del)
destroy(this.dw_revlist)
destroy(this.cb_ok)
destroy(this.cb_cancel)
destroy(this.tv_1)
destroy(this.sle_1)
destroy(this.sle_2)
destroy(this.lv_1)
destroy(this.cb_find)
destroy(this.cb_3)
destroy(this.cb_1)
destroy(this.ln_bar)
destroy(this.ln_bar2)
end on

event open;call super::open;s_sendmx_parm s_sendmx
long i, ll_row

s_sendmx = Message.PowerObjectParm
for i = 1 to upperbound(s_sendmx.sendmx)
		ll_row = dw_revlist.InsertRow(0)
		dw_revlist.Object.sendid[ll_row] = 0
		dw_revlist.Object.printid[ll_row] = ll_row
		dw_revlist.Object.reltype[ll_row] = s_sendmx.sendmx[i].reltype
		dw_revlist.Object.relid[ll_row] = s_sendmx.sendmx[i].relid
		dw_revlist.Object.revaddress[ll_row] = s_sendmx.sendmx[i].revaddress
		dw_revlist.Object.revname[ll_row]  = s_sendmx.sendmx[i].revname
next
end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
end event

type cb_func from w_publ_base`cb_func within w_email_sendmx_new
boolean visible = false
integer x = 2245
integer y = 1656
end type

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

type cb_add from uo_imflatbutton within w_email_sendmx_new
integer x = 1705
integer y = 612
integer taborder = 20
boolean bringtotop = true
string text = "添加"
string normalpicname = "p4.ICO"
integer picsize = 16
toolbaralignment pic_align = alignatright!
end type

event clicked;call super::clicked;if tv_1.visible then
	tv_1.trigger event doubleclicked(il_tv_handle)
	tv_1.setfocus( )
else
	listviewitem l_lvi
	s_tv_data s_data
	long ll_index = 0, ll_row
	ll_index = lv_1.finditem(ll_index, DirectionAll!, false, true, false, false)
	do while (ll_index > 0)
		if lv_1.getitem(ll_index, l_lvi) = 1 then
			s_data = l_lvi.data
			if trim(s_data.mailaddress) = '' then goto ext
			if dw_revlist.Find('relid=' + string(s_data.relid) + ' and reltype=' + string(s_data.reltype), 1, dw_revlist.RowCount()) = 0 then
				ll_row = dw_revlist.insertrow(0)
				dw_revlist.object.sendid[ll_row] = 0
				dw_revlist.object.printid[ll_row] = 0
				dw_revlist.object.reltype[ll_row] = s_data.reltype
				dw_revlist.object.relid[ll_row] = s_data.relid
				dw_revlist.object.revaddress[ll_row] = s_data.mailaddress
				dw_revlist.object.revname[ll_row] = s_data.mailname
				dw_revlist.object.dscrp[ll_row] = ''
			end if
		end if		
		ext:
		ll_index = lv_1.finditem(ll_index, DirectionDown!, false, true, false, false)
	loop
end if
end event

type cb_del from uo_imflatbutton within w_email_sendmx_new
integer x = 1705
integer y = 768
integer taborder = 30
boolean bringtotop = true
string text = "删除"
string normalpicname = "p1.ICO"
integer picsize = 16
end type

event clicked;call super::clicked;long ll_row
dw_revlist.setredraw(false)
for ll_row = dw_revlist.RowCount() TO 1 Step -1
	if dw_revlist.IsSelected(ll_row) then
		dw_revlist.deleteRow(ll_row)
	end if
next

dw_revlist.setredraw(true)
dw_revlist.setfocus( )

end event

type dw_revlist from u_dw_rbtnfilter within w_email_sendmx_new
integer x = 2048
integer y = 112
integer width = 1952
integer height = 1788
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_email_sendmx_view"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
string cur_allowversion = "0"
end type

event doubleclicked;call super::doubleclicked;if row > 0 then
	dw_revlist.deleterow(row)
end if
end event

event clicked;call super::clicked;long ll_i
IF row > 0 THEN
	THIS.SetRow(row)
	
	IF KeyDown(keycontrol!) THEN
		THIS.SelectRow(row,NOT THIS.IsSelected(row))
		ll_lastrow = row
	ELSEIF KeyDown(keyshift!) THEN //按下SHIFT键
		IF ll_lastrow = 0 THEN //上次没选中任何行
			THIS.SelectRow(row,TRUE)
			ll_lastrow = row //ll_lastrow为实例变量，记录上次单击的行
		ELSE
			THIS.SelectRow(0,FALSE) //全都不选中
			IF row > ll_lastrow THEN
				FOR ll_i = ll_lastrow TO row
					THIS.SelectRow(ll_i,TRUE)
				NEXT
			ELSE
				FOR ll_i = ll_lastrow TO row STEP -1
					THIS.SelectRow(ll_i,TRUE)
				NEXT
			END IF
		END IF
	ELSE
		THIS.SelectRow(0,FALSE)
		THIS.SelectRow(row,TRUE)
		ll_lastrow = row
	END IF
END IF
end event

type cb_ok from uo_imflatbutton within w_email_sendmx_new
integer x = 3337
integer y = 1952
integer taborder = 30
boolean bringtotop = true
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;
long i
FOR i = 1 TO dw_revlist.RowCount()
	s_sendmxx.sendmx[i].printid = i
	s_sendmxx.sendmx[i].sendid = 0
	s_sendmxx.sendmx[i].reltype = dw_revlist.Object.reltype[i]
	s_sendmxx.sendmx[i].Relid = dw_revlist.Object.Relid[i]
	s_sendmxx.sendmx[i].Revname = RightTrim(LeftTrim(dw_revlist.Object.Revname[i]))
	s_sendmxx.sendmx[i].revaddress = RightTrim(LeftTrim(dw_revlist.Object.revaddress[i]))
	s_sendmxx.sendmx[i].repname = RightTrim(LeftTrim(dw_revlist.Object.repname[i]))
NEXT

closewithreturn(parent, s_sendmxx)
end event

type cb_cancel from uo_imflatbutton within w_email_sendmx_new
integer x = 3680
integer y = 1952
integer taborder = 40
boolean bringtotop = true
string text = "取消"
boolean cancel = true
string normalpicname = "exit.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;close(parent)
end event

type tv_1 from treeview within w_email_sendmx_new
integer y = 112
integer width = 1659
integer height = 1788
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
borderstyle borderstyle = stylelowered!
string picturename[] = {"email_whitebook.bmp","email_colorbook.bmp","email_rep.bmp",""}
long picturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
end type

event constructor;/****************************************************************
 * global type s_tv_data from structure
 *		integer		reltype
 *		long		   relid
 *		string		mailname
 *		string		mailaddress
 *	end type
 * reltype: 0: 通信录联系人
 *          1: 客户
 *          2: 供应商
 *          4: 客户联系人
 *          5: 供应商联系人
 *          ---------------
 *          10: 通信录
 *          11: 客户区域
 *          12: 客户区域根目录
 *          13: 供应商类别
 *          14: 供应商类别根目录
 *          -------------------
 *          -1: 根目录
 *
 *
 *
*****************************************************************/


Long tvi_hdl = 0
Long ll_parent, ll_rep_hand, ll_cus_hand, ll_spt_hand,ll_self_hand
ll_parent = This.InsertItemLast(0,'[双击添加]', 1)
ll_rep_hand = This.InsertItemLast(ll_parent, '通讯录', 2)
ll_cus_hand = This.InsertItemLast(ll_parent, '客户', 2)
ll_spt_hand = This.InsertItemLast(ll_parent, '供应商', 2)
ll_self_hand= This.InsertItemLast(ll_parent, '自定义分组', 2)




TreeViewItem l_tvi
s_tv_data s_data
IF This.GetItem(ll_parent, l_tvi) = 1 THEN
	s_data.reltype = -1
	s_data.relid = 0
	s_data.mailname = ''
	s_data.mailAddress = ''
	l_tvi.Data = s_data
	This.SetItem(ll_parent, l_tvi)
END IF
IF This.GetItem(ll_rep_hand, l_tvi) = 1 THEN
	l_tvi.Children = True
	s_data.reltype = 10
	s_data.relid = 0
	s_data.mailname = ''
	s_data.mailAddress = ''
	l_tvi.Data = s_data
	This.SetItem(ll_rep_hand, l_tvi)
END IF
IF This.GetItem(ll_cus_hand, l_tvi) = 1 THEN
	l_tvi.Children = True
	s_data.reltype = 12
	s_data.relid = 0
	s_data.mailname = ''
	s_data.mailAddress = ''
	l_tvi.Data = s_data
	This.SetItem(ll_cus_hand, l_tvi)
END IF
IF This.GetItem(ll_spt_hand, l_tvi) = 1 THEN
	l_tvi.Children = True
	s_data.reltype = 14
	s_data.relid = 0
	s_data.mailname = ''
	s_data.mailAddress = ''
	l_tvi.Data = s_data
	This.SetItem(ll_spt_hand, l_tvi)
END IF

IF This.GetItem(ll_self_hand, l_tvi) = 1 THEN
	l_tvi.Children = True
	s_data.reltype = 15
	s_data.relid = 0
	s_data.mailname = ''
	s_data.mailAddress = ''
	l_tvi.Data = s_data
	This.SetItem(ll_self_hand, l_tvi)
END IF

This.ExpandItem(ll_parent)

end event

event itemexpanding;treeviewitem l_tvi, l_tvi_new
IF This.GetItem(Handle, l_tvi) <> 1 THEN
	RETURN
END IF
s_tv_data s_data, s_data_new
s_data = l_tvi.Data
Long ll_relid, ll_new_handle, ll_cnt
String ls_mailname, ls_mailaddress,ls_repname
//MessageBox("",String(s_data.reltype))
IF Not l_tvi.ExpandedOnce THEN
	Boolean hasChild = False
	/////////////////////////////////////////////////////////////// //
	IF s_data.reltype = 10 THEN // 加入通信录联系人
		
		DECLARE cursor10 CURSOR FOR
			SELECT     repID AS relid, mailname, mailaddress
			FROM         u_email_rep
			WHERE    ( (empid = :sys_empid) OR
			(empid = 0) )And (reptype = 1);
		OPEN cursor10;
		FETCH cursor10 Into :ll_relid, :ls_mailname, :ls_mailaddress;
		DO While (sqlca.SQLCode = 0)
			s_data_new.reltype = 0 //
			s_data_new.relid = ll_relid
			s_data_new.mailname = ls_mailname
			s_data_new.mailAddress = ls_mailaddress
			ll_new_handle = This.InsertItemLast(Handle, ls_mailname + '<' + ls_mailaddress + '>', 3) // 在此设置联系人图标
			IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
				l_tvi_new.Data = s_data_new
				This.SetItem(ll_new_handle, l_tvi_new)
			END IF
			
			hasChild = True
			FETCH cursor10 Into :ll_relid, :ls_mailname, :ls_mailaddress;
		LOOP
		CLOSE cursor10;
		
		///////////////////////////////////////////////////////////////// //
	ELSEIF s_data.reltype = 12 Or s_data.reltype = 11 THEN // 加入客户区域
		
		DECLARE cursor12 CURSOR FOR
			SELECT cusareaid, cusareaname, areaname
			FROM   u_cusarea
			Where  parentid = :s_data.relid;
		OPEN cursor12;
		FETCH cursor12 Into :ll_relid, :ls_mailname, :ls_mailaddress;
		DO While (sqlca.SQLCode = 0)
			IF Not wf_cansee_cusarea(ll_relid) THEN GOTO ext12
			s_data_new.reltype = 11
			s_data_new.relid = ll_relid
			s_data_new.mailname = ''
			s_data_new.mailAddress = ''
			s_data_new.repname = ''
			ll_new_handle = This.InsertItemLast(Handle, ls_mailname, 2) // 在此设置区域图标
			IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
				l_tvi_new.Children = wf_cusarea_haschild(ll_relid)
				l_tvi_new.Data = s_data_new
				This.SetItem(ll_new_handle, l_tvi_new)
			END IF
			
			hasChild = True
			ext12:
			FETCH cursor12 Into :ll_relid, :ls_mailname, :ls_mailaddress;
		LOOP
		CLOSE cursor12;
		
		///////////////////////////////////////////////////////////////// //
		IF s_data.reltype = 11 THEN // 加入客户
			
			DECLARE cursor11 CURSOR FOR
				SELECT     cusid AS relid,ltrim(rtrim( name))+' '+rep AS mailname, email AS mailaddress,u_cust.rep
				FROM         u_cust
				Where     (inuse = 1) And (cusareaid = :s_data.relid);
			OPEN cursor11;
			FETCH cursor11 Into :ll_relid, :ls_mailname, :ls_mailaddress,:ls_repname;
			DO While (sqlca.SQLCode = 0)
				s_data_new.reltype = 1
				s_data_new.relid = ll_relid
				s_data_new.mailname = ls_mailname
				s_data_new.mailAddress = ls_mailaddress
				s_data_new.repname = ls_repname
				Long Len
				Len = Len(ls_mailname)
				IF Trim(ls_mailaddress) = '' And Not wf_cus_haschild(ll_relid) THEN GOTO ext11
				ll_new_handle = This.InsertItemLast(Handle,ls_mailname + '<' + ls_mailaddress + '>', 3) // 在此设置客户图标
				IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
					l_tvi_new.Children = wf_cus_haschild(ll_relid)
					l_tvi_new.Data = s_data_new
					This.SetItem(ll_new_handle, l_tvi_new)
				END IF
				
				hasChild = True
				ext11:
				FETCH cursor11 Into :ll_relid, :ls_mailname, :ls_mailaddress,:ls_repname;
			LOOP
			CLOSE cursor11;
			
		END IF
		
		///////////////////////////////////////////////////////////////////// //
	ELSEIF s_data.reltype = 14 THEN // 加入供应商类别
		
		DECLARE cursor14 CURSOR FOR
			SELECT u_spttype.spttypeid,
			u_spttype.spttypename
			FROM u_spttype
			Where  u_spttype.inuse = 1;
		OPEN cursor14;
		FETCH cursor14 Into :ll_relid, :ls_mailname;
		DO While (sqlca.SQLCode = 0)
			IF Not wf_cansee_spttype(ll_relid) THEN GOTO ext14
			s_data_new.reltype = 13
			s_data_new.relid = ll_relid
			s_data_new.mailname = ''
			s_data_new.mailAddress = ''
			s_data_new.repname = ''
			ll_new_handle = This.InsertItemLast(Handle, ls_mailname, 2) // 在此设置供应商类别图标
			IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
				SELECT count(0) Into :ll_cnt From u_spt Where spttypeid = :ll_relid;
				IF sqlca.SQLCode = 0 And ll_cnt > 0 THEN
					l_tvi_new.Children = True
				END IF
				l_tvi_new.Data = s_data_new
				This.SetItem(ll_new_handle, l_tvi_new)
			END IF
			
			hasChild = True
			ext14:
			FETCH cursor14 Into :ll_relid, :ls_mailname;
		LOOP
		CLOSE cursor14;
		
		///////////////////////////////////////////////////// //
	ELSEIF s_data.reltype = 13 THEN // 加入供应商
		
		DECLARE cursor13 CURSOR FOR
			SELECT    sptid AS relid, ltrim(rtrim( name))+' '+rep AS mailname, email AS mailaddress,u_spt.rep
			FROM         u_spt
			Where     (inuse = 1) And (spttypeid = :s_data.relid);
		OPEN cursor13;
		FETCH cursor13 Into :ll_relid, :ls_mailname, :ls_mailaddress,:ls_repname;
		DO While (sqlca.SQLCode = 0)
			s_data_new.reltype = 2
			s_data_new.relid = ll_relid
			s_data_new.mailname = ls_mailname
			s_data_new.mailAddress = ls_mailaddress
			s_data_new.repname = ls_repname
			IF Trim(ls_mailaddress) = '' And Not wf_spt_haschild(ll_relid) THEN GOTO ext13
			ll_new_handle = This.InsertItemLast(Handle, ls_mailname + '<' + ls_mailaddress + '>', 3) // 设置供应商图标
			IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
				SELECT count(0) Into :ll_cnt From u_spt_rep Where sptid = :ll_relid;
				IF sqlca.SQLCode = 0 And ll_cnt > 0 THEN
					l_tvi_new.Children = True
				END IF
				l_tvi_new.Data = s_data_new
				This.SetItem(ll_new_handle, l_tvi_new)
			END IF
			
			hasChild = True
			ext13:
			FETCH cursor13 Into :ll_relid, :ls_mailname, :ls_mailaddress,:ls_repname;
		LOOP
		CLOSE cursor13;
		
		//////////////////////////////////////////////////////////// //	
		
		///////////////////////////////////////////////////////////////// //
	ELSEIF s_data.reltype =  15 THEN // 加入自定义分组
		
		DECLARE cursor15 CURSOR FOR
			SELECT groupid, groupname
			FROM   u_rep_group
			Where  if_Parent = 0;
		OPEN cursor15;
		FETCH cursor15 Into :ll_relid, :ls_mailname;
		DO While (sqlca.SQLCode = 0)
			
			s_data_new.reltype = 1501
			s_data_new.relid = ll_relid
			s_data_new.mailname = ''
			s_data_new.mailAddress = ''
			s_data_new.repname = ''
			ll_new_handle = This.InsertItemLast(Handle, ls_mailname, 2) // 在此设置区域图标
			IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
				l_tvi_new.Children = wf_group_haschild(ll_relid)
				l_tvi_new.Data = s_data_new
				This.SetItem(ll_new_handle, l_tvi_new)
			END IF
			
			hasChild = True
			
			FETCH cursor15 Into :ll_relid, :ls_mailname;
		LOOP
		CLOSE cursor15;
		
		///////////////////////////////////////////////////////////////// //
		
		///////////////////////////////////////////////////////////////// //
		//		IF Trim(ls_mailaddress) = '' And Not wf_spt_haschild(ll_relid) THEN GOTO ext13
		//			ll_new_handle = This.InsertItemLast(Handle, ls_mailname + '<' + ls_mailaddress + '>', 3) // 设置供应商图标
	ELSEIF s_data.reltype =  1501 THEN // 加入自定义分组
		Long lj_groupid,lj_reltype,lj_relid,lj_repid
		DECLARE cursor1501 CURSOR FOR
			SELECT groupid, reltype,relid,repid
			FROM   u_rep_groupmx
			Where  groupid = :s_data.relid;
		OPEN cursor1501;
		FETCH cursor1501 Into :lj_groupid, :lj_reltype,:lj_relid,:lj_repid;
		DO While (sqlca.SQLCode = 0)
			IF lj_reltype = 0 THEN //客户类型
				IF lj_repid = 0 THEN //没有客户联系人
					SELECT u_cust.Name, u_cust.rep,u_cust.email Into :ls_mailname,:ls_repname,:ls_mailaddress From u_cust Where u_cust.cusid = :lj_relid;
				ELSE //有客户联系人
					SELECT u_cust.Name Into :ls_mailname From u_cust Where u_cust.cusid = :lj_relid;
					SELECT  u_cust_rep.repname, u_cust_rep.email Into :ls_repname,:ls_mailaddress From u_cust_rep Where u_cust_rep.cusid = :lj_relid And u_cust_rep.repID = :lj_repid;
				END IF
			ELSEIF lj_reltype = 1 THEN //供应商类型
				IF lj_repid = 0 THEN //没有供应商联系人
					SELECT u_spt.Name, u_spt.rep, u_spt.email Into :ls_mailname,:ls_repname,:ls_mailaddress From u_spt Where u_spt.sptid = :lj_relid;
				ELSE //有供应商联系人
					SELECT u_spt.Name Into :ls_mailname From u_spt Where u_spt.sptid = :lj_relid;
					SELECT  u_spt_rep.repname,u_spt_rep.email Into :ls_repname,:ls_mailaddress From u_spt_rep Where u_spt_rep.sptid = :lj_relid And u_spt_rep.repID = :lj_repid;
				END IF
			END IF
			IF lj_reltype = 2  THEN
				SELECT groupname INTO :ls_mailname
					FROM   u_rep_group
					Where  groupid = :lj_relid;
				s_data_new.reltype = 1501
				s_data_new.relid = lj_relid
				s_data_new.mailname = ''
				s_data_new.mailAddress = ''
				s_data_new.repname = ''
				ll_new_handle = This.InsertItemLast(Handle, ls_mailname, 2) // 在此设置区域图标
				IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
					l_tvi_new.Children = True
					l_tvi_new.Data = s_data_new
					This.SetItem(ll_new_handle, l_tvi_new)
				END IF
			ELSE
				s_data_new.reltype = 4
				s_data_new.relid = lj_relid
				s_data_new.mailname = ls_mailname + '_' +ls_repname
				s_data_new.mailAddress = ls_mailaddress
				s_data_new.repname = ls_repname
				IF ls_mailaddress <> '' THEN
					ll_new_handle = This.InsertItemLast(Handle, ls_mailname + '_'  + ls_repname + '<' + ls_mailaddress + '>', 3)
					IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
						l_tvi_new.Children = False
						l_tvi_new.Data = s_data_new
						This.SetItem(ll_new_handle, l_tvi_new)
					END IF
				END IF
			END IF
			
			hasChild = True
			
			FETCH cursor1501 Into :lj_groupid, :lj_reltype,:lj_relid,:lj_repid;
		LOOP
		CLOSE cursor1501;
		
		///////////////////////////////////////////////////////////////// //		
		
		
		
		
		
		
		
		
	ELSEIF s_data.reltype = 1 THEN // 加入客户联系人
		
		DECLARE cursor1 CURSOR FOR
			SELECT u_cust_rep.repid, RTRIM(LTRIM(u_cust_1.cuscode)) + '-' + RTRIM(LTRIM(u_cust_rep.repname)) AS mailname,u_cust_rep.repname,
			u_cust_rep.email AS mailaddress
			FROM         u_cust AS u_cust_1 INNER JOIN
			u_cust_rep ON u_cust_1.cusid = u_cust_rep.cusid
			WHERE     (u_cust_1.inuse = 1) AND (u_cust_1.cusid = :s_data.relid)
			And (RTRIM(LTRIM(u_cust_rep.email)) <> '');
		OPEN cursor1;
		FETCH cursor1 Into :ll_relid, :ls_mailname, :ls_mailaddress,:ls_repname;
		DO While(sqlca.SQLCode = 0)
			s_data_new.reltype = 4
			s_data_new.relid = ll_relid
			s_data_new.mailname = ls_mailname
			s_data_new.mailAddress = ls_mailaddress
			s_data_new.repname = ls_repname
			ll_new_handle = This.InsertItemLast(Handle, ls_mailname + '<' + ls_mailaddress + '>', 3) // 设置客户联系人图标
			IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
				l_tvi_new.Data = s_data_new
				This.SetItem(ll_new_handle, l_tvi_new)
			END IF
			
			hasChild = True
			FETCH cursor1 Into :ll_relid, :ls_mailname, :ls_mailaddress,:ls_repname;
		LOOP
		CLOSE cursor1;
		
	ELSEIF s_data.reltype = 2 THEN // 加入供应商联系人
		
		DECLARE cursor2 CURSOR FOR
			SELECT u_spt_rep.repid, RTRIM(LTRIM(u_spt_1.sptcode)) + '-' + RTRIM(LTRIM(u_spt_rep.repname)) AS mailname,u_spt_rep.repname,
			u_spt_rep.email AS mailaddress
			FROM         u_spt AS u_spt_1 INNER JOIN
			u_spt_rep ON u_spt_1.sptid = u_spt_rep.sptid
			WHERE     (u_spt_1.inuse = 1) AND (u_spt_1.sptid = :s_data.relid)
			And (RTRIM(LTRIM(u_spt_rep.email)) <> '');
		OPEN cursor2;
		FETCH cursor2 Into :ll_relid, :ls_mailname, :ls_mailaddress,:ls_repname;
		DO While(sqlca.SQLCode = 0)
			s_data_new.reltype = 5
			s_data_new.relid = ll_relid
			s_data_new.mailname = ls_mailname
			s_data_new.mailAddress = ls_mailaddress
			s_data_new.repname = ls_repname
			ll_new_handle = This.InsertItemLast(Handle, ls_mailname + '<' + ls_mailaddress + '>', 3) // 设置供应商联系人图标
			IF This.GetItem(ll_new_handle, l_tvi_new) = 1 THEN
				l_tvi_new.Data = s_data_new
				This.SetItem(ll_new_handle, l_tvi_new)
			END IF
			
			hasChild = True
			FETCH cursor2 Into :ll_relid, :ls_mailname, :ls_mailaddress,:ls_repname;
		LOOP
		CLOSE cursor2;
		
	END IF
	
	IF s_data.reltype <> -1 THEN
		l_tvi.Children = hasChild
		This.SetItem(Handle, l_tvi)
	END IF
END IF










end event

event doubleclicked;treeviewitem l_tvi
Long ll_row,ll_row1,i,j,ll_relid,ll_repid
String ls_mailAddress,ls_mailname,ls_repname
datastore dw_1,dw_2
s_tv_data s_data
IF This.GetItem(Handle, l_tvi) = 1 THEN
	s_data = l_tvi.Data
	IF Trim(s_data.mailAddress) = '' THEN
		IF MessageBox('提问', '是否添加区域下的所有有邮箱的联系人?', Question!, YesNo!) <> 1 THEN
			RETURN
		ELSE
			dw_1 = Create datastore
			dw_1.DataObject = 'dw_rep_groupmx'
			dw_1.SetTransObject(sqlca)
			dw_1.Retrieve(s_data.relid)
			FOR i = 1 To dw_1.RowCount()
				
				ll_relid = dw_1.Object.relid[i]
				ll_repid = dw_1.Object.repid[i]
				IF  dw_1.Object.reltype[i] = 0 THEN //客户类型
					IF dw_1.Object.repid[i] = 0 THEN //没有客户联系人
						SELECT u_cust.Name, u_cust.rep,u_cust.email Into :ls_mailname,:ls_repname,:ls_mailAddress From u_cust Where u_cust.cusid = :ll_relid;
					ELSE //有客户联系人
						SELECT u_cust.Name Into :ls_mailname From u_cust Where u_cust.cusid = :ll_relid;
						SELECT  u_cust_rep.repname, u_cust_rep.email Into :ls_repname,:ls_mailAddress From u_cust_rep Where u_cust_rep.cusid = :ll_relid And u_cust_rep.repid = :ll_repid;
					END IF
				ELSEIF  dw_1.Object.reltype[i] = 1 THEN //供应商类型
					IF dw_1.Object.repid[i] = 0 THEN //没有供应商联系人
						SELECT u_spt.Name, u_spt.rep, u_spt.email Into :ls_mailname,:ls_repname,:ls_mailAddress From u_spt Where u_spt.sptid = :ll_relid;
					ELSE //有供应商联系人
						SELECT u_spt.Name Into :ls_mailname From u_spt Where u_spt.sptid = :ll_relid;
						SELECT  u_spt_rep.repname,u_spt_rep.email Into :ls_repname,:ls_mailAddress From u_spt_rep Where u_spt_rep.sptid = :ll_relid And u_spt_rep.repid = :ll_repid;
					END IF
				END IF
				IF  dw_1.Object.reltype[i] <> 2 THEN
					IF ls_mailAddress <> '' THEN
						ll_row = dw_revlist.InsertRow(0)
						dw_revlist.Object.sendid[ll_row] = 0
						dw_revlist.Object.printid[ll_row] = 0
						dw_revlist.Object.reltype[ll_row] = 4
						dw_revlist.Object.relid[ll_row] = ll_relid
						dw_revlist.Object.revaddress[ll_row] = ls_mailAddress
						dw_revlist.Object.revname[ll_row] =  ls_mailname + '_' + ls_repname
						dw_revlist.Object.repname[ll_row] = ls_repname
						dw_revlist.Object.dscrp[ll_row] = ''
					END IF
				ELSE
					dw_2 = Create datastore
					dw_2.DataObject = 'dw_rep_groupmx'
					dw_2.SetTransObject(sqlca)
					dw_2.Retrieve(ll_relid)
					
					FOR j = 1 To dw_2.RowCount()
						ll_relid = dw_2.Object.relid[j]
						ll_repid = dw_2.Object.repid[j]
						IF  dw_2.Object.reltype[j] = 0 THEN //客户类型
							IF dw_2.Object.repid[j] = 0 THEN //没有客户联系人
								SELECT u_cust.Name, u_cust.rep,u_cust.email Into :ls_mailname,:ls_repname,:ls_mailAddress From u_cust Where u_cust.cusid = :ll_relid;
							ELSE //有客户联系人
								SELECT u_cust.Name Into :ls_mailname From u_cust Where u_cust.cusid = :ll_relid;
								SELECT  u_cust_rep.repname, u_cust_rep.email Into :ls_repname,:ls_mailAddress From u_cust_rep Where u_cust_rep.cusid = :ll_relid And u_cust_rep.repid = :ll_repid;
							END IF
						ELSEIF  dw_2.Object.reltype[j] = 1 THEN //供应商类型
							IF dw_2.Object.repid[i] = 0 THEN //没有供应商联系人
								SELECT u_spt.Name, u_spt.rep, u_spt.email Into :ls_mailname,:ls_repname,:ls_mailAddress From u_spt Where u_spt.sptid = :ll_relid;
							ELSE //有供应商联系人
								SELECT u_spt.Name Into :ls_mailname From u_spt Where u_spt.sptid = :ll_relid;
								SELECT  u_spt_rep.repname,u_spt_rep.email Into :ls_repname,:ls_mailAddress From u_spt_rep Where u_spt_rep.sptid = :ll_relid And u_spt_rep.repid = :ll_repid;
							END IF
						END IF
						IF  dw_2.Object.reltype[j] <> 2 THEN
							IF ls_mailAddress <> '' THEN
								ll_row1 = dw_revlist.InsertRow(0)
								dw_revlist.Object.sendid[ll_row1] = 0
								dw_revlist.Object.printid[ll_row1] = 0
								dw_revlist.Object.reltype[ll_row1] = 4
								dw_revlist.Object.relid[ll_row1] = ll_relid
								dw_revlist.Object.revaddress[ll_row1] = ls_mailAddress
								dw_revlist.Object.revname[ll_row1] = ls_mailname + '_' + ls_repname
								dw_revlist.Object.repname[ll_row1] = ls_repname
								dw_revlist.Object.dscrp[ll_row1] = ''
							END IF //====================================================================
							//
							//====================================================================
							
						END IF
					NEXT
					Destroy dw_2
				END IF
			NEXT
			RETURN
		END IF
	END IF
	IF dw_revlist.Find('relid=' + String(s_data.relid) + ' and reltype=' + String(s_data.reltype), 1, dw_revlist.RowCount()) = 0 THEN
		
		
		
		
		
		ll_row = dw_revlist.InsertRow(0)
		dw_revlist.Object.sendid[ll_row] = 0
		dw_revlist.Object.printid[ll_row] = 0
		dw_revlist.Object.reltype[ll_row] = s_data.reltype
		dw_revlist.Object.relid[ll_row] = s_data.relid
		dw_revlist.Object.revaddress[ll_row] = s_data.mailAddress
		dw_revlist.Object.revname[ll_row] = s_data.mailname
		dw_revlist.Object.repname[ll_row] = Right( s_data.mailname,Len( s_data.mailname) - Pos( s_data.mailname," "))
		dw_revlist.Object.dscrp[ll_row] = ''
	END IF
END IF






















end event

event selectionchanged;il_tv_handle = newhandle
end event

type sle_1 from singlelineedit within w_email_sendmx_new
event keyup pbm_keyup
integer x = 5
integer y = 12
integer width = 997
integer height = 84
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
borderstyle borderstyle = stylelowered!
end type

event keyup;if key <> KeyEnter! then return

cb_find.triggerevent(clicked!)
end event

type sle_2 from singlelineedit within w_email_sendmx_new
event keyup pbm_keyup
integer x = 2053
integer y = 12
integer width = 1627
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
borderstyle borderstyle = stylelowered!
end type

event keyup;if key = KeyEnter! then
	parent.triggerevent('ue_add_mail')
end if
end event

type lv_1 from listview within w_email_sendmx_new
boolean visible = false
integer y = 112
integer width = 1659
integer height = 1788
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
borderstyle borderstyle = stylelowered!
boolean extendedselect = true
grsorttype sorttype = ascending!
listviewview view = listviewsmallicon!
long largepicturemaskcolor = 536870912
string smallpicturename[] = {"email_rep.bmp"}
long smallpicturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
end type

event doubleclicked;listviewitem l_tvi
long ll_row
s_tv_data s_data
if this.getitem(index, l_tvi) = 1 then
	s_data = l_tvi.data
	if trim(s_data.mailaddress) = '' then
		return
	end if
	if dw_revlist.Find('relid=' + string(s_data.relid) + ' and reltype=' + string(s_data.reltype), 1, dw_revlist.RowCount()) = 0 then
		ll_row = dw_revlist.insertrow(0)
		dw_revlist.object.sendid[ll_row] = 0
		dw_revlist.object.printid[ll_row] = 0
		dw_revlist.object.reltype[ll_row] = s_data.reltype
		dw_revlist.object.relid[ll_row] = s_data.relid
		dw_revlist.object.revaddress[ll_row] = s_data.mailaddress
		dw_revlist.object.revname[ll_row] = s_data.mailname
		dw_revlist.object.dscrp[ll_row] = ''
	end if
end if
end event

type cb_find from uo_imflatbutton within w_email_sendmx_new
integer x = 1019
integer taborder = 30
boolean bringtotop = true
string text = "查找"
string normalpicname = "PREVIEW.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;if sle_1.text = '' then
	tv_1.visible = true
	lv_1.visible = not tv_1.visible
else
	tv_1.visible = false
	lv_1.visible = not tv_1.visible
	lv_1.DeleteItems()
	
	long ll_relid, ll_tmp
	string arg_parm, ls_mailname, ls_mailaddress
	s_tv_data s_data
	listviewitem l_lvi
	arg_parm = '%' + sle_1.text + '%'
	lv_1.setredraw(false)
	// 通信录
	declare cursor1 cursor for
		SELECT repID AS relid, mailname, mailaddress
			FROM         u_email_rep
			WHERE     (empid = :sys_empid OR
                      empid = 0) AND (reptype = 1) AND (LOWER(mailname) LIKE LOWER(:arg_parm) OR
                      LOWER(mailaddress) LIKE LOWER(:arg_parm));
	open cursor1;
	fetch cursor1 INTO :ll_relid, :ls_mailname, :ls_mailaddress;
	do while (sqlca.sqlcode = 0)
		s_data.reltype = 0
		s_data.relid = ll_relid
		s_data.mailname = ls_mailname
		s_data.mailaddress = ls_mailaddress
		l_lvi.label = ls_mailname + '<' + ls_mailaddress + '>'
		l_lvi.data = s_data
		l_lvi.pictureindex = 1
		lv_1.additem(l_lvi)
		fetch cursor1 INTO :ll_relid, :ls_mailname, :ls_mailaddress;
	loop
	close cursor1;
	
	// 客户
	declare cursor2 cursor for
		SELECT cusid, cuscode, email, cusareaid
		FROM         u_cust
		WHERE     (inuse = 1) AND (RTRIM(LTRIM(email)) <> '') AND (LOWER(cuscode) LIKE LOWER(:arg_parm) OR
                      LOWER(email) LIKE LOWER(:arg_parm));
	open cursor2;
	fetch cursor2 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	do while (sqlca.sqlcode = 0)
		if not wf_cansee_cusarea(ll_tmp) then goto ext2
		s_data.reltype = 1
		s_data.relid = ll_relid
		s_data.mailname = ls_mailname
		s_data.mailaddress = ls_mailaddress
		l_lvi.label = ls_mailname + '<' + ls_mailaddress + '>'
		l_lvi.data = s_data
		l_lvi.pictureindex = 1
		lv_1.additem(l_lvi)
		ext2:
		fetch cursor2 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	loop
	close cursor2;

	// 客户联系人
	declare cursor3 cursor for
		SELECT u_cust_rep.repid, RTRIM(LTRIM(u_cust_1.cuscode)) + '-' + RTRIM(LTRIM(u_cust_rep.repname)) AS mailname, 
                      u_cust_rep.email AS mailaddress, u_cust_1.cusareaid
		FROM         u_cust AS u_cust_1 INNER JOIN
                      u_cust_rep ON u_cust_1.cusid = u_cust_rep.cusid AND u_cust_1.cusid = u_cust_rep.cusid
		WHERE     (u_cust_1.inuse = 1) AND (RTRIM(LTRIM(u_cust_rep.email)) <> '') AND 
                      (LOWER(RTRIM(LTRIM(u_cust_1.cuscode)) + '-' + RTRIM(LTRIM(u_cust_rep.repname))) LIKE LOWER(:arg_parm) OR
                      LOWER(u_cust_rep.email) LIKE LOWER(:arg_parm));
	open cursor3;
	fetch cursor3 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	do while (sqlca.sqlcode = 0)
		if not wf_cansee_cusarea(ll_tmp) then goto ext3
		s_data.reltype = 4
		s_data.relid = ll_relid
		s_data.mailname = ls_mailname
		s_data.mailaddress = ls_mailaddress
		l_lvi.label = ls_mailname + '<' + ls_mailaddress + '>'
		l_lvi.data = s_data
		l_lvi.pictureindex = 1
		lv_1.additem(l_lvi)
		ext3:
		fetch cursor3 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	loop
	close cursor3;

	// 供应商
	declare cursor4 cursor for
		SELECT sptid, sptcode, email,spttypeid
		FROM         u_spt
		WHERE     (inuse = 1) AND (RTRIM(LTRIM(email)) <> '') AND (LOWER(sptcode) LIKE LOWER(:arg_parm) OR
                      LOWER(email) LIKE LOWER(:arg_parm));
	open cursor4;
	fetch cursor4 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	do while (sqlca.sqlcode = 0)
		if not wf_cansee_spttype(ll_tmp) then goto ext4
		s_data.reltype = 2
		s_data.relid = ll_relid
		s_data.mailname = ls_mailname
		s_data.mailaddress = ls_mailaddress
		l_lvi.label = ls_mailname + '<' + ls_mailaddress + '>'
		l_lvi.data = s_data
		l_lvi.pictureindex = 1
		lv_1.additem(l_lvi)
		ext4:
		fetch cursor4 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	loop
	close cursor4;

	// 供应商联系人
	declare cursor5 cursor for
		SELECT u_spt_rep.repid, RTRIM(LTRIM(u_spt_1.sptcode)) + '-' + RTRIM(LTRIM(u_spt_rep.repname)) AS mailname, 
                      u_spt_rep.email AS mailaddress,u_spt_1.spttypeid
		FROM         u_spt AS u_spt_1 INNER JOIN
                      u_spt_rep ON u_spt_1.sptid = u_spt_rep.sptid AND u_spt_1.sptid = u_spt_rep.sptid
		WHERE     (u_spt_1.inuse = 1) AND (RTRIM(LTRIM(u_spt_rep.email)) <> '') AND 
                      (LOWER(RTRIM(LTRIM(u_spt_1.sptcode)) + '-' + RTRIM(LTRIM(u_spt_rep.repname))) LIKE LOWER(:arg_parm) OR
                      LOWER(u_spt_rep.email) LIKE LOWER(:arg_parm));
	open cursor5;
	fetch cursor5 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	do while (sqlca.sqlcode = 0)
		if not wf_cansee_spttype(ll_tmp) then goto ext5
		s_data.reltype = 2
		s_data.relid = ll_relid
		s_data.mailname = ls_mailname
		s_data.mailaddress = ls_mailaddress
		l_lvi.label = ls_mailname + '<' + ls_mailaddress + '>'
		l_lvi.data = s_data
		l_lvi.pictureindex = 1
		lv_1.additem(l_lvi)
		ext5:
		fetch cursor5 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	loop
	close cursor5;

	lv_1.setredraw(true)
end if
end event

type cb_3 from uo_imflatbutton within w_email_sendmx_new
integer x = 3698
integer y = 4
integer taborder = 30
boolean bringtotop = true
string text = "添加"
string normalpicname = "NEW.BMP"
integer picsize = 16
end type

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

type cb_1 from uo_imflatbutton within w_email_sendmx_new
integer x = 1344
integer width = 315
integer taborder = 40
boolean bringtotop = true
string text = "高级查找"
string normalpicname = "PREVIEW.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;//s_sendmx_parm 
s_email_sendmx_search s_return,s_sendmx

long i, ll_row
parent.visible=false
s_sendmx.s_search=trim(sle_1.text)
openwithparm(w_email_sendmx_new_gj, s_sendmx)
s_return = message.powerobjectparm
s_sendmxx=s_return.ss_email_sendmx//s_sendmxx是窗口级变量
parent.cb_ok.TriggerEvent('clicked')
end event

type ln_bar from line within w_email_sendmx_new
long linecolor = 268435456
integer linethickness = 4
integer beginy = 1924
integer endx = 3118
integer endy = 1924
end type

type ln_bar2 from line within w_email_sendmx_new
long linecolor = 16777215
integer linethickness = 4
integer beginy = 1928
integer endx = 3150
integer endy = 1928
end type