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

$PBExportHeader$w_station_edit.srw
forward
global type w_station_edit from w_publ_edit_index
end type
end forward

global type w_station_edit from w_publ_edit_index
integer width = 2889
integer height = 1728
string title = "货运部"
event ue_taobao_ch ( )
end type
global w_station_edit w_station_edit

type variables
s_station INS_RT_STRU
String ls_stationname = ''

end variables

forward prototypes
public function integer wf_face_change ()
end prototypes

event ue_taobao_ch();Long row
row = dw_uc.GetRow()
OpenWithParm(w_taobao_trancode_ch, dw_uc.Object.taobao_code[row])
s_taobao_trancode_ch s_tran
s_tran = Message.PowerObjectParm
IF s_tran.ifok = 1 THEN
	dw_uc.Object.taobao_code[row] = s_tran.taobao_code
	dw_uc.Object.taobao_name[row] = s_tran.taobao_name
	IF Pos(Lower(s_tran.taobao_name),'ems') > 0 THEN
		dw_uc.Object.trancode_formula[row] = 'f_tb_emscode(p1,p2,p3)'
	END IF
END IF

end event

public function integer wf_face_change ();if dw_edit_mode then
	cb_func.enabled = false
	cb_retrieve.enabled = false
	cb_delet.enabled = false
	cb_print.enabled = false
	cb_choice.Enabled = FALSE
	sle_usual_query.Enabled = FALSE
	
		dw_index.enabled = false
	
	cb_edit.text = "放弃&E"
	cb_add.text = "保存&S"
	cb_edit.normalpicname = 'Undo.bmp'
	cb_add.normalpicname = 'Save.bmp'
else
	
	cb_retrieve.enabled = true
	cb_delet.enabled = true
	cb_print.enabled = true
	cb_func.enabled = true
	
	sle_usual_query.Enabled = TRUE
	IF mode = 1 THEN		
		cb_choice.Enabled = TRUE
	ELSE
		
		cb_choice.Enabled = FALSE
	END IF
	
	dw_index.enabled = true
	
	cb_edit.text = "修改&E"
	cb_add.text = "新建&S"	
	cb_edit.normalpicname = 'OPEN.bmp'
	cb_add.normalpicname = 'new.bmp'
end if

cb_edit.of_init_draw()
cb_add.of_init_draw()
cb_edit.of_paint()
cb_add.of_paint()
cb_edit.triggerevent('ue_textchange')
cb_add.triggerevent('ue_textchange')

this.triggerevent('refresh_interface')
return 1

end function

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

end event

on w_station_edit.create
call super::create
end on

on w_station_edit.destroy
call super::destroy
end on

event close;call super::close;CLOSEWITHRETURN(THIS,INS_RT_STRU)
end event

event open;call super::open;INS_RT_STRU.stationid = 0

end event

event retrieve_uc;boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled

cb_firstpage_enabled=cb_firstpage.enabled
cb_nextpage_enabled=cb_nextpage.enabled
cb_retrieveall_enabled=cb_retrieveall.enabled
cb_priorpage_enabled=cb_priorpage.enabled
cb_func_enabled=cb_func.enabled
cb_retrieve_enabled=cb_retrieve.enabled

cb_firstpage.enabled=false
cb_nextpage.enabled=false
cb_retrieveall.enabled=false
cb_priorpage.enabled=false
cb_func.enabled=false
cb_retrieve.enabled=false



dw_UC.setredraw(false)
dw_index.ShareDataOff()
SetPointer(HourGlass!) 
dw_UC.retrieve(ls_stationname)
SetPointer(Arrow!)
dw_uc.sharedata(dw_index)
dw_UC.setredraw(true)


if dw_index.rowcount()>=1 then
dw_index.selectrow(0,false)
dw_index.selectrow(1,true)
end if

cb_firstpage.enabled=cb_firstpage_enabled
cb_nextpage.enabled=cb_nextpage_enabled
cb_retrieveall.enabled=cb_retrieveall_enabled
cb_priorpage.enabled=cb_priorpage_enabled
cb_func.enabled=cb_func_enabled
cb_retrieve.enabled=cb_retrieve_enabled

end event

event ue_usual_query_filt;call super::ue_usual_query_filt;if dw_edit_mode or keydown(keyf4!) or keydown(keyf5!) then	return
string obj_expr=''  
if trim(sle_usual_query.text)<>'' then 
	IF POS(trim(sle_usual_query.text),'%')=0 THEN
		obj_expr=obj_expr+'( stationname LIKE "%'+trim(sle_usual_query.text)+'%" )'
	ELSE
		obj_expr=obj_expr+'( stationname LIKE "'+trim(sle_usual_query.text)+'" )'
	END IF 
end if

dw_UC.setfilter(obj_expr)

dw_UC.SetRedraw(False)
dw_INDEX.SetRedraw(False)
dw_UC.filter()
if dw_index.rowcount()>=1 then
	dw_index.selectrow(0,false)
	dw_index.selectrow(1,true)
