poapply.asp

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

		    Response.Write "<a href='poapply.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a>&nbsp;"
		else
		    Response.Write "<a href='poapply.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a>&nbsp;"
		    Response.Write "<a href='poapply.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a>&nbsp;"
		end if
   		if CurPage>=RS.PageCount then
			Response.Write "<a href='poapply.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
		else
			Response.Write "<a href='poapply.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a>&nbsp;"
			Response.Write "<a href='poapply.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
		end if
		%></td>
	<td></td></tr>
  </table>
  <table align=center width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="13%" height="25" ><strong><font class=title>产品预定申请</font></strong></td>
	  <td width="13%" height="25" ><strong>
        <input name="button" type=button onClick="javascript:selectproduct();" value="添加备货产品" <%if not objcheck.CheckUserFunction2("po","add") then response.write "disabled"%>>
        </strong></td>
      <td width="87%" align="right">
	  <table width="50%" border="0" cellpadding="0" cellspacing="0">
	  <tr>
	  <td width=14% height=18 align=center valign=center <% if session("strapplystatus")="-1" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=poapply.asp?strapplystatus=-1><font color='#FFFFFF'>预订列表</font></a></td>
      <td width=10% height=18 align=center valign=center <% if session("strapplystatus")="1" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=poapply.asp?strapplystatus=1><font color='#FFFFFF'>待订列表</font></a></td>
      <td width=14% height=18 align=center valign=center <% if session("strapplystatus")="2" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=poapply.asp?strapplystatus=2><font color='#FFFFFF'>预订完成列表</font></a></td>
	  </tr>
	  </table></td>
    </tr>
    <tr> 
      <td height="16" colspan="3" background="../images/title.gif"  >&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" align="left"></td>
    </tr>
  </table>
  <table align="center" border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#ffffff' width='100%' bordercolorlight='#ffffff' bordercolordark='#ffffff'>
    <tr>
      <td align="right"><div align="left"><img src="../images/smallprompt.jpg">&nbsp;第<%=CurPage%>页&nbsp;/&nbsp;共<%=RS.PageCount%>页&nbsp;/&nbsp;记录数:<%=Rs.RecordCount%>条 

        </div></td>
      <td width="50%" align="right"> 
        <%if session("strapplystatus")=1 then%>
        <a href="javascript:printit2();"> <img src="../images/to_print_poapply.gif" border=0></a> 
        <%elseif session("strapplystatus")=2 then%>
        <a href="javascript:printit();"><img src="../images/to_print_poapply.gif" border=0></a> 
        <%end if%>
      </td>
    </tr>
  </table>

<%if session("strapplystatus")<>2 then%>
<tr><td width='100%' align='center'>
<table  border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD" width="100%">
        <tr> 
          <td width="5%" height="22" align=center bgcolor="efefef"> 删除 </td>
            <td  align=left bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=model&orderby=<%=session("orderby")%>">型号</a> 
              <br>
            <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ordernum&orderby=<%=session("orderby")%>">合同号</a>&nbsp;&nbsp; 
            <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=discountprice&orderby=<%=session("orderby")%>">合同单价</a>&nbsp;&nbsp; 
            <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=accountname&orderby=<%=session("orderby")%>">客户</a></td>
            <td width="8%"  align=center bgcolor="efefef"><font color="#0070BC">合同量</font></td>
            <td width="8%"  align=center bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=poapplyqty&orderby=<%=session("orderby")%>">预定量</a></td>
          <td width="8%"  align=center bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=poqty&orderby=<%=session("orderby")%>">已订量</a><br>
	  <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=accountname&orderby=<%=session("orderby")%>">订货价</a></td>
            <td width="20%"  align=center bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=deliverydate&orderby=<%=session("orderby")%>">预计货期</a><br>
              <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=shipdate&orderby=<%=session("orderby")%>">合同货期</a></td>
            <td width="8%"  align=center bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ownername&orderby=<%=session("orderby")%>">销售员</a></td>
    </tr>
    <%
  set poapplyid=rs("poapplyid")
  set model=rs("model")
  set orderId=rs("orderId")
  set ordernum=rs("ordernum")
  set accountname=rs("accountname")
  set lineid=rs("lineid")
  set discountprice=rs("discountprice")
  set orderqty=rs("orderqty")
  set poapplyqty=rs("poapplyqty")
  set poqty=rs("poqty")
  set poprice=rs("poprice")
  set deliverydate=rs("deliverydate")
  set ownername=rs("ownername")
  set shipdate=rs("shipdate")
  set poapplyno=rs("poapplyno")
if not rs.eof then
%>
<input type="hidden" name="printcheck" value="yes">
<%
  i=1:totalorderamount=0:totalpoamount=0:do while not rs.EOF and i<=session("localpagesize")
  if poprice<>"" and poqty<>"" then totalpoamount=totalpoamount+ccur(poprice)*poqty else poprice=0
  if discountprice<>"" then	totalorderamount=totalorderamount+ccur(discountprice)*poapplyqty 'else discountprice=0
        if i mod 2 = 1 then 
  %>
    <tr bgcolor="#E6FDFF"> 
  <%else%>
        <tr> 
          <%end if%>
          <td width="7%" height="22" align=center bgcolor="#FFFFFF"> 
            <%if objcheck.CheckUserFunction2("po","add") then%>
            <a href="javascript:opensubwin3('../delete.asp?poapplyid=<%=poapplyid%>','','resizable=no, scrollbars=no, left= 350, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200');"> 
            <img src="../images/deleteicon.gif" border=0> </a> 
            <%end if%>
          </td>
              
          <td align=left bgcolor="#FFFFFF"><%=model%></td>
          <td align=center bgcolor="#FFFFFF"> 
            <%if isnull(orderqty) then response.write "--" else response.write orderqty%>
          </td>
          <td align=center bgcolor="#FFFFFF"><%=poapplyqty%></td>
          <td align=center bgcolor="#FFFFFF"> 
            <%if isnull(poqty) then %>
            <a href="javascript:opensubwin3('Setpoapply.asp?poapplyid=<%=poapplyid%>','','resizable=no, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');"  title="订货"><img src="../images/kago3.gif" border="0"></a> 
            <%else%>
            <a href="javascript:opensubwin3('Setpoapply.asp?poapplyid=<%=poapplyid%>&mod=detail','','resizable=no, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');"  title="订货"><font color=red><%=poqty%></font></a> 
            <%end if%>
          </td>
          <td align=center bgcolor="#FFFFFF"> 
            <script language="JavaScript" src="comm.js"></script>
	    <input type="text" name="deliverydate<%=poapplyid%>" size=10 <%if objcheck.CheckUserFunction2("po","add") then%> onclick="javascript:showCal('',<%=poapplyid%>)" <%end if%> readonly value="<%=deliverydate%>">
		<input type="button" name="clrdate<%=poapplyid%>" value="C" <%if objcheck.CheckUserFunction2("po","add") then%> onclick="javascript:clrdate(<%=poapplyid%>);" <%else response.write "disabled" end if%>></td>
          <td align=center bgcolor="#FFFFFF"> 
            <%if ownername<>"" then response.write ownername else response.write "--"%>
          </td>
    </tr>
        <tr> 
          <td height="16" bgcolor="#FFFFFF"></td>
              
          <td colspan=3 align=left bgcolor="#FFFFFF"><font color="#666666"><%=ordernum%>&nbsp;&nbsp; 
            <%if discountprice<>"" then response.write (formatnumber(discountprice,2))%>
            &nbsp;&nbsp;<%=accountname%></font></td>
          <td align=center bgcolor="#FFFFFF"><font color="#666666"> 
            <%if objcheck.CheckUserFunction2("po","add") then response.write (formatnumber(poprice,2)) else response.write "--"%>
            </font></td>
          <td align=center bgcolor="#FFFFFF"><%=shipdate%></td>
	      <td align=center bgcolor="#FFFFFF">&nbsp;</td>
        </tr>
    <%
  i=i+1
  rs.MoveNext
  loop
else
%>
<input type="hidden" name="printcheck" value="">
<%
end if
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
%>
  </table>
  </td></tr>
  <%end if%>
  
  <%if session("strapplystatus")=2 then%>
<tr><td width='100%' align='center'>
<table  border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD" width="100%">
            
        <tr> 
          <td width="5%" height="22" align=center bgcolor="efefef">&nbsp;</td>
              
          <td  align=left bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=model&orderby=<%=session("orderby")%>">型号</a> 
            <br>
            <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ordernum&orderby=<%=session("orderby")%>">合同号</a> 
            <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=discountprice&orderby=<%=session("orderby")%>">合同单价</a> 
            <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=accountname&orderby=<%=session("orderby")%>">客户</a></td>
          <td width="8%"  align=center bgcolor="efefef"><font color="#0070BC">合同量</font></td>
          <td width="8%"  align=center bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=poapplyqty&orderby=<%=session("orderby")%>">预定量</a></td>
          <td width="8%"  align=center bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=poqty&orderby=<%=session("orderby")%>">已订量</a><br>
            <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=accountname&orderby=<%=session("orderby")%>">订货价</a></td>
          <td width="20%"  align=center bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=deliverydate&orderby=<%=session("orderby")%>">预计货期</a><br>
            <a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=shipdate&orderby=<%=session("orderby")%>">合同货期</a></td>
          <td width="8%"  align=center bgcolor="efefef"><a href="poapply.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ownername&orderby=<%=session("orderby")%>">销售员</a></td>
    </tr>
    <%
  set poapplyid=rs("poapplyid")
  set model=rs("model")
  set orderId=rs("orderId")
  set ordernum=rs("ordernum")
  set accountname=rs("accountname")
  set lineid=rs("lineid")
  set discountprice=rs("discountprice")
  set orderqty=rs("orderqty")
  set poapplyqty=rs("poapplyqty")
  set poqty=rs("poqty")
  set poprice=rs("poprice")
  set deliverydate=rs("deliverydate")
  set ownername=rs("ownername")
  set shipdate=rs("shipdate")
  set poapplyno=rs("poapplyno")
  i=1:totalorderamount=0
  totalpoamount=0
 do while not rs.EOF and i<=session("localpagesize")
  if poprice<>"" and poqty<>"" then totalpoamount=totalpoamount+ccur(poprice)*poqty else poprice=0
  if discountprice<>"" then	totalorderamount=totalorderamount+ccur(discountprice)*poapplyqty 'else discountprice=0
     if prepoapplyno<>poapplyno then
	 'i=1
   	%>	  
	<tr>
    <td align="center" bgcolor="#FFFFFF" height=22><a href="javascript:;" onClick="showTr('<%=poapplyno%>');"><img src="../images/pot_minus.gif" width="12" height="12" border="0" id="<%=poapplyno%>_minus" style="display:"><img src="../images/pot_plus.gif" width="12" height="12" border="0" id="<%=poapplyno%>_plus" style="display:none"></a></td>
	      <td bgcolor="ffffff">&nbsp;
<input type="radio" name="poapplynoradio" value="<%=poapplyno%>" onclick="javascript:this.form.poapplyno.value=this.value">
            <font color="#990000" size=2><b>No.<%=poapplyno%></b></font>
            <a href="javascript:convert('<%=poapplyno%>');" title="转换为采购单">&gt;&gt;转换</a></td>
	      <td colspan="4" bgcolor="#DFEFFF" align="center"><%=getsubtotal(poapplyno)%></td>
	      <td bgcolor="ffffff"></td>
        </tr>
	<%
   		prepoapplyno=poapplyno			
   end if
%>
        <tr id="tr_<%=i%>" style="display:"> 
          <td height="24" align="right" bgcolor="#FFFFFF"><img src="../images/pot_line.gif"></td>
          <td align=left bgcolor="ffffff"> 
            <%if objcheck.CheckUserFunction2("po","add") then%>
            <a href="javascript:opensubwin3('../delete.asp?poapplyid=<%=poapplyid%>','','resizable=no, scrollbars=no, left= 350, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200');"> 
            <img src="../images/deleteicon.gif" border=0> </a> 
            <%end if%>
            <%=model%></td>
          <td align=center bgcolor="ffffff"> 
            <%if isnull(orderqty) then response.write "--" else response.write orderqty%>
          </td>
          <td align=center bgcolor="ffffff"><%=poapplyqty%></td>
          <td align=center bgcolor="ffffff"> 
            <%if isnull(poqty) then %>
            <a href="javascript:opensubwin3('Setpoapply.asp?poapplyid=<%=poapplyid%>','','resizable=no, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');"  title="订货"><img src="../images/kago3.gif" border="0"></a> 
            <%else%>
            <a href="javascript:opensubwin3('Setpoapply.asp?poapplyid=<%=poapplyid%>&mod=detail','','resizable=no, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');"  title="订货"><font color=red><%=poqty%></font></a> 
            <%end if%>
          </td>
          <td align=center bgcolor="ffffff"> 
            <script language="JavaScript" src="comm.js"></script>
	    <input type="text" name="deliverydate<%=poapplyid%>" size=10 <%if objcheck.CheckUserFunction2("po","add") then%> onclick="javascript:showCal('',<%=poapplyid%>)" <%end if%> readonly value="<%=deliverydate%>">
		<input type="button" name="clrdate<%=poapplyid%>" value="C" <%if objcheck.CheckUserFunction2("po","add") then%> onclick="javascript:clrdate(<%=poapplyid%>);" <%else response.write "disabled" end if%>></td>
          <td align=center bgcolor="ffffff"> 
            <%if ownername<>"" then response.write ownername else response.write "--"%>
          </td>
    </tr>
        <tr id="trr_<%=i%>" style="display:"> 
          <td height="16" align="right" bgcolor="#FFFFFF"><img src="../images/pot_line1.gif"></td>
              
          <td colspan=3 align=left bgcolor="ffffff"><font color="#666666"><%=ordernum%>&nbsp;&nbsp;
            <%if discountprice<>"" then response.write (formatnumber(discountprice,2))%>&nbsp;&nbsp;
            <%=accountname%></font></td>
          <td align=center bgcolor="ffffff"><font color="#666666"> 
            <%if objcheck.CheckUserFunction2("po","add") then response.write (formatnumber(poprice,2)) else response.write "--"%>
            </font></td>
          <td align=center bgcolor="ffffff"><%=shipdate%> 
            <input type="hidden" name="hid" trid="<%=i%>" ATCUSF="<%=poapplyno%>">
	  </td>
	      <td align=center bgcolor="ffffff">&nbsp;</td>
        </tr>
    <%
  i=i+1
  rs.MoveNext
  loop
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
%>
  </table>
  <%end if%>
  </td></tr>
 
  <table width="100%" align="center" border="0" cellpadding="0" cellspacing="2" bgcolor="#ffffff">
    <tr> 
      <td align=center height="1" colspan=2></td>
    </tr>
    <tr> 
      <td width="79%" height="22" align=left></td>
      <td width="21%"  align=right bgcolor="#DFEFFF"><b>本页预定产品合同金额：<%=(formatnumber(totalorderamount,2))%></b></td>
    </tr>
    <tr> 
      <td align=left height="22"></td>
      <td width="21%"  align=right bgcolor="#DFEFFF"><b>本页产品订货金额： 
        <%if objcheck.CheckUserFunction2("po","add") then response.write (formatnumber(totalpoamount,2)) else response.write "--"%>
        </b></td>
    </tr>
  </table>
</form>
</body>
</html>
<%set objcheck=nothing%>