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

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

global type w_email_sendmx_new_gj 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
dw_1 dw_1
cbx_1 cbx_1
cbx_2 cbx_2
ln_bar ln_bar
ln_bar2 ln_bar2
end type
global w_email_sendmx_new_gj w_email_sendmx_new_gj

type variables
long il_tv_handle
long ll_lastrow = 0
s_email_sendmx_search s_sendmx
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)
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

on w_email_sendmx_new_gj.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.dw_1=create dw_1
this.cbx_1=create cbx_1
this.cbx_2=create cbx_2
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.dw_1
this.Control[iCurrent+14]=this.cbx_1
this.Control[iCurrent+15]=this.cbx_2
this.Control[iCurrent+16]=this.ln_bar
this.Control[iCurrent+17]=this.ln_bar2
end on

on w_email_sendmx_new_gj.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.dw_1)
destroy(this.cbx_1)
destroy(this.cbx_2)
destroy(this.ln_bar)
destroy(this.ln_bar2)
end on

event open;call super::open;s_email_sendmx_search s_sendmxx
long i, ll_row

s_sendmxx = Message.PowerObjectParm
for i = 1 to upperbound(s_sendmxx.ss_email_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_sendmxx.ss_email_sendmx.sendmx[i].reltype
		dw_revlist.Object.relid[ll_row] = s_sendmxx.ss_email_sendmx.sendmx[i].relid
		dw_revlist.Object.revaddress[ll_row] = s_sendmxx.ss_email_sendmx.sendmx[i].revaddress
		dw_revlist.Object.revname[ll_row]  = s_sendmxx.ss_email_sendmx.sendmx[i].revname
next
sle_1.text=s_sendmxx.s_search
cb_1.TriggerEvent('clicked')
end event

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

event close;call super::close;//s_email_sendmx_search s_sendmx
//long i
//FOR i = 1 TO dw_revlist.RowCount()
//	s_sendmx.ss_email_sendmx.sendmx[i].printid = i
//	s_sendmx.ss_email_sendmx.sendmx[i].sendid = 0
//	s_sendmx.ss_email_sendmx.sendmx[i].reltype = dw_revlist.Object.reltype[i]
//	s_sendmx.ss_email_sendmx.sendmx[i].Relid = dw_revlist.Object.Relid[i]
//	s_sendmx.ss_email_sendmx.sendmx[i].Revname = RightTrim(LeftTrim(dw_revlist.Object.Revname[i]))
//	s_sendmx.ss_email_sendmx.sendmx[i].revaddress = RightTrim(LeftTrim(dw_revlist.Object.revaddress[i]))
//NEXT

closewithreturn(this, s_sendmx)
end event

type cb_func from w_publ_base`cb_func within w_email_sendmx_new_gj
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_gj
boolean visible = false
end type

type cb_add from uo_imflatbutton within w_email_sendmx_new_gj
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;integer i,ll_row
for i=1 to dw_1.rowcount()
	if dw_1.Object.isselect[i]=1 then
		dw_1.RowsCopy(i, i, Primary!, dw_revlist, dw_revlist.RowCount() + 1, Primary!)
		dw_revlist.Object.isselect[ dw_revlist.RowCount()]=0
	end if
next


//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_gj
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;integer i,ll_row
next1:

for ll_row=1 to dw_revlist.rowcount()
	if dw_revlist.Object.isselect[ll_row]=1 then
		dw_revlist.deleteRow(ll_row)
		goto next1
	end if
next



//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_gj
integer x = 2048
integer y = 112
integer width = 1952
integer height = 1788
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_email_sendmx_view_gj"
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_gj
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_sendmx.ss_email_sendmx.sendmx[i].printid = i
	s_sendmx.ss_email_sendmx.sendmx[i].sendid = 0
	s_sendmx.ss_email_sendmx.sendmx[i].reltype = dw_revlist.Object.reltype[i]
	s_sendmx.ss_email_sendmx.sendmx[i].Relid = dw_revlist.Object.Relid[i]
	s_sendmx.ss_email_sendmx.sendmx[i].Revname = RightTrim(LeftTrim(dw_revlist.Object.Revname[i]))
	s_sendmx.ss_email_sendmx.sendmx[i].revaddress = RightTrim(LeftTrim(dw_revlist.Object.revaddress[i]))
NEXT

closewithreturn(parent, s_sendmx)


end event

type cb_cancel from uo_imflatbutton within w_email_sendmx_new_gj
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_gj
boolean visible = false
integer x = 658
integer y = 2064
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_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)

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
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
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 = 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
s_tv_data s_data
if this.getitem(handle, 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

event selectionchanged;il_tv_handle = newhandle
end event

type sle_1 from singlelineedit within w_email_sendmx_new_gj
event keyup pbm_keyup
integer x = 128
integer y = 12
integer width = 1193
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_gj
event keyup pbm_keyup
integer x = 2162
integer y = 12
integer width = 1518
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_gj
boolean visible = false
integer x = 1792
integer y = 2404
integer width = 1678
integer height = 924
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_gj
boolean visible = false
integer y = 1960
integer taborder = 30
boolean bringtotop = true
boolean enabled = false
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_gj
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_gj
integer x = 1344
integer width = 329
integer taborder = 40
boolean bringtotop = true
string text = "查找"
string normalpicname = "PREVIEW.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;long ll_row
lv_1.visible=false
tv_1.visible=false
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)
		//
		ll_row = dw_1.insertrow(0)
		dw_1.object.isselect[ll_row] = 0
		dw_1.object.sendid[ll_row] = 0
		dw_1.object.printid[ll_row] = 0
		dw_1.object.reltype[ll_row] = s_data.reltype
		dw_1.object.relid[ll_row] = s_data.relid
		dw_1.object.revaddress[ll_row] = s_data.mailaddress
		dw_1.object.revname[ll_row] = s_data.mailname
		dw_1.object.dscrp[ll_row] = ''
		//

		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)
		//
		ll_row = dw_1.insertrow(0)
		dw_1.object.isselect[ll_row] = 0
		dw_1.object.sendid[ll_row] = 0
		dw_1.object.printid[ll_row] = 0
		dw_1.object.reltype[ll_row] = s_data.reltype
		dw_1.object.relid[ll_row] = s_data.relid
		dw_1.object.revaddress[ll_row] = s_data.mailaddress
		dw_1.object.revname[ll_row] = s_data.mailname
		dw_1.object.dscrp[ll_row] = ''
		//
		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
		//
		ll_row = dw_1.insertrow(0)
			dw_1.object.isselect[ll_row] = 0
		dw_1.object.sendid[ll_row] = 0
		dw_1.object.printid[ll_row] = 0
		dw_1.object.reltype[ll_row] = s_data.reltype
		dw_1.object.relid[ll_row] = s_data.relid
		dw_1.object.revaddress[ll_row] = s_data.mailaddress
		dw_1.object.revname[ll_row] = s_data.mailname
		dw_1.object.dscrp[ll_row] = ''
		//
		
//		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)
			//
		ll_row = dw_1.insertrow(0)
			dw_1.object.isselect[ll_row] = 0
		dw_1.object.sendid[ll_row] = 0
		dw_1.object.printid[ll_row] = 0
		dw_1.object.reltype[ll_row] = s_data.reltype
		dw_1.object.relid[ll_row] = s_data.relid
		dw_1.object.revaddress[ll_row] = s_data.mailaddress
		dw_1.object.revname[ll_row] = s_data.mailname
		dw_1.object.dscrp[ll_row] = ''
		//
		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)
		//
		ll_row = dw_1.insertrow(0)
			dw_1.object.isselect[ll_row] = 0
		dw_1.object.sendid[ll_row] = 0
		dw_1.object.printid[ll_row] = 0
		dw_1.object.reltype[ll_row] = s_data.reltype
		dw_1.object.relid[ll_row] = s_data.relid
		dw_1.object.revaddress[ll_row] = s_data.mailaddress
		dw_1.object.revname[ll_row] = s_data.mailname
		dw_1.object.dscrp[ll_row] = ''
		//
		ext5:
		fetch cursor5 INTO :ll_relid, :ls_mailname, :ls_mailaddress, :ll_tmp;
	loop
	close cursor5;

//	lv_1.setredraw(true)
	lv_1.visible=false
tv_1.visible=false
end if
end event

type dw_1 from u_dw_rbtnfilter within w_email_sendmx_new_gj
integer x = 14
integer y = 112
integer width = 1664
integer height = 1788
integer taborder = 30
boolean bringtotop = true
string dataobject = "dw_email_sendmx_view_gj"
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 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

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

type cbx_1 from checkbox within w_email_sendmx_new_gj
integer x = 37
integer y = 16
integer width = 78
integer height = 76
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean lefttext = true
end type

event clicked;integer i
if this.checked=true then
	for i=1 to dw_1.rowcount()
		dw_1.Object.isselect[i]=1
	next 
else
	for i=1 to dw_1.rowcount()
		dw_1.Object.isselect[i]=0
	next 
end if
end event

type cbx_2 from checkbox within w_email_sendmx_new_gj
integer x = 2066
integer y = 16
integer width = 78
integer height = 76
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean lefttext = true
end type

event clicked;integer i
if this.checked=true then
	for i=1 to dw_revlist.rowcount()
		dw_revlist.Object.isselect[i]=1
	next 
else
	for i=1 to dw_revlist.rowcount()
		dw_revlist.Object.isselect[i]=0
	next 
end if
end event

type ln_bar from line within w_email_sendmx_new_gj
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_gj
long linecolor = 16777215
integer linethickness = 4
integer beginy = 1928
integer endx = 3150
integer endy = 1928
end type