Q5/ws_objects/Ew_crm.pbl.src/w_cust_crm_rq.srw

$PBExportHeader$w_cust_crm_rq.srw
forward
global type w_cust_crm_rq from w_publ_easyq
end type
type tv_1 from uo_tv_cusarea within w_cust_crm_rq
end type
type tab_1 from tab within w_cust_crm_rq
end type
type tabpage_1 from userobject within tab_1
end type
type cb_12 from commandbutton within tabpage_1
end type
type cb_8 from commandbutton within tabpage_1
end type
type cb_7 from commandbutton within tabpage_1
end type
type dw_rep from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
cb_12 cb_12
cb_8 cb_8
cb_7 cb_7
dw_rep dw_rep
end type
type tabpage_8 from userobject within tab_1
end type
type dw_item from u_dw_rbtnfilter within tabpage_8
end type
type cb_25 from commandbutton within tabpage_8
end type
type tabpage_8 from userobject within tab_1
dw_item dw_item
cb_25 cb_25
end type
type tabpage_7 from userobject within tab_1
end type
type cb_18 from commandbutton within tabpage_7
end type
type cb_17 from commandbutton within tabpage_7
end type
type cb_16 from commandbutton within tabpage_7
end type
type dw_station from u_dw_rbtnfilter within tabpage_7
end type
type tabpage_7 from userobject within tab_1
cb_18 cb_18
cb_17 cb_17
cb_16 cb_16
dw_station dw_station
end type
type tabpage_2 from userobject within tab_1
end type
type st_interview from statictext within tabpage_2
end type
type cb_31 from commandbutton within tabpage_2
end type
type cb_30 from commandbutton within tabpage_2
end type
type cb_21 from commandbutton within tabpage_2
end type
type em_edate2 from editmask within tabpage_2
end type
type st_6 from statictext within tabpage_2
end type
type em_fdate2 from editmask within tabpage_2
end type
type cb_11 from commandbutton within tabpage_2
end type
type cb_10 from commandbutton within tabpage_2
end type
type cb_9 from commandbutton within tabpage_2
end type
type dw_interview from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
st_interview st_interview
cb_31 cb_31
cb_30 cb_30
cb_21 cb_21
em_edate2 em_edate2
st_6 st_6
em_fdate2 em_fdate2
cb_11 cb_11
cb_10 cb_10
cb_9 cb_9
dw_interview dw_interview
end type
type tabpage_3 from userobject within tab_1
end type
type st_plan from statictext within tabpage_3
end type
type cb_29 from commandbutton within tabpage_3
end type
type cb_28 from commandbutton within tabpage_3
end type
type cb_20 from commandbutton within tabpage_3
end type
type em_edate3 from editmask within tabpage_3
end type
type st_5 from statictext within tabpage_3
end type
type em_fdate3 from editmask within tabpage_3
end type
type cb_15 from commandbutton within tabpage_3
end type
type cb_14 from commandbutton within tabpage_3
end type
type cb_13 from commandbutton within tabpage_3
end type
type dw_plan from u_dw_rbtnfilter within tabpage_3
end type
type tabpage_3 from userobject within tab_1
st_plan st_plan
cb_29 cb_29
cb_28 cb_28
cb_20 cb_20
em_edate3 em_edate3
st_5 st_5
em_fdate3 em_fdate3
cb_15 cb_15
cb_14 cb_14
cb_13 cb_13
dw_plan dw_plan
end type
type tabpage_6 from userobject within tab_1
end type
type cb_6 from commandbutton within tabpage_6
end type
type st_1 from statictext within tabpage_6
end type
type em_fdate6 from editmask within tabpage_6
end type
type em_edate6 from editmask within tabpage_6
end type
type dw_oppose from u_dw_rbtnfilter within tabpage_6
end type
type tabpage_6 from userobject within tab_1
cb_6 cb_6
st_1 st_1
em_fdate6 em_fdate6
em_edate6 em_edate6
dw_oppose dw_oppose
end type
type tabpage_9 from userobject within tab_1
end type
type st_sample from statictext within tabpage_9
end type
type cb_27 from commandbutton within tabpage_9
end type
type cb_26 from commandbutton within tabpage_9
end type
type dw_sample from u_dw_rbtnfilter within tabpage_9
end type
type cb_24 from commandbutton within tabpage_9
end type
type cb_23 from commandbutton within tabpage_9
end type
type cb_22 from commandbutton within tabpage_9
end type
type cb_19 from commandbutton within tabpage_9
end type
type em_edate9 from editmask within tabpage_9
end type
type st_2 from statictext within tabpage_9
end type
type em_fdate9 from editmask within tabpage_9
end type
type tabpage_9 from userobject within tab_1
st_sample st_sample
cb_27 cb_27
cb_26 cb_26
dw_sample dw_sample
cb_24 cb_24
cb_23 cb_23
cb_22 cb_22
cb_19 cb_19
em_edate9 em_edate9
st_2 st_2
em_fdate9 em_fdate9
end type
type tabpage_4 from userobject within tab_1
end type
type dw_price from u_dw_rbtnfilter within tabpage_4
end type
type tabpage_4 from userobject within tab_1
dw_price dw_price
end type
type tabpage_5 from userobject within tab_1
end type
type dw_task from u_dw_rbtnfilter within tabpage_5
end type
type tabpage_5 from userobject within tab_1
dw_task dw_task
end type
type tabpage_12 from userobject within tab_1
end type
type dw_outware from u_dw_rbtnfilter within tabpage_12
end type
type tabpage_12 from userobject within tab_1
dw_outware dw_outware
end type
type tabpage_10 from userobject within tab_1
end type
type dw_rev from u_dw_rbtnfilter within tabpage_10
end type
type cb_32 from commandbutton within tabpage_10
end type
type em_edate4 from editmask within tabpage_10
end type
type st_7 from statictext within tabpage_10
end type
type em_fdate4 from editmask within tabpage_10
end type
type tabpage_10 from userobject within tab_1
dw_rev dw_rev
cb_32 cb_32
em_edate4 em_edate4
st_7 st_7
em_fdate4 em_fdate4
end type
type tabpage_11 from userobject within tab_1
end type
type dw_send from u_dw_rbtnfilter within tabpage_11
end type
type cb_33 from commandbutton within tabpage_11
end type
type em_edate5 from editmask within tabpage_11
end type
type st_8 from statictext within tabpage_11
end type
type em_fdate5 from editmask within tabpage_11
end type
type tabpage_11 from userobject within tab_1
dw_send dw_send
cb_33 cb_33
em_edate5 em_edate5
st_8 st_8
em_fdate5 em_fdate5
end type
type tab_1 from tab within w_cust_crm_rq
tabpage_1 tabpage_1
tabpage_8 tabpage_8
tabpage_7 tabpage_7
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_6 tabpage_6
tabpage_9 tabpage_9
tabpage_4 tabpage_4
tabpage_5 tabpage_5
tabpage_12 tabpage_12
tabpage_10 tabpage_10
tabpage_11 tabpage_11
end type
type cb_audit from uo_imflatbutton within w_cust_crm_rq
end type
type cb_other from uo_imflatbutton within w_cust_crm_rq
end type
end forward

global type w_cust_crm_rq from w_publ_easyq
string title = "公共客户申请管理"
event ue_retr_rep ( )
event ue_retr_plan ( )
event ue_retr_interview ( )
event ue_add_rep ( )
event ue_mod_rep ( )
event ue_del_rep ( )
event ue_add_plan ( )
event ue_mod_plan ( )
event ue_del_plan ( )
event ue_mod_interview ( )
event ue_add_interview ( )
event ue_del_interview ( )
event ue_retr_price ( )
event ue_retr_task ( )
event ue_retr_oppose ( )
event ue_retr_station ( )
event ue_add_station ( )
event ue_del_station ( )
event ue_dft_station ( )
event ue_set_cust_ok ( )
event ue_set_cust_notok ( )
event ue_set_cust_blacklist ( )
event ue_retr_sample ( )
event ue_del_sample ( )
event ue_mod_sample ( )
event ue_add_sample ( )
event ue_retr_item ( )
event ue_mod_item ( )
event ue_fj_edit_sample ( )
event ue_fj_view_sample ( )
event ue_fj_view_plan ( )
event ue_fj_view_interview ( )
event ue_fj_edit_interview ( )
event ue_fj_edit_plan ( )
event ue_fj_edit_cust ( )
event ue_fj_view_cust ( )
event ue_fj_cnt_sample ( )
event ue_fj_cnt_plan ( )
event ue_fj_cnt_interview ( )
event ue_email_send ( )
event ue_email_view ( )
event ue_retr_rev ( )
event ue_retr_send ( )
event ue_retr_outware ( )
event ue_filter_cuscode ( )
event ue_filter_telnumber ( )
event ue_rq_cust ( )
tv_1 tv_1
tab_1 tab_1
cb_audit cb_audit
cb_other cb_other
end type
global w_cust_crm_rq w_cust_crm_rq

type variables
Int ins_inuse = 1,ins_state = 0
long cur_cusareaid
String ins_areaname = ''
uo_crm uo_cus


datawindow dw_task
datawindow dw_price

end variables

event ue_retr_rep();Long ll_row,ll_cusid

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_1.dw_rep.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_1.dw_rep.Retrieve(ll_cusid)
END IF

end event

event ue_retr_plan();Long ll_row,ll_cusid
DateTime ld_fdate,ld_edate

