28,406
社区成员
发帖
与我相关
我的任务
分享<%
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select b.材料名称 ,a.订单号,b.所需材料数量,c.库存量,sum((c.库存量-a.订单数*b.所需材料数量)) as 剩余数量 from 业务打样 as a inner join 产品清单 as b on a.产品名称=b.产品名称 inner join 材料库存表 as c on b.材料名称 =c.材料名称 where a.完成 is null group by b.材料名称 ,a.订单号,b.所需材料数量,c.库存量 "
rs.open sql,conn
while not rs.eof
ddh=rs("订单号")
set rs4=server.CreateObject("adodb.recordset")
rs4.open "select 订单号 from 物控清单 where 订单号='"&ddh&"'",conn
if not rs4.eof then
response.End()
else
clmc=rs("材料名称")
sxclsl=rs("所需材料数量")
kcl=rs("库存量")
sysl=rs("剩余数量")
sql1="select * from 物控清单 "
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,3
rs1.addnew
rs1("订单号")=ddh
rs1("材料名称")=clmc
rs1("所需材料数量")=sxclsl
rs1("库存量")=kcl
rs1("剩余数量")=sysl
rs1("录入时间")=date()
rs1.update
end if
rs.movenext
wend
response.write err.description &" "
%>