change_sellnote.asp

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

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
id=request.form("spid")
pinpai=request.form("sppp")
guige=request.form("ggname")
xinghao=request.form("xhname")
Set Rs=Server.createobject("adodb.recordset")
Sqlstr="Select * from KuCun where KC_cpname='"&pinpai&"' and KC_cpgg='"&guige&"' and KC_cpxh='"&xinghao&"' "
Rs.Open Sqlstr,conn,1,1
if rs.eof then
response.write"<script language=javascript>alert('修改出错!');location.href='Sellnote.asp';</script>"
response.End
Else
rs.close
 
sql="select * from ChuKu where id="&id
rs.open sql,conn,1,1
spname=rs("pinpai")
ggname=rs("guige")
xhname=rs("xinghao")
shuliang=rs("shuliang")
rs.close
Sql_K="Select * from KuCun where KC_cpname='"&spname&"' and KC_cpgg='"&ggname&"' and KC_cpxh='"&xhname&"'"
rs.open sql_k,conn,1,3
KC_id=rs("id")
KC_sum=rs("KC_shuliang")+shuliang
sql="update KuCun Set KC_shuliang='"&KC_sum&"' where id="&KC_id
conn.execute(sql)
rs.close
end if
'*********原始库存恢复完毕***************

'开始接收新的数据更新本条出售记录
shuliang=request.form("shuliang")
danjia=request.form("danjia")
biaoma=request.form("biaoma")
kehu=request.form("kehu")
fukuan=request.form("fukuan")
username=request.form("username")
intime=request.form("intime")
beizhu=request.form("beizhu")

if shuliang="" or danjia="" or biaoma="" or kehu="" or fukuan="" or username="" or intime="" or beizhu="" then
response.write"<script language=javascript>alert('至少有一项数未填或填写错误！');location.href='Sellnote.asp';</script>"
Else
summoney=shuliang*danjia
Sql="update ChuKu Set pinpai='"&pinpai&"',guige='"&guige&"',xinghao='"&xinghao&"',shuliang='"&shuliang&"',danjia='"&danjia&"',summoney='"&summoney&"',biaoma='"&biaoma&"',kehu='"&kehu&"',fukuan='"&fukuan&"',username='"&username&"',intime='"&intime&"',beizhu='"&beizhu&"' where id="&id
conn.execute(sql)
End if

'********开始重计库存**************
Sqlstr="Select * from KuCun where KC_cpname='"&pinpai&"' and KC_cpgg='"&guige&"' and KC_cpxh='"&xinghao&"'"
rs.open sqlstr,conn,1,3
KC_count=rs.recordcount
if KC_count=1 then
   KC_sum=rs("KC_shuliang")-shuliang
   sql="update KuCun Set KC_shuliang='"&KC_sum&"' where id="&rs("id")
   conn.execute(sql)
   response.write"<script language=javascript>alert('修改成功！');history.go(-1);</script>"
Else
   response.write"库存可能出错，请速联系程序作者，谢谢合作！"
End if
%>