ld_fdate = DateTime(Date(tab_1.tabpage_3.em_fdate3.Text),Time(0))
ld_edate = DateTime(Date(tab_1.tabpage_3.em_edate3.Text),Time('23:59:59'))

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_3.dw_plan.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_3.dw_plan.Retrieve(ll_cusid,ld_fdate,ld_edate)
END IF

end event

event ue_retr_interview();Long ll_row,ll_cusid
DateTime ld_fdate,ld_edate

ld_fdate = DateTime(Date(tab_1.tabpage_2.em_fdate2.Text),Time(0))
ld_edate = DateTime(Date(tab_1.tabpage_2.em_edate2.Text),Time('23:59:59'))

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_2.dw_interview.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_2.dw_interview.Retrieve(ll_cusid,ld_fdate,ld_edate)
END IF

end event

event ue_add_rep();IF NOT f_power_ind(1266) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_rep s_rep

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

s_rep.repid = 0
s_rep.cusid = dw_1.Object.cusid[ll_row]

OpenWithParm(w_cust_rep_add,s_rep)

THIS.TriggerEvent('ue_retr_rep') 




end event

event ue_mod_rep();IF NOT f_power_ind(1266) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_rep s_rep

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

s_rep.cusid = dw_1.Object.cusid[ll_row]


tab_1.tabpage_1.dw_rep.AcceptText()
ll_row = tab_1.tabpage_1.dw_rep.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户联系人资料',information!,OK!)
	RETURN
END IF

s_rep.repid = tab_1.tabpage_1.dw_rep.Object.repid[ll_row]

OpenWithParm(w_cust_rep_add,s_rep)

THIS.TriggerEvent('ue_retr_rep')





end event

event ue_del_rep();IF NOT f_power_ind(1266) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row,ll_repid
String arg_msg

tab_1.tabpage_1.dw_rep.AcceptText()
ll_row = tab_1.tabpage_1.dw_rep.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择要删除的联系人资料',information!,OK!)
	RETURN
END IF

IF MessageBox ('询问',"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF


ll_repid = tab_1.tabpage_1.dw_rep.Object.repid[ll_row]

IF uo_cus.uof_del_rep(ll_repid,publ_operator,arg_msg,TRUE) = 0 THEN
	MessageBox('错误','删除联系人资料失败,'+arg_msg,stopsign!,OK!)
	RETURN
END IF

THIS.TriggerEvent('ue_retr_rep')







end event

event ue_add_plan();IF NOT f_power_ind(1264) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_plan s_plan

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

s_plan.planid = 0
s_plan.cusid = dw_1.Object.cusid[ll_row]

OpenWithParm(w_cust_plan_add,s_plan)

THIS.TriggerEvent('ue_retr_plan')





end event

event ue_mod_plan();IF NOT f_power_ind(1264) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_plan s_plan

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

s_plan.cusid = dw_1.Object.cusid[ll_row]

tab_1.tabpage_3.dw_plan.AcceptText()
ll_row = tab_1.tabpage_3.dw_plan.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户联系人资料',information!,OK!)
	RETURN
END IF

s_plan.planid = tab_1.tabpage_3.dw_plan.Object.planid[ll_row]

OpenWithParm(w_cust_plan_add,s_plan)

THIS.TriggerEvent('ue_retr_plan')





end event

event ue_del_plan();IF NOT f_power_ind(1264) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row,ll_planid
String arg_msg

tab_1.tabpage_3.dw_plan.AcceptText()
ll_row = tab_1.tabpage_3.dw_plan.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择要删除的客户工作计划资料',information!,OK!)
	RETURN
END IF

IF MessageBox ('询问',"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF


ll_planid = tab_1.tabpage_3.dw_plan.Object.planid[ll_row]

IF uo_cus.uof_del_plan(ll_planid,publ_operator,arg_msg,TRUE) = 0 THEN
	MessageBox('错误','删除客户工作计划资料失败,'+arg_msg,stopsign!,OK!)
	RETURN
END IF

THIS.TriggerEvent('ue_retr_plan')










end event

event ue_mod_interview();IF NOT f_power_ind(1265) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_interview s_interview

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

s_interview.cusid = dw_1.Object.cusid[ll_row]

tab_1.tabpage_2.dw_interview.AcceptText()
ll_row = tab_1.tabpage_2.dw_interview.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户联系人资料',information!,OK!)
	RETURN
END IF

s_interview.interviewid = tab_1.tabpage_2.dw_interview.Object.interviewid[ll_row]

OpenWithParm(w_cust_interview_add,s_interview)

THIS.TriggerEvent('ue_retr_interview')






end event

event ue_add_interview();IF NOT f_power_ind(1265) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_interview s_interview

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

s_interview.interviewid = 0
s_interview.cusid = dw_1.Object.cusid[ll_row]

OpenWithParm(w_cust_interview_add,s_interview)

THIS.TriggerEvent('ue_retr_interview')





end event

event ue_del_interview();
IF NOT f_power_ind(1265) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF
Long ll_row,ll_interviewid
String arg_msg

tab_1.tabpage_2.dw_interview.AcceptText()
ll_row = tab_1.tabpage_2.dw_interview.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择要删除的客户走访资料',information!,OK!)
	RETURN
END IF

IF MessageBox ('询问',"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

ll_interviewid = tab_1.tabpage_2.dw_interview.Object.interviewid[ll_row]

IF uo_cus.uof_del_interview(ll_interviewid,publ_operator,arg_msg,TRUE) = 0 THEN
	MessageBox('错误','删除客户走访资料失败,'+arg_msg,stopsign!,OK!)
	RETURN
END IF

THIS.TriggerEvent('ue_retr_interview')








end event

event ue_retr_price();Long ll_row,ll_cusid

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_4.dw_price.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_4.dw_price.Retrieve(ll_cusid)
END IF

end event

event ue_retr_task();Long ll_row,ll_cusid

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	dw_task.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	dw_task.Retrieve(ll_cusid)
END IF



end event

event ue_retr_oppose();Long ll_row,ll_cusid
DateTime ld_fdate,ld_edate

ld_fdate = DateTime(Date(tab_1.tabpage_6.em_fdate6.Text),Time(0))
ld_edate = DateTime(Date(tab_1.tabpage_6.em_edate6.Text),Time('23:59:59'))

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_6.dw_oppose.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_6.dw_oppose.Retrieve(ll_cusid,ld_fdate,ld_edate)
END IF


end event

event ue_retr_station();Long ll_row,ll_cusid

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_7.dw_station.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_7.dw_station.Retrieve(ll_cusid)
END IF

end event

event ue_add_station();IF NOT f_power_ind(1267) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_station s_station_1
s_station s_station_2
string arg_msg

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

IF NOT IsValid(w_station_edit) THEN
	s_edit_index_tran s_ch_tran
	s_ch_tran.if_retrieve_all = FALSE
	s_ch_tran.work_mode = 1
	s_ch_tran.arg_pkid = 0
	s_ch_tran.arg_string_code = ''
	s_ch_tran.if_select_all = FALSE
	
	OpenWithParm(w_station_edit,s_ch_tran) //调用
	
	s_station_2 = Message.PowerObjectParm //接受返回结构
	
	IF s_station_2.stationid = 0 THEN RETURN
	
	s_station_1.stationid = s_station_2.stationid
	s_station_1.cusid = dw_1.Object.cusid[ll_row]
	s_station_1.dftflag = 0
	
	IF uo_cus.uof_add_station(s_station_1,arg_msg,TRUE) = 0 THEN
		MessageBox('错误','建立客户货运部失败,'+arg_msg,stopsign!,OK!)
		RETURN
	END IF
END IF

THIS.TriggerEvent('ue_retr_station')

end event

event ue_del_station();IF NOT f_power_ind(1267) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row,ll_cusid,ll_stationid

String arg_msg

tab_1.tabpage_7.dw_station.AcceptText()
ll_row = tab_1.tabpage_7.dw_station.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择要删除的货运部资料',information!,OK!)
	RETURN
END IF

IF MessageBox ('询问',"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF
    

ll_cusid = tab_1.tabpage_7.dw_station.Object.u_cust_station_cusid[ll_row]
ll_stationid = tab_1.tabpage_7.dw_station.Object.stationid[ll_row]

IF uo_cus.uof_del_station(ll_cusid,ll_stationid,arg_msg,TRUE) = 0 THEN
	MessageBox('错误','删除货运部资料失败,'+arg_msg,stopsign!,OK!)
	RETURN
END IF

THIS.TriggerEvent('ue_retr_station')







end event

event ue_dft_station();IF NOT f_power_ind(1267) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_station s_station_1

String arg_msg

tab_1.tabpage_7.dw_station.AcceptText()
ll_row = tab_1.tabpage_7.dw_station.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择货运部资料',information!,OK!)
	RETURN
END IF

IF MessageBox ('询问',"是否确定设置当前货运部资料为默认?",Question!,YesNo! ) = 2 THEN
	RETURN
END IF
    

s_station_1.cusid = tab_1.tabpage_7.dw_station.Object.u_cust_station_cusid[ll_row]
s_station_1.stationid = tab_1.tabpage_7.dw_station.Object.stationid[ll_row]

IF uo_cus.uof_set_dft_station(s_station_1,arg_msg,TRUE) = 0 THEN
	MessageBox('错误','设置默认货运部资料失败,'+arg_msg,stopsign!,OK!)
	RETURN
END IF

THIS.TriggerEvent('ue_retr_station')







end event

event ue_set_cust_ok();IF NOT f_power_ind(1261) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long LS_id
Long LS_LONG = 0
String ls_code,arg_msg

IF dw_1.GetRow() <= 0 THEN
	MessageBox('提示','没有操作目标记录!',information!,OK!)
	RETURN
END IF

IF MessageBox ("询问","是否确定要当前客户资料为正式客户资料?",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

LS_id = dw_1.Object.cusid[dw_1.GetRow()]
ls_code = dw_1.Object.cuscode[dw_1.GetRow()]

IF uo_cus.uof_change_state(LS_id,1,arg_msg,TRUE) = 0 THEN
	MessageBox ("错误","设置正式客户资料操作失败!(请重试!)"+arg_msg,stopsign!,OK!)
	RETURN
END IF


f_setsysoplog('定义资料','客户定义资料设正式,ID:'+String(LS_id)+',code:'+ls_code,arg_msg,TRUE)

cb_1.TriggerEvent(Clicked!)
end event

event ue_set_cust_notok();IF NOT f_power_ind(1262) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long LS_id
Long LS_LONG = 0
String ls_code,arg_msg

IF dw_1.GetRow() <= 0 THEN
	MessageBox('提示','没有操作目标记录!',information!,OK!)
	RETURN
END IF

IF MessageBox ("询问","是否确定要当前客户资料为非正式客户资料?",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

LS_id = dw_1.Object.cusid[dw_1.GetRow()]
ls_code = dw_1.Object.cuscode[dw_1.GetRow()]

IF uo_cus.uof_change_state(LS_id,0,arg_msg,TRUE) = 0 THEN
	MessageBox ("错误","设置非正式客户资料操作失败!(请重试!)"+arg_msg,stopsign!,ok!)
	RETURN
END IF


f_setsysoplog('定义资料','客户定义资料设非正式,ID:'+String(LS_id)+',code:'+ls_code,arg_msg,TRUE)

cb_1.TriggerEvent(Clicked!)
end event

event ue_set_cust_blacklist();IF NOT f_power_ind(1263) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long LS_id
Long LS_LONG = 0
String ls_code,arg_msg

IF dw_1.GetRow() <= 0 THEN
	MessageBox('提示','没有操作目标记录!',information!,OK!)
	RETURN
END IF

IF MessageBox ("询问","是否确定要当前客户资料为黑名单客户资料?",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

LS_id = dw_1.Object.cusid[dw_1.GetRow()]
ls_code = dw_1.Object.cuscode[dw_1.GetRow()]

IF uo_cus.uof_change_state(LS_id,2,arg_msg,TRUE) = 0 THEN
	MessageBox ("错误","设置黑名单客户资料操作失败!(请重试!)"+arg_msg,stopsign!,ok!)
	RETURN
END IF


f_setsysoplog('定义资料','客户定义资料设黑名单,ID:'+String(LS_id)+',code:'+ls_code,arg_msg,TRUE)

cb_1.TriggerEvent(Clicked!)
end event

event ue_retr_sample();Long ll_row,ll_cusid
DateTime ld_fdate,ld_edate

ld_fdate = DateTime(Date(tab_1.tabpage_9.em_fdate9.Text),Time(0))
ld_edate = DateTime(Date(tab_1.tabpage_9.em_edate9.Text),Time('23:59:59'))

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_9.dw_sample.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_9.dw_sample.Retrieve(ll_cusid,ld_fdate,ld_edate)
END IF



end event

event ue_del_sample();IF NOT f_power_ind(1268) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row,ll_sampleid
String arg_msg

tab_1.tabpage_9.dw_sample.AcceptText()
ll_row = tab_1.tabpage_9.dw_sample.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择要删除的客户样版资料',information!,OK!)
	RETURN
END IF

IF MessageBox ('询问',"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

ll_sampleid = tab_1.tabpage_9.dw_sample.Object.u_cust_sample_sampleid[ll_row]

IF uo_cus.uof_del_sample(ll_sampleid,publ_operator,arg_msg,TRUE) = 0 THEN
	MessageBox('错误','删除客户样版资料失败,'+arg_msg,stopsign!,ok!)
	RETURN
END IF

THIS.TriggerEvent('ue_retr_sample')












end event

event ue_mod_sample();IF NOT f_power_ind(1268) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_sample s_sample

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

s_sample.cusid = dw_1.Object.cusid[ll_row]

tab_1.tabpage_9.dw_sample.AcceptText()
ll_row = tab_1.tabpage_9.dw_sample.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户样版资料',information!,OK!)
	RETURN
END IF

s_sample.sampleid = tab_1.tabpage_9.dw_sample.Object.u_cust_sample_sampleid[ll_row]

OpenWithParm(w_cust_sample_add,s_sample)

THIS.TriggerEvent('ue_retr_sample')






end event

event ue_add_sample();IF NOT f_power_ind(1268) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long ll_row
s_cust_sample s_sample

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择客户',information!,OK!)
	RETURN
END IF

s_sample.sampleid = 0
s_sample.cusid = dw_1.Object.cusid[ll_row]

OpenWithParm(w_cust_sample_add,s_sample)

THIS.TriggerEvent('ue_retr_sample')






end event

event ue_retr_item();Long ll_row,ll_cusid

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_8.dw_item.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_8.dw_item.Retrieve(ll_cusid)
END IF



end event

event ue_mod_item();if not f_power_ind(1269) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

long ll_row,ll_row_cust
long ll_itemid
s_item_cust_spt arg_s_item
string ls_dscrp,arg_msg

dw_1.accepttext()
ll_row_cust = dw_1.getrow()
if ll_row_cust <= 0 then
	messagebox('提示','请先选择客户',information!,OK!)
	return
end if

tab_1.tabpage_8.dw_item.accepttext()
ll_row = tab_1.tabpage_8.dw_item.getrow()
if ll_row <= 0 then
	messagebox('提示','请先选择客户辅助项目资料',information!,OK!)
	return
end if

if tab_1.tabpage_8.dw_item.object.u_item_cust_spt_def_inputtype[ll_row] = 1 then
	s_inputbox s_objstru
	s_objstru.title = '请填入内容'
	s_objstru.old_text = tab_1.tabpage_8.dw_item.object.u_item_cust_spt_dscrp[ll_row]
	openwithparm(w_inputbox,s_objstru)
else
	ll_itemid = tab_1.tabpage_8.dw_item.object.u_item_cust_spt_itemid[ll_row]
	openwithparm(w_item_cust_spt_mx_ch,ll_itemid)
end if

ls_dscrp = message.stringparm

if trim(ls_dscrp) = '' then return

arg_s_item.itemid = tab_1.tabpage_8.dw_item.object.u_item_cust_spt_itemid[ll_row]
arg_s_item.relid = dw_1.object.cusid[ll_row_cust]
arg_s_item.reltype = tab_1.tabpage_8.dw_item.object.u_item_cust_spt_reltype[ll_row]
arg_s_item.dscrp = ls_dscrp
if uo_cus.uof_add_item(arg_s_item,arg_msg,true) = 0 then
	messagebox ("错误",arg_msg+",保存操作失败!",stopsign!,ok!)
	return
end if

this.triggerevent('ue_retr_item')
















end event

event ue_fj_edit_sample();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = tab_1.tabpage_9.dw_sample.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

s_pic.f_long = 1201 //
s_pic.f_string = ''
s_pic.g_long = tab_1.tabpage_9.dw_sample.Object.u_cust_sample_sampleid[ls_row]
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = ''  //relcode_mx
s_pic.e_long = 0    // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)
end event

event ue_fj_view_sample();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = tab_1.tabpage_9.dw_sample.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

s_pic.f_long = 1201 //
s_pic.f_string = ''
s_pic.g_long = tab_1.tabpage_9.dw_sample.Object.u_cust_sample_sampleid[ls_row]
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = ''  //relcode_mx
s_pic.e_long = 0    // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)

end event

event ue_fj_view_plan();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = tab_1.tabpage_3.dw_plan.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

s_pic.f_long = 1203 //
s_pic.f_string = ''
s_pic.g_long = tab_1.tabpage_3.dw_plan.Object.planid[ls_row]
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = ''  //relcode_mx
s_pic.e_long = 0    // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)

end event

event ue_fj_view_interview();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = tab_1.tabpage_9.dw_sample.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

s_pic.f_long = 1202 //
s_pic.f_string = ''
s_pic.g_long = tab_1.tabpage_9.dw_sample.Object.interviewid[ls_row]
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = ''  //relcode_mx
s_pic.e_long = 0    // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)

end event

event ue_fj_edit_interview();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = tab_1.tabpage_2.dw_interview.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

s_pic.f_long = 1202 //
s_pic.f_string = ''
s_pic.g_long = tab_1.tabpage_2.dw_interview.Object.interviewid[ls_row]
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = ''  //relcode_mx
s_pic.e_long = 0    // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)
end event

event ue_fj_edit_plan();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = tab_1.tabpage_3.dw_plan.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

s_pic.f_long = 1203 //
s_pic.f_string = ''
s_pic.g_long = tab_1.tabpage_3.dw_plan.Object.planid[ls_row]
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = ''  //relcode_mx
s_pic.e_long = 0    // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)
end event

event ue_fj_edit_cust();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = dw_1.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

s_pic.f_long = 105 //
s_pic.f_string = ''
s_pic.g_long = dw_1.Object.cusid[ls_row]
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = ''  //relcode_mx
s_pic.e_long = 0    // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)

end event

event ue_fj_view_cust();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = dw_1.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

s_pic.f_long = 105 //
s_pic.f_string = ''
s_pic.g_long = dw_1.Object.cusid[ls_row]
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = ''  //relcode_mx
s_pic.e_long = 0    // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)


end event

event ue_fj_cnt_sample();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
Long ll_fj_cnt,ll_fj_id


ls_row = tab_1.tabpage_9.dw_sample.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

uo_fj_mng_billtype uo_fj_cnt
uo_fj_cnt = CREATE uo_fj_mng_billtype

ll_fj_id = tab_1.tabpage_9.dw_sample.Object.u_cust_sample_sampleid[ls_row]

IF uo_fj_cnt.uf_check_billfj(1201,ll_fj_id,0,0,sys_filedb_sqlca,arg_msg,ll_fj_cnt) = 0 THEN
	MessageBox('错误','查询附件数失败,'+arg_msg,stopsign!,ok!)
	RETURN
END IF

tab_1.tabpage_9.st_sample.text = '附件数('+string(ll_fj_cnt)+')'

DESTROY uo_fj_cnt


end event

event ue_fj_cnt_plan();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
Long ll_fj_cnt,ll_fj_id


ls_row = tab_1.tabpage_3.dw_plan.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF

uo_fj_mng_billtype uo_fj_cnt
uo_fj_cnt = CREATE uo_fj_mng_billtype

ll_fj_id = tab_1.tabpage_3.dw_plan.Object.planid[ls_row]

IF uo_fj_cnt.uf_check_billfj(1203,ll_fj_id,0,0,sys_filedb_sqlca,arg_msg,ll_fj_cnt) = 0 THEN
	MessageBox('错误','查询附件数失败,'+arg_msg,stopsign!,ok!)
	RETURN
END IF

tab_1.tabpage_3.st_plan.text = '附件数('+string(ll_fj_cnt)+')'

DESTROY uo_fj_cnt


end event

event ue_fj_cnt_interview();s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
Long ll_fj_cnt,ll_fj_id


ls_row = tab_1.tabpage_2.dw_interview.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,ok!)
	RETURN
END IF 

uo_fj_mng_billtype uo_fj_cnt
uo_fj_cnt = CREATE uo_fj_mng_billtype

ll_fj_id = tab_1.tabpage_2.dw_interview.Object.interviewid[ls_row]

IF uo_fj_cnt.uf_check_billfj(1202,ll_fj_id,0,0,sys_filedb_sqlca,arg_msg,ll_fj_cnt) = 0 THEN
	MessageBox('错误','查询附件数失败,'+arg_msg,stopsign!,ok!)
	RETURN
END IF

tab_1.tabpage_2.st_interview.Text = '附件数('+String(ll_fj_cnt)+')'

DESTROY uo_fj_cnt



end event

event ue_email_send();IF dw_1.GetRow() = 0 THEN RETURN
s_edit_index_tran s_tran //传递参数使用
OpenWithParm(w_email_set,s_tran)

s_email_set s_return
Long ll_row
s_return = Message.PowerObjectParm

IF s_return.mailid > 0 THEN
	s_return.flag = 1
	s_return.reltype = 2
	s_return.revaddress = dw_1.object.email[dw_1.GetRow()]
	s_return.revuser = dw_1.object.cuscode[dw_1.GetRow()]
	OpenWithParm(w_email_send_new,s_return)
END IF





end event

event ue_email_view();Long ll_ConnectionID
String arg_msg
IF f_get_outerconnection_email(ll_ConnectionID,arg_msg) <> 1 THEN
	MessageBox('系统提示','要使用邮件功能,请先定义邮件数据库')
	return
END IF

open(w_email_view)
end event

event ue_retr_rev();Long ll_ConnectionID
String arg_msg
IF sys_email_sqlca.DBHandle() <= 0 THEN
	tab_1.tabpage_10.dw_rev.Reset()
	RETURN
END IF

Long ll_row,ll_cusid
DateTime ld_fdate,ld_edate

ld_fdate = DateTime(Date(tab_1.tabpage_10.em_fdate4.Text),Time(0))
ld_edate = DateTime(Date(tab_1.tabpage_10.em_edate4.Text),Time('23:59:59'))

Long ll_mailid[]
String ls_sendaddress[]
String ls_send_str

Long i ,j 
i = 0 
j = 0
ll_row = dw_1.GetRow()

IF ll_row > 0 THEN
	ll_cusid = dw_1.Object.cusid[ll_row]
END IF



String ls_emp
Integer ls_empid,ls_count
ls_emp = String(sys_empid)
//FOR ls_count = 1 To UpperBound(sys_user_outrep)
//	ls_empid = 0
//	SELECT empid Into :ls_empid From u_rs_empinfo Where empname = :sys_user_outrep[ls_count];
//	IF Not IsNull(ls_empid) And ls_empid <> 0 THEN
//		ls_emp = ls_emp + ' , ' + String(ls_empid)
//	END IF
//	
//NEXT



//WHERE ( u_email_set.empid in ( :sys_empid) AND  u_email_set.mailtype = 0)
ls_empid = sys_empid
DECLARE cur_mailid CURSOR FOR
	SELECT mailid
	FROM u_email_set
	WHERE ( u_email_set.empid = :ls_empid AND  u_email_set.mailtype = 0)
	Or  u_email_set.mailtype = 1;
	
OPEN cur_mailid;
i++
FETCH cur_mailid Into :ll_mailid[i];

DO WHILE sqlca.SQLCode = 0
	i++
	FETCH cur_mailid Into :ll_mailid[i];
LOOP

CLOSE cur_mailid;

////////////////// //
FOR ls_count = 1 To UpperBound(sys_user_outrep)
	ls_empid = 0
	SELECT empid Into :ls_empid From u_rs_empinfo Where empname = :sys_user_outrep[ls_count];
	IF Not IsNull(ls_empid) And ls_empid <> 0 THEN
		OPEN cur_mailid;
		i++
		FETCH cur_mailid Into :ll_mailid[i];
		
		DO WHILE sqlca.SQLCode = 0
			i++
			FETCH cur_mailid Into :ll_mailid[i];
		LOOP
		
		CLOSE cur_mailid;
	END IF
NEXT
///////////////// //


DECLARE cur_address CURSOR FOR
	SELECT  DISTINCT LOWER(email)
	FROM
	(SELECT email
	FROM u_cust
	WHERE cusid = :ll_cusid
	UNION ALL
	SELECT email
	FROM u_cust_rep
	WHERE cusid = :ll_cusid) a
	Where (email <> '');
	
OPEN cur_address;
FETCH cur_address Into :ls_send_str;

DO WHILE sqlca.SQLCode = 0
	
	IF Trim(ls_send_str) <> '' THEN
		j++
		
		ls_sendaddress[j] = ls_send_str
	END IF
	
	FETCH cur_address Into :ls_send_str;
LOOP

CLOSE cur_address;

j++
ls_sendaddress[j] = 'XXXXXXXXXX'


dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_10.dw_rev.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_10.dw_rev.Retrieve(ld_fdate,ld_edate,ll_mailid,ls_sendaddress)
END IF





end event

event ue_retr_send();Long ll_ConnectionID
String arg_msg
IF sys_email_sqlca.DBHandle() <= 0 THEN
	tab_1.tabpage_11.dw_send.Reset()
	RETURN
END IF

Long ll_row,ll_cusid
DateTime ld_fdate,ld_edate

ld_fdate = DateTime(Date(tab_1.tabpage_11.em_fdate5.Text),Time(0))
ld_edate = DateTime(Date(tab_1.tabpage_11.em_edate5.Text),Time('23:59:59'))

Long ll_mailid[]
String ls_sendaddress[]
String ls_send_str
Long i  ,j 
i=0
j = 0
ll_row = dw_1.GetRow()

IF ll_row > 0 THEN
	ll_cusid = dw_1.Object.cusid[ll_row]
END IF



String ls_emp
long ls_empid,ls_count
ls_emp = String(sys_empid)
//for ls_count=1 to upperbound(sys_user_outrep)
//	ls_empid=0
//	select empid into :ls_empid from u_rs_empinfo where empname=:sys_user_outrep[ls_count];
//	if not isnull(ls_empid) and ls_empid<>0 then
//		ls_emp=ls_emp + ',' + string(ls_empid)
//	end if
//	
//next


//	WHERE ( u_email_set.empid = :sys_empid AND  u_email_set.mailtype = 0)
//WHERE ( u_email_set.empid  in(:ls_emp) AND  u_email_set.mailtype = 0)
///////////
ls_empid = sys_empid
DECLARE cur_mailid CURSOR FOR
	SELECT mailid
	FROM u_email_set
	WHERE ( u_email_set.empid = :ls_empid AND  u_email_set.mailtype = 0)
	Or  u_email_set.mailtype = 1;
	
OPEN cur_mailid;
//IF sqlca.SQLCode <> 0 THEN
//	MessageBox("",sqlca.SQLErrText)
//END IF
i++
FETCH cur_mailid Into :ll_mailid[i];

//IF sqlca.SQLCode <> 0 THEN
//	MessageBox("",sqlca.SQLErrText)
//END IF

DO WHILE sqlca.SQLCode = 0
	i++
	FETCH cur_mailid Into :ll_mailid[i];
LOOP

CLOSE cur_mailid;


//////////////// //
FOR ls_count = 1 To UpperBound(sys_user_outrep)
	ls_empid = 0
	SELECT empid Into :ls_empid From u_rs_empinfo Where empname = :sys_user_outrep[ls_count];
	IF Not IsNull(ls_empid) And ls_empid <> 0 THEN
		
		//DECLARE cur_mailid CURSOR FOR
		//	SELECT mailid
		//	FROM u_email_set
		//	WHERE ( u_email_set.empid = :sys_empid AND  u_email_set.mailtype = 0)
		//	OR  u_email_set.mailtype = 1;
		
		OPEN cur_mailid;
//		IF sqlca.SQLCode <> 0 THEN
//			MessageBox("",sqlca.SQLErrText)
//		END IF
		i++
		FETCH cur_mailid Into :ll_mailid[i];
		
//		IF sqlca.SQLCode <> 0 THEN
//			MessageBox("",sqlca.SQLErrText)
//		END IF
		
		DO WHILE sqlca.SQLCode = 0
			i++
			FETCH cur_mailid Into :ll_mailid[i];
		LOOP
		
		CLOSE cur_mailid;
	END IF
NEXT

DECLARE cur_address CURSOR FOR
	SELECT  DISTINCT LOWER(email)
	FROM
	(SELECT email
	FROM u_cust
	WHERE cusid = :ll_cusid
	UNION ALL
	SELECT email
	FROM u_cust_rep
	WHERE cusid = :ll_cusid) a
	Where (email <> '');
	
OPEN cur_address;
FETCH cur_address Into :ls_send_str;

DO WHILE sqlca.SQLCode = 0
	
	IF Trim(ls_send_str) <> '' THEN
		j++
		
		ls_sendaddress[j] = ls_send_str
	END IF
	
	FETCH cur_address Into :ls_send_str;
LOOP

CLOSE cur_address;

j++
ls_sendaddress[j] = 'XXXXXXXXXX'


dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_11.dw_send.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_11.dw_send.Retrieve(ld_fdate,ld_edate,ll_mailid,ls_sendaddress)
END IF


end event

event ue_retr_outware();Long ll_row,ll_cusid

dw_1.AcceptText()
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	tab_1.tabpage_12.dw_outware.Reset()
ELSE
	ll_cusid = dw_1.Object.cusid[ll_row]
	tab_1.tabpage_12.dw_outware.Retrieve(ll_cusid)
END IF



end event

event ue_filter_cuscode();String obj_expr = ''
IF Trim(sle_cust.Text) <> '' THEN
	IF Pos(Trim(sle_cust.Text),'%') = 0 THEN
		obj_expr = obj_expr+'( cuscode LIKE "%'+Trim(sle_cust.Text)+'%" )'
		obj_expr = obj_expr+' or (name LIKE "%'+Trim(sle_cust.Text)+'%" )'
	ELSE
		obj_expr = obj_expr+'( cuscode LIKE "'+Trim(sle_cust.Text)+'") '
		obj_expr = obj_expr+' or (name LIKE "'+Trim(sle_cust.Text)+'" )'
	END IF
END IF

dw_1.SetFilter(obj_expr)

dw_1.SetRedraw(FALSE)
dw_1.Filter()
IF dw_1.RowCount() >= 1 THEN
	dw_1.SelectRow(0,FALSE)
	dw_1.SelectRow(1,TRUE)
END IF
dw_1.SetRedraw(TRUE)

end event

event ue_filter_telnumber();//String obj_expr = ''
////IF trim(This.sle_tel_number.Text) <> '' THEN
////	IF Pos(Trim(sle_tel_number.Text),'%') = 0 THEN
////		obj_expr = obj_expr+"( tele LIKE '%"+Trim(sle_tel_number.Text)+"%')"
////		obj_expr = obj_expr+" or (tele1 LIKE '%"+Trim(sle_tel_number.Text)+"%' )"
////		obj_expr = obj_expr+" or (freight LIKE '%"+Trim(sle_tel_number.Text)+"%')"
////	ELSE
////		obj_expr = obj_expr+'( tele LIKE '+Trim(sle_tel_number.Text)+')'
////		obj_expr = obj_expr+' or (tele1 LIKE '+Trim(sle_tel_number.Text)+')'
////		obj_expr = obj_expr+' or (freight LIKE '+Trim(sle_tel_number.Text)+')'
////	END IF
////END IF
////
////dw_1.SetFilter(obj_expr)
//
//dw_1.SetRedraw(FALSE)
//dw_1.Filter()
//IF dw_1.RowCount() >= 1 THEN
//	dw_1.SelectRow(0,FALSE)
//	dw_1.SelectRow(1,TRUE)
//END IF
//dw_1.SetRedraw(TRUE)
//
end event

event ue_rq_cust();Int rslt = 1
Long ll_row
Long ll_cusid
Int li_state
String ls_cusname, ls_custype, ls_dscrp
String arg_msg
DateTime ldt_rqdate

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('系统提示', '请选择客户')
	RETURN
END IF

ll_cusid  = dw_1.Object.cusid[ll_row]
ls_cusname  = dw_1.Object.Name[ll_row]
li_state = dw_1.Object.State[ll_row]
ls_custype = dw_1.Object.custype[ll_row]
IF li_state <> 0 THEN
	MessageBox('系统提示', '非公共客户不能申请')
	RETURN
END IF

IF MessageBox('确定', '是否确定要申请['+ls_cusname+']为准客户?', question!, yesno!) = 2 THEN RETURN

ldt_rqdate = DateTime(Today(), Now())
ls_dscrp = ""

uo_custdef uo_cust
uo_cust = Create uo_custdef
uo_cust.commit_transaction = sqlca
IF uo_cust.uof_add_cust_rq(ll_cusid, ls_custype, ldt_rqdate, ls_dscrp, arg_msg, True) = 0 THEN
	rslt = 0
	//goto ext
END IF
Destroy uo_cust

IF rslt = 0 THEN
	MessageBox('系统提示', arg_msg)
	RETURN
ELSE
	MessageBox('系统提示', '申请准客户成功')
	dw_1.Object.State[ll_row] = 3
	//RETURN
END IF




end event

on w_cust_crm_rq.create
int iCurrent
call super::create
this.tv_1=create tv_1
this.tab_1=create tab_1
this.cb_audit=create cb_audit
this.cb_other=create cb_other
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.tv_1
this.Control[iCurrent+2]=this.tab_1
this.Control[iCurrent+3]=this.cb_audit
this.Control[iCurrent+4]=this.cb_other
end on

on w_cust_crm_rq.destroy
call super::destroy
destroy(this.tv_1)
destroy(this.tab_1)
destroy(this.cb_audit)
destroy(this.cb_other)
end on

event resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
ln_1.EndX = THIS.Width
ln_2.EndX = THIS.Width
r_bar.Width = THIS.Width

dw_1.Width = THIS.Width - dw_1.X - 40
tab_1.Width = THIS.Width - tab_1.X - 40
tab_1.Height = THIS.Height - tab_1.Y - 150

tab_1.tabpage_1.dw_rep.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_2.dw_interview.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_3.dw_plan.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_4.dw_price.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_5.dw_task.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_6.dw_oppose.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_7.dw_station.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_8.dw_item.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_9.dw_sample.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_10.dw_rev.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_11.dw_send.Width = THIS.Width - tab_1.X - 80
tab_1.tabpage_12.dw_outware.Width = THIS.Width - tab_1.X - 80

tab_1.tabpage_1.dw_rep.Height = THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_2.dw_interview.Height = THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_3.dw_plan.Height = THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_4.dw_price.Height = THIS.Height - ( 2300 - 548 ) 
tab_1.tabpage_5.dw_task.Height = THIS.Height - ( 2300 - 548 ) 
tab_1.tabpage_6.dw_oppose.Height = THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_7.dw_station.Height = THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_8.dw_item.Height = THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_9.dw_sample.Height = THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_10.dw_rev.Height= THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_11.dw_send.Height = THIS.Height - ( 2300 - 460 ) 
tab_1.tabpage_12.dw_outware.Height = THIS.Height - ( 2300 - 548 )  
end event

event ue_before_open;wf_init_dw1()
wf_replacedw()

s_edit_index_tran s_tran
s_tran = Message.PowerObjectParm
IF Not IsNull(s_tran) THEN
	if_power_sendout = s_tran.if_sendout
	if_power_print = s_tran.if_print
	sle_cust.text = trim(s_tran.arg_string_code)
//	sle_tel_number.text = trim(s_tran.d_string)   // 上送的电话号码
END IF

if_ue_sentdataout = if_power_sendout

cb_psetup.enabled = if_power_print
cb_2.enabled = if_power_print
cbx_yl.enabled = if_power_print
ddlb_yl.enabled = if_power_print

uo_cus = CREATE uo_crm

tab_1.tabpage_1.dw_rep.SetTransObject(sqlca)
tab_1.tabpage_2.dw_interview.SetTransObject(sqlca)
tab_1.tabpage_3.dw_plan.SetTransObject(sqlca)
tab_1.tabpage_4.dw_price.SetTransObject(sqlca)
tab_1.tabpage_5.dw_task.SetTransObject(sqlca)
tab_1.tabpage_6.dw_oppose.SetTransObject(sqlca)
tab_1.tabpage_7.dw_station.SetTransObject(sqlca)
tab_1.tabpage_8.dw_item.SetTransObject(sqlca)
tab_1.tabpage_9.dw_sample.SetTransObject(sqlca)

tab_1.tabpage_10.dw_rev.SetTransObject(sys_email_sqlca)
tab_1.tabpage_11.dw_send.SetTransObject(sys_email_sqlca)

tab_1.tabpage_12.dw_outware.SetTransObject(sqlca)


tab_1.tabpage_10.visible = true
tab_1.tabpage_11.visible = true

dw_task = tab_1.tabpage_5.dw_task
dw_price= tab_1.tabpage_4.dw_price


end event

event close;call super::close;DESTROY uo_cus

end event

event ue_before_openretrieve;call super::ue_before_openretrieve;s_hide_col s_col,s_col2,s_col3
s_col.col_1 = 'amt' 
s_col.col_2 = 'consignedqtyamt'
s_col.col_3 = 'not_consignedqtyamt'
f_hide_col(122,dw_task,s_col)

s_col2.col_1 = 'u_cus_price_fprice'
s_col2.col_2 = 'u_cus_price_zqrate'
s_col2.col_3 = 'u_cus_price_price'
s_col2.col_4 = 'u_mtrldef_price'
f_hide_col(122,dw_price,s_col2)

s_col3.col_1 = 'amt'
s_col3.col_2 = 'saleqtyamt'
f_hide_col(122,tab_1.tabpage_12.dw_outware,s_col3)
end event

event open;call super::open;This.TriggerEvent("ue_filter_cuscode")

// 电话录音盒
This.TriggerEvent("ue_filter_telnumber")

end event

type cb_func from w_publ_easyq`cb_func within w_cust_crm_rq
end type

type cb_exit from w_publ_easyq`cb_exit within w_cust_crm_rq
integer x = 782
end type

type cb_2 from w_publ_easyq`cb_2 within w_cust_crm_rq
boolean visible = false
integer x = 631
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_cust_crm_rq
integer x = 1408
integer y = 580
end type

type cb_1 from w_publ_easyq`cb_1 within w_cust_crm_rq
end type

event cb_1::clicked;call super::clicked;dw_1.Retrieve(ins_inuse,ins_areaname,sys_areaid,ins_state,sys_user_outrep, sys_option_outrep)

Parent.TriggerEvent('ue_retr_rep')
Parent.TriggerEvent('ue_retr_plan')
Parent.TriggerEvent('ue_retr_interview')
Parent.TriggerEvent('ue_retr_price')
Parent.TriggerEvent('ue_retr_task')
Parent.TriggerEvent('ue_retr_outware')
Parent.TriggerEvent('ue_retr_oppose')
Parent.TriggerEvent('ue_retr_station')
Parent.TriggerEvent('ue_retr_item')
Parent.TriggerEvent('ue_retr_sample')

Parent.TriggerEvent('ue_retr_rev')
Parent.TriggerEvent('ue_retr_send')


end event

type st_3 from w_publ_easyq`st_3 within w_cust_crm_rq
integer x = 5
integer y = 196
integer width = 261
string text = "客户编号:"
end type

type st_4 from w_publ_easyq`st_4 within w_cust_crm_rq
integer x = 1111
integer y = 328
string text = ""
end type

type em_1 from w_publ_easyq`em_1 within w_cust_crm_rq
integer x = 1321
integer y = 432
end type

type em_2 from w_publ_easyq`em_2 within w_cust_crm_rq
integer x = 1810
integer y = 432
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_cust_crm_rq
integer x = 2085
integer y = 640
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_cust_crm_rq
integer x = 1874
integer y = 644
end type

event cbx_yl::clicked;long i = 0 
end event

type dw_1 from w_publ_easyq`dw_1 within w_cust_crm_rq
integer x = 1001
integer y = 288
integer width = 2551
integer height = 1200
string dataobject = "dw_cust_crm_rq_index"
end type

event dw_1::rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

PARENT.TriggerEvent('ue_retr_rep')
PARENT.TriggerEvent('ue_retr_plan')
PARENT.TriggerEvent('ue_retr_interview')
PARENT.TriggerEvent('ue_retr_price')
PARENT.TriggerEvent('ue_retr_task')
PARENT.TriggerEvent('ue_retr_outware')
PARENT.TriggerEvent('ue_retr_oppose')
PARENT.TriggerEvent('ue_retr_station')
PARENT.TriggerEvent('ue_retr_item')
PARENT.TriggerEvent('ue_retr_sample')

PARENT.TriggerEvent('ue_retr_rev')
PARENT.TriggerEvent('ue_retr_send')





end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_cust_crm_rq
end type

type sle_cust from w_publ_easyq`sle_cust within w_cust_crm_rq
boolean visible = true
integer x = 261
integer y = 180
integer width = 503
integer height = 88
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_cust_crm_rq
end type

type st_cust from w_publ_easyq`st_cust within w_cust_crm_rq
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_cust_crm_rq
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_cust_crm_rq
boolean visible = false
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_cust_crm_rq
boolean visible = false
end type

type pb_2 from w_publ_easyq`pb_2 within w_cust_crm_rq
boolean visible = false
end type

type cb_help from w_publ_easyq`cb_help within w_cust_crm_rq
integer x = 631
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_cust_crm_rq
boolean visible = false
end type

type gb_1 from w_publ_easyq`gb_1 within w_cust_crm_rq
integer x = 1577
integer y = 448
end type

type ln_bar from w_publ_easyq`ln_bar within w_cust_crm_rq
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_cust_crm_rq
end type

type r_bar from w_publ_easyq`r_bar within w_cust_crm_rq
end type

type ln_1 from w_publ_easyq`ln_1 within w_cust_crm_rq
integer beginy = 280
integer endy = 280
end type

type ln_2 from w_publ_easyq`ln_2 within w_cust_crm_rq
integer beginy = 284
integer endy = 284
end type

type ln_3 from w_publ_easyq`ln_3 within w_cust_crm_rq
boolean visible = false
end type

type ln_4 from w_publ_easyq`ln_4 within w_cust_crm_rq
boolean visible = false
end type

type tv_1 from uo_tv_cusarea within w_cust_crm_rq
integer y = 288
integer width = 997
integer height = 1200
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;ins_areaname = THIS.uo_cur_info.areaname

IF THIS.uo_cur_info.sonflag = 1 THEN
	cur_cusareaid = THIS.uo_cur_info.cusareaid
ELSE
	cur_cusareaid = 0
END IF
ins_areaname = ins_areaname + '%'
cb_1.TriggerEvent(Clicked!)




end event

type tab_1 from tab within w_cust_crm_rq
event create ( )
event destroy ( )
integer y = 1492
integer width = 3543
integer height = 728
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_8 tabpage_8
tabpage_7 tabpage_7
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_6 tabpage_6
tabpage_9 tabpage_9
tabpage_4 tabpage_4
tabpage_5 tabpage_5
tabpage_12 tabpage_12
tabpage_10 tabpage_10
tabpage_11 tabpage_11
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_8=create tabpage_8
this.tabpage_7=create tabpage_7
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.tabpage_6=create tabpage_6
this.tabpage_9=create tabpage_9
this.tabpage_4=create tabpage_4
this.tabpage_5=create tabpage_5
this.tabpage_12=create tabpage_12
this.tabpage_10=create tabpage_10
this.tabpage_11=create tabpage_11
this.Control[]={this.tabpage_1,&
this.tabpage_8,&
this.tabpage_7,&
this.tabpage_2,&
this.tabpage_3,&
this.tabpage_6,&
this.tabpage_9,&
this.tabpage_4,&
this.tabpage_5,&
this.tabpage_12,&
this.tabpage_10,&
this.tabpage_11}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_8)
destroy(this.tabpage_7)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
destroy(this.tabpage_6)
destroy(this.tabpage_9)
destroy(this.tabpage_4)
destroy(this.tabpage_5)
destroy(this.tabpage_12)
destroy(this.tabpage_10)
destroy(this.tabpage_11)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "联系人"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_12 cb_12
cb_8 cb_8
cb_7 cb_7
dw_rep dw_rep
end type

on tabpage_1.create
this.cb_12=create cb_12
this.cb_8=create cb_8
this.cb_7=create cb_7
this.dw_rep=create dw_rep
this.Control[]={this.cb_12,&
this.cb_8,&
this.cb_7,&
this.dw_rep}
end on

on tabpage_1.destroy
destroy(this.cb_12)
destroy(this.cb_8)
destroy(this.cb_7)
destroy(this.dw_rep)
end on

type cb_12 from commandbutton within tabpage_1
integer y = 4
integer width = 192
integer height = 72
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "增加"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_add_rep')


end event

type cb_8 from commandbutton within tabpage_1
integer x = 192
integer y = 4
integer width = 206
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_mod_rep')
end event

type cb_7 from commandbutton within tabpage_1
integer x = 398
integer y = 4
integer width = 206
integer height = 72
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删除"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_del_rep')
end event

type dw_rep from u_dw_rbtnfilter within tabpage_1
integer y = 80
integer width = 3506
integer height = 528
integer taborder = 20
string dataobject = "dw_cust_crm_rep"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

type tabpage_8 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "辅助项目"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_item dw_item
cb_25 cb_25
end type

on tabpage_8.create
this.dw_item=create dw_item
this.cb_25=create cb_25
this.Control[]={this.dw_item,&
this.cb_25}
end on

on tabpage_8.destroy
destroy(this.dw_item)
destroy(this.cb_25)
end on

type dw_item from u_dw_rbtnfilter within tabpage_8
integer y = 80
integer width = 3506
integer height = 484
integer taborder = 30
string dataobject = "dw_cust_crm_item"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

type cb_25 from commandbutton within tabpage_8
integer x = 5
integer y = 4
integer width = 274
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改摘要"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_mod_item')

end event

type tabpage_7 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "货运部"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_18 cb_18
cb_17 cb_17
cb_16 cb_16
dw_station dw_station
end type

on tabpage_7.create
this.cb_18=create cb_18
this.cb_17=create cb_17
this.cb_16=create cb_16
this.dw_station=create dw_station
this.Control[]={this.cb_18,&
this.cb_17,&
this.cb_16,&
this.dw_station}
end on

on tabpage_7.destroy
destroy(this.cb_18)
destroy(this.cb_17)
destroy(this.cb_16)
destroy(this.dw_station)
end on

type cb_18 from commandbutton within tabpage_7
integer x = 192
integer y = 4
integer width = 206
integer height = 72
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删除"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_del_station')
end event

type cb_17 from commandbutton within tabpage_7
integer x = 398
integer y = 4
integer width = 384
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "设默认货运部"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_dft_station')
end event

type cb_16 from commandbutton within tabpage_7
integer y = 4
integer width = 192
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "增加"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_add_station')
end event

type dw_station from u_dw_rbtnfilter within tabpage_7
integer y = 80
integer width = 3506
integer height = 492
integer taborder = 20
string dataobject = "dw_cust_crm_station"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "走访"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
st_interview st_interview
cb_31 cb_31
cb_30 cb_30
cb_21 cb_21
em_edate2 em_edate2
st_6 st_6
em_fdate2 em_fdate2
cb_11 cb_11
cb_10 cb_10
cb_9 cb_9
dw_interview dw_interview
end type

on tabpage_2.create
this.st_interview=create st_interview
this.cb_31=create cb_31
this.cb_30=create cb_30
this.cb_21=create cb_21
this.em_edate2=create em_edate2
this.st_6=create st_6
this.em_fdate2=create em_fdate2
this.cb_11=create cb_11
this.cb_10=create cb_10
this.cb_9=create cb_9
this.dw_interview=create dw_interview
this.Control[]={this.st_interview,&
this.cb_31,&
this.cb_30,&
this.cb_21,&
this.em_edate2,&
this.st_6,&
this.em_fdate2,&
this.cb_11,&
this.cb_10,&
this.cb_9,&
this.dw_interview}
end on

on tabpage_2.destroy
destroy(this.st_interview)
destroy(this.cb_31)
destroy(this.cb_30)
destroy(this.cb_21)
destroy(this.em_edate2)
destroy(this.st_6)
destroy(this.em_fdate2)
destroy(this.cb_11)
destroy(this.cb_10)
destroy(this.cb_9)
destroy(this.dw_interview)
end on

type st_interview from statictext within tabpage_2
boolean visible = false
integer x = 1221
integer y = 16
integer width = 398
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "附件数()"
boolean focusrectangle = false
end type

type cb_31 from commandbutton within tabpage_2
integer x = 901
integer y = 4
integer width = 297
integer height = 72
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "添加附件"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_fj_edit_interview')
end event

type cb_30 from commandbutton within tabpage_2
integer x = 603
integer y = 4
integer width = 297
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "查看附件"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_fj_view_interview')
end event

type cb_21 from commandbutton within tabpage_2
integer x = 2565
integer y = 4
integer width = 169
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_retr_interview')

end event

type em_edate2 from editmask within tabpage_2
integer x = 2149
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(Today(),'yyyy-mm-dd')

end event

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


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

type st_6 from statictext within tabpage_2
integer x = 2043
integer y = 24
integer width = 82
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "~~"
alignment alignment = center!
boolean focusrectangle = false
end type

type em_fdate2 from editmask within tabpage_2
integer x = 1637
integer width = 402
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(RelativeDate ( Today(), -90 ),'yyyy-mm-dd')
end event

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


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

type cb_11 from commandbutton within tabpage_2
integer x = 398
integer y = 4
integer width = 206
integer height = 72
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删除"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_del_interview')
end event

type cb_10 from commandbutton within tabpage_2
integer x = 192
integer y = 4
integer width = 206
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_mod_interview')
end event

type cb_9 from commandbutton within tabpage_2
integer y = 4
integer width = 192
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "增加"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_add_interview')
end event

type dw_interview from u_dw_rbtnfilter within tabpage_2
integer y = 88
integer width = 3506
integer height = 484
integer taborder = 20
string dataobject = "dw_cust_crm_interview"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;//PARENT.GetParent().GetParent().TriggerEvent('ue_fj_cnt_interview')

IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "工作计划"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
st_plan st_plan
cb_29 cb_29
cb_28 cb_28
cb_20 cb_20
em_edate3 em_edate3
st_5 st_5
em_fdate3 em_fdate3
cb_15 cb_15
cb_14 cb_14
cb_13 cb_13
dw_plan dw_plan
end type

on tabpage_3.create
this.st_plan=create st_plan
this.cb_29=create cb_29
this.cb_28=create cb_28
this.cb_20=create cb_20
this.em_edate3=create em_edate3
this.st_5=create st_5
this.em_fdate3=create em_fdate3
this.cb_15=create cb_15
this.cb_14=create cb_14
this.cb_13=create cb_13
this.dw_plan=create dw_plan
this.Control[]={this.st_plan,&
this.cb_29,&
this.cb_28,&
this.cb_20,&
this.em_edate3,&
this.st_5,&
this.em_fdate3,&
this.cb_15,&
this.cb_14,&
this.cb_13,&
this.dw_plan}
end on

on tabpage_3.destroy
destroy(this.st_plan)
destroy(this.cb_29)
destroy(this.cb_28)
destroy(this.cb_20)
destroy(this.em_edate3)
destroy(this.st_5)
destroy(this.em_fdate3)
destroy(this.cb_15)
destroy(this.cb_14)
destroy(this.cb_13)
destroy(this.dw_plan)
end on

type st_plan from statictext within tabpage_3
boolean visible = false
integer x = 1221
integer y = 16
integer width = 398
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "附件数()"
boolean focusrectangle = false
end type

type cb_29 from commandbutton within tabpage_3
integer x = 901
integer y = 4
integer width = 297
integer height = 72
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "添加附件"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_fj_edit_plan')
end event

type cb_28 from commandbutton within tabpage_3
integer x = 603
integer y = 4
integer width = 297
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "查看附件"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_fj_view_plan')
end event

type cb_20 from commandbutton within tabpage_3
integer x = 2693
integer y = 4
integer width = 169
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_retr_plan')

end event

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

event constructor;THIS.Text = String(RelativeDate ( Today(), 30 ),'yyyy-mm-dd')

end event

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


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

type st_5 from statictext within tabpage_3
integer x = 2171
integer y = 24
integer width = 82
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "~~"
alignment alignment = center!
boolean focusrectangle = false
end type

type em_fdate3 from editmask within tabpage_3
integer x = 1765
integer width = 402
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(RelativeDate ( Today(), -7 ),'yyyy-mm-dd')
end event

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


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

type cb_15 from commandbutton within tabpage_3
integer x = 398
integer y = 4
integer width = 206
integer height = 72
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删除"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_del_plan')
end event

type cb_14 from commandbutton within tabpage_3
integer x = 192
integer y = 4
integer width = 206
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_mod_plan')
end event

type cb_13 from commandbutton within tabpage_3
integer y = 4
integer width = 192
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "增加"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_add_plan')
end event

type dw_plan from u_dw_rbtnfilter within tabpage_3
integer y = 88
integer width = 3506
integer height = 484
integer taborder = 20
string dataobject = "dw_cust_crm_plan"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;//PARENT.GetParent().GetParent().TriggerEvent('ue_fj_cnt_plan')
IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type tabpage_6 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "投拆"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_6 cb_6
st_1 st_1
em_fdate6 em_fdate6
em_edate6 em_edate6
dw_oppose dw_oppose
end type

on tabpage_6.create
this.cb_6=create cb_6
this.st_1=create st_1
this.em_fdate6=create em_fdate6
this.em_edate6=create em_edate6
this.dw_oppose=create dw_oppose
this.Control[]={this.cb_6,&
this.st_1,&
this.em_fdate6,&
this.em_edate6,&
this.dw_oppose}
end on

on tabpage_6.destroy
destroy(this.cb_6)
destroy(this.st_1)
destroy(this.em_fdate6)
destroy(this.em_edate6)
destroy(this.dw_oppose)
end on

type cb_6 from commandbutton within tabpage_6
integer x = 928
integer y = 4
integer width = 169
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_retr_oppose')

end event

type st_1 from statictext within tabpage_6
integer x = 407
integer y = 24
integer width = 82
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "~~"
alignment alignment = center!
boolean focusrectangle = false
end type

type em_fdate6 from editmask within tabpage_6
integer width = 402
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(RelativeDate ( Today(), -90 ),'yyyy-mm-dd')
end event

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


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

type em_edate6 from editmask within tabpage_6
integer x = 512
integer width = 402
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(Today(),'yyyy-mm-dd')

end event

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


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

type dw_oppose from u_dw_rbtnfilter within tabpage_6
integer y = 88
integer width = 3506
integer height = 484
integer taborder = 20
string dataobject = "dw_crm_oppsoe"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

type tabpage_9 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "样版"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
st_sample st_sample
cb_27 cb_27
cb_26 cb_26
dw_sample dw_sample
cb_24 cb_24
cb_23 cb_23
cb_22 cb_22
cb_19 cb_19
em_edate9 em_edate9
st_2 st_2
em_fdate9 em_fdate9
end type

on tabpage_9.create
this.st_sample=create st_sample
this.cb_27=create cb_27
this.cb_26=create cb_26
this.dw_sample=create dw_sample
this.cb_24=create cb_24
this.cb_23=create cb_23
this.cb_22=create cb_22
this.cb_19=create cb_19
this.em_edate9=create em_edate9
this.st_2=create st_2
this.em_fdate9=create em_fdate9
this.Control[]={this.st_sample,&
this.cb_27,&
this.cb_26,&
this.dw_sample,&
this.cb_24,&
this.cb_23,&
this.cb_22,&
this.cb_19,&
this.em_edate9,&
this.st_2,&
this.em_fdate9}
end on

on tabpage_9.destroy
destroy(this.st_sample)
destroy(this.cb_27)
destroy(this.cb_26)
destroy(this.dw_sample)
destroy(this.cb_24)
destroy(this.cb_23)
destroy(this.cb_22)
destroy(this.cb_19)
destroy(this.em_edate9)
destroy(this.st_2)
destroy(this.em_fdate9)
end on

type st_sample from statictext within tabpage_9
boolean visible = false
integer x = 1221
integer y = 16
integer width = 398
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "附件数()"
boolean focusrectangle = false
end type

type cb_27 from commandbutton within tabpage_9
integer x = 901
integer y = 4
integer width = 297
integer height = 72
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "添加附件"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_fj_edit_sample')
end event

type cb_26 from commandbutton within tabpage_9
integer x = 603
integer y = 4
integer width = 297
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "查看附件"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_fj_view_sample')
end event

type dw_sample from u_dw_rbtnfilter within tabpage_9
integer y = 88
integer width = 3506
integer height = 484
integer taborder = 30
string dataobject = "dw_cust_crm_sample"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;//PARENT.GetParent().GetParent().TriggerEvent('ue_fj_cnt_sample')
IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)
end event

type cb_24 from commandbutton within tabpage_9
integer x = 398
integer y = 4
integer width = 206
integer height = 72
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删除"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_del_sample')
end event

type cb_23 from commandbutton within tabpage_9
integer x = 192
integer y = 4
integer width = 206
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_mod_sample')
end event

type cb_22 from commandbutton within tabpage_9
integer y = 4
integer width = 192
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "增加"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_add_sample')


end event

type cb_19 from commandbutton within tabpage_9
integer x = 2624
integer y = 4
integer width = 169
integer height = 72
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_retr_sample')

end event

type em_edate9 from editmask within tabpage_9
integer x = 2208
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(Today(),'yyyy-mm-dd')

end event

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


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

type st_2 from statictext within tabpage_9
integer x = 2103
integer y = 24
integer width = 82
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "~~"
alignment alignment = center!
boolean focusrectangle = false
end type

type em_fdate9 from editmask within tabpage_9
integer x = 1696
integer width = 402
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(RelativeDate ( Today(), -365 ),'yyyy-mm-dd')

end event

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


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

type tabpage_4 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "最新售价"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_price dw_price
end type

on tabpage_4.create
this.dw_price=create dw_price
this.Control[]={this.dw_price}
end on

on tabpage_4.destroy
destroy(this.dw_price)
end on

type dw_price from u_dw_rbtnfilter within tabpage_4
integer width = 3506
integer height = 612
integer taborder = 20
string dataobject = "dw_cust_crm_price"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

type tabpage_5 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "订货历史"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_task dw_task
end type

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

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

type dw_task from u_dw_rbtnfilter within tabpage_5
integer width = 3506
integer height = 616
integer taborder = 20
string dataobject = "dw_cust_crm_task"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

event doubleclicked;call super::doubleclicked;//IF row > 0 THEN
//	String ls_code
//	Long ll_scid
//	
//	ll_scid = THIS.Object.u_saletask_scid[row]
//	ls_code = THIS.Object.u_saletask_taskcode[row]
//	
//	f_open_win(ll_scid,ls_code)
//END IF
//
end event

type tabpage_12 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "发货历史"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware dw_outware
end type

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

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

type dw_outware from u_dw_rbtnfilter within tabpage_12
integer width = 3506
integer height = 616
string dataobject = "dw_cust_crm_outware"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event doubleclicked;call super::doubleclicked;//IF row > 0 THEN
//	String ls_code
//	Long ll_scid
//	
//	ll_scid = THIS.Object.u_saletask_scid[row]
//	ls_code = THIS.Object.u_saletask_taskcode[row]
//	
//	f_open_win(ll_scid,ls_code)
//END IF
//
end event

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

type tabpage_10 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "邮件接收历史"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_rev dw_rev
cb_32 cb_32
em_edate4 em_edate4
st_7 st_7
em_fdate4 em_fdate4
end type

on tabpage_10.create
this.dw_rev=create dw_rev
this.cb_32=create cb_32
this.em_edate4=create em_edate4
this.st_7=create st_7
this.em_fdate4=create em_fdate4
this.Control[]={this.dw_rev,&
this.cb_32,&
this.em_edate4,&
this.st_7,&
this.em_fdate4}
end on

on tabpage_10.destroy
destroy(this.dw_rev)
destroy(this.cb_32)
destroy(this.em_edate4)
destroy(this.st_7)
destroy(this.em_fdate4)
end on

type dw_rev from u_dw_rbtnfilter within tabpage_10
integer y = 88
integer width = 3506
integer height = 524
integer taborder = 30
string dataobject = "dw_email_crm_rev"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

event doubleclicked;call super::doubleclicked;IF dw_rev.GetRow() = 0 THEN RETURN
s_email_set s_parm
String ls_msg


	s_parm.sendid = dw_rev.Object.id[dw_rev.GetRow()]
	IF dw_rev.Object.u_email_msg_mailtype[dw_rev.GetRow()] = '发件' THEN
		OpenWithParm(w_email_send_new,s_parm)
	ELSE
		
		Long arr[]
		Long i
		FOR i = 1 To dw_rev.RowCount()
			arr[i] = dw_rev.Object.id[i]
		NEXT
		s_parm.arr = arr
		s_parm.cur = dw_rev.GetRow()
		s_parm.title="已接收的邮件"
		OpenWithParm(w_email_rev, s_parm)
	END IF

end event

type cb_32 from commandbutton within tabpage_10
integer x = 928
integer y = 4
integer width = 169
integer height = 72
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_retr_rev')

end event

type em_edate4 from editmask within tabpage_10
integer x = 512
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(Today(),'yyyy-mm-dd')

end event

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


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

type st_7 from statictext within tabpage_10
integer x = 407
integer y = 24
integer width = 82
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "~~"
alignment alignment = center!
boolean focusrectangle = false
end type

type em_fdate4 from editmask within tabpage_10
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(RelativeDate ( Today(), -90 ),'yyyy-mm-dd')
end event

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


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

type tabpage_11 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3506
integer height = 616
long backcolor = 134217739
string text = "邮件发送历史"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_send dw_send
cb_33 cb_33
em_edate5 em_edate5
st_8 st_8
em_fdate5 em_fdate5
end type

on tabpage_11.create
this.dw_send=create dw_send
this.cb_33=create cb_33
this.em_edate5=create em_edate5
this.st_8=create st_8
this.em_fdate5=create em_fdate5
this.Control[]={this.dw_send,&
this.cb_33,&
this.em_edate5,&
this.st_8,&
this.em_fdate5}
end on

on tabpage_11.destroy
destroy(this.dw_send)
destroy(this.cb_33)
destroy(this.em_edate5)
destroy(this.st_8)
destroy(this.em_fdate5)
end on

type dw_send from u_dw_rbtnfilter within tabpage_11
integer y = 88
integer width = 3506
integer height = 484
integer taborder = 30
string dataobject = "dw_email_crm_send"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

event doubleclicked;call super::doubleclicked;IF dw_send.GetRow() = 0 THEN RETURN
s_email_set s_parm
String ls_msg
Long arr[]
Long i

	s_parm.sendid = dw_send.Object.id[dw_send.GetRow()]

		
		
		FOR i = 1 To dw_send.RowCount()
			arr[i] = dw_send.Object.id[i]
		NEXT
		s_parm.arr = arr
		s_parm.cur = dw_send.GetRow()
		s_parm.title="已发送的邮件"
		OpenWithParm(w_email_rev, s_parm)

end event

type cb_33 from commandbutton within tabpage_11
integer x = 928
integer y = 4
integer width = 169
integer height = 72
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;PARENT.GetParent().GetParent().TriggerEvent('ue_retr_send')

end event

type em_edate5 from editmask within tabpage_11
integer x = 512
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(Today(),'yyyy-mm-dd')

end event

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


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

type st_8 from statictext within tabpage_11
integer x = 407
integer y = 24
integer width = 82
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "~~"
alignment alignment = center!
boolean focusrectangle = false
end type

type em_fdate5 from editmask within tabpage_11
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;THIS.Text = String(RelativeDate ( Today(), -90 ),'yyyy-mm-dd')
end event

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


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

type cb_audit from uo_imflatbutton within w_cust_crm_rq
boolean visible = false
integer x = 603
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "设置"
string normalpicname = "audit.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


menustr="Text=设正式客户~tEvent=ue_set_cust_ok"
menustr=menustr + "|" + "Text=设非正式客户~tEvent=ue_set_cust_notok"
menustr=menustr + "|" + "Text=设黑名单客户~tEvent=ue_set_cust_blacklist"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=查看附件~tEvent=ue_fj_view_cust"
menustr=menustr + "|" + "Text=添加附件~tEvent=ue_fj_edit_cust"



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 cb_other from uo_imflatbutton within w_cust_crm_rq
integer x = 302
integer width = 329
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "申请准客户"
string normalpicname = "other.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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