if request.Cookies("shiwei_username")="" then
%>
top.location.href="../index.asp"
response.end
end if
%>
- 产品报废
body {
background-color:#FFFFFF;
}
if fla25="0" and request.Cookies("shiwei_id")"1" then
%>
你不具备此权限，请与管理员联系！
response.end
end if
%>
if request("hid1")="ok" then
nowselldate=request("selldate")
nowbeizhu=request("beizhu")
nowid_login=request("id_login")
set rs_login=conn.execute("select * from login where id="&nowid_login)
nowbianhao=replace(replace(replace(replace(replace(replace(FormatDateTime(now(),0),":","")," ",""),"-",""),"/",""),"上午",""),"下午","")
totalshulian=0
totalprice=0
totalprice2=0
for x=1 to maxproduit
nowku=request("ku"&x)
set rs_ku=conn.execute("select * from ku where id="&nowku)
nowhuohao=request("huohao"&x)
nowshulian=request("shulian"&x)
if nowhuohao"单击选择产品" and nowshulian"" then
set rs_produit=conn.execute("select * from produit where huohao='"&nowhuohao&"'")
set rs=server.createobject("ADODB.RecordSet")
sql="select * from produit where huohao='"&nowhuohao&"' and id_ku="&nowku
rs.open sql,conn,1,3
if rs.eof then
%>
alert(" 中没有产品 ！")
window.history.go(-1)
response.end
exit for
elseif rs("shulian")-nowshulian %>
alert(" 中 库存不足！")
window.history.go(-1)
response.end
exit for
end if
end if
next
totalshulian=0
totalprice=0
totalprice2=0
for x=1 to maxproduit
nowku=request("ku"&x)
set rs_ku=conn.execute("select * from ku where id="&nowku)
nowhuohao=request("huohao"&x)
nowshulian=request("shulian"&x)
if nowhuohao"单击选择产品" and nowshulian"" then
set rs_produit=conn.execute("select * from produit where huohao='"&nowhuohao&"'")
set rs=server.createobject("ADODB.RecordSet")
sql="select * from produit where huohao='"&nowhuohao&"' and id_ku="&nowku
rs.open sql,conn,1,3
rs("shulian")=rs("shulian")-nowshulian
rs.update
rs.close
sql="select bigclass from bigclass where id="&rs_produit("id_bigclass")
set rs_bigclass=conn.execute(sql)
sql="select smallclass from smallclass where id="&rs_produit("id_smallclass")
set rs_smallclass=conn.execute(sql)
if rs_smallclass.eof then
smallclass=""
else
smallclass=rs_smallclass(0)
end if
totalshulian=totalshulian+nowshulian
totalprice2=totalprice2+rs_produit("price2")*nowshulian
sql="insert into sell(id_produit,bigclass,smallclass,title,huohao,id_ku,ku,shulian,guige,id_login,login,type,selldate,price2,photo,bianhao,beizhu) values("&rs_produit("id")&",'"&rs_bigclass(0)&"','"&smallclass&"','"&rs_produit("title")&"','"&nowhuohao&"',"&rs_ku("id")&",'"&rs_ku("ku")&"',"&nowshulian&",'"&rs_produit("guige")&"',"&nowid_login&",'"&rs_login("username")&"',1,#"&nowselldate&"#,"&rs_produit("price2")&",'"&rs_produit("photo")&"','"&nowbianhao&"','"&nowbeizhu&"')"
conn.execute(sql)
end if
next
sql="insert into sell(shulian,id_login,login,type,selldate,price2,bianhao,zu,beizhu) values("&totalshulian&","&nowid_login&",'"&rs_login("username")&"',1,#"&nowselldate&"#,"&totalprice2&",'"&nowbianhao&"',true,'"&nowbeizhu&"')"
conn.execute(sql)
%>
alert("产品报废操作成功！")
end if
%>
function isNumberString (InString,RefString)
{
if(InString.length==0) return (false);
for (Count=0; Count < InString.length; Count++) {
TempChar= InString.substring (Count, Count+1);
if (RefString.indexOf (TempChar, 0)==-1)
return (false);
}
return (true);
}
function check1()
{
if (document.form1.huohao1.value=="单击选择产品")
{
alert("还没有选择产品！");
return false;
}
if (document.form1.shulian1.value=="")
{
alert("请输入数量！");
return false;
}
}
产品报废(带*号的为必填项)
选择产品：
数量:
if request.Cookies("shiwei_id")="1" or fla88="1" then
sql="select * from ku order by id"
set rs_ku=conn.execute(sql)
else
sql="select * from ku where instr(login,',"&request.Cookies("shiwei_id")&",')>0 order by id"
set rs_ku=conn.execute(sql)
end if
if rs_ku.eof then
%>
alert("没有属于你管理的仓库,请先添加仓库！")
window.location.href="../system/ku_add.asp"
response.end
end if
%>
仓库:
do while rs_ku.eof=false
%>
rs_ku.movenext
loop
%>
下一个产品
*
出库时间：
经办人：
if request.Cookies("shiwei_id")=1 then
sql="select * from login order by id_zu,id"
set rs_login=conn.execute(sql)
else
sql="select * from login where id="&request.Cookies("shiwei_id")
set rs_login=conn.execute(sql)
end if
if rs_login.eof then
%>
alert("请先添加员工！")
window.location.href="../system/user_add.asp"
response.end
else
%>
do while rs_login.eof=false
%>
()
rs_login.movenext
loop
%>
end if
%>
备注：
