📄 inventorydetail.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "inventory","read"
sysid=1
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
if Request.QueryString("nonnet")="False" then
bnonnet=0
else
bnonnet=1
end if
rs.Open "select * from v_inventorydetail where productid="&request("productid")&" and nonnet="&bnonnet&" and sysaccountid="&sysid,conn,1,1
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>库存</title>
<body>
<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="#42AEE7"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="efefef">
<td height="15" align=center>货号</td>
<td height="15" align=center>型号</td>
<td height="15" align=center>仓库</td>
<td height="15" align=center>货位</td>
<td height="15" align=center>在库数量</td>
<td height="15" align=center>非净货位</td>
<td height="15" align=center>平均成本</td>
</tr>
<%i=1
do while not rs.EOF%>
<tr bgcolor="#FFFFFF">
<td align=center><%=rs("productcode")%></td>
<td align=center><%=rs("model")%></td>
<td align=center><%=rs("whse")%></td>
<td align=center><%=rs("location")%></td>
<td align=center><%=rs("qty_on_hand")%></td>
<td align=center><%if rs("nonnet") then Response.Write "是" else Response.Write "否"%></td>
<td align=center><%if objcheck.CheckUserFunction2("viewcost","read") then%><a href="javascript:opensubwin3('../tools/SetAverageCost.asp?id=<%=rs("id")%>','修正平均成本','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=300,left=220');" title='调准平均成本'><%=formatnumber(rs("AverageCost"),2)%></a><%end if%></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -