?? list.asp
字號:
<%@ LANGUAGE="VBSCRIPT" %>
<% response.buffer=true %>
<%const title="倉庫物品"%>
<!-- #include file=opendb.inc-->
<!--#include file=myPrg.asp-->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0" CHARSET="GB2312">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<body topmargin="0">
<p>
<div align="center">
<h1 align="center">入庫操作
</p>
</h1>
<p>
<%
Showtitle(title)
getStorage(session("storage"))
gettypepath
if request.querystring("id")="" then
' showerror("錯誤")
session("name_id")=0
else
session("name_id")=request.querystring("id")
end if
%>
<table width=100% align=center border='1' cellspacing='0' bordercolordark='#FFFFFF' bordercolorlight='#008000' bordercolor='#00000'>
<%showheader%>
<%showcontent%>
</table>
<!--#include file=copyright.asp-->
</body>
</html>
<!-- 結(jié)束?->
<!-- 下面為定義子過程?->
<%sub showheader
sql="select * from stock where storage_id="&session("storage")&" and name_id="&session("name_id")
rs.open sql,conn
if not rs.eof then
%>
<tr bgcolor=#ECECFF>
<td colspan="7" height="28">名稱:<font color=blue size=5><a href=edit.asp?id=<%=session("name_id")%>><%=rs("name")%></a></font></td>
<td colspan="3" height="28">計量單位:<font color=blue size=5><%=rs("unit")%></font></td>
<td colspan="2" height="28" rowspan="1">最高存量:<font color=blue><%=rs("max")%></font><br>最低存量:<font color=blue><%=rs("min")%></font></td>
<td colspan="1" height="28" rowspan="1" align=center>
<%if rs("now_stock")>rs("max") then%>
<font color=red>庫存超出</font>
<%elseif rs("now_stock")<=rs("max") and rs("now_stock")>=rs("min") then%>
<font color=green>庫存正常</font>
<%elseif rs("now_stock")<rs("min") and rs("now_stock")>0 then%>
<font color=red>庫存不足 </font>
<%elseif rs("now_stock")<=0 then%>
<font color=red>此物缺貨</font>
<%else%>
<font color=blue>庫存狀態(tài)</font>
<%end if%>
</td>
</tr>
<tr bgcolor=#ececff>
<td colspan="13" height="21">儲存地點:<font color=blue><%=rs("address")%></font> 規(guī)格:<font color=blue><%=rs("rule")%></font> 類別:<font color=blue><%=rs("type_id")%></font> 貨號:<font color=blue><%=rs("no")%></font> 貨名:<font color=blue><%=rs("hm")%></font>
當前庫存:<font color=red><%=rs("now_stock")%></font> <%=rs("unit")%> 總金額:<font color=red><%=FormatCurrency(cstr(rs("now_sum")),2)%></font> 元</td>
</tr>
<tr bgcolor=#ececff>
<td rowspan=2 height="16" align="center">日期</td>
<td height="16" colspan="2" align="center">憑 證</td>
<td height="32" rowspan="2" align="center">摘要</td>
<td colspan="3" height="16" align="center"><a href=in.asp?id=<%=session("name_id")%>><u>收 入</u></td>
<td height="16" colspan="3" align="center"><a href=out.asp?id=<%=session("name_id")%>><u>發(fā) 出</u></td>
<td height="16" colspan="3" align="center">結(jié) 存</td>
</tr>
<tr bgcolor=#ececff>
<td height="16" align="center">種類</td>
<td height="16" align="center">號數(shù)</td>
<td height="16" align="center">數(shù)量</td>
<td height="16" align="center">單價</td>
<td height="16" align="center">金 額</td>
<td height="16" align="center">數(shù)量</td>
<td height="16" align="center">單價</td>
<td height="16" align="center">金 額</td>
<td height="16" align="center">數(shù)量</td>
<td height="16" align="center">單價</td>
<td height="16" align="center">金 額</td>
</tr>
<%else%>
<tr><td colspan=13 align=center><font color=red>沒有記錄</font></td></tr>
<%end if
rs.close
end sub%>
<%sub showcontent
sql="select * from detail where storage_id="&session("storage")&" and name_id="&session("name_id")&" order by id desc"
rs.open sql,conn
if not rs.eof then
record=0
do while not rs.eof
record=record+1
if record/2=int(record/2) then
bgclr="#f0f0f0"
else
bgclr=""
end if
if rs("jz_log")=1 then bgclr="#ecec00"
%>
<tr bgcolor=<%=bgclr%>>
<td nowrap align=center height="16">
<%
if rs("zy")<>" " then
response.write rs("rq")
else
response.write " "
end if
%></td>
<td align=center height="16"><%=rs("zl")%></td>
<td align=center height="16"><%=rs("hs")%></td>
<td align=center height="16"><%=rs("zy")%></td>
<td align=right height="16"><%if rs("in_num")=0 then%> <%else%><%=rs("in_num")%> <%end if%></td>
<td align=right height="16"><%if rs("in_num")=0 then%> <%else%><%=formatcurrency(rs("in_price"),2)%><%end if%></td>
<td align=right height="16"><%if rs("in_sum")=0 then%> <%else%><%=formatcurrency(rs("in_sum"),2)%><%end if%></td>
<td align=right height="16"><%if rs("out_num")=0 then%> <%else%><%=rs("out_num")%> <%end if%></td>
<td align=right height="16"><%if rs("out_num")=0 then%> <%else%><%=formatcurrency(rs("out_price"),2)%><%end if%></td>
<td align=right height="16"><%if rs("out_sum")=0 then%> <%else%><%=formatcurrency(rs("out_sum"),2)%><%end if%></td>
<td align=right height="16"><%if rs("now_num")=0 then%> <%else%><%=rs("now_num")%> <%end if%></td>
<td align=right height="16"><%if rs("now_num")=0 or rs("now_price")=0 then%> <%else%><%=formatcurrency(rs("now_price"),2)%><%end if%></td>
<td align=right height="16"><%if rs("now_sum")=0 then%> <%else%><%=formatcurrency(rs("now_sum"),2)%><%end if%></td>
</tr>
<%
rs.movenext
loop
else%>
<tr><td colspan=13 align=center><font color=red>沒有記錄</font></td></tr>
<%end if
rs.close
end sub%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -