📄 selectorderproduct.asp
字号:
<!--#include file="../config.ini"-->
<!--#include file="../commfunction.inc" -->
<%
sysid=1
dim connq
dim rsq
set connq=server.CreateObject("adodb.connection")
set rsq=server.CreateObject("adodb.recordset")
connq.Open connstring
set rsq=connq.Execute("select confirmed from [order] where orderid="&Request("orderid"))
if rsq.EOF then
Response.Write "<br><br><div align=center>没有找到合同!</div>"
else
if trim(rsq("confirmed"))="已审核" then
else
Response.Write "<br><br><div align=center>审核过的合同才可以预定，请先审核合同!</div>"
Response.End
end if
end if
if request("mod")="saveone" then
rsq.Open "select * from poapply where poapplyid=0",connq,2,3,1
if request("poapplyqty"&request("seq"))<>0 and request("bpoapply"&request("seq"))="no" then
rsq.addnew
rsq("productid")=request("productid"&request("seq"))
rsq("lineid")=request("lineid"&request("seq"))
rsq("poapplyqty")=request("poapplyqty"&request("seq"))
rsq("createdate")=now()
rsq("creator")=session("loginid")
rsq("status")="initial"
rsq.Update
end if
rsq.Close
set rsq=nothing
connq.Close
set connq=nothing
response.write "<SCRIPT language=javascript>window.resizeTo(580,160);window.focus()</SCRIPT>"
response.write "<title>产品预定选择</title>"
response.write "<LINK href="&"../global.css"&" rel=stylesheet type=text/css>"
response.write "<br>"
response.write "<p align=center><font color=red size=2><b>"&"<img src=../images/smallprompt.jpg> 预定申请成功！"&"</b></font><br>"
response.write "<font size=2>如发现有问题请到<产品预定申请>页面删除后重新预定！"&"</font></p>"
response.write "<p align=center><input type=button value="&"继续"&" onclick="&"javascript:saveok();"&"></p>"
response.write "<Script Language=JavaScript>"
response.write "function saveok(){"
response.write "window.opener.location.reload();"
response.write "window.close();}"
response.write "</script>"
response.end
%>
<%end if%>
<%
if request("mod")="saveall" then
dim connr
dim rsr
set connr=server.CreateObject("adodb.connection")
set rsr=server.CreateObject("adodb.recordset")
connr.Open connstring
rsr.Open "select * from poapply where poapplyid=0",connr,2,3,1
for i=1 to request("linecount")
connr.execute("delete from poapply where lineid="&request("lineid"&i)&" and poqty is null")
if request("poapplyqty"&i)>0 then
rsr.addnew
rsr("productid")=request("productid"&i)
rsr("lineid")=request("lineid"&i)
rsr("poapplyqty")=request("poapplyqty"&i)
rsr("createdate")=now()
rsr("creator")=session("loginid")
rsr("status")="initial"
rsr.Update
end if
next
rsr.Close
set rsr=nothing
connr.Close
set connr=nothing
response.write "<SCRIPT language=javascript>window.resizeTo(580,180);window.focus()</SCRIPT>"
response.write "<title>产品预定选择</title>"
response.write "<LINK href="&"../global.css"&" rel=stylesheet type=text/css>"
response.write "<br>"
if bselect=false then
response.write "<p align=center><font color=red size=2><b>"&"<img src=../images/smallprompt.jpg> 预定产品未选择或产品已预定！"&"</b></font><br>"
response.write "<p align=center><input type=button value="&"返回"&" onclick="&"javascript:nosave();"&"></p>"
else
response.write "<p align=center><font color=red size=2><b>"&"<img src=../images/smallprompt.jpg> 预定申请成功！"&"</b></font><br>"
response.write "<font size=2>如发现有问题请到<产品预定申请>页面删除后重新预定！"&"</font><br>"
response.write "<p align=center><input type=button value="&"继续"&" onclick="&"javascript:saveok();"&"></p>"
end if
response.write "<Script Language=JavaScript>"
response.write "function saveok(){"
response.write "window.opener.location.reload();"
response.write "window.close();}"
response.write "function nosave(){"
response.write "window.close();}"
response.write "</script>"
response.end
%>
<%end if%>
<html>
<head>
<title>产品预定选择</title>
<Script Language=JavaScript>
function pickup2(i,orderqty){
var poapplyqty='poapplyqty'+i;
var boxed="boxed"+i;
if(theForm.item(boxed).checked){
if (isNaN(theForm.item(poapplyqty).value)||parseInt(theForm.item(poapplyqty).value) <= 0 || theForm.item(poapplyqty).value==''){
alert('第'+i+'行输入的预定数量不正确!');
theForm.item(poapplyqty).focus();
return;
}
if (parseInt(theForm.item(poapplyqty).value) > orderqty){
alert('第'+i+'行预定数量不能超过合同数量!');
theForm.item(poapplyqty).focus();
return;
}
}
theForm.mod.value="saveone";
theForm.seq.value=i;
theForm.submit();
}
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function bsubmit(){
for(x=1;x<=theForm.linecount.value;x++){
var poapplyqty='poapplyqty'+x;
var orderqty="orderqty"+x;
if (isNaN(theForm.item(poapplyqty).value)||theForm.item(poapplyqty).value==''){
alert('第'+x+'行输入的预定数量不正确!');
theForm.item(poapplyqty).focus();
return;
}
if (parseInt(theForm.item(poapplyqty).value) > parseInt(theForm.item(orderqty).value)){
alert('第'+x+'行预定数量不能超过合同数量!');
theForm.item(poapplyqty).focus();
return;
}
}
theForm.mod.value="saveall";
theForm.submit();
}
function bsubmit2(){
if (theForm.StartWith.value==""){
alert("搜索内容不能为空!")
theForm.StartWith.focus();
return;
}
theForm.submit();
}
</Script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../global.css" rel=stylesheet type=text/css>
</head>
<body leftmargin="10" rightmargin="10" topmargin="10" onUnload="window.opener.location.reload()">
<form name="theForm" method="Post" action="">
<input type=hidden name=mod>
<input type=hidden name=seq>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td height="25"><strong><font size="2" class="title">合同产品预定选择</font></strong></td>
<td align="right"><a href="javascript:window.close();"><img src="../images/button_close.gif" border=0></a></td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"> </td>
</tr>
</table>
<table width="100%" bgcolor=cdcdcd cellspacing=1>
<tr bgcolor=efefef>
<%if request("orderid")<>"" then%>
<%end if%>
<td align=center height=22 width="12%">预定状态</td>
<td align=center>型号</td>
<td align=center width="12%">合同号</td>
<td align=center width="8%">合同量</td>
<td align=center width="8%">已发量</td>
<td align=center width="8%">已保留</td>
<td align=center width="8%">可用量</td>
<td align=center width="12%">预定量</td>
<td align=center width="8%">销售员</td>
</tr>
<%
sql = "select * from v_orderline where orderid="&request("orderid")&" and sysaccountid="&sysid
set conn=server.CreateObject("adodb.connection")
conn.Open connstring
set rs=conn.execute(sql)
set lineid=rs("lineid")
set orderid=rs("orderid")
set ordernum=rs("ordernum")
set productid=rs("productid")
set productcode=rs("productcode")
set model=rs("model")
set orderqty=rs("qty")
set owner=rs("owner")
set qty_on_hand=rs("qty_on_hand")
set qty_rsvd=rs("qty_rsvd")
set issuedqty=rs("issuedqty")
set poapplyqty=rs("poapplyqty")
set poqty=rs("poqty")
set reservedqty=rs("rsvdqty")
i=1
do while not rs.EOF
'poapplyqty=getfieldvalue("poapply","lineid",lineid,"poapplyqty")
if qty_on_hand<>"" then
availableqty=qty_on_hand-qty_rsvd
else
availableqty=0
end if
%>
<tr bgcolor=white>
<input name=productid<%=i%> value="<%=productid%>" type="hidden">
<input name=lineid<%=i%> value="<%=lineid%>" type="hidden">
<%if request("orderid")<>"" then%>
<%end if%>
<td align="center" height=22>
<%if poqty<>"" then%>
<font color=red>已订购</font>
<%else
if poapplyqty<>"" then%>
<font color=green>已申请</font>
<%else%>
<font color=black>未申请</font>
<%end if
end if%>
</td>
<td align="center"><%=model%></td>
<td align="center"><%=ordernum%></td>
<td align="center"><input type=hidden name="orderqty<%=i%>" value="<%=orderqty%>">
<%=orderqty%></td>
<td align="center"><%=issuedqty%></td>
<td align="center">
<%if reservedqty<>"" then
response.Write(reservedqty)
else
response.Write(0)
end if
%></td>
<td align="center"><%=availableqty%></td>
<td align="center">
<%if reservedqty<>"" then strreservedqty=reservedqty else strreservedqty=0
if poqty<>"" then
response.write "<font color=red>"&poqty&"</font>"
%>
<input type=hidden name=poapplyqty<%=i%> size=8 value=-1>
<%
else
if poapplyqty<>"" then
tempqty=poapplyqty
else
tempqty=orderqty-(availableqty)-issuedqty-strreservedqty
if tempqty<0 then tempqty=0
end if
%>
<input type=text name=poapplyqty<%=i%> size=4 value="<%=tempqty%>">
<%end if%>
</td>
<td align="center"><%=owner%></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
rs.close
Set rs = nothing
conn.Close
set conn = nothing
%>
<%if request("orderid")<>"" then%>
<tr>
<td colspan=9 height=40 bgcolor="#FFFFFF"> <br>
<input type=button value=" 预定申请·提交 " onclick="bsubmit();">
<br>
<br>
不预定或者取消预定请输入"<font color="#FF0000">0</font>"</td>
</tr>
<%end if%>
</table>
<input type=hidden name=linecount value=<%=i-1%>>
<input type=hidden name=orderid value=<%=request("orderid")%>>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -