📄 rkaddok.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/sell.asp" -->
<%
if(Request("hspid") <> "") then varspid = Request("hspid")
if(Request("hspname") <> "") then varspname = Request("hspname")
if(Request("hjc") <> "") then varjc = Request("hjc")
if(Request("hcd") <> "") then varcd = Request("hcd")
if(Request("hgg") <> "") then vargg = Request("hgg")
if(Request("hbz") <> "") then varbz = Request("hbz")
if(Request("hdw") <> "") then vardw = Request("hdw")
if(Request("hdj") <> "") then vardj = Request("hdj")
if(Request("hje") <> "") then varje = Request("hje")
if(Request("hgysname") <> "") then vargysname = Request("hgysname")
if(Request("hrkdate") <> "") then varrkdate = Request("hrkdate")
if(Request("hczy") <> "") then varczy = Request("hczy")
if(Request("hjsr") <> "") then varjsr = Request("hjsr")
if(Request("hjsfs") <> "") then varjsfs = Request("hjsfs")
if(Request("hsl") <> "") then varsl = Request("hsl")
if(Request("hid") <> "") then varid = Request("hid")
if(Request("hwf") <> "") then varwf = Request("hwf")
if(Request("hsf") <> "") then varsf = Request("hsf")
if(Request("hyf") <> "") then varyf = Request("hyf")
if(Request("hwf") > 0 ) then
varwhether = "否"
else
varwhether = "是"
end if
'查询入库结账表中的最大单据号
set rsmaxph = Server.CreateObject("ADODB.Recordset")
sql_max = "SELECT MAX(ID) AS MAXID FROM dbo.tab_rkjz "
rsmaxph.open sql_max,conn,1,3
'生成结款票号
no=trim(rsmaxph("MAXID"))
if (month(date())<10) then
cmonth="0"+Cstr(month(date()))
else
cmonth=Cstr(month(date()))
end if
if (day(date())<10) then
cday="0"+Cstr(day(date()))
else
cday=Cstr(day(date()))
end if
select case len(int(Right(no,5)+1))
case 1
cno="0000"+Cstr(int(Right(no,5)+1))
case 2
cno="000"+Cstr(int(Right(no,5)+1))
case 3
cno="00"+Cstr(int(Right(no,5)+1))
case 4
cno="0"+Cstr(int(Right(no,5)+1))
case 5
cno=Cstr(int(Right(no,5)+1))
case Else
cno="00001"
end select
intno="JK"+Cstr(year(date()))+cmonth+cday+cno
%>
<%'保存入库信息
Ins_rk= "INSERT INTO dbo.tab_ruku (ID, spid, spname, jc, cd, gg, bz, dw, dj, sl, je,"&_
" gysname, rkdate, czy, jsr, jsfs) VALUES ('"&varspid&"','"&varid&"','"&varspname&_
"','"&varjc&"','"&varcd&"','"&vargg&"','"&varbz&"','"&vardw&"',"&vardj&","&varsl&_
","&varje&",'"&vargysname&"','"&varrkdate&"','"&varczy&"','"&varjsr&"','"&varjsfs&"') "
conn.Execute(Ins_rk)
'保存入库票号信息
Ins_rkph = "INSERT INTO dbo.tab_rkph (rkph, sl, yf, sf, wf, gysname, rkdate, czy, jsr,"&_
" jsfs, whether) VALUES ('"&varspid&"',"&varsl&","&varyf&","&varsf&","&varwf&",'"&_
vargysname&"','"&varrkdate&"','"&varczy&"','"&varjsr&"','"&varjsfs&"','"&varwhether&"') "
conn.Execute(Ins_rkph)
'保存入库结账信息
Ins_jk="INSERT INTO dbo.tab_rkjz (ID,rkid,gysname,bcjk,ye,jkdate,czy,jsr) VALUES ('"&intno&_
"','"&varspid&"','"&vargysname&"',"&varsf&","&varwf&",'"&varrkdate&"','"&varczy&"','"&varjsr&"')"
conn.Execute(Ins_jk)
'保存或修改库存信息
set rsspid = Server.CreateObject("ADODB.Recordset")
sql_spid = "SELECT ID FROM dbo.tab_kucun WHERE ID = '"&varid &"'"
set rsspid= conn.execute (sql_spid)
%>
<% if (rsspid.Eof) then
Ins_kc = "INSERT INTO dbo.tab_kucun (ID,spname,jc,cd,gg,bz,dw,dj,kcsl,kcje) VALUES ('"&_
varid&"','"&varspname&"','"&varjc&"','"&varcd&"','"&vargg&"','"&varbz&"','"&vardw&"',"&_
vardj&","&varsl&","&varje&")"
conn.Execute(Ins_kc)
else
up_kc = "UPDATE dbo.tab_kucun SET kcsl = kcsl+"&varsl&",dj = "&vardj&", kcje = (kcsl+"&varsl&_
")*"&vardj&" WHERE ID ='"&varid&"'"
conn.Execute(up_kc)
end if%>
<html>
<head>
<title>明日企业网上销售管理系统——商品入库！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../../images/bg.gif">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="311">
<tr>
<td>
<div align="center">
<p><b><font color="#990000">商品入库信息保存成功！</font></b></p>
<p><font color="#990000"><b>单击“ <a href="./sprk.asp" class="l" target="_self">返回</a>
”继续入库。</b></font></p>
</div>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -