Q5/ws_objects/Ew_rs.pbl.src/w_department_edit.srw

$PBExportHeader$w_department_edit.srw
forward
global type w_department_edit from w_publ_base
end type
type cb_refresh from uo_imflatbutton within w_department_edit
end type
type cb_add from uo_imflatbutton within w_department_edit
end type
type cb_add_next from uo_imflatbutton within w_department_edit
end type
type cb_mod from uo_imflatbutton within w_department_edit
end type
type cb_del from uo_imflatbutton within w_department_edit
end type
type tv_1 from uo_tv_deptype within w_department_edit
end type
type cb_help from uo_imflatbutton within w_department_edit
end type
type r_bar from rectangle within w_department_edit
end type
type ln_bar from line within w_department_edit
end type
type ln_bar2 from line within w_department_edit
end type
end forward

global type w_department_edit from w_publ_base
integer width = 2153
integer height = 2380
string title = "部门"
cb_refresh cb_refresh
cb_add cb_add
cb_add_next cb_add_next
cb_mod cb_mod
cb_del cb_del
tv_1 tv_1
cb_help cb_help
r_bar r_bar
ln_bar ln_bar
ln_bar2 ln_bar2
end type
global w_department_edit w_department_edit

type variables
long il_hand
end variables

forward prototypes
public function integer wf_cnt_dot (string arg_mtrltype)
end prototypes

public function integer wf_cnt_dot (string arg_mtrltype);long rst_cnt
string ls_mtrltype 
long pos_dot

ls_mtrltype = arg_mtrltype

again:
pos_dot = pos(ls_mtrltype,'>>')
if pos_dot > 0 then
	rst_cnt++
	ls_mtrltype = mid( ls_mtrltype,pos_dot + 2 )
	goto again
else
	goto ext
end if	

ext:
return rst_cnt
end function

on w_department_edit.create
int iCurrent
call super::create
this.cb_refresh=create cb_refresh
this.cb_add=create cb_add
this.cb_add_next=create cb_add_next
this.cb_mod=create cb_mod
this.cb_del=create cb_del
this.tv_1=create tv_1
this.cb_help=create cb_help
this.r_bar=create r_bar
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_refresh
this.Control[iCurrent+2]=this.cb_add
this.Control[iCurrent+3]=this.cb_add_next
this.Control[iCurrent+4]=this.cb_mod
this.Control[iCurrent+5]=this.cb_del
this.Control[iCurrent+6]=this.tv_1
this.Control[iCurrent+7]=this.cb_help
this.Control[iCurrent+8]=this.r_bar
this.Control[iCurrent+9]=this.ln_bar
this.Control[iCurrent+10]=this.ln_bar2
end on

on w_department_edit.destroy
call super::destroy
destroy(this.cb_refresh)
destroy(this.cb_add)
destroy(this.cb_add_next)
destroy(this.cb_mod)
destroy(this.cb_del)
destroy(this.tv_1)
destroy(this.cb_help)
destroy(this.r_bar)
destroy(this.ln_bar)
destroy(this.ln_bar2)
end on

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

tv_1.height = this.height - tv_1.y - 100
end event

type cb_func from w_publ_base`cb_func within w_department_edit
boolean visible = false
integer x = 1701
integer y = 8
integer width = 219
end type

type cb_exit from w_publ_base`cb_exit within w_department_edit
integer x = 1024
integer width = 151
integer height = 172
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event cb_exit::clicked;close(parent)

end event

type cb_refresh from uo_imflatbutton within w_department_edit
integer width = 151
integer height = 172
integer taborder = 80
boolean bringtotop = true
string text = "重查"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;tv_1.f_maketree()
end event

type cb_add from uo_imflatbutton within w_department_edit
integer x = 151
integer width = 210
integer height = 172
integer taborder = 80
boolean bringtotop = true
string text = "增同级"
string normalpicname = "mx1.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(192) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

IF tv_1.uo_cur_info.departmentid = 0 THEN
	MessageBox("提示",'不能建立部门',information!,OK!)
	RETURN
END IF

s_deptype s_dept,s_r_dept
Long ll_departmentid,ll_parentid
String ls_deptcode,ls_departmentname,ls_handtype
Int li_sonflag
String arg_msg
String ls_parent_handtype


