massreturn1.asp

很不错的进销存系统, 本系统适用于轮胎经销使用

<!--#include file=conn.asp-->
<!--#include file=function.asp-->
<%
name=guolu(request.form("name"))
spname=guolu(request.form("spname"))
spguige=guolu(request.form("spguige"))
spxinghao=guolu(request.form("spxinghao"))
wenti=request.form("wenti")
chengdu=request.form("chengdu")
money=request.form("money")
biaoma=request.form("biaoma")
fangfa=request.form("fangfa")
intime=request.form("intime")
select case request("submit")
       case "立即处理"
            LiJi       
       case "等待处理"
            DengDai
       case "现在处理选中记录"
            ChuLi
end select
Sub LiJi()
if fangfa="换货" then
Set Rs=Server.createobject("adodb.recordset")
Sql="select * from KuCun where KC_cpname='"&spname&"' and KC_cpgg='"&spguige&"' and KC_cpxh='"&spxinghao&"'"
Rs.open sql,conn,1,1
if rs.eof then
response.write"<script language=javascript>alert('库中无此商品！');location.href='MassReturn.asp';</script>"
response.end
else
id=Rs("id")
KC_sum=Rs("KC_shuliang")-1
rs.close
Sql="update KuCun Set KC_shuliang='"&KC_sum&"' where id="&id
conn.execute(Sql)
qingkuang="已处理"
Sqlstr="insert into zhiliang ([name],spname,spguige,spxinghao,wenti,chengdu,[money],biaoma,fangfa,intime,qingkuang) values ('"&name&"','"&spname&"','"&spguige&"','"&spxinghao&"','"&wenti&"','"&chengdu&"','"&money&"','"&biaoma&"','"&fangfa&"','"&intime&"','"&qingkuang&"')"
conn.execute(sqlstr)
end if

if money<>"" and money<>0.00 then
xiangmu="理赔费用"
yuanyin=name&"换货"
Sql="insert into ShouRu (xiangmu,yuanyin,qianshu,intime) values ('"&xiangmu&"','"&yuanyin&"','"&money&"','"&intime&"')"
conn.execute(sql)
end if
response.write"<script language=javascript>alert('换货执行成功！');location.href='MassReturn.asp';</script>"
end if

if fangfa="退货" then
qingkuang="已处理"
Sqlstr="insert into zhiliang ([name],spname,spguige,spxinghao,wenti,chengdu,[money],biaoma,fangfa,intime,qingkuang) values ('"&name&"','"&spname&"','"&spguige&"','"&spxinghao&"','"&wenti&"','"&chengdu&"','"&money&"','"&biaoma&"','"&fangfa&"','"&intime&"','"&qingkuang&"')"
conn.execute(sqlstr)

if money<>"" and money<>0.00 then
xiangmu="理赔费用"
yuanyin=name&"退货"
Sql="insert into ZhiChu (xiangmu,yuanyin,qianshu,intime) values ('"&xiangmu&"','"&yuanyin&"','"&money&"','"&intime&"')"
conn.execute(sql)
response.write"<script language=javascript>alert('退货执行成功！')location.href='MassReturn.asp';</script>"
end if
end if
end sub

Sub DengDai()
qingkuang="未处理"
Sqlstr="insert into zhiliang ([name],spname,spguige,spxinghao,wenti,chengdu,[money],biaoma,fangfa,intime,qingkuang) values ('"&name&"','"&spname&"','"&spguige&"','"&spxinghao&"','"&wenti&"','"&chengdu&"','"&money&"','"&biaoma&"','"&fangfa&"','"&intime&"','"&qingkuang&"')"
conn.execute(sqlstr)
response.write"<script language=javascript>alert('等待处理执行完毕！');location.href='MassReturn.asp';</script>"
end sub

Sub ChuLi()
id=request.form("id")
if not isnumeric(id) or id="" then
response.write"参数错误！"
response.end
end if
money=request.form("money")
Set Rs=Server.createobject("adodb.recordset")
sql="select * from zhiliang where id="&id
rs.open sql,conn,1,1
spname=rs("spname")
spguige=rs("spguige")
spxinghao=rs("spxinghao")
fangfa=rs("fangfa")
if fangfa="换货" then
Sqlstr="update KuCun Set KC_shuliang=KC_shuliang-1 where KC_cpname='"&spname&"' and KC_cpgg='"&spguige&"' and KC_cpxh='"&spxinghao&"'"
conn.execute(sqlstr)
qingkuang="已处理"
Sql="update zhiliang Set qingkuang='"&qingkuang&"' where id="&id
conn.execute(Sql)
if money<>"" then
xiangmu="理赔费用"
name=rs("name")&fangfa
intime=date()
sql="insert into ShouRu (xiangmu,yuanyin,qianshu,intime) values ('"&xiangmu&"','"&name&"','"&money&"','"&intime&"')"
conn.execute(sql)
end if
response.write"处理完毕！"
end if
end Sub

'如果有费用则执行收入项

%>