FXApp/ws_objects/l1_uo.pbl.src/uo_empinfo.sru

$PBExportHeader$uo_empinfo.sru
forward
global type uo_empinfo from nonvisualobject
end type
end forward

global type uo_empinfo from nonvisualobject
end type
global uo_empinfo uo_empinfo

type variables
long uo_empid
int uo_option_emp_audit
end variables

forward prototypes
public function integer uof_add_empinfo (s_empinfo arg_s_empinfo, string arg_opemp, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_del_leftemp (long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_del_empinfo (long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_train (s_train arg_s_train, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_record (s_record arg_s_record, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_del_train (long arg_trainid, long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_del_record (long arg_mxid, long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_move (integer arg_moveflag, s_moverecord arg_s_moverecord, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_contract (s_contract arg_s_contract, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_del_contract (long arg_contractid, long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_audit_emp (long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_caudit_emp (long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_empmtrl_ly (long arg_empid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_addqty, decimal arg_price, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_add_empmtrl_gh (long arg_empid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_addqty, decimal arg_price, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_add_emptake (long arg_empid, long arg_relid, long arg_moneyid, string arg_relcode, datetime arg_takedate, decimal arg_amt, string arg_dscrp, integer arg_taketype, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_del_emptake (long arg_empid, long arg_relid, long arg_moneyid, string arg_relcode, integer arg_taketype, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_add_insure (s_insure arg_s_insure, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_idcard (s_idcard arg_s_idcard, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_del_insure (long arg_insureid, long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_del_idcard (long arg_mxid, long arg_empid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_audit_contract (long arg_empid, long arg_contractid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_caudit_contract (long arg_empid, long arg_contractid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_item (s_item_cust_spt arg_s_item, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_emppay (long arg_empid, long arg_relid, long arg_moneyid, string arg_relcode, datetime arg_paydate, decimal arg_amt, string arg_dscrp, integer arg_paytype, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_del_emppay (long arg_empid, long arg_relid, long arg_moneyid, string arg_relcode, integer arg_paytype, boolean arg_ifcommit, ref string arg_msg)
end prototypes

public function integer uof_add_empinfo (s_empinfo arg_s_empinfo, string arg_opemp, boolean arg_ifcommit, ref string arg_msg);Int rslt = 1
Long ll_new_empid
DateTime server_dt
String ls_deptype,ls_handtype
Long cnt = 0

IF IsNull(arg_s_empinfo.scid) THEN arg_s_empinfo.scid  = 0
IF IsNull(arg_s_empinfo.empid) THEN arg_s_empinfo.empid  = 0
IF IsNull(arg_s_empinfo.empcode) THEN arg_s_empinfo.empcode  = ''
IF IsNull(arg_s_empinfo.empname) THEN arg_s_empinfo.empname  = ''
IF IsNull(arg_s_empinfo.sex) THEN arg_s_empinfo.sex  = ''
IF IsNull(arg_s_empinfo.idcard) THEN arg_s_empinfo.idcard  = ''
IF IsNull(arg_s_empinfo.Homeplace) THEN arg_s_empinfo.Homeplace = ''
IF IsNull(arg_s_empinfo.stature) THEN arg_s_empinfo.stature = 0
IF IsNull(arg_s_empinfo.diploma) THEN arg_s_empinfo.diploma = ''
IF IsNull(arg_s_empinfo.hometel) THEN arg_s_empinfo.hometel = ''
IF IsNull(arg_s_empinfo.handtel) THEN arg_s_empinfo.handtel = ''
IF IsNull(arg_s_empinfo.Address) THEN arg_s_empinfo.Address = ''
IF IsNull(arg_s_empinfo.Postcode) THEN arg_s_empinfo.Postcode = ''
IF IsNull(arg_s_empinfo.Duty) THEN arg_s_empinfo.Duty = ''
IF IsNull(arg_s_empinfo.wrktpye) THEN arg_s_empinfo.wrktpye  = ''
IF IsNull(arg_s_empinfo.deptid)	 THEN arg_s_empinfo.deptid = 0
IF IsNull(arg_s_empinfo.officetel) THEN arg_s_empinfo.officetel = ''
IF IsNull(arg_s_empinfo.Cardcode) THEN arg_s_empinfo.Cardcode = ''
IF IsNull(arg_s_empinfo.Bedcode) THEN arg_s_empinfo.Bedcode = ''
IF IsNull(arg_s_empinfo.wage) THEN arg_s_empinfo.wage = 0
IF IsNull(arg_s_empinfo.Bankcode) THEN arg_s_empinfo.Bankcode = ''
IF IsNull(arg_s_empinfo.Language) THEN arg_s_empinfo.Language = ''
IF IsNull(arg_s_empinfo.introducer) THEN arg_s_empinfo.introducer = ''
IF IsNull(arg_s_empinfo.dscrp)	 THEN arg_s_empinfo.dscrp = ''
IF IsNull(arg_s_empinfo.jobtype)	 THEN arg_s_empinfo.jobtype = 0
IF IsNull(arg_s_empinfo.jobid)	 THEN arg_s_empinfo.jobid = 0
IF IsNull(arg_s_empinfo.hourwage)	 THEN arg_s_empinfo.hourwage = 0
IF IsNull(arg_s_empinfo.status)	 THEN arg_s_empinfo.status = 1
IF IsNull(arg_s_empinfo.bankamt)	 THEN arg_s_empinfo.bankamt = 0
IF IsNull(arg_s_empinfo.pempid)	 THEN arg_s_empinfo.pempid = 0


IF IsNull(arg_s_empinfo.nation)	 THEN arg_s_empinfo.nation = ''
IF IsNull(arg_s_empinfo.likestr)	 THEN arg_s_empinfo.likestr = ''
IF IsNull(arg_s_empinfo.specialty)	 THEN arg_s_empinfo.specialty = ''
IF IsNull(arg_s_empinfo.computergrade)	 THEN arg_s_empinfo.computergrade = ''
IF IsNull(arg_s_empinfo.health)	 THEN arg_s_empinfo.health = ''
IF IsNull(arg_s_empinfo.ifmarry)	 THEN arg_s_empinfo.ifmarry = 0
IF IsNull(arg_s_empinfo.gztype)	 THEN arg_s_empinfo.gztype = 0
IF IsNull(arg_s_empinfo.insurecode)	 THEN arg_s_empinfo.insurecode = ''
IF IsNull(arg_s_empinfo.contractcode)	 THEN arg_s_empinfo.contractcode = ''
IF IsNull(arg_s_empinfo.DayMaxExpend)	 THEN arg_s_empinfo.DayMaxExpend = 0
IF IsNull(arg_s_empinfo.MonthMaxExpend)	 THEN arg_s_empinfo.MonthMaxExpend = 0

IF arg_s_empinfo.empname = '' THEN
	rslt = 0
	arg_msg = "姓名不能为空"
	GOTO ext
END IF

IF arg_s_empinfo.empcode = '' THEN
	rslt = 0
	arg_msg = "工号不能为空"
	GOTO ext
END IF

SELECT count(*) INTO :cnt
	FROM u_rs_empinfo
	WHERE Empcode = :arg_s_empinfo.Empcode
	And empid <> :arg_s_empinfo.empid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询工号失败'
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '员工编号重复,请重新输入另一个编号'
	GOTO ext
END IF

IF arg_s_empinfo.sex = '' THEN
	rslt = 0
	arg_msg = '性别不能为空,请选择'
	GOTO ext
END IF


IF arg_s_empinfo.wrktpye = '' THEN
	rslt = 0
	arg_msg = '工种不能为空,请选择'
	GOTO ext
END IF

s_idcard_change s_idcard
CHOOSE CASE Len(arg_s_empinfo.idcard)
	CASE 0
		//通过
	CASE 15,18
		f_idcard(arg_s_empinfo.idcard,s_idcard)
		
		IF arg_s_empinfo.birthday <> s_idcard.birthday THEN
			arg_msg = '身份证号的出生日期与出生日期不对应,请核对。'
			rslt = 0
			GOTO ext
		END IF
	CASE ELSE
		arg_msg = '身份证长度不合法'
		rslt = 0
		GOTO ext
END CHOOSE

IF arg_s_empinfo.Joindate <= arg_s_empinfo.birthday THEN
	rslt = 0
	arg_msg = '出生日期不能大于入职日期'
	GOTO ext
END IF



IF arg_s_empinfo.deptid = 0 THEN
	arg_msg = '请选择部门'
	rslt = 0
	GOTO ext
END IF

//IF arg_s_empinfo.duty = '' THEN
//	arg_msg = '请选择职务'
//	rslt = 0
//	GOTO ext
//END IF



SELECT departmentname,handtype
	INTO :ls_deptype,:ls_handtype
	FROM cw_department
	Where departmentid = :arg_s_empinfo.deptid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询部门资料失败,可能部门资料不存在,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_empinfo.jobtype <> 1 THEN
	arg_s_empinfo.jobid = 0
END IF

IF arg_s_empinfo.pempid > 0 THEN
	cnt = 0
	SELECT count(*) INTO :cnt
		FROM u_rs_empinfo
		Where empid = :arg_s_empinfo.pempid ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询上司资料失败,"+sqlca.SQLErrText
		GOTO ext
	END IF
	IF cnt = 0 THEN
		rslt = 0
		arg_msg = "上司资料不存在"
		GOTO ext
	END IF
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :arg_opemp ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,操作员"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = "操作员姓名未登记或已取消"
	GOTO ext
END IF

SELECT Top 1 getdate() Into :server_dt From u_user;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

IF arg_s_empinfo.empid = 0 THEN //新建
	ll_new_empid = f_sys_scidentity(0,"u_rs_empinfo","empid",arg_msg,True,id_sqlca)
	IF ll_new_empid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	INSERT INTO u_rs_empinfo (
		scid,
		empid,
		Deptid,
		wrktpye,
		Empname,
		Empcode,
		Sex,
		Birthday,
		Homeplace,
		Stature,
		introducer,
		Language,
		Idcard,
		Joindate,
		diploma,
		hometel,
		officetel,
		Bedcode,
		Cardcode,
		handtel,
		Address,
		Postcode,
		Bankcode,
		wage,
		Duty,
		status,
		Dscrp,
		deptype,
		handtype,
		jobtype,
		jobid,
		hourwage,
		ondutydate,
		Opdate,
		Opemp,
		nation,
		likestr,
		ifmarry,
		specialty,
		computergrade,
		health,
		bankamt,
		gztype,
		insurecode,
		contractcode,
		DayMaxExpend,
		MonthMaxExpend,
		pempid)
		VALUES (
		:arg_s_empinfo.scid,
		:ll_new_empid,
		:arg_s_empinfo.Deptid,
		:arg_s_empinfo.wrktpye,
		:arg_s_empinfo.Empname,
		:arg_s_empinfo.Empcode,
		:arg_s_empinfo.Sex,
		:arg_s_empinfo.Birthday,
		:arg_s_empinfo.Homeplace,
		:arg_s_empinfo.Stature,
		:arg_s_empinfo.introducer,
		:arg_s_empinfo.Language,
		:arg_s_empinfo.Idcard,
		:arg_s_empinfo.Joindate,
		:arg_s_empinfo.diploma,
		:arg_s_empinfo.hometel,
		:arg_s_empinfo.officetel,
		:arg_s_empinfo.Bedcode,
		:arg_s_empinfo.Cardcode,
		:arg_s_empinfo.handtel,
		:arg_s_empinfo.Address,
		:arg_s_empinfo.Postcode,
		:arg_s_empinfo.Bankcode,
		:arg_s_empinfo.wage,
		:arg_s_empinfo.Duty,
		:arg_s_empinfo.status,
		:arg_s_empinfo.Dscrp,
		:ls_deptype,
		:ls_handtype,
		:arg_s_empinfo.jobtype,
		:arg_s_empinfo.jobid,
		:arg_s_empinfo.hourwage,
		:arg_s_empinfo.ondutydate,
		:server_dt,
		:arg_opemp,
		:arg_s_empinfo.nation,
		:arg_s_empinfo.likestr,
		:arg_s_empinfo.ifmarry,
		:arg_s_empinfo.specialty,
		:arg_s_empinfo.computergrade,
		:arg_s_empinfo.health,
		:arg_s_empinfo.bankamt,
		:arg_s_empinfo.gztype,
		:arg_s_empinfo.insurecode,
		:arg_s_empinfo.contractcode,
		:arg_s_empinfo.DayMaxExpend,
		:arg_s_empinfo.MonthMaxExpend,
		:arg_s_empinfo.pempid);
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "因网络或其它原因导致插入操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	uo_empid = ll_new_empid
ELSE
	UPDATE u_rs_empinfo
		SET
		scid = :arg_s_empinfo.scid,
		Deptid = :arg_s_empinfo.Deptid,
		deptype = :ls_deptype,
		handtype = :ls_handtype,
		wrktpye = :arg_s_empinfo.wrktpye,
		Empname = :arg_s_empinfo.Empname,
		Empcode = :arg_s_empinfo.Empcode,
		Sex = :arg_s_empinfo.Sex,
		Birthday = :arg_s_empinfo.Birthday,
		Homeplace = :arg_s_empinfo.Homeplace,
		Stature = :arg_s_empinfo.Stature,
		introducer = :arg_s_empinfo.introducer,
		Language = :arg_s_empinfo.Language,
		Idcard = :arg_s_empinfo.Idcard,
		Joindate = :arg_s_empinfo.Joindate,
		diploma = :arg_s_empinfo.diploma,
		hometel = :arg_s_empinfo.hometel,
		officetel = :arg_s_empinfo.officetel,
		Bedcode = :arg_s_empinfo.Bedcode,
		Cardcode = :arg_s_empinfo.Cardcode,
		handtel = :arg_s_empinfo.handtel,
		Address = :arg_s_empinfo.Address,
		Postcode = :arg_s_empinfo.Postcode,
		Bankcode = :arg_s_empinfo.Bankcode,
		wage = :arg_s_empinfo.wage,
		Duty = :arg_s_empinfo.Duty,
		Dscrp = :arg_s_empinfo.Dscrp,
		status = :arg_s_empinfo.status,
		jobtype = :arg_s_empinfo.jobtype,
		jobid = :arg_s_empinfo.jobid,
		hourwage = :arg_s_empinfo.hourwage,
		ondutydate = :arg_s_empinfo.ondutydate,
		moddate = :server_dt,
		modemp = :arg_opemp,
		nation = :arg_s_empinfo.nation,
		likestr = :arg_s_empinfo.likestr,
		ifmarry = :arg_s_empinfo.ifmarry,
		specialty = :arg_s_empinfo.specialty,
		computergrade = :arg_s_empinfo.computergrade,
		health = :arg_s_empinfo.health,
		bankamt = :arg_s_empinfo.bankamt,
		gztype = :arg_s_empinfo.gztype,
		insurecode = :arg_s_empinfo.insurecode,
		contractcode = :arg_s_empinfo.contractcode,
		DayMaxExpend = :arg_s_empinfo.DayMaxExpend,
		MonthMaxExpend = :arg_s_empinfo.MonthMaxExpend,
		pempid = :arg_s_empinfo.pempid
		Where u_rs_empinfo.empid = :arg_s_empinfo.empid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "因网络或其它原因导致更新人员资料操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	uo_empid = arg_s_empinfo.empid
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt


end function

public function integer uof_del_leftemp (long arg_empid, ref string arg_msg, boolean arg_ifcommit);//删除离职员工
Int rslt = 1
Long ls_newid
Int ls_status

SELECT status INTO :ls_status
	From u_rs_empinfo Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ls_status <> 0 THEN
	arg_msg = '该员工不是离职状态,不能进行删除。'
	rslt = 0
	GOTO ext
END IF

DELETE From u_gz_wage Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关工资表资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_gz_wagemx Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关工资表明细资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_emprecord Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关简历资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_insure Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关社保资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_Train Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关培训资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_moverecord Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关调动资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_emppic Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关相片资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_empinfo Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工基本资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
END IF
IF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt





end function

public function integer uof_del_empinfo (long arg_empid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long cnt
Long ll_status

IF uo_option_emp_audit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[221]员工资料需要审核,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_emp_audit = 1 THEN
	SELECT status INTO :ll_status
		FROM u_rs_empinfo
		Where empid = :arg_empid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询员工相关资料出错(员工状态)'
		rslt = 0
		GOTO ext
	END IF
	
	IF ll_status = 1 THEN
		rslt = 0
		arg_msg = '员工必须先撤审后才能删除'
		GOTO ext
	END IF
	
END IF

SELECT count(*) INTO :cnt
	From u_gz_wagemx Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(工资明细)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在工资明细中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From u_gz_wage Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(工资表)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在工资表中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From u_gz_wage Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(工资表)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在工资表中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From u_gz_loanwage Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(借支单)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在借支单中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From u_kq_cworkmx Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(考勤单)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在考勤单中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From u_gz_award_punish Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(奖罚单)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在奖罚单中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From U_Test Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(职位绩效考核单)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在职位绩效考核单中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From u_sc_taskworkmx Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(计件单)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在计件单中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From u_sc_abnormitymx Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(异常计件单)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在异常计件单中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_scwg_taskwork_2 WHERE wrkGrpid = :arg_empid
	And billtype = 1;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(计件单2)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在计件单2中存在,不能删除'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	From u_scwg_taskwork_money Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(工作组计件单工资分配)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在工作组计件单工资分配中存在,不能删除'
	GOTO ext
END IF


cnt = 0
SELECT count(*) INTO :cnt
	FROM u_outware WHERE relid = :arg_empid
	And billtype = 10;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工相关资料出错(扣费品领用单)'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该员工已在扣费品领用单中存在,不能删除'
	GOTO ext
END IF


DELETE From u_rs_emprecord Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关简历资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_insure Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关社保资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_Train Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关培训资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_moverecord Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关调动资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_emppic Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工相关相片资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_empinfo Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除员工基本资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt









end function

public function integer uof_add_train (s_train arg_s_train, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ls_newid
Int ls_status
string ls_empname
DateTime server_dt

IF IsNull(arg_s_train.trainid) THEN arg_s_train.trainid = 0
IF IsNull(arg_s_train.empid) THEN arg_s_train.empid = 0
IF IsNull(arg_s_train.content) THEN arg_s_train.content = ''
IF IsNull(arg_s_train.result) THEN arg_s_train.result = ''
IF IsNull(arg_s_train.othercode) THEN arg_s_train.othercode = ''
IF IsNull(arg_s_train.dscrp) THEN arg_s_train.dscrp = ''
IF IsNull(arg_s_train.relid) THEN arg_s_train.relid = 0
IF IsNull(arg_s_train.relcode) THEN arg_s_train.relcode = ''

SELECT status,empname
	INTO :ls_status,:ls_empname
	FROM u_rs_empinfo
	Where empid = :arg_s_train.empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '员工:'+ls_empname+' 不在职,不能进行增加培训内容'
	rslt = 0
	GOTO ext
END IF

IF arg_s_train.content = '' THEN
	arg_msg = '请输入培训内容'
	rslt = 0
	GOTO ext
END IF

IF arg_s_train.trainid = 0 THEN
	
	ls_newid = f_sys_scidentity(0,"u_rs_train","trainid",arg_msg,TRUE,id_sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	SELECT Top 1 getdate() INTO :server_dt FROM u_user;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,日期 "
		GOTO ext
	END IF
	
	INSERT INTO u_rs_Train
		(Trainid,
		empid,
		Traindate,
		content,
		Result,
		Othercode,
		Dscrp,
		relid,
		relcode,
		Opemp,
		Opdate)
		VALUES(
		:ls_newid,
		:arg_s_train.empid,
		:arg_s_train.Traindate,
		:arg_s_train.content,
		:arg_s_train.Result,
		:arg_s_train.Othercode,
		:arg_s_train.Dscrp,
		:arg_s_train.relid,
		:arg_s_train.relcode,
		:arg_opemp,
		:server_dt);
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '增加培训内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	UPDATE u_rs_Train
		SET Traindate = :arg_s_train.Traindate,
		content = :arg_s_train.content,
		Result = :arg_s_train.Result,
		Othercode = :arg_s_train.Othercode,
		Dscrp = :arg_s_train.Dscrp,
		relid = :arg_s_train.relid,
		relcode = :arg_s_train.relcode,
		moddate = :server_dt,
		modemp = :arg_opemp
		Where trainid = :arg_s_train.trainid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新培训内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt






end function

public function integer uof_add_record (s_record arg_s_record, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ls_newid
Int ls_status
DateTime server_dt

IF IsNull(arg_s_record.mxid) THEN arg_s_record.mxid = 0
IF IsNull(arg_s_record.empid) THEN arg_s_record.empid = 0
IF IsNull(arg_s_record.rectype) THEN arg_s_record.rectype = 0
IF IsNull(arg_s_record.techlevel) THEN arg_s_record.techlevel = ''
IF IsNull(arg_s_record.cmpname) THEN arg_s_record.cmpname = ''
IF IsNull(arg_s_record.reljob) THEN arg_s_record.reljob = ''
IF IsNull(arg_s_record.wage) THEN arg_s_record.wage = 0
IF IsNull(arg_s_record.cause) THEN arg_s_record.cause = ''
IF IsNull(arg_s_record.dscrp) THEN arg_s_record.dscrp = ''

SELECT status
	INTO :ls_status
	FROM u_rs_empinfo
	Where empid = :arg_s_record.empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '该员工不在职,不能进行增加简历内容'
	rslt = 0
	GOTO ext
END IF

IF arg_s_record.cmpname = '' THEN
	arg_msg = '请输入单位名称'
	rslt = 0
	GOTO ext
END IF

IF arg_s_record.mxid = 0 THEN
	
	ls_newid = f_sys_scidentity(0,"u_rs_emprecord","mxid",arg_msg,TRUE,id_sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	SELECT Top 1 getdate() INTO :server_dt FROM u_user;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,日期 "
		GOTO ext
	END IF
	
	INSERT INTO u_rs_emprecord
		(mxid,
		empid,
		Techlevel,
		Rectype,
		Cmpname,
		Address,
		Reljob,
		wage,
		Start_date,
		End_date,
		Cause,
		Dscrp,
		Opemp,
		Opdate)
		VALUES(
		:ls_newid,
		:arg_s_record.empid,
		:arg_s_record.Techlevel,
		:arg_s_record.Rectype,
		:arg_s_record.Cmpname,
		:arg_s_record.Address,
		:arg_s_record.Reljob,
		:arg_s_record.wage,
		:arg_s_record.Start_date,
		:arg_s_record.End_date,
		:arg_s_record.Cause,
		:arg_s_record.Dscrp,
		:arg_opemp,
		:server_dt);
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '增加简历内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	UPDATE u_rs_emprecord
		SET Techlevel = :arg_s_record.Techlevel,
		Rectype = :arg_s_record.Rectype,
		Cmpname = :arg_s_record.Cmpname,
		Address = :arg_s_record.Address,
		Reljob = :arg_s_record.Reljob,
		wage = :arg_s_record.wage,
		Start_date = :arg_s_record.Start_date,
		End_date = :arg_s_record.End_date,
		Cause = :arg_s_record.Cause,
		Dscrp = :arg_s_record.Dscrp,
		moddate = :server_dt,
		modemp = :arg_opemp
		Where mxid = :arg_s_record.mxid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新简历内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt







end function

public function integer uof_del_train (long arg_trainid, long arg_empid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_empid
Int ls_status
String ls_empname
Long ll_relid
String ls_relcode

IF IsNull(arg_trainid) THEN arg_trainid = 0

SELECT u_rs_empinfo.status,
	u_rs_train.empid,
	u_rs_empinfo.empname,
	u_rs_train.relid,
	u_rs_train.relcode
	INTO :ls_status,
	:ll_empid,
	:ls_empname,
	:ll_relid,
	:ls_relcode
	FROM u_rs_empinfo,u_rs_train
	WHERE u_rs_empinfo.empid = u_rs_train.empid
	AND u_rs_train.trainid = :arg_trainid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ll_relid > 0 THEN
	rslt = 0
	arg_msg = '该培训资料是员工培训单:'+ls_relcode+'审核自动建立的,不能手动删除'
	GOTO ext
END IF

IF ll_empid <> arg_empid THEN
	arg_msg = '选择删除培训资料的员工资料不相符'
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '员工:'+ls_empname+' 不在职,不能进行删除培训内容'
	rslt = 0
	GOTO ext
END IF

DELETE FROM  u_rs_train	Where trainid = :arg_trainid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除培训内容失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt










end function

public function integer uof_del_record (long arg_mxid, long arg_empid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_empid
Int ls_status

IF IsNull(arg_mxid) THEN arg_mxid = 0

SELECT status,u_rs_emprecord.empid
	INTO :ls_status,:ll_empid
	FROM u_rs_empinfo,u_rs_emprecord
	WHERE u_rs_empinfo.empid = u_rs_emprecord.empid
	AND u_rs_emprecord.mxid = :arg_mxid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ll_empid <> arg_empid THEN
	arg_msg = '选择删除简历资料的员工资料不相符'
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '该员工不在职,不能进行删除简历内容'
	rslt = 0
	GOTO ext
END IF

DELETE FROM  u_rs_emprecord Where mxid = :arg_mxid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除社保内容失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt








end function

public function integer uof_move (integer arg_moveflag, s_moverecord arg_s_moverecord, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ls_newid
Int ls_status
String ls_empcode
DateTime server_dt
String ls_sdeptype,ls_shandtype
String ls_ddeptype,ls_dhandtype

IF IsNull(arg_s_moverecord.moveid) THEN arg_s_moverecord.moveid = 0
IF IsNull(arg_s_moverecord.empid) THEN arg_s_moverecord.empid = 0
IF IsNull(arg_s_moverecord.movetype) THEN arg_s_moverecord.movetype = 0
IF IsNull(arg_s_moverecord.cause) THEN arg_s_moverecord.cause = ''
IF IsNull(arg_s_moverecord.sjob) THEN arg_s_moverecord.sjob = ''
IF IsNull(arg_s_moverecord.djob) THEN arg_s_moverecord.djob = ''
IF IsNull(arg_s_moverecord.sdeptid) THEN arg_s_moverecord.sdeptid = 0
IF IsNull(arg_s_moverecord.ddeptid) THEN arg_s_moverecord.ddeptid = 0
IF IsNull(arg_s_moverecord.filecode) THEN arg_s_moverecord.filecode = ''
IF IsNull(arg_s_moverecord.wage) THEN arg_s_moverecord.wage = 0
IF IsNull(arg_s_moverecord.firetype) THEN arg_s_moverecord.firetype = ''
IF IsNull(arg_s_moverecord.dscrp) THEN arg_s_moverecord.dscrp = ''
IF IsNull(arg_s_moverecord.scid) THEN arg_s_moverecord.scid = 0
IF IsNull(arg_s_moverecord.ifBlackList) THEN arg_s_moverecord.ifBlackList = 0

IF arg_s_moverecord.moveid = 0 THEN //新建
	
	SELECT status,empcode
		INTO :ls_status,:ls_empcode
		FROM u_rs_empinfo
		Where empid = :arg_s_moverecord.empid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	//arg_moveflag 1-入职,0-其它
	
	IF arg_moveflag = 0 And ls_status = 0 THEN
		arg_msg = '该员工不在职,不能进行操作'
		rslt = 0
		GOTO ext
	END IF
	
	IF arg_s_moverecord.movetype = 1 Or  arg_s_moverecord.movetype = 2 THEN
		IF arg_s_moverecord.sdeptid = 0 THEN
			arg_msg = '不存在的调出部门。'
			rslt = 0
			GOTO ext
		END IF
		
		IF arg_s_moverecord.sjob = '' THEN
			arg_msg = '调动前职位不能为空或不存在的职位。'
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	IF arg_s_moverecord.movetype = 1 Or arg_s_moverecord.movetype = 0 THEN
		IF arg_s_moverecord.ddeptid = 0 THEN
			arg_msg = '不存在的调入部门。'
			rslt = 0
			GOTO ext
		END IF
		
		IF arg_s_moverecord.djob = '' THEN
			arg_msg = '调动后职位不能为空或不存在的职位。'
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	
	IF arg_s_moverecord.sdeptid > 0 THEN
		
		SELECT departmentname,handtype
			INTO :ls_sdeptype,:ls_shandtype
			FROM   cw_department
			Where departmentid = :arg_s_moverecord.sdeptid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '查询调出部门资料失败，原因:'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	IF arg_s_moverecord.ddeptid > 0 THEN
		SELECT departmentname,handtype
			INTO :ls_ddeptype,:ls_dhandtype
			FROM   cw_department
			Where departmentid = :arg_s_moverecord.ddeptid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '查询调入部门资料失败，原因:'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	ls_newid = f_sys_scidentity(0,"u_rs_moverecord","moveid",arg_msg,True,id_sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	SELECT Top 1 getdate() Into :server_dt From u_user;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,日期 "
		GOTO ext
	END IF
	
	INSERT INTO u_rs_moverecord
		(Moveid,
		empid,
		Movedate,
		Movetype,
		cause,
		Sdept,
		Ddept,
		Sdeptid,
		Ddeptid,
		Sjob,
		Djob,
		wage,
		Filecode,
		Opemp,
		Opdate,
		dscrp)
		VALUES(:ls_newid,
		:arg_s_moverecord.empid,
		:arg_s_moverecord.Movedate,
		:arg_s_moverecord.movetype,
		:arg_s_moverecord.cause,
		:ls_Sdeptype,
		:ls_Ddeptype,
		:arg_s_moverecord.Sdeptid,
		:arg_s_moverecord.Ddeptid,
		:arg_s_moverecord.sjob,
		:arg_s_moverecord.djob,
		:arg_s_moverecord.wage,
		:arg_s_moverecord.filecode,
		:arg_opemp,
		:server_dt,
		:arg_s_moverecord.dscrp);
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '操作失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF arg_s_moverecord.movetype = 1 THEN
		UPDATE u_rs_empinfo
			SET Deptid = :arg_s_moverecord.Ddeptid,
			deptype = :ls_ddeptype,
			handtype = :ls_dhandtype,
			duty = :arg_s_moverecord.djob,
			wage = :arg_s_moverecord.wage,
			scid = :arg_s_moverecord.scid
			Where empid = :arg_s_moverecord.empid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '更新员工资料失败,原因:'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	ELSEIF arg_s_moverecord.movetype = 2 THEN //离职
		
		String ls_ordercode
		Long cnt = 0
		SELECT count(*) INTO :cnt FROM u_rs_empinfo
			WHERE empcode LIKE 'LZ_'+:ls_empcode+'%'
			And status = 0;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '查询员工编号失败,原因:'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		ls_ordercode = String(cnt+1)
		
		UPDATE u_rs_empinfo
			SET empcode = 'LZ'+rtrim(empcode)+'-'+:ls_ordercode,
			status = 0,
			ifBlackList = :arg_s_moverecord.ifBlackList
			Where empid = :arg_s_moverecord.empid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '更新员工资料失败，原因:'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		//更新用户资料, u_user
		UPDATE u_user
			SET ifnotin = 1 , descrp = '员工离职自动禁用'
			Where (empid = :arg_s_moverecord.empid);
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '更新员工用户权限失败，原因:'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
	END IF
ELSE //修改
	UPDATE u_rs_moverecord
		SET cause = :arg_s_moverecord.cause,
		dscrp = :arg_s_moverecord.dscrp
		Where moveid = :arg_s_moverecord.moveid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新调动记录失败,' + sqlca.SQLErrText
		GOTO ext
	END IF
	
	UPDATE u_rs_empinfo
		SET ifBlackList = :arg_s_moverecord.ifBlackList
		Where empid = :arg_s_moverecord.empid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新员工资料失败，原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
END IF
IF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt














end function

public function integer uof_add_contract (s_contract arg_s_contract, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ls_newid
Int ls_status
DateTime server_dt

IF IsNull(arg_s_contract.contractid) THEN arg_s_contract.contractid = 0
IF IsNull(arg_s_contract.empid) THEN arg_s_contract.empid = 0
IF IsNull(arg_s_contract.dscrp) THEN arg_s_contract.dscrp = ''

SELECT status
	INTO :ls_status
	FROM u_rs_empinfo
	Where empid = :arg_s_contract.empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '该员工不在职,不能进行增加合同内容'
	rslt = 0
	GOTO ext
END IF

IF arg_s_contract.contractid = 0 THEN
	
	ls_newid = f_sys_scidentity(0,"u_rs_contract","contractid",arg_msg,TRUE,id_sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	SELECT Top 1 getdate() INTO :server_dt FROM u_user;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,日期 "
		GOTO ext
	END IF
	
	INSERT INTO u_rs_contract
		(contractid,
		empid,
		bdate,
		edate,
		Dscrp,
		Opemp,
		Opdate)
		VALUES(
		:ls_newid,
		:arg_s_contract.empid,
		:arg_s_contract.bdate,
		:arg_s_contract.edate,
		:arg_s_contract.Dscrp,
		:arg_opemp,
		:server_dt);
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '增加合同内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	
	UPDATE u_rs_contract
		SET edate = :arg_s_contract.edate,
		Bdate = :arg_s_contract.Bdate,
		Dscrp = :arg_s_contract.Dscrp,
		moddate = :server_dt,
		modemp = :arg_opemp
		Where contractid = :arg_s_contract.contractid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新合同内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt







end function

public function integer uof_del_contract (long arg_contractid, long arg_empid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_empid
Int ls_status, li_flag


IF IsNull(arg_contractid) THEN arg_contractid = 0

SELECT status,u_rs_contract.empid
	INTO :ls_status,:ll_empid
	FROM u_rs_empinfo,u_rs_contract
	WHERE u_rs_empinfo.empid = u_rs_contract.empid
	AND u_rs_contract.contractid = :arg_contractid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ll_empid <> arg_empid THEN
	arg_msg = '选择删除合同资料的员工资料不相符'
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '该员工不在职,不能进行删除社保内容'
	rslt = 0
	GOTO ext
END IF

SELECT flag
	INTO :li_flag
	FROM u_rs_contract
	WHERE empid = :arg_empid
	And contractid = :arg_contractid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询员工合同审核状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_flag = 1 THEN
	rslt = 0
	arg_msg = '员工合同已审核'
	GOTO ext
END IF

DELETE FROM  u_rs_contract	Where contractid = :arg_contractid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除社保内容失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt








end function

public function integer uof_audit_emp (long arg_empid, ref string arg_msg, boolean arg_ifcommit);Int rslt
rslt = 1
Int li_status
datetime server_dt

SELECT Top 1 getdate() INTO :server_dt FROM u_user;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF


SELECT status INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询员工状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_status <> 3 THEN
	rslt = 0
	arg_msg = '员工状态不是待审核,不能执行审核操作'
	GOTO ext
END IF

UPDATE u_rs_empinfo
	SET status = 1,
	auditemp = :publ_operator,
	auditdate = :server_dt
	WHERE empid = :arg_empid
	And status = 3 ;
IF sqlca.SQLCode = 0 THEN
	IF sqlca.SQLNRows = 0 THEN
		rslt = 0
		arg_msg = '员工正在审核,请稍后查询'
		GOTO ext
	END IF
ELSE
	rslt = 0
	arg_msg = '更新员工状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt




end function

public function integer uof_caudit_emp (long arg_empid, ref string arg_msg, boolean arg_ifcommit);Int rslt
rslt = 1
Int li_status
datetime ld_nulldt

IF uo_option_emp_audit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[221]员工资料需要审核,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


setnull(ld_nulldt)

IF uo_option_emp_audit = 0 THEN
	rslt = 0
	arg_msg = '系统选项 "(221)员工资料需要审核" 已关闭,不能执行员工撤审操作'
	GOTO ext
END IF

SELECT status INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询员工状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_status <> 1 THEN
	rslt = 0
	arg_msg = '员工状态不是在职,不能执行撤审操作'
	GOTO ext
END IF

UPDATE u_rs_empinfo
	SET status = 3,
	auditemp = '',
	auditdate = :ld_nulldt
	WHERE empid = :arg_empid
	And status = 1 ;
IF sqlca.SQLCode = 0 THEN
	IF sqlca.SQLNRows = 0 THEN
		rslt = 0
		arg_msg = '员工正在撤审,请稍后查询'
		GOTO ext
	END IF
ELSE
	rslt = 0
	arg_msg = '更新员工状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt





end function

public function integer uof_add_empmtrl_ly (long arg_empid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_addqty, decimal arg_price, boolean arg_ifcommit, ref string arg_msg);Int rslt = 1
Int li_status
Decimal lde_qty, lde_billqty

IF IsNull(arg_empid) THEN arg_empid = 0
IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0
IF IsNull(arg_status) THEN arg_status = ''
IF IsNull(arg_woodcode) THEN arg_woodcode = ''
IF IsNull(arg_pcode) THEN arg_pcode = ''
IF IsNull(arg_addqty) THEN arg_addqty = 0


IF arg_addqty = 0 THEN
	rslt = 1
	GOTO ext
END IF

SELECT status
	INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

//IF li_status = 0 THEN
//	arg_msg = '该员工不在职,不能操作'
//	rslt = 0
//	GOTO ext
//END IF

IF arg_addqty > 0 THEN
	
	UPDATE u_rs_empmtrl_ly
		SET qty = qty + :arg_addqty,
		wareamt = case qty + :arg_addqty when 0 then 0 else wareamt + :arg_addqty * :arg_price end ,
		cost = case qty + :arg_addqty when 0 then cost else (wareamt + :arg_addqty * :arg_price) / (qty + :arg_addqty) end 
		WHERE empid = :arg_empid
		AND mtrlid = :arg_mtrlid
		AND status = :arg_status
		AND woodcode = :arg_woodcode
		And pcode = :arg_pcode;
	IF sqlca.SQLCode = 0    THEN
		IF sqlca.SQLNRows = 0 THEN
			INSERT INTO u_rs_empmtrl_ly
				(empid,
				mtrlid,
				status,
				woodcode,
				pcode,
				qty,
				cost,
				wareamt)
				VALUES
				(:arg_empid,
				:arg_mtrlid,
				:arg_status,
				:arg_woodcode,
				:arg_pcode,
				:arg_addqty,
				:arg_price,
				:arg_price * :arg_addqty);
			IF sqlca.SQLCode <> 0 THEN
				rslt = 0
				arg_msg = "插入员工物品领用信息失败,"+sqlca.SQLErrText
				GOTO ext
			END IF
			
		END IF
	ELSE
		rslt = 0
		arg_msg = "更新员工物品领用信息失败,"+sqlca.SQLErrText
		GOTO ext
	END IF
	
ELSE
	
	SELECT qty
		INTO :lde_qty
		FROM u_rs_empmtrl_ly
		WHERE empid = :arg_empid
		AND mtrlid = :arg_mtrlid
		AND status = :arg_status
		AND woodcode = :arg_woodcode
		And pcode = :arg_pcode;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询员工物品领用信息失败,"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	
	SELECT sum(qty)
		INTO :lde_billqty
		FROM u_inware INNER join u_inwaremx
		on u_inware.inwareid = u_inwaremx.inwareid
		WHERE sptid = :arg_empid
		AND mtrlid = :arg_mtrlid
		AND status = :arg_status
		AND woodcode = :arg_woodcode
		AND pcode = :arg_pcode
		AND billtype  = 28
		And flag = 0;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询员工物品归还单开单未审数信息失败，"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	
	IF Abs(arg_addqty) > lde_qty - lde_billqty THEN
		rslt = 0
		arg_msg = "员工剩余领用物品数量只有["+String(lde_qty, '#,##0.##')+"],开单未审数["+String(lde_billqty, '#,##0.##')+"],不能撤审["+String(Abs(arg_addqty), '#,##0.##')+"]"
		GOTO ext
	END IF
	
	UPDATE u_rs_empmtrl_ly
		SET qty = qty + :arg_addqty,
		wareamt = case qty + :arg_addqty when 0 then 0 else wareamt + :arg_addqty * :arg_price end ,
		cost = case qty + :arg_addqty when 0 then cost else (wareamt + :arg_addqty * :arg_price) / (qty + :arg_addqty) end 
		WHERE empid = :arg_empid
		AND mtrlid = :arg_mtrlid
		AND status = :arg_status
		AND woodcode = :arg_woodcode
		And pcode = :arg_pcode;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "更新员工物品领用信息失败,"+sqlca.SQLErrText
		GOTO ext
	END IF
	
END IF
ext:
IF rslt  = 0 THEN
	ROLLBACK Using sqlca;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using sqlca;
END IF
RETURN rslt






end function

public function integer uof_add_empmtrl_gh (long arg_empid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_addqty, decimal arg_price, boolean arg_ifcommit, ref string arg_msg);Int rslt = 1
Int li_status
Decimal lde_qty

IF IsNull(arg_empid) THEN arg_empid = 0
IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0
IF IsNull(arg_status) THEN arg_status = ''
IF IsNull(arg_woodcode) THEN arg_woodcode = ''
IF IsNull(arg_pcode) THEN arg_pcode = ''
IF IsNull(arg_addqty) THEN arg_addqty = 0


IF arg_addqty = 0 THEN
	rslt = 1
	GOTO ext
END IF

SELECT status
	INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

//IF li_status = 0 THEN
//	arg_msg = '该员工不在职,不能操作'
//	rslt = 0
//	GOTO ext
//END IF

IF arg_addqty < 0 THEN
	//arg_addqty = abs(arg_addqty)
	
	UPDATE u_rs_empmtrl_ly
		SET qty = qty - :arg_addqty,
		wareamt = case qty - :arg_addqty when 0 then 0 else wareamt - :arg_addqty * :arg_price END ,
		cost = case qty - :arg_addqty when 0 then cost else (wareamt - :arg_addqty * :arg_price) / (qty - :arg_addqty) END
		
		WHERE empid = :arg_empid
		AND mtrlid = :arg_mtrlid
		AND status = :arg_status
		AND woodcode = :arg_woodcode
		And pcode = :arg_pcode;
	IF sqlca.SQLCode <> 0    THEN
		rslt = 0
		arg_msg = "更新员工物品领用信息失败,"+sqlca.SQLErrText
		GOTO ext
	END IF
	
ELSE
	
	SELECT qty
		INTO :lde_qty
		FROM u_rs_empmtrl_ly
		WHERE empid = :arg_empid
		AND mtrlid = :arg_mtrlid
		AND status = :arg_status
		AND woodcode = :arg_woodcode
		And pcode = :arg_pcode;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询员工物品领用信息失败,"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	IF arg_addqty > lde_qty THEN
		rslt = 0
		arg_msg = "员工剩余领用物品数量只有["+String(lde_qty, '#,##0.##')+"],不能归还["+String(arg_addqty, '#,##0.##')+"]"
		GOTO ext
	END IF
	
	UPDATE u_rs_empmtrl_ly
		SET qty = qty - :arg_addqty,
		wareamt = case qty - :arg_addqty when 0 then 0 else wareamt - :arg_addqty * :arg_price END ,
		cost = case qty - :arg_addqty when 0 then cost else (wareamt - :arg_addqty * :arg_price) / (qty - :arg_addqty) END
		
		WHERE empid = :arg_empid
		AND mtrlid = :arg_mtrlid
		AND status = :arg_status
		AND woodcode = :arg_woodcode
		And pcode = :arg_pcode;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "更新员工物品领用信息失败,"+sqlca.SQLErrText
		GOTO ext
	END IF
	
END IF
ext:
IF rslt  = 0 THEN
	ROLLBACK Using sqlca;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using sqlca;
END IF
RETURN rslt





end function

public function integer uof_add_emptake (long arg_empid, long arg_relid, long arg_moneyid, string arg_relcode, datetime arg_takedate, decimal arg_amt, string arg_dscrp, integer arg_taketype, boolean arg_ifcommit, ref string arg_msg);//====================================================================
// 事件: uo_empinfo.uof_add_emptake()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
// 	value    	long    	arg_empid   	//人员ID
// 	value    	long    	arg_relid   	//单据ID
// 	value    	long    	arg_moneyid 	//币种
// 	value    	string  	arg_relcode 	//单据编号
// 	value    	datetime	arg_takedate	//发生日期
// 	value    	decimal 	arg_amt     	//发生金额
// 	value    	string  	arg_dscrp   	//备注
// 	value    	integer 	arg_taketype	//0:借  1:还
// 	value    	boolean 	arg_ifcommit	
// 	reference	string  	arg_msg     	
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者:	LHD		日期: 2011年10月20日
//--------------------------------------------------------------------
//	Copyright (c) 2002-2018 RICHTA(TM), All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

Int rslt = 1
Int li_status
Decimal lde_Msttakeamt, lde_takeamt

IF IsNull(arg_empid) THEN arg_empid = 0
IF IsNull(arg_relid) THEN arg_relid = 0
IF IsNull(arg_moneyid) THEN arg_moneyid = 0
IF IsNull(arg_relcode) THEN arg_relcode = ''
IF IsNull(arg_amt) THEN arg_amt = 0
IF IsNull(arg_dscrp) THEN arg_dscrp = ''
IF IsNull(arg_taketype) THEN arg_taketype = 0


IF arg_amt = 0 THEN
	rslt = 1
	GOTO ext
END IF

SELECT status
	INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

//默认 arg_amt > 0
IF arg_taketype = 0 THEN //借

	lde_Msttakeamt = arg_amt
	lde_takeamt = 0
ELSE
	
	lde_Msttakeamt = 0
	lde_takeamt = arg_amt
	
	arg_amt = 0 - arg_amt
END IF

UPDATE u_rs_emptake
	SET amt = amt + :arg_amt
	WHERE empid = :arg_empid
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode = 0    THEN
	IF sqlca.SQLNRows = 0 THEN
		INSERT INTO u_rs_emptake
			(empid,
			moneyid,
			amt)
			VALUES
			(:arg_empid,
			:arg_moneyid,
			:arg_amt);
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "插入员工借/还款信息失败,"+sqlca.SQLErrText
			GOTO ext
		END IF
		
	END IF
ELSE
	rslt = 0
	arg_msg = "更新员工借/还款信息失败,"+sqlca.SQLErrText
	GOTO ext
END IF

INSERT INTO u_rs_emptakemx
	(empid, relid, moneyid, takedate, Msttakeamt, takeamt, dscrp, relcode, taketype)
	VALUES
	(:arg_empid,
	:arg_relid,
	:arg_moneyid,
	:arg_takedate,
	:lde_Msttakeamt,
	:lde_takeamt,
	:arg_dscrp,
	:arg_relcode,
	:arg_taketype);
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "插入员工借/还款明细信息失败,"+sqlca.SQLErrText
	GOTO ext
END IF


ext:
IF rslt  = 0 THEN
	ROLLBACK Using sqlca;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using sqlca;
END IF
RETURN rslt









end function

public function integer uof_del_emptake (long arg_empid, long arg_relid, long arg_moneyid, string arg_relcode, integer arg_taketype, boolean arg_ifcommit, ref string arg_msg);//====================================================================
// 事件: uo_empinfo.uof_del_emptake()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
// 	value    	long   	arg_empid   	//人员ID
// 	value    	long   	arg_relid   	//单据ID
// 	value    	long   	arg_moneyid 	//币种
// 	value    	string 	arg_relcode 	//单据编号
// 	value    	integer	arg_taketype	//0:借  1:还
// 	value    	boolean	arg_ifcommit	
// 	reference	string 	arg_msg     	
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者:	LHD		日期: 2011年10月20日
//--------------------------------------------------------------------
//	Copyright (c) 2002-2018 RICHTA(TM), All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

Int rslt = 1
Int li_status, li_cnt
dec lde_amt

IF IsNull(arg_empid) THEN arg_empid = 0
IF IsNull(arg_relid) THEN arg_relid = 0
IF IsNull(arg_moneyid) THEN arg_moneyid = 0
IF IsNull(arg_relcode) THEN arg_relcode = ''
IF IsNull(arg_taketype) THEN arg_taketype = 0

SELECT status
	INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

SELECT count(*)
	INTO :li_cnt
	FROM u_rs_emptakemx
	WHERE empid = :arg_empid
	AND relid = :arg_relid
	AND relcode = :arg_relcode
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询员工借/还款明细信息失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_cnt = 0 THEN
	arg_msg = "没有对应的员工借/还款明细信息"
	rslt = 0
	GOTO ext
END IF

SELECT case :arg_taketype when 0 then msttakeamt else takeamt end
	INTO :lde_amt
	FROM u_rs_emptakemx
	WHERE empid = :arg_empid
	AND relid = :arg_relid
	AND relcode = :arg_relcode
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询员工借/还款明细信息失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


////默认 arg_amt < 0
//lde_amt = 0 - lde_amt
if arg_taketype = 0 then
	lde_amt = 0 - lde_amt
else
	lde_amt = lde_amt
end if


UPDATE u_rs_emptake
	SET amt = amt + :lde_amt
	WHERE empid = :arg_empid
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode = 0    THEN
	IF sqlca.SQLNRows = 0 THEN
		INSERT INTO u_rs_emptake
			(empid,
			moneyid,
			amt)
			VALUES
			(:arg_empid,
			:arg_moneyid,
			:lde_amt);
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "插入员工借/还款信息失败,"+sqlca.SQLErrText
			GOTO ext
		END IF
	END IF
ELSE
	rslt = 0
	arg_msg = "更新员工借/还款信息失败,"+sqlca.SQLErrText
	GOTO ext
END IF

DELETE FROM u_rs_emptakemx
	WHERE empid = :arg_empid
	AND relid = :arg_relid
	AND relcode = :arg_relcode
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询员工借/还款明细信息失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


ext:
IF rslt  = 0 THEN
	ROLLBACK Using sqlca;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using sqlca;
END IF
RETURN rslt










end function

public function integer uof_add_insure (s_insure arg_s_insure, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ls_newid
Int ls_status
DateTime server_dt

IF IsNull(arg_s_insure.insureid) THEN arg_s_insure.insureid = 0
IF IsNull(arg_s_insure.empid) THEN arg_s_insure.empid = 0
IF IsNull(arg_s_insure.BuyMth) THEN arg_s_insure.BuyMth = 0
IF IsNull(arg_s_insure.Subsidy) THEN arg_s_insure.Subsidy = 0
IF IsNull(arg_s_insure.Payself) THEN arg_s_insure.Payself = 0
IF IsNull(arg_s_insure.dscrp) THEN arg_s_insure.dscrp = ''

SELECT status
	INTO :ls_status
	FROM u_rs_empinfo
	Where empid = :arg_s_insure.empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '该员工不在职,不能进行增加社保内容'
	rslt = 0
	GOTO ext
END IF

IF arg_s_insure.BuyMth = 0 THEN
	arg_msg = '请输入购买月份'
	rslt = 0
	GOTO ext
END IF

IF arg_s_insure.insureid = 0 THEN
	
	ls_newid = f_sys_scidentity(0,"u_rs_insure","insureid",arg_msg,TRUE,id_sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	SELECT Top 1 getdate() INTO :server_dt FROM u_user;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,日期 "
		GOTO ext
	END IF
	
	INSERT INTO u_rs_insure
		(insureid,
		empid,
		BuyMth,
		Buydate,
		Subsidy,
		Payself,
		Dscrp,
		Opemp,
		Opdate)
		VALUES(
		:ls_newid,
		:arg_s_insure.empid,
		:arg_s_insure.BuyMth,
		:arg_s_insure.Buydate,
		:arg_s_insure.Subsidy,
		:arg_s_insure.Payself,
		:arg_s_insure.Dscrp,
		:arg_opemp,
		:server_dt);
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '增加社保内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	UPDATE u_rs_insure
		SET BuyMth = :arg_s_insure.BuyMth,
		Buydate = :arg_s_insure.Buydate,
		Subsidy = :arg_s_insure.Subsidy,
		Payself = :arg_s_insure.Payself,
		Dscrp = :arg_s_insure.Dscrp,
		moddate = :server_dt,
		modemp = :arg_opemp
		Where insureid = :arg_s_insure.insureid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新社保内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt







end function

public function integer uof_add_idcard (s_idcard arg_s_idcard, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ls_newid
Int ls_status
DateTime server_dt

IF IsNull(arg_s_idcard.mxid) THEN arg_s_idcard.mxid = 0
IF IsNull(arg_s_idcard.empid) THEN arg_s_idcard.empid = 0
IF IsNull(arg_s_idcard.idcard) THEN arg_s_idcard.idcard = ''
IF IsNull(arg_s_idcard.fzjg) THEN arg_s_idcard.fzjg = ''

SELECT status
	INTO :ls_status
	FROM u_rs_empinfo
	Where empid = :arg_s_idcard.empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '该员工不在职,不能进行增加身份证'
	rslt = 0
	GOTO ext
END IF

SELECT Top 1 getdate() INTO :server_dt FROM u_user;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

IF arg_s_idcard.mxid = 0 THEN
	
	ls_newid = f_sys_scidentity(0,"u_rs_emp_idcard","mxid",arg_msg,TRUE,id_sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	INSERT INTO u_rs_emp_idcard
		(mxid,
		empid,
		idcard,
		fzjg,
		limit_date,
		Opemp,
		Opdate)
		VALUES(
		:ls_newid,
		:arg_s_idcard.empid,
		:arg_s_idcard.idcard,
		:arg_s_idcard.fzjg,
		:arg_s_idcard.limit_date,
		:arg_opemp,
		:server_dt);
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '增加身份证内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	UPDATE u_rs_emp_idcard
		SET idcard = :arg_s_idcard.idcard,
		fzjg = :arg_s_idcard.fzjg,
		limit_date = :arg_s_idcard.limit_date,
		empid = :arg_s_idcard.empid,
		moddate = :server_dt,
		modemp = :arg_opemp
		Where mxid = :arg_s_idcard.mxid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新社保内容失败,原因:'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt







end function

public function integer uof_del_insure (long arg_insureid, long arg_empid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_empid
Int ls_status


IF IsNull(arg_insureid) THEN arg_insureid = 0

SELECT status,u_rs_insure.empid
	INTO :ls_status,:ll_empid
	FROM u_rs_empinfo,u_rs_insure
	WHERE u_rs_empinfo.empid = u_rs_insure.empid
	AND u_rs_insure.insureid = :arg_insureid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ll_empid <> arg_empid THEN
	arg_msg = '选择删除社保资料的员工资料不相符'
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '该员工不在职,不能进行删除社保内容'
	rslt = 0
	GOTO ext
END IF

DELETE FROM  u_rs_insure	Where insureid = :arg_insureid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除社保内容失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt








end function

public function integer uof_del_idcard (long arg_mxid, long arg_empid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_empid
Int ls_status


IF IsNull(arg_mxid) THEN arg_mxid = 0

SELECT u_rs_empinfo.status, u_rs_emp_idcard.empid
	INTO :ls_status, :ll_empid
	FROM u_rs_empinfo INNER JOIN
	u_rs_emp_idcard ON u_rs_empinfo.empid = u_rs_emp_idcard.empid
	Where (u_rs_emp_idcard.mxid = :arg_mxid);
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ll_empid <> arg_empid THEN
	arg_msg = '选择删除身份证资料的员工资料不相符'
	rslt = 0
	GOTO ext
END IF

IF ls_status = 0 THEN
	arg_msg = '该员工不在职,不能进行删除身份证内容'
	rslt = 0
	GOTO ext
END IF

DELETE From u_rs_emp_idcard Where mxid = :arg_mxid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除社保内容失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt









end function

public function integer uof_audit_contract (long arg_empid, long arg_contractid, ref string arg_msg, boolean arg_ifcommit);Int rslt
rslt = 1
Int li_status, li_flag
DateTime server_dt

SELECT Top 1 getdate() Into :server_dt From u_user;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF


SELECT status INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询员工状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_status = 0 THEN
	arg_msg = '该员工不在职,不能进行审核合同'
	rslt = 0
	GOTO ext
END IF

SELECT flag
	INTO :li_flag
	FROM u_rs_contract
	WHERE empid = :arg_empid
	And contractid = :arg_contractid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询员工合同审核状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_flag = 1 THEN
	rslt = 0
	arg_msg = '员工合同已审核'
	GOTO ext
END IF


UPDATE u_rs_contract
	SET flag = 1,
	auditemp = :publ_operator,
	auditdate = :server_dt
	WHERE empid = :arg_empid
	AND contractid = :arg_contractid
	And flag = 0;
IF sqlca.SQLCode = 0 THEN
	IF sqlca.SQLNRows = 0 THEN
		rslt = 0
		arg_msg = '员工合同正在审核,请稍后查询'
		GOTO ext
	END IF
ELSE
	rslt = 0
	arg_msg = '更新员工合同状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt






end function

public function integer uof_caudit_contract (long arg_empid, long arg_contractid, ref string arg_msg, boolean arg_ifcommit);Int rslt, li_flag
rslt = 1


SELECT flag
	INTO :li_flag
	FROM u_rs_contract
	WHERE empid = :arg_empid
	And contractid = :arg_contractid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询员工合同审核状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_flag <> 1 THEN
	rslt = 0
	arg_msg = '员工合同未审核'
	GOTO ext
END IF

UPDATE u_rs_contract
	SET flag = 0,
	auditemp = '',
	auditdate = null
	WHERE empid = :arg_empid
	And contractid = :arg_contractid
	and flag = 1;
IF sqlca.SQLCode = 0 THEN
	IF sqlca.SQLNRows = 0 THEN
		rslt = 0
		arg_msg = '员工合同正在撤审,请稍后查询'
		GOTO ext
	END IF
ELSE
	rslt = 0
	arg_msg = '更新员工合同状态失败,'+sqlca.SQLErrText
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt




end function

public function integer uof_add_item (s_item_cust_spt arg_s_item, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long cnt,ll_repid

IF IsNull(arg_s_item.itemid) THEN arg_s_item.itemid = 0
IF IsNull(arg_s_item.relid) THEN arg_s_item.relid = 0
IF IsNull(arg_s_item.reltype) THEN arg_s_item.reltype = 0
IF IsNull(arg_s_item.dscrp) THEN arg_s_item.dscrp = ''

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_item_cust_spt_def
	Where itemid = :arg_s_item.itemid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询辅助项目资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

cnt = 0
IF arg_s_item.reltype = 2 THEN
	SELECT count(*) INTO :cnt
		FROM u_rs_empinfo
		Where empid = :arg_s_item.relid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询人事资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	arg_msg = '错误的项目类型'
	rslt = 0
	GOTO ext
END IF

UPDATE u_item_cust_spt
	SET dscrp = :arg_s_item.dscrp
	WHERE itemid = :arg_s_item.itemid
	AND relid = :arg_s_item.relid
	AND reltype = :arg_s_item.reltype;
IF sqlca.SQLCode = 0 THEN
	IF sqlca.SQLNRows = 0 THEN
		INSERT INTO u_item_cust_spt
			(itemid,
			relid,
			reltype,
			dscrp)
			VALUES(:arg_s_item.itemid,
			:arg_s_item.relid,
			:arg_s_item.reltype,
			:arg_s_item.dscrp);
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '建立辅助项目资料失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
ELSE
	arg_msg = '更新辅助项目资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:

IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF


RETURN rslt














end function

public function integer uof_add_emppay (long arg_empid, long arg_relid, long arg_moneyid, string arg_relcode, datetime arg_paydate, decimal arg_amt, string arg_dscrp, integer arg_paytype, boolean arg_ifcommit, ref string arg_msg);//====================================================================
// 事件: uo_empinfo.uof_add_emppay()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
// 	value    	long    	arg_empid   	//人员ID
// 	value    	long    	arg_relid   	//单据ID
// 	value    	long    	arg_moneyid 	//币种
// 	value    	string  	arg_relcode 	//单据编号
// 	value    	datetime	arg_paydate	//发生日期
// 	value    	decimal 	arg_amt     	//发生金额
// 	value    	string  	arg_dscrp   	//备注
// 	value    	integer 	arg_paytype	//0:计算增加  1:发工资,减少
// 	value    	boolean 	arg_ifcommit	
// 	reference	string  	arg_msg     	
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者:	LHD		日期: 2011年10月20日
//--------------------------------------------------------------------
//	Copyright (c) 2002-2018 RICHTA(TM), All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

Int rslt = 1
Int li_status
Decimal lde_Mstpayamt, lde_payamt

IF IsNull(arg_empid) THEN arg_empid = 0
IF IsNull(arg_relid) THEN arg_relid = 0
IF IsNull(arg_moneyid) THEN arg_moneyid = 0
IF IsNull(arg_relcode) THEN arg_relcode = ''
IF IsNull(arg_amt) THEN arg_amt = 0
IF IsNull(arg_dscrp) THEN arg_dscrp = ''
IF IsNull(arg_paytype) THEN arg_paytype = 0


IF arg_amt = 0 THEN
	rslt = 1
	GOTO ext
END IF

SELECT status
	INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

//默认 arg_amt > 0
IF arg_paytype = 0 THEN //借

	lde_Mstpayamt = arg_amt
	lde_payamt = 0
ELSE
	
	lde_Mstpayamt = 0
	lde_payamt = arg_amt
	
	arg_amt = 0 - arg_amt
END IF

UPDATE u_rs_emppay
	SET amt = amt + :arg_amt
	WHERE empid = :arg_empid
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode = 0    THEN
	IF sqlca.SQLNRows = 0 THEN
		INSERT INTO u_rs_emppay
			(empid,
			moneyid,
			amt)
			VALUES
			(:arg_empid,
			:arg_moneyid,
			:arg_amt);
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "插入员工借/还款信息失败,"+sqlca.SQLErrText
			GOTO ext
		END IF
		
	END IF
ELSE
	rslt = 0
	arg_msg = "更新员工借/还款信息失败,"+sqlca.SQLErrText
	GOTO ext
END IF

INSERT INTO u_rs_emppaymx
	(empid, relid, moneyid, paydate, Mstpayamt, payamt, dscrp, relcode, paytype)
	VALUES
	(:arg_empid,
	:arg_relid,
	:arg_moneyid,
	:arg_paydate,
	:lde_Mstpayamt,
	:lde_payamt,
	:arg_dscrp,
	:arg_relcode,
	:arg_paytype);
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "插入员工借/还款明细信息失败,"+sqlca.SQLErrText
	GOTO ext
END IF


ext:
IF rslt  = 0 THEN
	ROLLBACK Using sqlca;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using sqlca;
END IF
RETURN rslt









end function

public function integer uof_del_emppay (long arg_empid, long arg_relid, long arg_moneyid, string arg_relcode, integer arg_paytype, boolean arg_ifcommit, ref string arg_msg);//====================================================================
// 事件: uo_empinfo.uof_del_emppay()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
// 	value    	long   	arg_empid   	//人员ID
// 	value    	long   	arg_relid   	//单据ID
// 	value    	long   	arg_moneyid 	//币种
// 	value    	string 	arg_relcode 	//单据编号
// 	value    	integer	arg_paytype	//0:计算增加  1:发工资,减少
// 	value    	boolean	arg_ifcommit	
// 	reference	string 	arg_msg     	
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者:	LHD		日期: 2011年10月20日
//--------------------------------------------------------------------
//	Copyright (c) 2002-2018 RICHTA(TM), All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

Int rslt = 1
Int li_status, li_cnt
Dec lde_amt

IF IsNull(arg_empid) THEN arg_empid = 0
IF IsNull(arg_relid) THEN arg_relid = 0
IF IsNull(arg_moneyid) THEN arg_moneyid = 0
IF IsNull(arg_relcode) THEN arg_relcode = ''
IF IsNull(arg_paytype) THEN arg_paytype = 0

SELECT status
	INTO :li_status
	FROM u_rs_empinfo
	Where empid = :arg_empid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询员工资料失败,原因:'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

SELECT count(*)
	INTO :li_cnt
	FROM u_rs_emppaymx
	WHERE empid = :arg_empid
	AND relid = :arg_relid
	AND relcode = :arg_relcode
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询员工工资记录明细信息失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_cnt = 0 THEN //没有找到的,成功返回//有些旧程序没有的,这里提示出错
	rslt = 1
	goto ext
//	arg_msg = "没有对应的员工工资记录明细信息"
//	rslt = 0
//	GOTO ext
END IF

SELECT CASE :arg_paytype when 0 THEN mstpayamt ELSE payamt END
Into :lde_amt
From u_rs_emppaymx
Where empid = :arg_empid
And relid = :arg_relid
And relcode = :arg_relcode
And moneyid = :arg_moneyid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询员工工资记录明细信息失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


// //默认 arg_amt < 0
//lde_amt = 0 - lde_amt
IF arg_paytype = 0 THEN
	lde_amt = 0 - lde_amt
ELSE
	lde_amt = lde_amt
END IF


UPDATE u_rs_emppay
	SET amt = amt + :lde_amt
	WHERE empid = :arg_empid
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode = 0    THEN
	IF sqlca.SQLNRows = 0 THEN
		INSERT INTO u_rs_emppay
			(empid,
			moneyid,
			amt)
			VALUES
			(:arg_empid,
			:arg_moneyid,
			:lde_amt);
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "插入员工工资记录信息失败,"+sqlca.SQLErrText
			GOTO ext
		END IF
	END IF
ELSE
	rslt = 0
	arg_msg = "更新员工工资记录信息失败,"+sqlca.SQLErrText
	GOTO ext
END IF

DELETE FROM u_rs_emppaymx
	WHERE empid = :arg_empid
	AND relid = :arg_relid
	AND relcode = :arg_relcode
	And moneyid = :arg_moneyid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询员工工资记录明细信息失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


ext:
IF rslt  = 0 THEN
	ROLLBACK Using sqlca;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using sqlca;
END IF
RETURN rslt











end function

on uo_empinfo.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_empinfo.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event constructor;String str_optionvalue,arg_msg

f_get_sys_option_value('221',str_optionvalue,arg_msg)
uo_option_emp_audit = Long(str_optionvalue)

end event