📄 delivery.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "delivery","edit"
set objcheck=nothing
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body leftmargin="10" rightmargin="0" topmargin="10">
<%'收货单收货#############################################################################################################
if Request("type")="poreceive" 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"> </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="poreceive" type="hidden" size="8" value="">
<input name="poreceivename" type="text" size="12" value="" readonly>
<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"> </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")&" order by polineid",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=processtype value="poreceive">
<input type=hidden name=accountid value=<%=rsq("accountid")%>>
<input type=hidden name=poreceiveid value=<%=Request.Form("poreceive")%>>
<%
if not rs.eof then
%>
<input type=hidden name=pototalamount value=<%=rsq("totalamount")%>>
<%end if%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor=efefef>
<%
i=1
do while not rs.EOF%>
<tr>
<td width="5%" height=20 align=center bgcolor="DEDFDE">货号</td>
<td width="6%"><%=rs("productcode")%><input type=hidden name=product<%=i%> value=<%=rs("productid")%>><input type=hidden name=poreceivelineid<%=i%> value=<%=rs("lineid")%>></td>
<td width="7%" align=center bgcolor="DEDFDE">型号</td>
<td width="8%"><%=rs("model")%><input type=hidden name=poid<%=i%> value=<%=rs("poid")%>></td>
<td width="5%" align=center bgcolor="DEDFDE">SLIP编号</td>
<td width="5%"><%=rs("slipno")%>
<input type=hidden name=polineid<%=i%> value=<%=rs("polineid")%>></td>
<td width="5%" align=center bgcolor="DEDFDE">数量</td>
<td width="5%"><%=rs("poqty")%>
<input type=hidden name=price<%=i%> value=<%=rs("price")%>></td>
<td width="5%" align=center bgcolor="DEDFDE">已收数量</td>
<td width="5%"><%=rs("issuedqty")%>
<input type=hidden name=poaccountid<%=i%> value=<%=rs("poaccountid")%>></td>
<%if rs("poqty")=rs("issuedqty") then%>
<td width="5%" align=center bgcolor="DEDFDE">收货完成</td>
<td width="5%">
<input type=hidden name=maxqty<%=i%> value=0>
<input type=hidden name=receiveqty<%=i%> value=0></td>
<td width="3%" align=center></td><td width="5%"><input name="location<%=i%>" type="hidden" value=""></td>
<%else%>
<td width="5%" align=center bgcolor="DEDFDE">收货数量</td>
<td width="8%">
<input type=hidden name=maxqty<%=i%> value=<%=rs("poqty")-rs("issuedqty")%> readonly>
<input type=text name=receiveqty<%=i%> value=<%=csng(rs("qty"))%> size=8></td>
<td width="5%" align=center bgcolor="DEDFDE">货位</td>
<td width="9%">
<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="receive()"></td></tr>
</table>
</form>
<%
end if
%>
<script language=javascript>
function receive(){
var breceive=false;
for(i=1;i<=form2.linecount.value-1;i++){
var receiveqty='receiveqty'+i;
var maxqty='maxqty'+i;
var location='location'+i;
if (parseInt(form2.item(receiveqty).value)>parseInt(form2.item(maxqty).value)){
alert('超过最大收货数量!');
form2.item(receiveqty).focus();
return;
}
if (form2.item(receiveqty).value>0){
if (form2.item(location).value==''){
alert('请选择收货货位!');
form2.item(location).focus();
return;
}
}
if (form2.item(receiveqty).value<0){
alert('收货数量不能为负数!');
form2.item(receiveqty).focus();
return;
}
if (form2.item(receiveqty).value>0){
breceive=true;
}
}
if (breceive==false){
alert('请输入发货数量!');
return;
}
form2.submit();
}
</script>
<%'发货单发货#############################################################################################################
elseif request("type")="deliverysend" 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"> </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"> </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 deliveryid,invoice,accountid,orderid,totalamount from v_delivery where deliveryid="&Request.Form("delivery"))
%>
<form name="form2" id="form2" method="post" action="process.asp">
<input type=hidden name=processtype value="deliverysend">
<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")%>>
<input type=hidden name=deliveryid value=<%=rso("deliveryid")%>>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor=efefef>
<%
i=1
do while not rs.EOF%>
<tr>
<td width="6%" height=20 align=center bgcolor="DEDFDE">发货单号</td>
<td width="7%"><%=rs("deliveryno")%><input type=hidden name=product<%=i%> value=<%=rs("productid")%>></td>
<td width="6%" align=center bgcolor="DEDFDE">货号</td>
<td width="8%"><%=rs("productcode")%><input type=hidden name=deliveryid<%=i%> value=<%=rs("deliveryid")%>><input type=hidden name=deliverylineid<%=i%> value=<%=rs("lineid")%>></td>
<td width="5%" align=center bgcolor="DEDFDE">型号</td>
<td><%=rs("model")%>
<input type=hidden name=orderlineid<%=i%> value=<%=rs("orderlineid")%>><input type=hidden name=model<%=i%> value=<%=rs("model")%>>
</td>
<td width="5%" align=center bgcolor="DEDFDE">数量</td>
<td width="5%"><%=rs("orderqty")%>
<input type=hidden name=discountprice<%=i%> value=<%=rs("discountprice")%>>
</td>
<td width="5%" align=center bgcolor="DEDFDE">已发量</td>
<td width="5%"><%=rs("issuedqty")%></td>
<%if rs("orderqty")=rs("issuedqty") then%>
<td width="5%" align=center bgcolor="DEDFDE">发货完成</td>
<td width="5%">
<input type=hidden name=bsend<%=i%> value=1><input type=hidden name=maxqty<%=i%> value=0><input type=hidden name=sendqty<%=i%> value=0>
<input name="sendlocation<%=i%>" type="hidden" value=""></td>
<%else%>
<td width="5%" align=center bgcolor="DEDFDE">发货量</td>
<td width="8%">
<%
if rs("orderqty")="" then orderqty=0 else orderqty=cint(rs("orderqty"))
if rs("issuedqty")="" then issuedqty=0 else issuedqty=cint(rs("issuedqty"))
%>
<input type=hidden name=bsend<%=i%> value=0><input type=hidden name=maxqty<%=i%> value=<%=orderqty-issuedqty%>>
<input type=text name=sendqty<%=i%> value=<%=rs("Qty")%> size=8 readonly></td>
<td width="5%" 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%>><input type=hidden name=maxavailable<%=i%> value=<%=getmaxavailable(rs("productid"))%>><input type=hidden name=maxnonnetavailable<%=i%> value=<%=getmaxnonnetavailable(rs("productid"))%>><input type=hidden name=reserveqty<%=i%> value=<%=getreserveqty(rs("orderlineid"))%>><input type=hidden name=nonnet<%=i%>><input type=hidden name=whse<%=i%>>
</td>
<%end if%>
</tr>
<%
rs.MoveNext
i=i+1
loop
%>
</table>
<table width=100%>
<tr>
<td height=50 align=center><br>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFE6FF">
<td height="18" colspan="6">物流承运信息</td>
</tr>
<tr>
<td><div align="right">承运公司:</div></td>
<td><input name="deliverycompany" type="text" size="12" value="" ></td>
<td><div align="right">联系人:</div></td>
<td><input name="deliverycontact" type="text" size="12" value="" ></td>
<td><div align="right">联系电话:</div></td>
<td><input name="deliveryphone" type="text" size="12" value="" ></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td width="10%"><div align="right">发货日期:</div></td>
<td width="10%"><input name="deliverydate" type="text" size="12" value="<%=date()%>" ></td>
<td width="10%"><div align="right">承运单号码:</div></td>
<td width="10%"><input name="deliverynum" type="text" size="12" value="" ></td>
<td width="10%"><div align="right">运费:</div></td>
<td width="10%"><input name="deliveryexpense" type="text" size="12" value="0" ></td>
</tr>
</table>
<br>
<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 sendlocation='sendlocation'+i;
var available='available'+i;
var maxavailable='maxavailable'+i;
var maxnonnetavailable='maxnonnetavailable'+i;
var reserveqty='reserveqty'+i;
var bsend='bsend'+i;
var model='model'+i;
var nonnet='nonnet'+i;
if (parseInt(form2.item(bsend).value)==1){
alert('有合同细目已经发货完成，请修改发货单再重新发货!');
return;
}
if(parseInt(form2.item(sendqty).value)>0){
if (parseInt(form2.item(sendqty).value)>parseInt(form2.item(maxqty).value)){
alert(form2.item(model).value+',超过最大可发数量!');
form2.item(sendqty).focus();
return;
}
if (parseInt(form2.item(sendqty).value)>parseInt(form2.item(available).value)){
alert(form2.item(model).value+'的可用库存量不足,可用量为:'+form2.item(available).value);
form2.item(sendqty).focus();
return;
}
if (parseInt(form2.item(reserveqty).value)==0){
if(form2.item(nonnet).value=='True'){
if (parseInt(form2.item(sendqty).value)>parseInt(form2.item(maxnonnetavailable).value)){
alert(form2.item(model).value+'的可用库存量为其他合同保留,总可用量为:'+form2.item(maxavailable).value);
form2.item(sendqty).focus();
return;
}
}
else{
if (parseInt(form2.item(sendqty).value)>parseInt(form2.item(maxavailable).value)){
alert(form2.item(model).value+'的可用库存量为其他合同保留,总可用量为:'+form2.item(maxavailable).value);
form2.item(sendqty).focus();
return;
}
}
}
if (parseInt(form2.item(reserveqty).value)>0){
if (parseInt(form2.item(sendqty).value)>(parseInt(form2.item(maxavailable).value)+parseInt(form2.item( reserveqty).value))){
alert('可用库存量不足,可发数量为:'+(parseInt(form2.item(maxavailable).value)+parseInt(form2.item( reserveqty).value)));
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){
bsend=true;
}
}
}
if (bsend==false){
alert('请输入发货数量!');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -