Q5/ws_objects/Ew_ljfieb.pbl.src/w_cus_ecomm_edit.srw

$PBExportHeader$w_cus_ecomm_edit.srw
forward
global type w_cus_ecomm_edit from w_publ_base
end type
type dw_1 from u_dw_rbtnfilter within w_cus_ecomm_edit
end type
type cb_edi from uo_imflatbutton within w_cus_ecomm_edit
end type
type cb_cancel from uo_imflatbutton within w_cus_ecomm_edit
end type
type cb_save from uo_imflatbutton within w_cus_ecomm_edit
end type
type cb_retrievemx from uo_imflatbutton within w_cus_ecomm_edit
end type
type tv_1 from uo_tv_cusarea within w_cus_ecomm_edit
end type
type cb_1 from uo_imflatbutton within w_cus_ecomm_edit
end type
type cb_help from uo_imflatbutton within w_cus_ecomm_edit
end type
type ln_bar from line within w_cus_ecomm_edit
end type
type ln_bar2 from line within w_cus_ecomm_edit
end type
type r_bar from rectangle within w_cus_ecomm_edit
end type
end forward

global type w_cus_ecomm_edit from w_publ_base
integer x = 46
integer y = 36
integer width = 3611
integer height = 2372
string title = "客户电子商务设置"
boolean maxbox = true
windowstate windowstate = maximized!
event ue_rtr_area ( )
event ue_set_area ( )
event ue_help ( )
event user_key ( )
dw_1 dw_1
cb_edi cb_edi
cb_cancel cb_cancel
cb_save cb_save
cb_retrievemx cb_retrievemx
tv_1 tv_1
cb_1 cb_1
cb_help cb_help
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_cus_ecomm_edit w_cus_ecomm_edit

type variables
String ls_areaname = ''
end variables

forward prototypes
public function integer wf_facechange ()
end prototypes

event ue_rtr_area();if dw_edit_mode then return
tv_1.f_maketree()
end event

event ue_set_area();if dw_edit_mode then return
open(w_cusarea_def)

end event

event ue_help();Int i
i = htmlhelpA(Handle(THIS), sys_help_chm, 0, THIS.Title+".htm")

end event

event user_key();IF KeyDown(KeyF1!) THEN
	THIS.TriggerEvent('ue_help')
END IF

end event

public function integer wf_facechange ();//wf_facechange
IF dw_edit_mode THEN
	cb_cancel.Enabled = True
	cb_save.Enabled = True
	
	cb_func.Enabled = False
	cb_retrievemx.Enabled = False
	
	dw_1.SetTabOrder(2,10)
	dw_1.SetTabOrder(3,30)
	
ELSE
	cb_cancel.Enabled = False
	cb_save.Enabled = False
	
	cb_func.Enabled = True
	cb_retrievemx.Enabled = True
	
	
	dw_1.SetTabOrder(2,0)
	dw_1.SetTabOrder(3,0)
	
END IF
RETURN 1

end function

on w_cus_ecomm_edit.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_edi=create cb_edi
this.cb_cancel=create cb_cancel
this.cb_save=create cb_save
this.cb_retrievemx=create cb_retrievemx
this.tv_1=create tv_1
this.cb_1=create cb_1
this.cb_help=create cb_help
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_edi
this.Control[iCurrent+3]=this.cb_cancel
this.Control[iCurrent+4]=this.cb_save
this.Control[iCurrent+5]=this.cb_retrievemx
this.Control[iCurrent+6]=this.tv_1
this.Control[iCurrent+7]=this.cb_1
this.Control[iCurrent+8]=this.cb_help
this.Control[iCurrent+9]=this.ln_bar
this.Control[iCurrent+10]=this.ln_bar2
this.Control[iCurrent+11]=this.r_bar
end on

on w_cus_ecomm_edit.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_edi)
destroy(this.cb_cancel)
destroy(this.cb_save)
destroy(this.cb_retrievemx)
destroy(this.tv_1)
destroy(this.cb_1)
destroy(this.cb_help)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