end if
dw_UC.SetRedraw(TRUE)
dw_INDEX.SetRedraw(TRUE)
end event

event ue_usual_query_retr;call super::ue_usual_query_retr;if dw_edit_mode or keydown(keyf4!) or keydown(keyf5!) then	return
string ls_querystrpart=''
ls_newselect=lower(ori_oldselect)
if trim(sle_usual_query.text)<>'' then
	if pos(trim(sle_usual_query.text),'%')=0 then
		ls_querystrpart="(stationname like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(stationname like '"+trim(sle_usual_query.text)+"')"
	end if

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if
wf_retrieveuc(dw_uc,ls_newselect,1)   
this.triggerevent('retrieve_uc') //注意必须有此句
end event

event user_key;call super::user_key;IF KeyDown(KeyF1!) THEN
	THIS.TriggerEvent('ue_help')
end if
end event

type cb_func from w_publ_edit_index`cb_func within w_station_edit
end type

type cb_exit from w_publ_edit_index`cb_exit within w_station_edit
end type

type sle_usual_query from w_publ_edit_index`sle_usual_query within w_station_edit
integer x = 219
integer y = 180
end type

type cb_nextpage from w_publ_edit_index`cb_nextpage within w_station_edit
integer x = 2363
end type

type cb_priorpage from w_publ_edit_index`cb_priorpage within w_station_edit
integer x = 2213
end type

type cb_firstpage from w_publ_edit_index`cb_firstpage within w_station_edit
integer x = 2062
end type

type cb_retrieveall from w_publ_edit_index`cb_retrieveall within w_station_edit
integer x = 1911
end type

type em_pagerowno from w_publ_edit_index`em_pagerowno within w_station_edit
integer x = 1605
integer width = 306
end type

type st_pagerowno from w_publ_edit_index`st_pagerowno within w_station_edit
integer x = 773
integer y = 804
end type

type st_1 from w_publ_edit_index`st_1 within w_station_edit
integer x = 27
integer y = 200
string text = "名称含:"
end type

type cb_add from w_publ_edit_index`cb_add within w_station_edit
end type

event cb_add::clicked;IF NOT f_power_ind(1518) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

Long ll_stationid = 0
String arg_msg = ''

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	IF dw_uc.GetNextModified(0, primary!) = 0 THEN
		MessageBox('提示','没有任何修改，不可以保存!',information!,ok!)
		RETURN
	END IF
	
	dw_uc.Object.stationname[dw_uc.GetRow()] = Trim(dw_uc.Object.stationname[dw_uc.GetRow()])
	dw_uc.Object.rep[dw_uc.GetRow()] = Trim(dw_uc.Object.rep[dw_uc.GetRow()])
	dw_uc.Object.tele[dw_uc.GetRow()] = Trim(dw_uc.Object.tele[dw_uc.GetRow()])
	dw_uc.Object.address[dw_uc.GetRow()] = Trim(dw_uc.Object.address[dw_uc.GetRow()])
	dw_uc.Object.handtel[dw_uc.GetRow()] = Trim(dw_uc.Object.handtel[dw_uc.GetRow()])
	dw_uc.Object.fax[dw_uc.GetRow()] = Trim(dw_uc.Object.fax[dw_uc.GetRow()])
	dw_uc.Object.dscrp[dw_uc.GetRow()] = Trim(dw_uc.Object.dscrp[dw_uc.GetRow()])
	dw_uc.Object.area[dw_uc.GetRow()] = Trim(dw_uc.Object.area[dw_uc.GetRow()])
	dw_uc.Object.opdate[dw_uc.GetRow()] = Today()
	dw_uc.Object.opemp[dw_uc.GetRow()] = publ_operator
	dw_uc.object.email[dw_uc.getrow()] = trim(dw_uc.object.email[dw_uc.getrow()])
	
	IF dw_uc.Object.stationname[dw_uc.GetRow()] = '' THEN
		MessageBox('提示','请输入货运部名称!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("stationname")
		RETURN
	END IF
	
	//////////////////////////////////////////////////
	
	IF dw_uc.Object.stationid[dw_uc.GetRow()] = 0 THEN
		ll_stationid = f_sys_scidentity(0,"u_station","stationid",arg_msg,true,sqlca)
		IF ll_stationid <= 0 THEN
			MessageBox("错误",arg_msg,stopsign!,ok!)
			RETURN
		ELSE
			dw_uc.Object.stationid[dw_uc.GetRow()] = ll_stationid
		END IF
	END IF
	dw_uc.AcceptText()
END IF

CALL SUPER::Clicked

IF dw_edit_mode THEN
	dw_uc.SetColumn('area')
END IF









end event

type cb_edit from w_publ_edit_index`cb_edit within w_station_edit
end type

event cb_edit::clicked;IF NOT f_power_ind(1518) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF
CALL SUPER::Clicked



end event

type cb_delet from w_publ_edit_index`cb_delet within w_station_edit
end type

event cb_delet::clicked;IF NOT f_power_ind(1518) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

Long LS_id
Long LS_LONG = 0
String ls_code,arg_msg
IF DW_UC.GetRow() <= 0 THEN
	MessageBox('提示','没有操作目标记录!',information!,ok!)
	RETURN
END IF
LS_id = DW_UC.Object.stationid[DW_UC.GetRow()]
ls_code = DW_UC.Object.stationname[DW_UC.GetRow()]

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

IF DW_UC.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","删除记录操作失败!",stopsign!,OK!)
ELSE
	COMMIT;
	f_setsysoplog('定义资料','货运部定义资料删除,ID:'+String(LS_id)+',code:'+ls_code,arg_msg,TRUE)
	
END IF
DW_UC.SetRedraw (TRUE)


WF_INDEX_UC()

end event

type cb_choice from w_publ_edit_index`cb_choice within w_station_edit
end type

event cb_choice::clicked;call super::clicked;Long LS_ROW
LS_ROW = dw_uc.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('提示','请先选择目标行!',information!,ok!)
	RETURN
END IF

INS_RT_STRU.stationid = dw_uc.Object.stationid[LS_ROW]
INS_RT_STRU.stationname = dw_uc.Object.stationname[LS_ROW]
INS_RT_STRU.rep = dw_uc.Object.rep[LS_ROW]
INS_RT_STRU.tele = dw_uc.Object.tele[LS_ROW]
INS_RT_STRU.Address = dw_uc.Object.Address[LS_ROW]
INS_RT_STRU.handtel = dw_uc.Object.handtel[LS_ROW]
INS_RT_STRU.fax = dw_uc.Object.fax[LS_ROW]
INS_RT_STRU.dscrp = dw_uc.Object.dscrp[LS_ROW]
INS_RT_STRU.area = dw_uc.Object.area[LS_ROW]
INS_RT_STRU.Address = dw_uc.Object.Address[LS_ROW]
INS_RT_STRU.email = dw_uc.Object.email[LS_ROW]

Close(PARENT)


end event

type cb_cancel from w_publ_edit_index`cb_cancel within w_station_edit
integer x = 850
integer y = 788
end type

type cbx_mlselect from w_publ_edit_index`cbx_mlselect within w_station_edit
integer x = 1454
integer y = 188
end type

type cbx_allselect from w_publ_edit_index`cbx_allselect within w_station_edit
integer x = 1669
integer y = 192
integer width = 215
end type

type cb_mode_itfchg_b from w_publ_edit_index`cb_mode_itfchg_b within w_station_edit
integer x = 690
integer y = 892
end type

type cb_mode_itfchg from w_publ_edit_index`cb_mode_itfchg within w_station_edit
end type

event cb_mode_itfchg::clicked;IF THIS.Text = '<<' THEN
	THIS.Text = '>>'
	dw_index.Width = dw_uc.X + 1 - dw_index.X
	dw_index.Y = dw_uc.Y
ELSE
	THIS.Text = '<<'
	dw_index.Width = dw_uc.X + 1 + dw_uc.width - dw_index.X
	dw_index.Y = dw_uc.Y
END IF

PARENT.TriggerEvent('ue_mode_itfchg')

cb_mode_itfchg_b.Text = THIS.Text
cb_mode_itfchg_b.TriggerEvent('ue_textchange')

end event

type gb_1 from w_publ_edit_index`gb_1 within w_station_edit
integer x = 992
integer y = 860
integer width = 73
end type

type dw_uc from w_publ_edit_index`dw_uc within w_station_edit
integer x = 1513
integer width = 1294
integer height = 1348
string dataobject = "dw_station_edit"
end type

event dw_uc::clicked;call super::clicked;IF Not dw_edit_mode Or row < 0 THEN RETURN
String ls_name
ls_name = dwo.Name
IF ls_name = 'p_1' THEN
	parent.triggerevent('ue_taobao_ch')
END IF

end event

type cb_retrieve from w_publ_edit_index`cb_retrieve within w_station_edit
end type

type cb_print from w_publ_edit_index`cb_print within w_station_edit
end type

type ln_bar from w_publ_edit_index`ln_bar within w_station_edit
end type

type ln_bar2 from w_publ_edit_index`ln_bar2 within w_station_edit
end type

type r_bar from w_publ_edit_index`r_bar within w_station_edit
end type

type ln_1 from w_publ_edit_index`ln_1 within w_station_edit
end type

type ln_2 from w_publ_edit_index`ln_2 within w_station_edit
end type

type dw_index from w_publ_edit_index`dw_index within w_station_edit
integer width = 1513
integer height = 1348
string dataobject = "dw_station_index"
end type

type cb_help from w_publ_edit_index`cb_help within w_station_edit
end type