📄 produit_move2.asp
字号:
<%
if session("username")="" then
%>
<script language="javascript">
top.location.href="../login.asp"
</script>
<%
response.end
end if
%>
<!-- #include file="../conn2.asp" -->
<!-- #include file="../const.asp" -->
<html>
<head>
<title><%=dianming%> - 库存调拨</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style2.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<%
if fla1="0" then
%>
<br><center><font color="#FF0000">你不具备此权限，请与管理员联系！</font></center>
<%
response.end
end if
%>
<%if request("hid")="" then%>
<table width="98%" border="0" cellpadding="0" cellspacing="2" align="center">
<tr>
<td height="21"> <img src="../Images/ico/ico45.gif" width="32" height="32" hspace="2" vspace="2" align="absmiddle"><font size="+1"><strong> 库存调拨</strong></font></td>
</tr>
</table>
<%
sql="select * from produit where id="&request("id")
set rs=conn.execute(sql)
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="2" align="center" class="TableMenu">
<form name="form3">
<input type="hidden" name="id" value="<%=request("id")%>">
<input type="hidden" name="paixu" value="<%=request("paixu")%>">
<input type="hidden" name="paixu2" value="<%=request("paixu2")%>">
<input type="hidden" name="paixu3" value="<%=request("paixu3")%>">
<input type="hidden" name="page" value="<%=request("page")%>">
<input type="hidden" name="ku" value="<%=request("ku")%>">
<input type="hidden" name="bigclass" value="<%=request("bigclass")%>">
<input type="hidden" name="smallclass" value="<%=request("smallclass")%>">
<input type="hidden" name="keyword" value="<%=request("keyword")%>">
<tr class="a1" style="color:#ffffff;font-size:12px;">
<th height="30" style="color:#ffffff;font-size:14px" colspan="2"><img src="../images/add.gif" border="0" hspace="2" align="absmiddle">选择调入仓库</th>
</tr>
<tr class="a3">
<td width="28%" height="30" align="right"><b>调出仓库：</b></td>
<td width="72%">
<%
sql="select * from ku where id="&rs("id_ku")
set rs_ku=conn.execute(sql)
%>
<%=rs_ku("ku")%><input type="hidden" name="ku_chu" value="<%=rs("id_ku")%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>调入仓库：</b></td>
<td>
<%
sql="select * from ku where id<>"&rs("id_ku")&" order by id"
set rs_ku=conn.execute(sql)
if rs_ku.eof then
%>
<script language="javascript">
alert("请先添加仓库！")
window.location.href="../system/ku_add.asp"
</script>
<%
end if
%>
<select name="ku_ru">
<%
do while rs_ku.eof=false
%>
<option value="<%=rs_ku("id")%>"<%if rs_ku("moren") then%> selected="selected"<%end if%>><%=rs_ku("ku")%></option>
<%
rs_ku.movenext
loop
%>
</select></td>
</tr>
<tr class="a3">
<td width="28%" height="30" align="right"><b>调入数量：</b></td>
<td width="72%">
<input type="text" name="shulian" style="width:50px" onKeyUp="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')" value="<%=rs("shulian")%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="30" colspan="8" align="center"><input type="submit" value=" 确认调入 ">
<input type="hidden" name="hid" value="ok">
<input type="reset" value=" 重新填写 ">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 width="98%" align=center><tr><td height="5"></td></tr></table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="2" align="center" class="TableMenu">
<tr class="a1" style="color:#ffffff;font-size:12px;">
<th height="30" style="color:#ffffff;font-size:14px" colspan="2"><img src="../images/add.gif" border="0" hspace="2" align="absmiddle">产品基本资料</th>
</tr>
<tr class="a3">
<td align="right" height="30"><b>所属大类：</b></td>
<td>
<%
sql="select * from bigclass where id="&rs("id_bigclass")
set rs_bigclass=conn.execute(sql)
%>
<%=rs_bigclass("bigclass")%></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>所属小类：</b></td>
<td>
<%
sql="select * from smallclass where id="&rs("id_smallclass")
set rs_smallclass=conn.execute(sql)
%>
<%=rs_smallclass("smallclass")%></td>
</tr>
<tr class="a3">
<td width="28%" height="30" align="right"><b>产品名称：</b> </td>
<td width="72%"> <%=rs("title")%></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>产品货号：</b> </td>
<td> <%=rs("huohao")%></td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>库存数量：</b></td>
<td>
<%
sql="select * from produit where huohao='"&rs("huohao")&"'"
set rs_shulian=conn.execute(sql)
nowshulian=0
nowtext=""
do while rs_shulian.eof=false
nowshulian=nowshulian+rs_shulian("shulian")
sql="select * from ku where id="&rs_shulian("id_ku")
set rs_ku=conn.execute(sql)
nowtext=nowtext+rs_ku("ku")&"("&rs_shulian("shulian")&")，"
rs_shulian.movenext
loop
%>
共<%=nowshulian%>，<%=left(nowtext,len(nowtext)-1)%></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>产品单位：</b></td>
<td> <%=rs("danwei")%></td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>推荐卖价：</b></td>
<td> <%=rs("price")%></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>规格：</b></td>
<td> <%=rs("guige")%></td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>最低库存报警数量：</b></td>
<td> <%=rs("baojin")%></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>产品类型：</b></td>
<td> <%if rs("class")=0 then%>正常产品<%else%>公司赠品<%end if%></td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>兑换所需积分：</b></td>
<td> <%=rs("duihuan")%></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>提成：</b></td>
<td>
<%if rs("tichen_type")=0 then%>按百分比提成<%else%>固定提成<%end if%>，
销售一件提成：<%=rs("tichen")%> <%if rs("tichen_type")=0 then%>%<%else%>元<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
else
nowku_chu=request("ku_chu")
nowku_ru=request("ku_ru")
nowshulian=request("shulian")
if nowshulian="" then
nowshulian=0
end if
set rs_ku_chu=conn.execute("select * from ku where id="&nowku_chu)
set rs_produit=conn.execute("select * from produit where id="&request("id"))
sql="select * from produit where id="&request("id")
set rs=conn.execute(sql)
if rs("shulian")<int(nowshulian) then
%>
<script language="javascript">
alert("<%=rs_ku_chu("ku")%> 库存不足！")
window.history.go(-1)
</script>
<%
response.end
end if
set rs=server.createobject("ADODB.RecordSet")
sql="select * from produit where id="&request("id")
rs.open sql,conn,1,3
rs("shulian")=rs("shulian")-nowshulian
rs.update
rs.close
sql="select * from produit where huohao='"&rs_produit("huohao")&"' and id_ku="&nowku_ru
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
rs("id_bigclass")=rs_produit("id_bigclass")
rs("id_smallclass")=rs_produit("id_smallclass")
rs("title")=rs_produit("title")
rs("huohao")=rs_produit("huohao")
rs("danwei")=rs_produit("danwei")
rs("price")=rs_produit("price")
rs("guige")=rs_produit("guige")
rs("baojin")=rs_produit("baojin")
rs("class")=rs_produit("class")
rs("duihuan")=rs_produit("duihuan")
rs("tichen_type")=rs_produit("tichen_type")
rs("tichen")=rs_produit("tichen")
rs("id_ku")=nowku_ru
rs("shulian")=nowshulian
else
rs("shulian")=rs("shulian")+nowshulian
end if
rs.update
rs.close
%>
<script language="javascript">
alert("库存调拨成功！")
window.location.href="produit_move.asp?paixu=<%=request("paixu")%>&paixu2=<%=request("paixu2")%>&paixu3=<%=request("paixu3")%>&page=<%=request("page")%>&keyword=<%=request("keyword")%>&ku=<%=request("ku")%>&bigclass=<%=request("bigclass")%>&smallclass=<%=request("smallclass")%>"
</script>
<%
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -