change_lipei.asp

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

<!--#include file=conn.asp-->
<%
id=request.form("id")
if not isnumeric(id) or id="" then
response.write"参数错误或您执行了非法操作！"
response.end
end if
submit=request.form("submit")
Set Rs=Server.createobject("adodb.recordset")
sql="select * from zhiliang where id="&id
Rs.open sql,conn,1,1
qingkuang=rs("qingkuang")
rs.close
set rs=nothing

if submit="换条新胎" or submit="直接退款" then
   if qingkuang="已处理" then
      response.write"本条质量胎已经处理过，不得重复处理谢谢！"
      response.end
   end if
end if
select case submit
       case "换条新胎"
            huan
       case "确定"
            changpei
       case "直接退款"
            tui
       case "作废"
            del
end select

Sub huan()
qingkuang="已处理"
fangfa="换胎"
money=request.form("money")
Sql="update zhiliang Set qingkuang='"&qingkuang&"',fangfa='"&fangfa&"',[money]='"&money&"' where id="&id
Conn.Execute(Sql)
Set Rs=Server.createobject("adodb.recordset")
sql="select * from zhiliang where id="&id
Rs.open sql,conn,1,1
id=rs("sellid")
rs.close
Sqlstr="select * from ChuKu where id="&id
Rs.open Sqlstr,conn,1,1
pinpai=rs("pinpai")
guige=rs("guige")
xinghao=rs("xinghao")
rs.close
Sql1="update KuCun Set KC_shuliang=KC_shuliang-1 where KC_cpname='"&pinpai&"' and KC_cpgg='"&guige&"' and KC_cpxh='"&xinghao&"'"
conn.execute(Sql1)

response.write"<script language=javascript>alert('换胎执行成功！');location.href='lipeinote.asp';</script>"
End Sub

Sub changpei()
qingkuang="已赔"
changmoney=request.form("money")
Set Rs=Server.createobject("adodb.recordset")
Sql="select * from zhiliang where id="&id
Rs.open Sql,conn,1,1
money=Rs("money")
Rs.close
Set Rs=nothing
imoney=money-changmoney
Sql="update zhiliang Set changpei='"&qingkuang&"',changmoney='"&changmoney&"',yengkui='"&imoney&"' where id="&id
Conn.Execute(Sql)
response.write"<script language=javascript>alert('厂赔处理完毕！');location.href='lipeinote.asp';</script>"
end Sub

Sub tui()
qingkuang="已处理"
fangfa="退款"
money=request.form("money")
Set Rs=server.createobject("adodb.recordset")
Sql="select * from zhiliang where id="&id
Rs.open Sql,conn,1,1
sellid=rs("sellid")
rs.close

Sql="select * from ChuKu where id="&sellid
rs.open Sql,conn,1,1
money=rs("danjia")-money
rs.close
set rs=nothing
Sql="update zhiliang Set qingkuang='"&qingkuang&"',fangfa='"&fangfa&"',[money]='"&money&"' where id="&id
Conn.Execute(Sql)
response.write"<script language=javascript>alert('退款执行成功！');location.href='lipeinote.asp';</script>"
end Sub

Sub del()
Set Rs=Server.createobject("adodb.recordset")
Sql="select * from zhiliang where id="&id
Rs.open Sql,conn,1,1
qingkuang=rs("qingkuang")
fangfa=rs("fangfa")
SellID=rs("Sellid")
rs.close


if qingkuang="已处理" then
   
    if fangfa="换胎" then
      Sql="select * from ChuKu where id="&Sellid
      Rs.open Sql,conn,1,1
      
      Sqlstr="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(Sqlstr)
      Sql="update ChuKu Set lipei=lipei-1 where id="&Sellid
      Conn.execute(Sql)
      Rs.close
      Set Rs=nothing
      Sql="delete * from zhiliang where id="&id
      Conn.Execute(Sql)
      response.write"<script language=javascript>alert('删除执行成功，所有理赔操作恢复完毕！');location.href='lipeinote.asp';</script>"
    elseif fangfa="退款" then
      Sql="update ChuKu Set shuliang=shuliang+1,summoney=(shuliang+1)*danjia,lipei=lipei-1 where id="&Sellid
      conn.Execute(Sql)
      Sql="delete * from zhiliang where id="&id
      conn.Execute(sql)
      response.write"<script language=javascript>alert('删除执行成功，所有理赔操作恢复完毕！');location.href='lipeinote.asp';</script>"
    end if
elseif qingkuang="未处理" then
Sql="update ChuKu Set lipei=lipei-1 where id="&Sellid
Conn.Execute(Sql)
Sqlstr="delete * from zhiliang where id="&id
Conn.Execute(Sqlstr)
response.write"<script language=javascript>alert('删除执行成功，所有理赔操作恢复完毕！');location.href='lipeinote.asp';</script>"
end if
End Sub
%>