📄 expenseexam.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "expense","read"
set objcheck=nothing
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_expense where expenseid="&request("expenseid"),conn,1,1
if rs.EOF then
Response.Write "记录不存在"
Response.End
end if
if Request.QueryString("type")="expensecheck" then
sql="select * from approve where type='费用审核' and approver='"&session("loginid")&"' and userid='"&rs("userid")&"'"
set rsq=conn.Execute(sql)
if rsq.eof then
response.write "<br><br><br><LINK href='../global.css' rel=stylesheet type=text/css>"
response.Write "<div align=center>"
response.Write "<FONT SIZE=2 class=title>"
response.write "<img src=../images/jg.gif>"
response.write "无权限"
response.write "</div>"
response.end
end if
else
sql="select * from approve where type='费用批准' and approver='"&session("loginid")&"' and userid='"&rs("userid")&"'"
set rsq=conn.Execute(sql)
if rsq.eof then
response.write "<br><br><br><LINK href='../global.css' rel=stylesheet type=text/css>"
response.Write "<div align=center>"
response.Write "<FONT SIZE=2 class=title>"
response.write "<img src=../images/jg.gif>"
response.write "无权限"
response.write "</div>"
response.end
end if
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>费用审核</title>
</head>
<body>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%"><b><font class="title">费用审核</font></b></td>
<td width="65%"> </td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"></td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr>
<td width="10%" height=20 align=center bgcolor="DEDFDE">费用编号</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("expenseno")%></td>
<td width="10%" align=center bgcolor="DEDFDE">费用名称</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">状态</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("status")%></td>
<td width="10%" align=center bgcolor="DEDFDE">货币代码</td>
<td width="15%" align=center bgcolor="efefef"> </td>
</tr>
<tr>
<td width="10%" height=18 align=center bgcolor="DEDFDE">用户</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">创建人</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">创建日期</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">金额</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("totalamount")%></td>
</tr>
<tr>
<td width="10%" height=18 align=center bgcolor="DEDFDE">审核人</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">审核日期</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">批准人</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">批准日期</td>
<td width="15%" align=center bgcolor="efefef"> </td>
</tr>
<tr>
<td width="10%" height=18 align=center bgcolor="DEDFDE">支付人</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">支付日期</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">清帐人</td>
<td width="15%" align=center bgcolor="efefef"> </td>
<td width="10%" align=center bgcolor="DEDFDE">清帐日期</td>
<td width="15%" align=center bgcolor="efefef"> </td>
</tr>
<tr>
<td width="10%" height=18 align=center bgcolor="DEDFDE">描述</td>
<td colspan="7" align=center bgcolor="efefef"> <div align="left"><%=rs("description")%></div></td>
</tr>
</table>
<%
dim connexpenseline
dim rsexpenseline
set connexpenseline=server.CreateObject("adodb.connection")
set rsexpenseline=server.CreateObject("adodb.recordset")
connexpenseline.Open connstring
rsexpenseline.Open "select * from v_expenseline where expenseid="&request("expenseid"),connexpenseline,1,1
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><strong><font size="2"><b><font class="title">费用明细</font></b></font></strong></td>
</tr>
<tr>
<td height=2 colspan="2" bgcolor="#4A699C"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="#f1f1f1">
<td width="5%" height="15" align=center>序号</td>
<td width="25%" height=15 align=center>费用类型</td>
<td width="10%" height="15" align=center>日期</td>
<td width="10%" height="15" align=center>金额</td>
<td width="50%" height="15" align=center>备注</td>
</tr>
<%i=1
do while not rsexpenseline.EOF%>
<tr bgcolor="#FFFFFF">
<td align=center><%=i%></td>
<td align=center height=18><%=rsexpenseline("expensetype")%></a></td>
<td align=center><%=rsexpenseline("linedate")%></td>
<td align=center><%=rsexpenseline("amount")%></td>
<td align=center><%=rsexpenseline("description")%></td>
</tr>
<%
i=i+1
rsexpenseline.MoveNext
loop
rsexpenseline.Close
set rsexpenseline=nothing
connexpenseline.Close
set connexpenseline=nothing
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
<br>
<%if Request("mod") = "expenseexam" then
dim connexpense
dim rsexpense
set connexpense=server.CreateObject("adodb.connection")
set rsexpense=server.CreateObject("adodb.recordset")
connexpense.Open connstring
if request("expenseid")<>"" then
rsexpense.Open "select * from expense where expenseid="&request("expenseid"),connexpense,2,3,1
if request("modstatus")="check" then
if request.form("checkreject")="on" then
rsexpense("status")="拒绝审核"
else
rsexpense("status")="已审核"
end if
rsexpense("CheckComment")=request.form("CheckComment")
rsexpense("CheckDate")=now()
rsexpense("Checkedby")=session("loginid")
elseif request("modstatus")="approve" then
if request.form("approvereject")="on" then
rsexpense("status")="拒绝批准"
else
rsexpense("status")="已批准"
end if
rsexpense("ApproveComment")=request.form("ApproveComment")
rsexpense("ApproveDate")=now()
rsexpense("Approveby")=session("loginid")
end if
rsexpense.Update
end if
rsexpense.Close
set rsexpense=nothing
connexpense.Close
set connexpense=nothing
%>
<script language=javascript>
window.opener.location.reload();
window.close();
</script>
<%
else
dim connexpense1
dim rsexpense1
set connexpense1=server.CreateObject("adodb.connection")
set rsexpense1=server.CreateObject("adodb.recordset")
connexpense1.Open connstring
if request("expenseid")<>"" then
rsexpense1.Open "select * from expense where expenseid="&request("expenseid"),connexpense1,2,3,1
strCheckComment=rsexpense1("CheckComment")
strApproveComment=rsexpense1("ApproveComment")
strstatus=rsexpense1("status")
end if
rsexpense1.Close
set rsexpense1=nothing
connexpense1.Close
set connexpense1=nothing
%>
<Script Language="javascript" >
function doagree1()
{
form1.mod.value = "expenseexam" ;
form1.modstatus.value="check";
form1.submit();
}
function doagree2()
{
form1.mod.value = "expenseexam" ;
form1.modstatus.value="approve";
form1.submit();
}
</Script>
<form method="post" id=form1 name=form1>
<input type=hidden name="mod" >
<input type=hidden name="modstatus" >
<%if request.querystring("type")="expensecheck" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><strong><font size="2"><b><font class="title">费用审核意见</font></b></font></strong></td>
</tr>
<tr>
<td height=2 bgcolor="#4A699C"></td>
</tr>
<tr bgcolor="white">
<td bgcolor="#FFFFFF" >
<textarea name="CheckComment" cols="60" rows="4" <%if request.querystring("type")<>"expensecheck" then response.write "readonly" end if%>><%=strCheckComment%></textarea>
拒绝审核：<input name="checkreject" type="checkbox" value="on" <%if strstatus="拒绝审核" then response.write "checked" end if%>>
</td>
</tr>
</table>
<br>
<%end if%>
<%if request.querystring("type")="expenseapprove" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><strong><font size="2"><b><font class="title">费用批准意见</font></b></font></strong></td>
</tr>
<tr>
<td height=2 bgcolor="#4A699C"></td>
</tr>
<tr bgcolor="white">
<td bgcolor="#FFFFFF" >
<textarea name="ApproveComment" cols="60" rows="4" <%if request.querystring("type")<>"expenseapprove" then response.write "readonly" end if%>><%=strApproveComment%></textarea>
拒绝批准：<input name="approvereject" type="checkbox" value="on" <%if strstatus="拒绝批准" then response.write "checked" end if%>>
</td>
</tr>
</table>
<%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="white">
<td height="30"><div style="cursor:hand">
<%if request.querystring("type")="expensecheck" then%>
<a onclick="return doagree1();">
<%elseif request.querystring("type")="expenseapprove" then%>
<a onclick="return doagree2();">
<%end if%>
<img src="../images/button_save.gif"></a>
<a onClick="window.close();"><img src="../images/button_cancel.gif"></a></div></td>
</tr>
</table>
<%
end if
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -