📄 expensedetail.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
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("expenseno")%></title>
</head>
<body leftmargin="10" rightmargin="0" topmargin="10">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%"><b><font class="title">费用：<%=rs("expenseno")%></font></b></td>
<td width="65%"><a href="expenseprint.asp?expenseid=<%=request("expenseid")%>"><img src="../images/button_print.gif" border=0></a></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="FFFFFF">
<tr>
<td width="10%" height=20 align=center bgcolor="DEDFDE">费用名称</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("subject")%></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"><%=rs("username")%></td>
<td width="10%" align=center bgcolor="DEDFDE">货币代码</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("currencyname")%></td>
</tr>
<tr>
<td width="10%" height=20 align=center bgcolor="DEDFDE">费用金额</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("totalamount")%></td>
<td width="10%" align=center bgcolor="DEDFDE">付款金额</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("payment")%></td>
<td width="10%" align=center bgcolor="DEDFDE">创建人</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("UserName")%></td>
<td width="10%" align=center bgcolor="DEDFDE">创建时间</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("createdate")%></td>
</tr>
<tr>
<td height=20 align=center bgcolor="DEDFDE">审核人</td>
<td align=center bgcolor="efefef"><%=rs("Checkedbyname")%></td>
<td align=center bgcolor="DEDFDE">审核时间</td>
<td align=center bgcolor="efefef"><%=rs("CheckDate")%></td>
<td rowspan="2" align=center bgcolor="DEDFDE">审核意见</td>
<td colspan="3" rowspan="2" align=left bgcolor="efefef"><%=rs("CheckComment")%></td>
</tr>
<tr>
<td height=20 align=center bgcolor="DEDFDE">批准人</td>
<td align=center bgcolor="efefef"><%=rs("Approvebyname")%></td>
<td align=center bgcolor="DEDFDE">批准时间</td>
<td align=center bgcolor="efefef"><%=rs("ApproveDate")%></td>
</tr>
<tr>
<td height=20 align=center bgcolor="DEDFDE">支付人</td>
<td align=center bgcolor="efefef"><%=rs("Paidbyname")%></td>
<td align=center bgcolor="DEDFDE">支付时间</td>
<td align=center bgcolor="efefef"><%=rs("PayDate")%></td>
<td rowspan="2" align=center bgcolor="DEDFDE">批准意见</td>
<td colspan="3" rowspan="2" align=left bgcolor="efefef"><%=rs("ApproveComment")%></td>
</tr>
<tr>
<td height=20 align=center bgcolor="DEDFDE">清帐人</td>
<td align=center bgcolor="efefef"><%=rs("Clearbyname")%></td>
<td align=center bgcolor="DEDFDE">清帐时间</td>
<td align=center bgcolor="efefef"><%=rs("ClearDate")%></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="15%" height=15 align=center>费用类型</td>
<td width="10%" height="15" align=center>日期</td>
<td width="10%" height="15" align=center>金额</td>
<td width="10%" height=15 align=center>付款类型</td>
<td width="20%" height=15 align=center>客户</td>
<td width="15%" height=15 align=center>联系人</td>
<td 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><%=formatnumber(rsexpenseline("amount"),2)%></td>
<td align=center><%=rsexpenseline("paymenttype")%></td>
<td align=center><%=rsexpenseline("account")%></td>
<td align=center><%=rsexpenseline("contact")%></td>
<td align=center><%=rsexpenseline("description")%></td>
</tr>
<%
i=i+1
rsexpenseline.MoveNext
loop
rsexpenseline.Close
set rsexpenseline=nothing
connexpenseline.Close
set connexpenseline=nothing
%>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -