📄 stockclew.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Dataconn.asp" -->
<!--#include file="Inc/Funcs.asp" -->
<%
Call CheckAdmin
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>生成采购清单</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<link href="Inc/css.css" rel="stylesheet" type="text/css" />
<!--#include file="Inc/hlink.asp" -->
<style type="text/css">
<!--
.STYLE1 {font-size: 14px}
-->
</style>
</head>
<body>
<table width="612" height="450" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td valign="top" bgcolor="#FFFFFF"><table width="610" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="25" align="center" background="Images/tbtitle.jpg" bgcolor="#FFFFFF"><span class="STYLE1">生成采购清单</span></td>
</tr>
<form name="form1" method="post" action="StockClew.asp">
<tr>
<td height="20" bgcolor="#FFFFFF" class="Txt"><span class="Txt"> </span>开始提示数量(商品库存数量少于此数量时将被列入提示清单)：
<select name="TSSL" class="InputStyleShort" id="TSSL">
<option value="20">20</option>
<option value="50" selected="selected">50</option>
<option value="100">100</option>
<option value="200">200</option>
<option value="400">400</option>
<option value="600">600</option>
<option value="800">800</option>
<option value="1000">1000</option>
</select>
<input name="Action" type="hidden" id="Action" value="MakeQD" />
<input name="Submit" type="submit" class="Button1" value="生成清单" /></td>
</tr>
</form>
</table>
<%if request.Form("Action")="MakeQD" then%>
<center>
<br>
<span class="Txt">以下是需要采购的商品清单 </span>
<br>
</center>
<table width="610" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="25" align="center" background="Images/tbtitle1.jpg" bgcolor="#FFFFFF" class="Txt">商品编号</td>
<td align="center" background="Images/tbtitle1.jpg" bgcolor="#FFFFFF" class="Txt">商品名称</td>
<td align="center" background="Images/tbtitle1.jpg" bgcolor="#FFFFFF" class="Txt">制造商</td>
<td align="center" background="Images/tbtitle1.jpg" bgcolor="#FFFFFF" class="Txt">供应商</td>
<td align="center" background="Images/tbtitle1.jpg" bgcolor="#FFFFFF" class="Txt">当前库存</td>
</tr>
<%
TSSL=request.Form("TSSL") '获取到提示数量
SQLStr="Select SPID,SPName,SPZZSID,SPGYSID From SP where SPID In(Select Distinct SPID from KC)"
rS.open SQLStr,conn,1,1
for i=1 to rS.recordcount
if GetSPKCSLBYSPID(rS("SPID")) < Cint(TSSL) then '数量小于提示数量时显示的商品
%>
<tr>
<td height="20" align="center" bgcolor="#FFFFFF"><%=rs(0)%></td>
<td align="center" bgcolor="#FFFFFF"><%=rS(1)%></td>
<td align="center" bgcolor="#FFFFFF"><%=GetZZSNameByZZSID(rS(2))%></td>
<td align="center" bgcolor="#FFFFFF"><%=GetGYSNameByGYSID(rS(3))%></td>
<td align="center" bgcolor="#FFFFFF"><%=GetSPKCSLBYSPID(rS(0))%></td>
</tr>
<%
end if
rS.movenext '记录集指针指到下一条记录
Next
rS.close
%>
</table>
<%end if%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -