k_pdsyinfo.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
<%
sydh=request("sydh")
year1=request("year1")
month1=request("month1")
date1=request("date1")
if year1<>"" and month1<>""  and date1<>"" then
 zdrq=year1+"-"+month1+"-"+date1
end if 
spbm=request("spbm")
rkck=request("rkck")
ckcw=request("ckcw")
num=request("sl") '损溢数量
bhsdj=request("bhsdj")
syje=request("syje")
bz=request("bz")
set rspd=Server.CreateObject("ADODB.RecordSet")
sql="select *  from K_Tblstopd"
rspd.open sql,pubconn,1,3
'在表中新增一条记录。
rspd.addnew
   rspd("sydh")=sydh
   rspd("zdrq")=zdrq
   rspd("ProdCode")=spbm
   rspd("ckxh")=rkck
   rspd("cfqw")=ckcw
   rspd("sysl")=num
   rspd("spdj")=bhsdj
   rspd("syje")=syje
   rspd("zdr")=Session("UserID")
   rspd("bz")=bz
   rspd("Authors")=Session("username")
   rspd("DepartID")=Session("DepartID")
rspd.update
rspd.close
set rspd=nothing
'---------------------
'刷新出入情况表
'----------------------
if  num>0 then  '表示入库

 '在进货出入库情况表（tblstocrkqk）中插入一条记录
   set jhrk=server.createobject("adodb.recordset")
   str1="select * from K_tblstocrkqk"
   jhrk.open str1,pubconn,3,3
   jhrk.addnew
   jhrk("dh")=sydh
   jhrk("rq")=zdrq
   jhrk("ckxh")=rkck
   jhrk("cfqw")=ckcw
   jhrk("spxh")=spbm
   jhrk("spdj")=bhsdj
   jhrk("rksl")=num
   jhrk("rkje")=syje
   jhrk("xckkds")=num
   jhrk.update
   jhrk.close
   set jhrk=nothing

else  '表示出库
  
  
  set rsrk=Server.CreateObject("ADODB.RecordSet")
  z_str="select *  from k_tblstocrkqk  where ckxh='"&rkck&"' and spxh='"&spbm&"' and xckkds>0 order by ID  "
  rsrk.open z_str ,pubconn,3,3
  response.write z_str
  
  set xjxc=Server.CreateObject("ADODB.RecordSet")
  x_str="select * from k_tblstoxjxc"
  xjxc.open x_str,pubconn,3,3
  '先进先出的原则
  rsrk.movefirst
 
  num=abs(request.form("sl"))
  do while num>0
   
   num=cdbl(num)-cdbl(rsrk("xckkds"))
   if num>0 then
      kcs=rsrk("xckkds")
      kcdj1=rsrk("spdj")
      '当转出的数量大于第一笔记录的数量时
      'total1=total1+(kcs*kcdj1)
      'response.write "kcs="&kcs&"<br>"
      'response.write "kcdj="&kcdj1&"<br>"
      rsrk("xckkds")=0
      rsrk.update
      '将数据填入先进先出表中
       
       xjxc.addnew
       xjxc("cdh")=request.form("sydh")
       xjxc("rdh")=rsrk("dh")
       xjxc("spxh")=rsrk("spxh")
       xjxc("cdj")=kcdj1
       xjxc("csl")=kcs
       xjxc.update
       rsrk.movenext
   else
       kcs2=rsrk("xckkds")+num
       kcdj2=rsrk("spdj")

      'total2=rsrk("spdj")*(rsrk("xckkds")+num)
      'response.write "kcdj2="&rsrk("spdj")&"<br>"
       rsrk("xckkds")=-num
       rsrk.update
    '将数据填入先进先出表中
       xjxc.addnew
       xjxc("cdh")=request.form("sydh")
       xjxc("rdh")=rsrk("dh")
       xjxc("spxh")=rsrk("spxh")
       xjxc("cdj")=kcdj2
       xjxc("csl")=kcs2
       xjxc.update

   end if 
loop
xjxc.close
set xjxc=nothing 
rsrk.close
set rsrk=nothing

end if 

'------------------
'刷新当日库存表, 只改变可开单数以及可开单金额
'--------------------
spxh=request.form("spbm")
ckxh=request.form("rkck")
num=trim(request.form("sl"))  '不论数量为正为负
rq=zdrq
je=request.form("syje")

' 出入库两种情况,------更改可开单库存以及可开单金额----
 set rskc=Server.CreateObject("ADODB.RecordSet")
 str="select * from TblsysckspNowDay  where ckxh='"&ckxh&"'  and spxh='"&spxh&"' and rq='"&rq&"'"
 rskc.open str,pubconn,3,3
 if not rskc.eof then   '存在这样的记录
   
    num2=cdbl(rskc("dqkkdk"))+cdbl(num)
    kkje1=cdbl(rskc("dqkkdje"))+cdbl(je)
    str1="update TblsysckspNowDay set dqkkdk='"&num2&"',dqkkdje='"&kkje1&"' where ckxh='"&ckxh&"'  and spxh='"&spxh&"' and rq='"&rq&"'"
    pubconn.execute str1 
    rskc.close
    set rskc=nothing   
 else
 
    set rskc1=Server.CreateObject("ADODB.RecordSet")
    str2="select * from TblsysckspNowDay where ckxh='"&ckxh&"'  and spxh='"&spxh&"' "
    rskc1.open str2,pubconn,3,3
    if not rskc1.eof then  '当存在相同的商品和仓库时
       set rskc2=Server.CreateObject("ADODB.RecordSet")
       str3="select * from TblsysckspNowDay where ckxh='"&ckxh&"'  and spxh='"&spxh&"' order by Rec_id desc"
       rskc2.open str3,pubconn,3,3
       rskc2.movefirst
     
        num3=cdbl(rskc2("dqzkc"))
        num4=cdbl(rskc2("dqkkdk"))+cdbl(num)
     
        kcje2=cdbl(rskc2("dqkcje"))
        kkje2=cdbl(rskc2("dqkkdje"))+cdbl(je)

       str4="insert into TblsysckspNowDay (spxh,ckxh,dqzkc,dqkkdk,dqkcje,dqkkdje, rq)values('"&spxh&"','"&ckxh&"','"&num3&"','"&num4&"','"&kcje2&"','"&kkje2&"','"&rq&"')"
       pubconn.execute str4
     
    end if 
   
 end if 





%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</head>

<p align="center">
　

<p align="center">
数据保存成功！<a href=k_pdsy.asp>返回</a>