func_re_balance.asp

企业办公简单管理系统,可以发布信息以及论坛

<!-- #include file="func_verify.asp" -->
<%
function CheckInfo(str)
	dim i
	CheckInfo=""
	if not isnull(str) then 
		for i=1 to len(str)
			if mid(str,i,1)=" " then
				CheckInfo=CheckInfo&"&nbsp;"
			elseif mid(str,i,1)=chr(13) and mid(str,i+1,1)=chr(10) then
				CheckInfo=CheckInfo&"<br>"
				i=i+1
			else
				CheckInfo=CheckInfo&mid(str,i,1) 
			end if
		next
	end if
end function

set rs = Server.CreateObject("ADODB.Recordset")
set rsba = Server.CreateObject("ADODB.Recordset")
if request("saveflag")="1" then
	sql="select * from cci_oa_approve"
	rs.open sql,connobj,3,3
	rs.addnew
	
	rs("wfid")=request("wfid")
	rs("deptid")=session("deptid")
	rs("stationid")=session("stationid")
	rs("userid")=session("userid")
	rs("dotime")=now
	rs("notion")=request("notion")
	if trim(request("reason"))<>"" then
		rs("reason")=request("reason")
	end if
	
	
	rs.update
	rs.close
	connobj.execute "proc_run_wf "& request("wfid") & "," & request("notion")
	response.Redirect "message.asp?rediurl=defaultA.asp&msgurl=首页&msginfo=审批操作成功!"
end if


sql="select a.destdeptid,a.destuserid,a.leavetime,a.starttime,a.endtime,a.out,a.late,a.leave,a.absent,a.affair,a.sick,a.other,b.name,c.deptname,d.stationname from cci_oa_balance a,cci_user b,cci_dept c,cci_station d where a.deptid=c.id and a.userid=b.id and b.stationid=d.id and a.wfid="& request("wfid")
rs.open sql,connobj,1,1
if rs.eof then
	rs.close
	response.Redirect "message.asp?rediurl=defaultA.asp&msgurl=首页&msginfo=没有找到相关信息!"
end if	
%>

  
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>

    <tr > 
      <th height="25" colspan="6" align="center" class=TopLighNav>离职人员薪金结算通知审批</th>
    </tr>
    <tr>
      <td width="90" align="center" class=TopLighNav><b>申请部门</b></td>
      <td width="100" align="center" class=TopLighNav><%=rs("deptname")%></td>
	  <td width="80" align="center" class=TopLighNav><b>申请人</b></td>
      <td width="80" align="center" class=TopLighNav><%=rs("name")%></td>
	  <td width="80" align="center" class=TopLighNav><b>职务</b></td>
      <td align="center" class=TopLighNav><%=rs("stationname")%></td>
    </tr>
	    <tr> 
                  <td colspan="6"  class=tablebody1> &nbsp;&nbsp;&nbsp;&nbsp; <b>
                    <%  sql="select deptname from cci_dept where id="& rs("destdeptid")
						rsba.open sql,connobj,1,1
						if not rsba.eof then
							response.Write(rsba("deptname"))
						end if
						rsba.close
					%></b> 员工 <b><%
					sql="select name from cci_user where id="& rs("destuserid")
						rsba.open sql,connobj,1,1
						if not rsba.eof then
							response.Write(rsba("name"))
						end if
						rsba.close
					%></b> 于 <b><%=formatdatetime(rs("leavetime"),1)%></b> 正式离职，其离职手续已全部办妥，请予以结算其 <b><%=formatdatetime(rs("starttime"),1)%></b> 至 <b><%=formatdatetime(rs("endtime"),1)%></b> 的工资，相关事项如下：</td>
                </tr>
                <tr > 
                  <td width="120" align="center" class=tablebody1>实际出勤</td>
                  <td class=tablebody1 align="left"><%=rs("out")%>(天)</td>
                  <td width="80" align="center" class=tablebody1>迟到</td>
                  <td class=tablebody1 align="left"><%=rs("late")%>(次)</td>
                  <td width="80" align="center" class=tablebody1>早退</td>
                  <td class=tablebody1 align="left"><%=rs("leave")%>(次)</td>
                </tr>
                <tr > 
                  <td align="center" class=tablebody1>旷 工</td>
                  <td class=tablebody1 align="left"><%=rs("absent")%>(天)</td>
                  <td  align="center" class=tablebody1>事假</td>
                  <td class=tablebody1 align="left"><%=rs("affair")%>(天)</td>
                  <td align="center" class=tablebody1>病假</td>
                  <td class=tablebody1 align="left"><%=rs("sick")%>(天)</td>
                </tr>				
                <tr > 
                  <td class=tablebody1 align="center">其他需扣款项目：</td>
                  <td colspan="5" class=tablebody1 align="left"><%=checkinfo(rs("other"))%>
                  </td>
                </tr>
  
	
	</table>
<%
rs.close
%>
<!-- #include file="func_comm_dispapply.asp" -->
<%
sql="select status,startuser from cci_oa_flowlist where id="& request("wfid")
rs.open sql,connobj,1,1
if not rs.eof then
	istatus=rs("status")
	if rs("startuser")=session("userid") and isstatus=0 then
		connobj.execute "update cci_oa_flowlist set status=3 where id=" & request("wfid")
	end if
end if
rs.close
if istatus<>0 and istatus<>3 then
%>
<!-- #include file="func_comm_apply.asp" -->
<%
end if
%>