s_dept.departmentid = 0
s_dept.deptcode = tv_1.uo_cur_info.deptcode
s_dept.departmentname = tv_1.uo_cur_info.departmentname
s_dept.sonflag = 1
s_dept.parentid = tv_1.uo_cur_info.parentid
IF tv_1.uo_cur_info.parentid = 0 THEN
	s_dept.parenthandtype = ''
ELSE	
	SELECT handtype INTO :ls_parent_handtype
		FROM cw_department
		Where departmentid = :tv_1.uo_cur_info.parentid;
	IF sqlca.SQLCode <> 0 THEN
		MessageBox('错误','查询上级部门资料失败',stopsign!,OK!)
		RETURN
	END IF
	s_dept.parenthandtype = ls_parent_handtype
END IF

OpenWithParm(w_department_add,s_dept)

s_r_dept = Message.PowerObjectParm
IF s_r_dept.departmentid = -1 THEN RETURN

ls_deptcode = s_r_dept.deptcode
ls_departmentname = s_r_dept.departmentname
ls_handtype = s_r_dept.handtype
ll_parentid = s_r_dept.parentid
li_sonflag = s_r_dept.sonflag

ll_departmentid = f_sys_scidentity(0,"cw_department","departmentid",arg_msg,TRUE,sqlca)
IF ll_departmentid <= 0 THEN
	MessageBox('错误',arg_msg,stopsign!,OK!)
	RETURN
END IF

INSERT INTO cw_department
	(departmentid,
	deptcode,
	departmentname,
	handtype,
	sonflag,
	parentid)
	VALUES
	(:ll_departmentid,
	:ls_deptcode,
	:ls_departmentname,
	:ls_handtype,
	:li_sonflag,
	:ll_parentid)  ;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','新建部门"'+ls_departmentname+'"失败,可能是编号或名称已经存在或网络故障!',stopsign!,OK!)
	RETURN
END IF

UPDATE cw_department
	SET sonflag = 0
	Where cw_department.departmentid = :ll_parentid;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','新建部门"'+ls_departmentname+'"失败,可能是名称已经存在或网络故障!',stopsign!,OK!)
	RETURN
END IF

COMMIT;
MessageBox('提示','新建部门操作成功!',information!,OK!)

Long ll_hand,ll_handl
TreeViewItem l_tvi
ll_hand = tv_1.FindItem(parenttreeitem!,il_hand)

ll_handl = tv_1.InsertItemSort(ll_hand,ls_deptcode+'-'+ls_departmentname,2)
IF tv_1.GetItem ( ll_handl, l_tvi) = 1 THEN
	l_tvi.Label = ls_deptcode+'-'+ls_departmentname
	l_tvi.Data  = ll_departmentid
	tv_1.SetItem(ll_handl, l_tvi)
	tv_1.SetFocus()
	tv_1.SelectItem ( ll_handl )
END IF

end event

type cb_add_next from uo_imflatbutton within w_department_edit
integer x = 361
integer width = 210
integer height = 172
integer taborder = 90
boolean bringtotop = true
string text = "增下级"
string normalpicname = "mx2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;if not f_power_ind(192) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

s_deptype s_dept,s_r_dept
Long ll_departmentid,ll_parentid
String ls_deptcode,ls_departmentname,ls_handtype
Int li_sonflag
String arg_msg

s_dept.departmentid = 0
s_dept.deptcode = tv_1.uo_cur_info.deptcode
s_dept.departmentname = tv_1.uo_cur_info.departmentname
s_dept.sonflag = 1

IF tv_1.uo_cur_info.departmentid = 0  THEN	
	s_dept.parentid = 0
	s_dept.parenthandtype = ''
ELSE
	s_dept.parentid = tv_1.uo_cur_info.departmentid
	s_dept.parenthandtype = tv_1.uo_cur_info.handtype
END IF

OpenWithParm(w_department_add,s_dept)


s_r_dept = Message.PowerObjectParm
IF s_r_dept.departmentid = -1 THEN RETURN

ls_deptcode = s_r_dept.deptcode
ls_departmentname = s_r_dept.departmentname
ls_handtype = s_r_dept.handtype
ll_parentid = s_r_dept.parentid
li_sonflag = s_r_dept.sonflag

ll_departmentid = f_sys_scidentity(0,"cw_department","departmentid",arg_msg,TRUE,sqlca)
IF ll_departmentid <= 0 THEN
	MessageBox('提示',arg_msg,stopsign!,OK!)
	RETURN