event open;call super::open;dw_1.settransobject(sqlca)

cb_retrievemx.triggerevent(clicked!)
end event

event ue_filter;call super::ue_filter;OPENWITHPARM(w_filter_query,dw_1)
STRING LS_EXPR
LS_EXPR=Message.StringParm	

if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_1.setfilter(LS_EXPR)
dw_1.SetRedraw (false)
dw_1.filter()
dw_1.SetRedraw (TRUE)
end event

event ue_sort;call super::ue_sort;OPENwithparm(w_sortrow,DW_1)
STRING LS_EXPR
LS_EXPR=Message.StringParm	
IF ISNULL(LS_EXPR) THEN LS_EXPR='   '
if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_1.setsort(LS_EXPR)

dw_1.SetRedraw (false)
dw_1.sort()
dw_1.SetRedraw (true)
end event

event ue_before_open;call super::ue_before_open;if_ue_filter=true
if_ue_sort=true
if_ue_sentdataout=true
end event

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

long w_width,w_height
w_width = 3600
w_height = 2300


if newwidth < w_width then this.width = w_width
if newheight < w_height then  this.height = w_height

dw_1.width=this.width - dw_1.x - 40
dw_1.height=this.height - dw_1.y - 150
tv_1.height=dw_1.height
end event

event key;call super::key;this.triggerevent('user_key')
end event

event ue_sentdataout;call super::ue_sentdataout;OPENWITHPARM(w_sentdataout,dw_1)
end event

type cb_func from w_publ_base`cb_func within w_cus_ecomm_edit
integer x = 603
integer width = 151
integer height = 164
end type

type cb_exit from w_publ_base`cb_exit within w_cus_ecomm_edit
integer x = 905
integer width = 151
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_1 from u_dw_rbtnfilter within w_cus_ecomm_edit
integer x = 901
integer y = 180
integer width = 2610
integer height = 1996
integer taborder = 50
boolean bringtotop = true
string title = "客户资料"
string dataobject = "dw_cust_ecomm_edit"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean titleclick_sort_use = true
end type

event clicked;IF row > 0 THEN
	This.SetRow(row)
	This.SelectRow(0,False)
	This.SelectRow(row,True)
END IF


end event

event constructor;call super::constructor;
 RBUTTON_FILTER_USE=true  //右键查询功能开关

end event

event rowfocuschanged;IF currentrow <=0 THEN RETURN
this.selectrow(0,false)
this.selectrow(currentrow,true)

end event

event dwnkey;call super::dwnkey;parent.triggerevent('user_key')
end event

event doubleclicked;call super::doubleclicked;
Long ll_row
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN RETURN

IF dw_1.Object.ifecomm[ll_row] = 1 THEN
	IF Not dw_edit_mode THEN RETURN
	OpenWithParm(w_cuscomm_list_ch,2)
	s_cuscomm_ljfieb INS_RT_STRU
	INS_RT_STRU = Message.PowerObjectParm
	dw_1.Object.commcode[ll_row] = INS_RT_STRU.CusCode
ELSEIF dw_1.Object.ifecomm[ll_row] = 2 THEN
	s_edit_index_tran s_tran
	s_tran.b_long = dw_1.Object.cusid[ll_row]
	openwithparm(w_cus_ecomm_cus_rep_edit, s_tran)
END IF


end event

type cb_edi from uo_imflatbutton within w_cus_ecomm_edit
integer width = 151
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "修改"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;if not f_power_ind(3138) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

dw_edit_mode= true
wf_facechange()
dw_1.setfocus()
end event

type cb_cancel from uo_imflatbutton within w_cus_ecomm_edit
integer x = 151
integer width = 151
integer height = 164
integer taborder = 60
boolean bringtotop = true
boolean enabled = false
string text = "取消"
string normalpicname = "undo.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF  sys_email_sqlca.DBHandle() = 0  THEN
	MessageBox('Error','电子商务数据库连接失败,请检查')
	RETURN
END IF

dw_edit_mode=false
wf_facechange()
cb_retrievemx.triggerevent(clicked!)

end event

