k_xsckinfo.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
<%    
    
if request.form("xz").count<1 then%>    
  <script  language="vbscript">    
    msgbox"  请至少选中一条要入库的记录!"    
   </script>    
   <script LANGUAGE="javaSCRIPT">    
       <!--    
       history.go(-1);    
        -->    
       </script>    
     
<%response.end     
end if    
if request.form("xz").count>8 then%>    
  <script  language="vbscript">    
    msgbox"  入库的记录不得多于八条!"    
   </script>    
   <script LANGUAGE="javaSCRIPT">    
       <!--    
       history.go(-1);    
        -->    
       </script>    
     
<%response.end     
end if    
    
for n=1 to request.form("xz").count    
    
'将对应的字段名值取出来    
xh=request.form("xz")(n)    
   
r_ckrq=request.form("ckrq"&xh)    
r_cksl=request.form("cksl"&xh)    
    
r_xsid=request.form("xsid"&xh)   '此ID号是唯一的   
 '====================修改客户定单仓库细则表 
   
   set rsku1=server.createobject("adodb.recordset")   
   k_str="select * from K_tblsaleckxz where ID="&cint(r_xsid)   
   rsku1.open k_str,pubconn,3,3 
   '找出对应的定单号
   ddbh=rsku1("ordernum")
   '*****************为更改当日库存表用
   totalcbje=cdbl(round(rsku1("cbj")/rsku1("spsl"),2))*cdbl(r_cksl)   '总成本金额
   ckxh=rsku1("ckxh")
   spxh=rsku1("spxh")
   num=r_cksl
   '********************
   if not rsku1.eof then  
      rsku1("sfyck")="Y"
      rsku1("ckrq")=r_ckrq  
      rsku1("sjcksl")=r_cksl
      rsku1("jbr")=Session("UserID")
      rsku1.update   
   end if    
   rsku1.close
   set rsku1=nothing  
 '***********************************
 '修改商品细则表中的出库状态
 response.write ddbh&"<br>"
 response.write spxh&"<br>"
 
 mytxt="select ordernum,spxh,count(ordernum) as total1 from k_tblsaleckxz where spxh='"&spxh&"'and ordernum='"&ddbh&"' group by ordernum,spxh"
 set rs1=pubconn.execute(mytxt)
 
 youtxt="select ordernum,spxh,count(ordernum) as total2 from k_tblsaleckxz where sfyck='Y' and  spxh='"&spxh&"'and ordernum='"&ddbh&"' group by ordernum,spxh"
 set rs2=pubconn.execute(youtxt)
 
 if trim(rs1("total1"))=trim(rs2("total2"))  then
    tsql="update  f_tblorderdetail set ckzt='2' where Prodcode='"&spxh&"' and ordernum='"&ddbh&"'"
 else
    tsql="update  f_tblorderdetail set ckzt='1' where Prodcode='"&spxh&"' and ordernum='"&ddbh&"'"
 end if 
 response.write tsql
 'response.end
 pubconn.execute tsql
 
 '***********************************
    
  
'=============================修改当日期库表中的当前总存字段和总金额   
 set T_rskc=Server.CreateObject("ADODB.RecordSet")   
 str="select * from TblsysckspNowDay  where ckxh='"&ckxh&"'  and spxh='"&spxh&"' "   
 T_rskc.open str,pubconn,3,3   
 if not T_rskc.eof then   '存在这样的记录   
    num1=cdbl(T_rskc("dqzkc"))-cdbl(num)   
    kcje1=cdbl(T_rskc("dqkcje"))-cdbl(totalcbje)   
    str1="update TblsysckspNowDay set dqzkc='"&num1&"',dqkcje='"&kcje1&"' where ckxh='"&ckxh&"'  and spxh='"&spxh&"' "   
    pubconn.execute str1       
 end if    
    
next 

   
 %>    
  
 
 
  
  
 
 
 
<p align="center"> 
数据保存成功！    
  
 
<p align="center"> 
<a href="k_xsck.asp"><font size="2">返回</font></a><font size="2">