delivery.asp

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

    </tr>
    <tr>
      <td height=4></td>
    </tr>
  </table>
  <br>
  <table width="100%" border="0" cellpadding="0" cellspacing="1">
  <tr> 
      <td width=5% height=20 align=left nowrap bgcolor="DEDFDE">收货单号</td>
      <td width="15%" height=20 bgcolor="EFEFEF"> 
        <input name="poreceive" type="hidden" size="8" value="">
        <input name="poreceivename" type="text" size="12" value=""> 
        <input type="button" name="bnporeceive" onClick="JavaScript:opensubwin2('form1','poreceive')"    value=... class=black>
		</td>
      <td width=5% height=20 align=left nowrap bgcolor="FFFFFF"><input type="submit" name=submit value="下一步"></td>
      <td height=20 align=left nowrap bgcolor="FFFFFF">&nbsp;</td>
  </tr>
</table>
</form>
<%
if Request.Form("poreceive")<>"" then
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_poreceiveline where poreceiveid="&Request.Form("poreceive"),conn,1,1
sql="select * from v_poreceive where poreceiveid="&Request.Form("poreceive")
set rsq=conn.execute(sql)
%>
<form name="form2" id="form2" method="post" action="process.asp">
<input type=hidden name=accountid value=<%=rsq("accountid")%>>
<input type=hidden name=processtype value="poreceivereturn">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor=efefef>
<%
i=1
do while not rs.EOF%>
	<tr>
		
      <td width="3%" height=20 align=center bgcolor="DEDFDE">货号</td>
      <td width="3%"><%=rs("productcode")%><input type=hidden name=product<%=i%> value=<%=rs("productid")%>></td>
		
      <td width="3%" align=center bgcolor="DEDFDE">型号</td>
      <td width="10%"><%=rs("model")%>
<input type=hidden name=poid<%=i%> value=<%=rs("poid")%>>
      </td>
		
      <td width="6%" align=center bgcolor="DEDFDE">SLIP编号</td>
      <td width="5%"><%=rs("slipno")%><input type=hidden name=polineid<%=i%> value=<%=rs("polineid")%>><input type=hidden name=poreceivelineid<%=i%> value=<%=rs("lineid")%>><input type=hidden name=poreceiveid<%=i%> value=<%=rs("poreceiveid")%>></td>
		
      <td width="4%" align=center bgcolor="DEDFDE">数量</td>
      <td width="3%"><%=rs("qty")%>
<input type=hidden name=price<%=i%> value=<%=rs("price")%>></td>
		
      <td width="5%" align=center bgcolor="DEDFDE">已收数量</td>
      <td width="3%"><%=rs("issuedqty")%>
<input type=hidden name=poaccountid<%=i%> value=<%=rs("poaccountid")%>></td>
		
      <td width="5%" align=center bgcolor="DEDFDE">已退数量</td>
      <td width="3%"><%=rs("returnqty")%></td>
		<%if rs("returnqty")=rs("issuedqty") then%>
			
      <td width="5%" align=center bgcolor="DEDFDE"> 
        <%if rs("issuedqty")=0 then%>
        未收货 
        <%else%>
        退货完成 
        <%end if%>
      </td>
      <td width="3%">
<input type=hidden name=maxqty<%=i%> value=0><input type=hidden name=sendqty<%=i%> value=0>
			<input name="location<%=i%>" type="hidden" value="">
      </td>
		<%else%>
			
      <td width="5%" align=center bgcolor="DEDFDE">退货数量</td>
      <td width="6%">
<input type=hidden name=maxqty<%=i%> value=<%=cint(rs("issuedqty"))-cint(rs("returnqty"))%>><input type=text name=sendqty<%=i%> value=0 size=8>
      </td>
			
      <td width="3%" align=center bgcolor="DEDFDE">货位</td>
      <td width="8%"> 
        <input name="sendlocation<%=i%>" type="hidden" size="8" value=""><input name="sendlocation<%=i%>name" type="text" size="8" value=""><input type="button" name="bnsendlocation<%=i%>" onClick="JavaScript:opensubwin2('form2','sendlocation<%=i%>','<%=rs("productid")%>','<%=i%>')"    value=... class=black><input type=hidden name=available<%=i%>>
      </td>
		<%end if%>
		</tr>
<%
rs.MoveNext
i=i+1
loop
%>
</table>
<table width=100%>
<tr><td height=50 align=center><input type=hidden name=linecount id=linecount value=<%=i%>><input type=button value="退货" onclick="receive()" id=button2 name=button2></td></tr>
</table>
</form>
<%
end if
%>
<script language=javascript>
function receive(){
	var breceive=false;
	for(i=1;i<=form2.linecount.value-1;i++){
		var sendqty='sendqty'+i;
		var maxqty='maxqty'+i;
		var sendlocation='sendlocation'+i;
		if (parseInt(form2.item(sendqty).value)>parseInt(form2.item(maxqty).value)){
			alert('超过最大退货数量!');
			form2.item(sendqty).focus();
			return;
		}
		if (form2.item(sendqty).value>0){
			if (form2.item(sendlocation).value==''){
				alert('请选择退货货位!');
				form2.item(sendlocation).focus();
				return;
			}
		}
		
		if (form2.item(sendqty).value<0){
			alert('退货数量不能为负数!');
			form2.item(sendqty).focus();
			return;
		}	
			
		if (form2.item(sendqty).value>0){
			breceive=true;
		}		
	}
	if (breceive==false){
		alert('请输入退货数量!');
		return;
	}
	form2.submit();
}
</script>
<%'合同退货#############################################################################################################
elseif Request("type")="orderreturn" then%>

<form name="form1" method="post" action="">
  <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="25"><strong><font class=title>合同退货</font></strong> </td>
    </tr>
    <tr > 
      <td height="16" colspan="3" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
  </table>
  <br>
  <table width="100%" border="0" cellpadding="0" cellspacing="1">
  <tr> 
      <td width=5% height=20 align=left nowrap bgcolor="DEDFDE">合同号</td>
      <td width="15%" height=20 bgcolor="EFEFEF"> 
        <input name="order" type="hidden" size="8" value=""> 
        <input name="ordername" type="text" size="12" value="" readonly> 
        <input type="button" name="bnorder" onClick="JavaScript:opensubwin2('form1','order')"    value=... class=black>
      </td>
      <td width=5% height=20 align=left nowrap bgcolor="FFFFFF"><input type="submit" name=submit value="下一步"></td>
      <td width="75%" height=20 align=left nowrap bgcolor="FFFFFF">&nbsp;</td>
  </tr>
</table>
</form>
<%
if Request.Form("ordername")<>"" then
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_orderline where orderid="&Request.Form("order"),conn,1,1
set rso=conn.Execute("select totalamount from [order] where orderid="&Request.Form("order"))

%>
<form name="form2" id="form2" method="post" action="process.asp">
<input type=hidden name=processtype value="orderreturn">
<input type=hidden name=ordertotalamount value=<%=rso("totalamount")%>>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor=efefef>
<%
i=1
do while not rs.EOF%>
	<tr>
		<td align=center height=20>合同号</td><td><%=rs("ordernum")%><input type=hidden name=product<%=i%> value=<%=rs("productid")%>></td>
		<td align=center>货号</td><td><%=rs("productcode")%><input type=hidden name=orderid<%=i%> value=<%=rs("orderid")%>></td>
		<td align=center>型号</td><td><%=rs("model")%><input type=hidden name=orderlineid<%=i%> value=<%=rs("lineid")%>></td>
		<td align=center>数量</td><td><%=rs("qty")%><input type=hidden name=price<%=i%> value=<%=rs("price")%>></td>
		<td align=center>已发数量</td><td><%=rs("issuedqty")%></td>
		<td align=center>已退数量</td><td><%=rs("returnqty")%></td>
		<%if rs("returnqty")=rs("issuedqty") then%>
			<td align=center><%if rs("issuedqty")=0 then%>未发货<%else%>已退完<%end if%></td><td><input type=hidden name=maxqty<%=i%> value=0><input type=hidden name=sendqty<%=i%> value=0></td>
			<td align=center></td><td><input name="location<%=i%>" type="hidden" value=""></td>
		<%else%>
			<td align=center>退货数量</td><td><input type=hidden name=maxqty<%=i%> value=<%=cint(rs("issuedqty"))-cint(rs("returnqty"))%>><input type=text name=sendqty<%=i%> value=0 size=8></td>
			<td align=center>货位</td><td><input name="location<%=i%>" type="hidden" size="8" value=""><input name="location<%=i%>name" type="text" size="8" value=""><input type="button" name="bnlocation<%=i%>" onClick="JavaScript:opensubwin2('form2','location<%=i%>')"    value=... class=black></td>
		<%end if%>
		</tr>
<%
rs.MoveNext
i=i+1
loop
%>
</table>
<table width=100%>
<tr><td height=50 align=center><input type=hidden name=linecount id=linecount value=<%=i%>><input type=button value="退货" onclick="send()" id=button1 name=button1></td></tr>
</table>
</form>
<%
end if
%>
<script language=javascript>
function send(){
	var bsend=false;
	for(i=1;i<=form2.linecount.value-1;i++){
		var sendqty='sendqty'+i;
		var maxqty='maxqty'+i;
		var location='location'+i;
		if(parseInt(form2.item(sendqty).value)>0){
			if (parseInt(form2.item(sendqty).value)>parseInt(form2.item(maxqty).value)){
				alert('超过最大可退数量!');
				form2.item(sendqty).focus();
				return;
			}
			if (form2.item(sendqty).value>0){
				if (form2.item(location).value==''){
					alert('请选择退货货位!');
					form2.item(location).focus();
					return;
				}
			}
		
			if (form2.item(sendqty).value<0){
				alert('退货数量不能为负数!');
				form2.item(sendqty).focus();
				return;
			}	
					
			if (form2.item(sendqty).value>0){
				bsend=true;
			}
		}		
	}
	if (bsend==false){
		alert('请输入退货数量!');
		return;
	}
	form2.submit();
}
</script>
<%'发货单退货saa#############################################################################################################
elseif Request("type")="deliveryreturn" then%>

<form name="form1" method="post" action="">
  <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="25"><strong><font class=title>销售退货</font></strong> </td>
    </tr>
    <tr > 
      <td height="16" colspan="3" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
  </table>
  <br>
  <table width="100%" border="0" cellpadding="0" cellspacing="1">
  <tr> 
      <td width=5% height=20 align=left nowrap bgcolor="DEDFDE">发货单号</td>
      <td width="15%" height=20 bgcolor="EFEFEF"> 
        <input name="delivery" type="hidden" size="8" value=""> 
        <input name="deliveryname" type="text" size="12" value="" readonly> 
        <input type="button" name="bndelivery" onClick="JavaScript:opensubwin2('form1','delivery')"    value=... class=black>
      </td>
      <td width=5% height=20 align=left nowrap bgcolor="FFFFFF"><input type="submit" name=submit value="下一步"></td>
      <td width="75%" height=20 align=left nowrap bgcolor="FFFFFF">&nbsp;</td>
  </tr>
</table>
</form>
<%
if Request.Form("delivery")<>"" then
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_deliveryline where deliveryid="&Request.Form("delivery"),conn,1,1
set rso=conn.Execute("select * from v_delivery where deliveryid="&Request.Form("delivery"))
'response.write "select * from v_delivery where deliveryid="&Request.Form("delivery")
%>
<form name="form2" id="form2" method="post" action="process.asp">
<input type=hidden name=processtype value="deliveryreturn">
<input type=hidden name=deliverytotalamount value=<%=rso("totalamount")%>>
<input type=hidden name=accountid value=<%=rso("accountid")%>>
<input type=hidden name=binvoice value=<%=rso("invoice")%>>
<input type=hidden name=orderid value=<%=rso("orderid")%>>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor=efefef>
<%
i=1
do while not rs.EOF%>
	<tr>
		<td align=center height=20>发货单号</td><td><%=rs("deliveryno")%><input type=hidden name=product<%=i%> value=<%=rs("productid")%>></td>
		<td align=center>货号</td><td><%=rs("productcode")%><input type=hidden name=orderid<%=i%> value=<%=rs("orderid")%>></td>
		<td align=center>型号</td><td><%=rs("model")%><input type=hidden name=orderlineid<%=i%> value=<%=rs("orderlineid")%>></td>
		<td align=center>数量</td><td><%=rs("qty")%><input type=hidden name=price<%=i%> value=<%=rs("price")%>><input type=hidden name=cost<%=i%> value=<%=rs("cost")%>></td>
		<td align=center>已发数量</td><td><%=rs("issuedqty")%><input type=hidden name=deliveryid<%=i%> value=<%=rs("deliveryid")%>><input type=hidden name=deliverylineid<%=i%> value=<%=rs("lineid")%>></td>
		<td align=center>已退数量</td><td><%=rs("returnqty")%><input type=hidden name=discountprice<%=i%> value=<%=rs("discountprice")%>></td>
		<%if rs("returnqty")=rs("issuedqty") then%>
			<td align=center><%if rs("issuedqty")=0 then%>未发货<%else%>已退完<%end if%></td><td><input type=hidden name=maxqty<%=i%> value=0><input type=hidden name=sendqty<%=i%> value=0></td>
			<td align=center></td><td><input name="location<%=i%>" type="hidden" value=""></td>
		<%else%>
			<td align=center>退货数量</td><td><input type=hidden name=maxqty<%=i%> value=<%=cint(rs("issuedqty"))-cint(rs("returnqty"))%>><input type=text name=sendqty<%=i%> value=0 size=8></td>
			<td align=center>货位</td><td><input name="location<%=i%>" type="hidden" size="8" value=""><input name="location<%=i%>name" type="text" size="8" value=""><input type="button" name="bnlocation<%=i%>" onClick="JavaScript:opensubwin2('form2','location<%=i%>')"    value=... class=black></td>
		<%end if%>
		</tr>
<%
rs.MoveNext
i=i+1
loop
%>
</table>
<table width=100%>
<tr><td height=50 align=center><input type=hidden name=linecount id=linecount value=<%=i%>><input type=button value="退货" onclick="send()" id=button1 name=button1></td></tr>
</table>
</form>
<%
end if
%>
<script language=javascript>
function send(){
	var bsend=false;
	for(i=1;i<=form2.linecount.value-1;i++){
		var sendqty='sendqty'+i;
		var maxqty='maxqty'+i;
		var location='location'+i;
		if(parseInt(form2.item(sendqty).value)>0){
			if (parseInt(form2.item(sendqty).value)>parseInt(form2.item(maxqty).value)){
				alert('超过最大可退数量!');
				form2.item(sendqty).focus();
				return;
			}
			if (form2.item(sendqty).value>0){
				if (form2.item(location).value==''){
					alert('请选择退货货位!');
					form2.item(location).focus();
					return;
				}
			}
		
			if (form2.item(sendqty).value<0){
				alert('退货数量不能为负数!');
				form2.item(sendqty).focus();
				return;
			}	
					
			if (form2.item(sendqty).value>0){
				bsend=true;
			}
		}		
	}
	if (bsend==false){
		alert('请输入退货数量!');
		return;
	}
	form2.submit();
}
</script>
<%end if%>
</body>
</html>