jihe.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个

<%xian=session("xian")'获取权限
xian1=mid(xian,34,1)'稽核权
xian2=mid(xian,21,1)'审批权
xian3=mid(xian,44,1)'盖章
xian4=mid(xian,45,1)'领料
%>

<!--#include file="bkconn.asp"-->
<% 
'获取数据
if request.querystring("id")="" then
response.write "没有正确的ID号"
else
sid=clng(request.querystring("id"))
scaozuoren=Session("hxf_u_nickname")
action=request("action")
end if
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
ssj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m

'判断是哪一级的人做出的action
'稽核工作
if xian1=1 and action=1  then '1的人有稽核权'同时可以修改他的领取数量和添加出库名称
sd3=request.form("d3")
shuliang2=request.form("shuliang2")
shuliang3=request.form("shuliang3")
shuliang4=request.form("shuliang4")
shuliang5=request.form("shuliang5")
danjia1=request.form("danjia1")
danjia2=request.form("danjia2")
danjia3=request.form("danjia3")
danjia4=request.form("danjia4")
danjia5=request.form("danjia5")
cangku2=request.form("cangku2")
cangku3=request.form("cangku3")
cangku4=request.form("cangku4")
cangku5=request.form("cangku5")
if cangku2="" then cangku2="空"
if cangku3="" then cangku3="空"
if cangku4="" then cangku4="空"
if cangku5="" then cangku5="空"
if danjia1="" then danjia1=0
if danjia2="" then danjia2=0
if danjia3="" then danjia3=0
if danjia4="" then danjia4=0
if danjia5="" then danjia5=0
if shuliang2="" then shuliang2=0
if shuliang3="" then shuliang3=0
if shuliang4="" then shuliang4=0
if shuliang5="" then shuliang5=0
sd4=request.form("d4")
jine1=sd4*danjia1
jine2=shuliang2*danjia2
jine3=shuliang3*danjia3
jine4=shuliang4*danjia4
jine5=shuliang5*danjia5
'yanzheng=request.form("yanzheng")

'检验数据合法性
if sid="" or sd3="" or not isnumeric(sd4) or not isnumeric(shuliang2) or not isnumeric(shuliang3) or not isnumeric(shuliang4) or not isnumeric(shuliang5) or not isnumeric(danjia1) or not isnumeric(danjia2) or not isnumeric(danjia3) or not isnumeric(danjia4) or not isnumeric(danjia5)  then
%>
<script language=vbscript> 
MsgBox "错误：提交的稽核表单中不能有空或者数量不是填写的数字，请返回核对！"
location.href = "chukulistnew.asp?id=<%=sid%>"
</script>
<%else
'获取数据
conn.execute"update 出库 set 存放仓库='"&sd3&"', 单价1='"&danjia1&"',单价2='"&danjia2&"',单价3='"&danjia3&"',单价4='"&danjia4&"',单价5='"&danjia5&"',金额1='"&jine1&"',金额2='"&jine2&"',金额3='"&jine3&"',金额4='"&jine4&"',金额5='"&jine5&"',仓库2='"&cangku2&"',仓库3='"&cangku3&"',仓库4='"&cangku4&"',仓库5='"&cangku5&"',实领数量='"&sd4&"',实领数量2='"&shuliang2&"',实领数量3='"&shuliang3&"',实领数量4='"&shuliang4&"',实领数量5='"&shuliang5&"',稽核时间='"&ssj&"',稽核人='"&scaozuoren&"',当前状态='稽核'  where id="&sid
%>
<script language=vbscript> 
MsgBox "系统提示：稽核处理成功！"
location.href = "chukulistnew.asp?id=<%=sid%>"
</script>
<%end if
end if
'审批工作
if xian2=1 and action=2  then '2的人有审批权
conn.execute"update 出库 set 签批1时间='"&ssj&"',签批人1='"&scaozuoren&"',当前状态='签批'  where id="&sid
%>
<script language=vbscript> 
MsgBox "系统提示：签批处理成功！"
location.href = "chukulistnew.asp?id=<%=sid%>"
</script>
<%
end if
'盖章工作
if xian3=1 and action=3  then '3的人有盖章权
'获取数据
conn.execute"update 出库 set 盖章时间='"&ssj&"',盖章人='"&scaozuoren&"',当前状态='盖章'  where id="&sid
%>
<script language=vbscript> 
MsgBox "系统提示：盖章处理成功，如果您想打印领料单，请到首页的[领料单打印]模块中处理！"
location.href = "chukulistnew.asp?id=<%=sid%>"
</script>
<%
end if
'发料工作
if xian4=1 and action=4  then '级别为5的人有发料权
'获取数据
conn.execute"update 出库 set 出库时间='"&ssj&"',发料人='"&scaozuoren&"',当前状态='发料'  where id="&sid
'生成库存记录
shuliang=request("shuliang")
shuliang2=request("shuliang2")
shuliang3=request("shuliang3")
shuliang4=request("shuliang4")
shuliang5=request("shuliang5")
mingcheng=request("mingcheng")
mingcheng2=request("mingcheng2")
mingcheng3=request("mingcheng3")
mingcheng4=request("mingcheng4")
mingcheng5=request("mingcheng5")
conn.execute"update 库存 set 数量=数量-"&shuliang&"  where 材料名称='"&mingcheng&"'"
if shuliang2>0 then
conn.execute"update 库存 set 数量=数量-"&shuliang2&"  where 材料名称='"&mingcheng2&"'"
end if
if shuliang3>0 then
conn.execute"update 库存 set 数量=数量-"&shuliang3&"  where 材料名称='"&mingcheng3&"'"
end if
if shuliang4>0 then
conn.execute"update 库存 set 数量=数量-"&shuliang4&"  where 材料名称='"&mingcheng4&"'"
end if
if shuliang5>0 then
conn.execute"update 库存 set 数量=数量-"&shuliang5&"  where 材料名称='"&mingcheng5&"'"
end if
%>
<script language=vbscript> 
MsgBox "系统提示：发料处理成功！如果需要打印领料单请到领料单打印处打印！"
location.href = "chukulistnew.asp?id=<%=sid%>"
</script>
<%
end if

conn.close
set conn=nothing
%>