saveruku.asp

基础进销存BS系统 ASP+Sql 功能不断完善中

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="Style.asp" -->

<%
rukubianhao=Trim(Request.Form("rukubianhao"))
rukughsbianhao=Trim(Request.Form("rukughsbianhao")) 
rukughsname=Trim(Request.Form("rukughsname")) 
rukushijian=Request.Form("rukushijian") 
rukuqita=Request.Form("rukuqita") 
rukuqita2=Trim(Request.Form("rkheji"))
rukubeizhu=Request.Form("rukubeizhu") 
flag=Request.Form("radiobutton")
select1=Request.Form("select1")
'00000000000000000000000000000000000000000000000000000


set rck=server.CreateObject("adodb.recordset")  
sql="EXEC jxc_saverukujiben '"&rukubianhao &"','"&rukughsbianhao&"','"&rukughsname&"','"&rukushijian&"','"&flag&"','"&rukuqita&"','"&rukuqita2&"','"&rukubeizhu&"','"&select1&"'"
rck.Open sql,Conn
set rck=nothing
'增加基本的入库单 pro_rukujiben


'增加具体的入库信息！！为了懒定义为数组 但是回产生空值！ ：）
dim rkname(10)
rkname(1)=Trim(Request.Form("rkname1"))
rkname(2)=Trim(Request.Form("rkname2"))
rkname(3)=Trim(Request.Form("rkname3"))
rkname(4)=Trim(Request.Form("rkname4"))
rkname(5)=Trim(Request.Form("rkname5"))
rkname(6)=Trim(Request.Form("rkname6"))
rkname(7)=Trim(Request.Form("rkname7"))
rkname(8)=Trim(Request.Form("rkname8"))
rkname(9)=Trim(Request.Form("rkname9"))
rkname(10)=Trim(Request.Form("rkname10"))
'排列商品编号
dim rknames(10) 
rknames(1)=Trim(Request.Form("rknames1"))
rknames(2)=Trim(Request.Form("rknames2"))
rknames(3)=Trim(Request.Form("rknames3"))
rknames(4)=Trim(Request.Form("rknames4"))
rknames(5)=Trim(Request.Form("rknames5"))
rknames(6)=Trim(Request.Form("rknames6"))
rknames(7)=Trim(Request.Form("rknames7"))
rknames(8)=Trim(Request.Form("rknames8"))
rknames(9)=Trim(Request.Form("rknames9"))
rknames(10)=Trim(Request.Form("rknames10"))
'排列商品名
dim rkshuliang(10)
rkshuliang(1)=Trim(Request.Form("rkshuliang1"))
rkshuliang(2)=Trim(Request.Form("rkshuliang2"))
rkshuliang(3)=Trim(Request.Form("rkshuliang3"))
rkshuliang(4)=Trim(Request.Form("rkshuliang4"))
rkshuliang(5)=Trim(Request.Form("rkshuliang5"))
rkshuliang(6)=Trim(Request.Form("rkshuliang6"))
rkshuliang(7)=Trim(Request.Form("rkshuliang7"))
rkshuliang(8)=Trim(Request.Form("rkshuliang8"))
rkshuliang(9)=Trim(Request.Form("rkshuliang9"))
rkshuliang(10)=Trim(Request.Form("rkshuliang10"))
'排列数量
dim rkjiage(10)
rkjiage(1)=Trim(Request.Form("rkjiage1"))
rkjiage(2)=Trim(Request.Form("rkjiage2"))
rkjiage(3)=Trim(Request.Form("rkjiage3"))
rkjiage(4)=Trim(Request.Form("rkjiage4"))
rkjiage(5)=Trim(Request.Form("rkjiage5"))
rkjiage(6)=Trim(Request.Form("rkjiage6"))
rkjiage(7)=Trim(Request.Form("rkjiage7"))
rkjiage(8)=Trim(Request.Form("rkjiage8"))
rkjiage(9)=Trim(Request.Form("rkjiage9"))
rkjiage(10)=Trim(Request.Form("rkjiage10"))
'排列价格
 dim rkqita(10)
rkqita(1)=Trim(Request.Form("rkqita1"))
rkqita(2)=Trim(Request.Form("rkqita2"))
rkqita(3)=Trim(Request.Form("rkqita3"))
rkqita(4)=Trim(Request.Form("rkqita4"))
rkqita(5)=Trim(Request.Form("rkqita5"))
rkqita(6)=Trim(Request.Form("rkqita6"))
rkqita(7)=Trim(Request.Form("rkqita7"))
rkqita(8)=Trim(Request.Form("rkqita8"))
rkqita(9)=Trim(Request.Form("rkqita9"))
rkqita(10)=Trim(Request.Form("rkqita10"))
'排列其他说明
dim rkheji(10)

rkheji(1)=Trim(Request.Form("rkheji1"))
rkheji(2)=Trim(Request.Form("rkheji2"))
rkheji(3)=Trim(Request.Form("rkheji3"))
rkheji(4)=Trim(Request.Form("rkheji4"))
rkheji(5)=Trim(Request.Form("rkheji5"))
rkheji(6)=Trim(Request.Form("rkheji6"))
rkheji(7)=Trim(Request.Form("rkheji7"))
rkheji(8)=Trim(Request.Form("rkheji8"))
rkheji(9)=Trim(Request.Form("rkheji9"))
rkheji(10)=Trim(Request.Form("rkheji10"))

'增加具体入库单，但是也增加了空值！
for i=1 to 10
'if rs.EOF or rs.BOF then exit for
set rst=server.CreateObject("adodb.recordset")  
sql="EXEC jxc_savekucudan '"&rukubianhao&"','"&rkname([i])&"','"&rknames([i])&"','"&rkshuliang([i])&"','"&rkjiage([i])&"','"&rkqita([i])&"','"&rkheji([i])&"'"
rst.Open sql,Conn
set rst=nothing
next

'删除空值！
set rst=server.CreateObject("adodb.recordset") 
sql="exec jxc_deleterukudan"
rst.open sql ,conn
set rst=nothing

'如果直接审核入库的操作即增加库存！根据入库单 编号查出商品编码以及数量然后循环UPDATE！更新值！！
'rukubianhao

if flag="是" then

  set rs = server.CreateObject("adodb.recordset")
  sql="select * from pro_rukudan  where rukubianhao='"&rukubianhao&"'"
  rs.Open sql,conn,0,2,1   
 for i=1 to 10
 if rs.EOF or rs.BOF then exit for
  bianhao1=rs("rkshangpinbianhao")
  shuliang1=rs("rkshuliang")
  response.write rs("rkshuliang")&"<BR>"
 
  set rst=server.CreateObject("adodb.recordset") 
  sql="exec jxc_updatecangku '"&bianhao1&"','"&shuliang1&"'"
  rst.open sql ,conn

  rs.movenext
  set rst =nothing
 next
            


end if
     








call endconn()
 response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('添加完毕！');"	'警告
				response.write"location.href='addruku.asp';"	'跳转到页面
				response.write "</script>"	
%>