END IF

INSERT INTO cw_department
(departmentid,
 deptcode,
 departmentname,
 handtype,
 sonflag,
 parentid)
Values 
(:ll_departmentid,
 :ls_deptcode,
 :ls_departmentname,
 :ls_handtype, 
 :li_sonflag,
 :ll_parentid)  ;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','新建部门"'+ls_departmentname+'"失败,可能是编号或名称已经存在或网络故障!',stopsign!,OK!)
	RETURN
END IF

UPDATE cw_department
	SET sonflag = 0
	Where cw_department.departmentid = :ll_parentid;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','新建部门"'+ls_departmentname+'"失败,可能是编号或名称已经存在或网络故障!',stopsign!,OK!)
	RETURN
END IF
COMMIT;
MessageBox('提示','新建部门操作成功!',information!,OK!)

Long ll_handl
TreeViewItem l_tvi
ll_handl = tv_1.InsertItemSort(il_hand,ls_deptcode+'-'+ls_departmentname,2)

IF tv_1.GetItem ( ll_handl, l_tvi) = 1 THEN
	l_tvi.Label = ls_deptcode+'-'+ls_departmentname
	l_tvi.Data  = ll_departmentid
	tv_1.SetItem(ll_handl, l_tvi)
	tv_1.SetFocus()
	tv_1.SelectItem ( ll_handl )
END IF

end event

type cb_mod from uo_imflatbutton within w_department_edit
integer x = 571
integer width = 151
integer height = 172
integer taborder = 90
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(192) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

IF tv_1.uo_cur_info.departmentid = 0 THEN
	MessageBox('提示','请选择要修改当前部门!',information!,OK!)
	RETURN
END IF

s_deptype s_dept,s_r_dept

Long cnt
Long ll_departmentid
Long ll_old_parentid
Long ll_new_parentid
String ls_deptcode
String ls_new_departmentname
String ls_old_departmentname
String ls_new_handtype
String ls_old_handtype
String ls_update_handtype
Int li_sonflag


s_dept.departmentid = tv_1.uo_cur_info.departmentid
s_dept.deptcode = tv_1.uo_cur_info.deptcode
s_dept.departmentname = tv_1.uo_cur_info.departmentname
s_dept.sonflag = tv_1.uo_cur_info.sonflag
s_dept.parentid = tv_1.uo_cur_info.parentid
s_dept.parenthandtype = tv_1.uo_cur_info.parenthandtype

ll_departmentid = tv_1.uo_cur_info.departmentid
ll_old_parentid = tv_1.uo_cur_info.parentid
ls_old_departmentname = tv_1.uo_cur_info.departmentname
ls_old_handtype = tv_1.uo_cur_info.handtype
ls_update_handtype = ls_old_handtype + '%'

OpenWithParm(w_department_add,s_dept)

s_r_dept = Message.PowerObjectParm
IF s_r_dept.departmentid = - 1 THEN RETURN


ls_deptcode = s_r_dept.deptcode
ls_new_departmentname = s_r_dept.departmentname
ls_new_handtype = s_r_dept.handtype
ll_new_parentid = s_r_dept.parentid
li_sonflag = s_r_dept.sonflag

UPDATE  cw_department
	SET  deptcode = :ls_deptcode,
	departmentname  = :ls_new_departmentname,
	sonflag  = :li_sonflag,
	parentid  = :ll_new_parentid,
	handtype = :ls_new_handtype
	Where (departmentid = :ll_departmentid )  ;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','修改名称操作失败,可能是新名称已经存在或网络故障!',stopsign!,OK!)
	RETURN
END IF


UPDATE cw_department
	SET handtype = replace(handtype,:ls_old_handtype,:ls_new_handtype)
	Where handtype Like :ls_update_handtype;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','修改部门资料操作失败,可能是新名称已经存在或网络故障!',stopsign!,OK!)
	RETURN
END IF

UPDATE u_rs_empinfo
	SET  deptype = :ls_new_departmentname
	Where deptid  = :ll_departmentid;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','修改部门资料(人事)操作失败,可能是新名称已经存在或网络故障!',stopsign!,OK!)
	RETURN
END IF

UPDATE u_rs_empinfo
	SET  handtype = replace(handtype,:ls_old_handtype,:ls_new_handtype)
	Where handtype Like :ls_update_handtype;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','修改部门资料(人事)操作失败,可能是新名称已经存在或网络故障!',stopsign!,OK!)
	RETURN
END IF

UPDATE cw_department
	SET sonflag = 0
	Where cw_department.departmentid = :ll_new_parentid;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','更新部门"'+ls_new_departmentname+'"上级部门失败',stopsign!,OK!)
	RETURN
END IF


IF ll_old_parentid <> ll_new_parentid THEN
	SELECT count(*) INTO :cnt
		FROM cw_department
		Where parentid = :ll_old_parentid;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		MessageBox('错误','查询上级部门是否还存在下级部门失败',stopsign!,OK!)
		RETURN
	END IF
	
	
	
	IF cnt = 0 THEN
		UPDATE cw_department SET sonflag = 1
			Where departmentid = :ll_old_parentid;
		IF sqlca.SQLCode <> 0 THEN
			ROLLBACK;
			MessageBox('错误','更新上级部门资料失败',stopsign!,OK!)
			RETURN
		END IF
	END IF
END IF

COMMIT;
MessageBox('提示','部门修改成功!',information!,OK!)


TreeViewItem l_tvi 
IF tv_1.GetItem(il_hand,l_tvi) > 0 THEN
	l_tvi.Label = ls_deptcode + '-'+ls_new_departmentname
	l_tvi.Data  = ll_departmentid
	
	tv_1.SetItem(il_hand, l_tvi)
	tv_1.SetFocus()
	tv_1.SelectItem ( il_hand )
END IF






end event

type cb_del from uo_imflatbutton within w_department_edit
integer x = 722
integer width = 151
integer height = 172
integer taborder = 100
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;long cnt
if not f_power_ind(192) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if 

if MessageBox('询问','是否要确定删除当前部门', Exclamation!, YesNo!, 2)=2 then
	return			
end if

if tv_1.uo_cur_info.sonflag = 0 then
	messagebox('提示','不是明细部门,不能删除',information!,OK!)
	return 
end if
	


cnt = 0
select count(*) into :cnt 
from u_rs_empinfo 
where deptid = :tv_1.uo_cur_info.departmentid;
if sqlca.sqlcode <> 0 then
	messagebox('错误','查询部门是否已用失败,不能删除',stopsign!,OK!)
	return 
end if

if cnt > 0 then
	messagebox('提示','部门已用于人员信息管理,不能删除',information!,OK!)
	return 
end if

cnt = 0
select count(*) into :cnt 
from cw_department 
where parentid = :tv_1.uo_cur_info.parentid;
if sqlca.sqlcode <> 0 then
	messagebox('错误','查询部门资料失败,不能删除',stopsign!,OK!)
	return 
end if

if cnt = 1 then
	update cw_department 
	set sonflag = 1 
	where departmentid = :tv_1.uo_cur_info.parentid;
	if sqlca.sqlcode <> 0 then
		messagebox('错误','更新上级部门资料失败,不能删除',stopsign!,OK!)
		rollback;
		return 
	end if
end if

delete from cw_department 
where departmentid = :tv_1.uo_cur_info.departmentid;
if sqlca.sqlcode <> 0 then
	messagebox('错误','删除部门失败>>'+sqlca.sqlerrtext,stopsign!,OK!)
	rollback;
	return 
end if

commit;
messagebox('提示','删除部门成功',information!,OK!)
tv_1.f_maketree()

end event

type tv_1 from uo_tv_deptype within w_department_edit
integer y = 188
integer width = 2098
integer height = 1368
integer taborder = 30
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;il_hand = newhandle
end event

type cb_help from uo_imflatbutton within w_department_edit
string tag = "帮助[F1]"
integer x = 873
integer width = 151
integer height = 172
integer taborder = 110
boolean bringtotop = true
string text = "帮助"
string normalpicname = "help.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type r_bar from rectangle within w_department_edit
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 1929
integer width = 73
integer height = 172
end type

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

end event

type ln_bar from line within w_department_edit
long linecolor = 268435456
integer linethickness = 4
integer beginx = -5
integer beginy = 176
integer endx = 2094
integer endy = 176
end type

type ln_bar2 from line within w_department_edit
long linecolor = 16777215
integer linethickness = 4
integer beginx = -5
integer beginy = 180
integer endx = 2094
integer endy = 180
end type