orderreserve.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<!--#include file="../config.ini"-->
<!--#include file="../commfunction.inc" -->
<%
set conn=server.CreateObject("adodb.connection")
conn.Open connstring
%>
<%
if Request("cancelreserve")="yes" then
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "orderreserve","edit"

	sql="select * from orderreserve where orderlineid="&Request.QueryString("lineid")
	set rs=conn.Execute(sql)

		sql="delete from orderreserve where orderlineid="&Request.QueryString("lineid")
		set rs=conn.Execute(sql)

		sql="select * from v_orderreserve where orderid="&Request.QueryString("orderid")&" and status='保留同意'"
		set rs=conn.Execute(sql)
		if rs.eof then
			sql="update [order] set status='初始' where status='保留中' and orderid="&Request.QueryString("orderid")
			set rs=conn.Execute(sql)
		end if
		%>
		<script language=javascript>
			alert("取消成功");
			window.close();
			window.opener.location.reload(true);
		</script>
		<%
end if
%>

<%
if Request("deletereserve")="yes" then
	objcheck.CheckUserFunction "reserveapprove","edit"
	sql="select * from orderreserve where orderlineid="&Request.QueryString("lineid")
	set rs=conn.Execute(sql)

		sql="delete from orderreserve where orderlineid="&Request.QueryString("lineid")
		set rs=conn.Execute(sql)

		sql="select * from v_orderreserve where orderid="&Request.QueryString("orderid")&" and status='保留同意'"
		set rs=conn.Execute(sql)
		if rs.eof then
			sql="update [order] set status='初始' where status='保留中' and orderid="&Request.QueryString("orderid")
			set rs=conn.Execute(sql)
		end if
		%>
		<script language=javascript>
			alert("已删除");
			window.close();
			window.opener.location.reload(true);
		</script>
		<%
end if
%>

<%
if Request("approve")="yes" then
objcheck.CheckUserFunction "reserveapprove","edit"
	sql="select status from [order] where orderid="&Request.QueryString("orderid")
	set rs=conn.Execute(sql)
	if rs.eof then
		Response.Write "没有找到合同"
		Response.End 
	else
		if trim(rs("status"))="初始" or trim(rs("status"))="保留中" or trim(rs("status"))="部分发货" then
		
		else
			Response.Write "合同当前状态："&rs("status")&"，不能保留"
			Response.End 
		end if
	end if
	sql="select * from v_inventoryall where nonnet=0 and productid="&Request.QueryString("productid")
	'Response.Write sql
	'Response.End 
	set rs=conn.Execute(sql)
	if rs.eof then
		message "没有库存量，不能保留"
		breserve="no"
	else
		available=rs("qty_on_hand")-rs("qty_rsvd")
		sql="select * from v_orderreserve where orderlineid="&Request.QueryString("lineid")
		set rs1=conn.Execute(sql)
		if rs1("orderqty")-rs1("issuedqty")<=0 then
				sql="delete from orderreserve where orderlineid="&Request.QueryString("lineid")
				message="该合同明细已经发货完成，保留记录已删除"
		else
			if rs1("orderqty")-rs1("issuedqty")<rs1("qty") then reserve=rs1("orderqty")-rs1("issuedqty") else reserve=rs1("qty")
			if cint(available)>=cint(reserve) and available<>0 then
				sql="update orderreserve set status='保留同意',qty="&reserve&" where orderlineid="&Request.QueryString("lineid")
				message="保留成功，数量："&reserve
			elseif available=0 then
				message="没有可用库存"
			else
				'breserve="no"
				sql="update orderreserve set status='保留同意',qty="&rs("qty_on_hand")-rs("qty_rsvd")&" where orderlineid="&Request.QueryString("lineid")
				message="库存量少于保留申请数量，保留数量："&rs("qty_on_hand")-rs("qty_rsvd")
			end if
		end if
	end if
	if breserve<>"no" then
		set rs=conn.Execute(sql)
		sql="select status from [order] where orderid="&Request.QueryString("orderid")
		set rs=conn.Execute(sql)
		if rs("status")="初始" then
			sql="update [order] set status='保留中' where orderid="&Request.QueryString("orderid")
			set rs=conn.Execute(sql)
		end if
	end if
%>
<script language=javascript>
	alert('<%=message%>');
	window.close();
	window.opener.location.reload(true);
</script>
<%
end if
%>

<%
if Request("approve")="no" then
objcheck.CheckUserFunction "reserveapprove","edit"
	sql="select status from [order] where orderid="&Request.QueryString("orderid")
	set rs=conn.Execute(sql)
	if rs.eof then
		Response.Write "没有找到合同"
		Response.End 
	else
		if trim(rs("status"))="初始" or trim(rs("status"))="保留中" or trim(rs("status"))="部分发货"  then
		
		else
			Response.Write "合同当前状态："&rs("status")&"，不能保留"
			Response.End 
		end if
	end if
	sql="update orderreserve set status='保留拒绝' where orderlineid="&Request.QueryString("lineid")
	set rs=conn.Execute(sql)
	
	sql="select * from v_orderreserve where orderid="&Request.QueryString("orderid")&" and status='保留同意'"
	set rs=conn.Execute(sql)
		if rs.eof then
			
			sql="update [order] set status='初始' where status='保留中' and orderid="&Request.QueryString("orderid")
			set rs=conn.Execute(sql)
		end if
%>
<script language=javascript>
	alert("拒绝成功");
	window.close();
	window.opener.location.reload(true);
</script>
<%
end if
%>

<%
if Request.QueryString("productid")<>"" then
sql="select * from v_inventoryall where nonnet=0 and productid="&Request.QueryString("productid")
set rs=conn.Execute(sql)
if not rs.eof then
	strqty_on_hand=rs("qty_on_hand")
	strrsvd=rs("qty_rsvd")
else
	strqty_on_hand=0
	strrsvd=0
end if	
end if
	
strproductcode=Request.QueryString("productcode")
strmodel=Request.QueryString("model")
strqty=Request.QueryString("qty")
strdate=date()+7
if Request.QueryString("issuedqty")="" then
	strissuedqty=0
else
	strissuedqty=Request.QueryString("issuedqty")
end if

if Request.QueryString("lineid")<>"" then
sql="select * from v_orderreserve where orderlineid="&Request.QueryString("lineid")
set rs=conn.Execute(sql)
if not rs.eof then
	strproductcode=rs("productcode")
	strmodel=rs("model")
	strreserveqty=rs("qty")
	strdate=date()+7
	strstatus=rs("status")
end if
end if


if Request("reserveqty")<>"" then
	objcheck.CheckUserFunction "orderreserve","edit"
	sql="delete from orderreserve where orderlineid="&Request.QueryString("lineid")
	set rs=conn.Execute(sql)
	sysid=getsysaccount("sysaccountid")
	sql="insert into orderreserve(sysaccountid,orderlineid,productid,qty,reservedate,status,creator,createdate)values("&sysid&","&Request.QueryString("lineid")&","&Request.QueryString("productid")&","&Request.Form("reserveqty")&",'"&Request.Form("reservedate")&"','保留申请','"&session("loginid")&"','"&now()&"')"
	set rs=conn.Execute(sql)
	
%>
<script language=javascript>
	alert("申请成功");
	window.close();
</script>
<%
end if
%>
<html>
<head>
<title>保留申请</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../global.css" rel=stylesheet type=text/css>
</head>
<script language=javascript>
	 function reserve(){
		if(isNaN(form1.reserveqty.value)){
			alert('请输入数字');
			return;
		}
		if(form1.reserveqty.value==''){
			alert('请输入保留数量');
			return;
		}
		if(parseInt(form1.reserveqty.value)<=0){
			alert('请输入正确的保留数量');
			return;
		}
		if(parseInt(form1.reserveqty.value)>parseInt(form1.maxqty.value)){
			alert('超过最大可保留数量：'+form1.maxqty.value);
			return;
		}
	
		if(parseInt(form1.reserveqty.value)>parseInt(form1.maxavailable.value)){
			alert('超过最大可用数量：'+form1.maxavailable.value);
			return;
		}
		form1.submit();
	 }
</script>
<body>
<form name="form1" method="Post" action="">
  <table width="100%" bgcolor=cdcdcd cellspacing=1>
    <tr bgcolor=f1f1f1> 
      <td align=center nowrap>货号</td>
      <td align=center nowrap>型号</td>
      <td align=center nowrap>合同量</td>
      <td align=center nowrap>已发量</td>
      <td align=center nowrap>在库量</td>
      <td align=center nowrap>保留数量</td>
      <td align=center height=20 nowrap>希望保留到日期</td>
      <td align=center height=20 nowrap>状态</td>
      <td align=center nowrap>备注</td>
    </tr>
    <tr bgcolor=white> 
      <td align=center nowrap><%=strproductcode%></td>
      <td align=center nowrap><%=strmodel%></td>
      <td align=center nowrap><%=strqty%></td>
      <td align=center nowrap><%=strissuedqty%></td>
      <td align=center nowrap><%=strqty_on_hand-strrsvd%></td>
      <td align=center nowrap><input name="reserveqty" type="text" size="6" value="<%=strreserveqty%>"> 
        <input type=hidden name=maxqty value=<%=strqty-strissuedqty%>> <input type=hidden name=maxavailable value=<%=strqty_on_hand-strrsvd%>></td>
      <td align=center height=18 nowrap><input name="reservedate" type="text" size="9"  value="<%=strdate%>"></td>
      <td align=center height=18 nowrap> 
        <%if strstatus="保留同意" then%>
        <font color=18FF84><%=strstatus%></font> 
        <%elseif strstatus="保留拒绝" then%>
        <font color=red><%=strstatus%></font> 
        <%else%>
        <%=strstatus%> 
        <%end if%>
      </td>
      <td align=center nowrap><input name="description" type="text" size="12"> 
        <input type=hidden name=qty_on_hand value=<%=strqty_on_hand%>></td>
    </tr>
  </table>
   <table width=100%>
    <tr bgcolor=white> 
      <td align=center nowrap height=30><input type=button value="保留申请" onclick="reserve();" <%if strstatus="保留同意" then Response.Write "disabled"%>></td>
    </tr>
  </table>
</form>
</body>
</html>
<%set objcheck=nothing%>