check_lipei.asp

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

<!--#include file=conn.asp-->
<!--#include file=function.asp-->
<%
id=request.form("id")
if not isnumeric(id) or id="" then
response.write"您没有选择销售记录或您执行了非法操作！"
response.end
end if
taihao=guolu(request.form("taihao"))
huawen=guolu(request.form("huawen"))
wenti=guolu(request.form("wenti"))
money=guolu(request.form("money"))
submit=request.form("submit")
select case submit
       case "换条新胎"
            huan
       case "直接退款"
            tui
       case "确定"
            dengji
end select

Sub huan()
fangfa="换胎"
qingkuang="已处理"
changpei="未赔"
Sql="insert into zhiliang (taihao,huawen,wenti,qingkuang,fangfa,[money],changpei,Sellid) values ('"&taihao&"','"&huawen&"','"&wenti&"','"&qingkuang&"','"&fangfa&"','"&money&"','"&changpei&"','"&id&"')"
Conn.Execute(Sql)
Sql="update ChuKu Set lipei=lipei+1 where id="&id
conn.Execute(sql)
Set rs=Server.createobject("adodb.recordset")
Sql="select * from ChuKu where id="&id
rs.open Sql,conn,1,1
'pinpai=rs("pinpai")
'guige=rs("guige")
Sql="update KuCun Set KC_shuliang=KC_shuliang-1 where KC_cpname='"&rs("pinpai")&"' and KC_cpgg='"&rs("guige")&"' and KC_cpxh='"&rs("xinghao")&"'"
conn.execute(Sql)
rs.close
response.write"<script language=javascript>alert('换胎执行成功！');location.href='Sellnote.asp';</script>"
end Sub

Sub tui()
fangfa="退款"
qingkuang="已处理"
changpei="未赔"
Set Rs=Server.Createobject("adodb.recordset")
Sql="select * from ChuKu where id="&id
Rs.open sql,conn,1,1
money=rs("danjia")-money
Rs.close

Sql="insert into zhiliang (taihao,huawen,wenti,qingkuang,fangfa,[money],changpei,sellid) values ('"&taihao&"','"&huawen&"','"&wenti&"','"&qingkuang&"','"&fangfa&"','"&money&"','"&changpei&"','"&id&"')"
Conn.Execute(Sql)
Sql="update ChuKu Set shuliang=shuliang-1,summoney=summoney-danjia,lipei=lipei+1 where id="&id
conn.execute(sql)
set conn=nothing
response.write"<script language=javascript>alert('退款执行成功！');location.href='Sellnote.asp';</script>"
end Sub

Sub dengji()
fangfa="未知"
qingkuang="未处理"
changpei="未赔"
sql="insert into zhiliang (taihao,huawen,wenti,qingkuang,fangfa,changpei,Sellid) values ('"&taihao&"','"&huawen&"','"&wenti&"','"&qingkuang&"','"&fangfa&"','"&changpei&"','"&id&"')"
conn.execute(sql)
Sql="update ChuKu Set lipei=lipei+1 where id="&id
conn.execute(sql)
response.write"<script language=javascript>alert('登记成功！');location.href='Sellnote.asp';</script>"
end Sub
%>