type cb_save from uo_imflatbutton within w_cus_ecomm_edit
integer x = 302
integer width = 151
integer height = 164
integer taborder = 70
boolean bringtotop = true
boolean enabled = false
string text = "保存"
string normalpicname = "save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_1.AcceptText()

IF dw_1.GetNextModified(0, Primary!) = 0 THEN
	MessageBox('系统提示','没有任何修改，不可以保存!')
	RETURN
END IF

Long ll_cnt
Long ll_i
String commcode,commsccode
Long cusid

//FOR ll_i = 1 To dw_1.RowCount()
//	cusid = dw_1.Object.cusid[ll_i]
//	
//	UPDATE u_cust
//		SET ifecomm = 0,
//		commcode = '',
//		commsccode = ''
//		Where cusid = :cusid;
//	IF sqlca.SQLCode <> 0 THEN
//		ROLLBACK;
//		MessageBox('Error','清除旧资料失败,'+sqlca.SQLErrText)
//		RETURN
//	END IF
//	
//NEXT
//
FOR ll_i = 1 To dw_1.RowCount()
	IF dw_1.Object.ifecomm[ll_i] = 0 THEN
		dw_1.Object.commcode[ll_i] = ''
		dw_1.Object.commsccode[ll_i] = ''
		CONTINUE
	END IF
	
//	commcode = dw_1.Object.commcode[ll_i]
//	commsccode = dw_1.Object.commsccode[ll_i]
//	
//	IF Trim(commcode) = '' THEN
//		MessageBox('Error','客户:'+String(dw_1.Object.cuscode[ll_i])+',使用电子商务功能,请选择对应的企业编号')
//		RETURN
//	END IF
//	
//	SELECT count(*)
//		INTO :ll_cnt
//		FROM u_cust
//		WHERE commcode = :commcode
//		And commsccode = :commsccode;
//	IF sqlca.SQLCode <> 0 THEN
//		MessageBox('Error','客户:'+String(dw_1.Object.cuscode[ll_i])+',查询企业编号是否有重复失败,'+sqlca.SQLErrText)
//		RETURN
//	END IF
//	
//	IF ll_cnt > 1 THEN
//		MessageBox('系统提示','企业代码:'+commcode+',分部代号:'+commsccode+',已被使用,不能重复指定')
//		RETURN
//	END IF
NEXT
//
dw_1.AcceptText()

IF dw_1.Update() = 1 THEN
	COMMIT;
ELSE
	ROLLBACK;
	MessageBox('系统提示','保存操作失败"!')
	RETURN
END IF

dw_edit_mode = False
wf_facechange()






end event

type cb_retrievemx from uo_imflatbutton within w_cus_ecomm_edit
integer x = 453
integer width = 151
integer height = 164
integer taborder = 20
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_1.retrieve(ls_areaname,sys_areaid)
end event

type tv_1 from uo_tv_cusarea within w_cus_ecomm_edit
integer y = 180
integer width = 896
integer height = 1996
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;if not dw_edit_mode then 
	ls_areaname = this.uo_cur_info.areaname
	ls_areaname = ls_areaname + '%'	
	cb_retrievemx.triggerevent(clicked!)
end if
end event

type cb_1 from uo_imflatbutton within w_cus_ecomm_edit
boolean visible = false
integer width = 151
integer height = 164
integer taborder = 10
boolean bringtotop = true
string text = "区域"
string normalpicname = "update2.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_rtr_area"
menustr=menustr + "|" + "Text=建立地区~tEvent=ue_set_area"
	
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_help from uo_imflatbutton within w_cus_ecomm_edit
integer x = 754
integer width = 151
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "帮助"
string normalpicname = "help.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;PARENT.TriggerEvent('ue_help')

end event

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

type ln_bar2 from line within w_cus_ecomm_edit
long linecolor = 16777215
integer linethickness = 4
integer beginy = 176
integer endx = 2039
integer endy = 176
end type

type r_bar from rectangle within w_cus_ecomm_edit
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 1531
integer width = 146
integer height = 68
end type

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

end event