📄 omronpolist.asp
字号:
<td align="right"><%=lastupdate%></td>
</tr>
</table>
<div id="table1" style="border-color:#CC0000;border-width:1px;border-style:Dotted;">
<table width="680" border="0" cellpadding="0" cellspacing="0" align="center">
<tr valign="bottom">
<td align=left><font color="#FF0000" size=2><strong>
<%if session("strstatus")="1" then Response.Write "※显示所有未提的订单，你要提货请先添加为待提订单"%>
<%if session("strstatus")="2" then Response.Write "※显示所有待提的订单，在该状态下的订单可打印，请实际提货后及时转换为已提订单"%>
<%if session("strstatus")="3" then Response.Write "※显示所有已提的订单，你如要继续提货，请先转换为未提订单"%>
</strong></font></td>
<td height=30 align="right"><img src="../images/smallprompt.jpg"> 第<%=CurPage%>页 / 共<%=RS.PageCount%>页 / 记录数:<%=Rs.RecordCount%>条
</td>
</tr>
</table>
<table align="center" border='2' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#C0C0C0' width='680' bordercolorlight='#CCCCCC' bordercolordark='#808080'>
<tr><td width='100%' align='center'>
<table border=1 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
<tr bgcolor='#FFE6FF'>
<td><input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form)" style="font-size: 9pt; color: #000000"></td>
<td width="12%" align=center height="22"><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=status&orderby=<%=session("orderby")%>">待提状态</a></td>
<td width="16%" align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=客户订单编号&orderby=<%=session("orderby")%>">客户订单号</a></td>
<td align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=型号&orderby=<%=session("orderby")%>">型号</a></td>
<td width="8%" align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=订货数量&orderby=<%=session("orderby")%>">订货量</a></td>
<td width="14%" align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=可提数量&orderby=<%=session("orderby")%>">可提量</a></td>
<td width="8%" align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=已提数量&orderby=<%=session("orderby")%>">已提量</a></td>
<td width="12%" align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=希望交货期&orderby=<%=session("orderby")%>">希望货期</a></td>
<!--<td width="8%" align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=printqty&orderby=<%=session("orderby")%>">待提量</a></td>-->
<td width="12%" align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=预报交货期&orderby=<%=session("orderby")%>">预报货期</a></td>
<td width="8%" align=center><a href="omronpolist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=单价&orderby=<%=session("orderby")%>">单价</a></td>
<td width="7%" align=center height="22">编辑</td>
</tr>
<%
set spno=rs("特价编号")
set pono=rs("客户订单编号")
set SLIPno=rs("SLIP号码")
set productcode=rs("货号")
set model=rs("型号")
set poqty=rs("订货数量")
set podeliveryqty=rs("可提数量")
set deliveryqty=rs("已提数量")
set price=rs("单价")
set amount=rs("总价")
set podate=rs("订单日期")
set hopedate=rs("希望交货期")
set reportdate=rs("预报交货期")
set status=rs("status")
set cost=rs("cost")
set retail_price=rs("retail_price")
set descriptions=rs("descriptions")
set printqty=rs("printqty")
if isnull(printqty) then printqty=0
i=1:totalpoamount=0:totalpodeliveryamount=0:totaldeliveryamount=0:do while not rs.EOF and i<=session("localpagesize")
totalpoamount=totalpoamount+ccur(price)*poqty'订货金额
totalpodeliveryamount=totalpodeliveryamount+ccur(price)*podeliveryqty'可提金额
totaldeliveryamount=totaldeliveryamount+ccur(price)*deliveryqty'已提金额
if cost<>"" then vscost=(formatnumber(price/cost*100,2)) else vscost=0
if retail_price<>"" then retail_price1=ccur(retail_price) else retail_price1=""
if retail_price1<>"" then vsretail_price1=(formatnumber(price/retail_price1*100,2)) else vsretail_price1=0
if i mod 2 = 1 then
%>
<tr bgcolor="#E6FDFF">
<%else%>
<tr bgcolor="#FDFFD7">
<%end if%>
<td><input type="checkbox" name="id" value="<%=productcode%>"></td>
<td height="22" align=center>
<%if isnull(status) then%>
<a href="javascript:opensubwin3('Setomronpolist.asp?SLIPno=<%=SLIPno%>&productcode=<%=productcode%>&method=dt0','','resizable=yes, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');" ><img src="../images/dt0.gif" border=0></a>
<%elseif status="ready" then %>
<a href="javascript:opensubwin3('Setomronpolist.asp?SLIPno=<%=SLIPno%>&productcode=<%=productcode%>&method=dt1','','resizable=yes, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');"><img src="../images/dt1.gif" border=0></a>
<%elseif status="complete" then %>
<a href="javascript:opensubwin3('Setomronpolist.asp?SLIPno=<%=SLIPno%>&productcode=<%=productcode%>&method=dt2','','resizable=yes, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');"><img src="../images/dt2.gif" border=0></a>
<%end if%>
</td>
<td align=left><%=pono%></td>
<td align=left><%=model%></td>
<td align=right><%=poqty%> <input type=hidden name=poqty<%=i%> value="<%=poqty%>" size=6></td>
<td align=right><%=podeliveryqty%>
<input type="hidden" name=podeliveryqty value=<%=podeliveryqty%>>
//<%=printqty%>
<input type="hidden" name=printqty value=<%=printqty%>></td>
<td align=right><%=deliveryqty%> <input type=hidden name=deliveryqty<%=i%> value="<%=deliveryqty%>" size=6></td>
<td align=right><%=hopedate%></td>
<!--<td align=left><%=printqty%></td>-->
<td align=right><%=reportdate%></td>
<td align=right>
<%if objcheck.CheckUserFunction2("po","add") then response.write price else response.write cost%>
</td>
<!--<td height="22" align=center width="7%"><a href="javascript:deletepo('<%=SLIPno%>','<%=productcode%>','<%=i%>');" title="删除该细目!"><img src="../images/cl06.gif" border=0></a></td>
-->
<td height="22" align=center width="7%"><a href="javascript:opensubwin3('Setomronpolist.asp?SLIPno=<%=SLIPno%>&productcode=<%=productcode%>&method=edit','','resizable=yes, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');" title="编辑该细目！"><img src="../images/cl06.gif" border=0></a></td>
</tr>
<tr bgcolor="#EFEFEF">
<td height="16"></td>
<td align=left colspan=5><font color="#666666"><%=SLIPno%>&&<%=spno%>&&<%=(formatnumber(amount,2))%>&&<%=productcode%>&&&&<%=podate%></font></td>
<td align=center> </td>
<td align=center><a href="javascript:opensubwin3('Setomronpolist.asp?SLIPno=<%=SLIPno%>&productcode=<%=productcode%>&method=desp','','resizable=yes, scrollbars=no, left= 300, top=150, menubar=no, location=no, toolbar=no ,width=300, height=200');" title="查看备注！">
<%if descriptions<>"" then response.write "<u>有备注</u>" else response.write "备注"%>
</a></td>
<%if objcheck.CheckUserFunction2("po","add") then%>
<%if vscost<100 then%>
<td height="16" bgcolor="990000" align="right"><font color="FFFFFF"><%=vscost%>%</font></td>
<%else%>
<td height="16" bgcolor="336699" align="right"><font color="FFFFFF"><%=vscost%>%</font></td>
<%end if%>
<td height="16" align="right">
<%response.write vsretail_price1&"%"%>
</td>
<%else%>
<td height="16" colspan=2></td>
<%end if%>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table></td></tr></table>
<%
if request("type")="orderstat" then
if objcheck.CheckUserFunction2("po","add") then
if i>1 then
rs.Movefirst:i=1:alltotalpoamount=0:alltotalpodeliveryamount=0:alltotaldeliveryamount=0:do while not rs.EOF
alltotalpoamount=alltotalpoamount+ccur(price)*poqty'订货金额
alltotalpodeliveryamount=alltotalpodeliveryamount+ccur(price)*podeliveryqty'可提金额
alltotaldeliveryamount=alltotaldeliveryamount+ccur(price)*deliveryqty'已提金额
i=i+1
rs.MoveNext
loop
end if
end if
end if
%>
<table width="680" align="center" border="0" cellpadding="0" cellspacing="2" bgcolor="#ffffff">
<tr>
<td align=center height="1" colspan=2></td>
</tr>
<tr>
<td align=left><img src="../images/g45.gif" border=0 width=13 height=13>
<a href="omronpolist.asp?type=orderstat"><font color="990000"><b>点击查看订单金额汇总</b></font></a></td>
<td width="36%" height="22" align=right bgcolor="#d9d9ff"><strong>本页订单金额：￥<%=(formatnumber(totalpoamount,2))%></strong></td>
</tr>
<tr>
<td rowspan="2" align=left>
<% if request("type")="orderstat" and i>1 then%>
<table align="left" border='2' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#C0C0C0' width='200' bordercolorlight='#CCCCCC' bordercolordark='#808080'>
<tr><td width="100%"align="left">
<table border=0 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
<%if objcheck.CheckUserFunction2("po","add") then%>
<tr bgcolor='#dd3300'>
<td height=12><font color="#FFFFFF"> 订单总额:￥<%=(formatnumber(alltotalpoamount,2))%></font></td>
<td align="right"><a href="omronpolist.asp"><img src="../images/smallclose.gif" border=0></a></td></tr>
<tr bgcolor='#dd3300'>
<td height=12 colspan=2><font color="#FFFFFF"> 可提总额:￥<%=(formatnumber(alltotalpodeliveryamount,2))%></font></td>
</tr>
<tr bgcolor='#dd3300'>
<td height=12 colspan=2><font color="#FFFFFF"> 已提总额:￥<%=(formatnumber(alltotaldeliveryamount,2))%></font></td>
</tr>
<%else%>
<tr bgcolor='#dd3300'><td height=12></td><td align="right"><a href="omronpolist.asp"><img src="../images/smallclose.gif" border=0></a></td></tr>
<tr bgcolor='#dd3300'>
<td height=24 align=center colspan=2 rowspan="3"><font color="#FFFFFF">无权限</font></td>
</tr>
<%end if%>
</table></td></tr></table>
<%end if%>
</td>
<td width="36%" height="22" align=right bgcolor="#d9d9ff"><strong>本页可提货金额：￥<%=(formatnumber(totalpodeliveryamount,2))%></strong></td>
</tr>
<tr>
<td width="36%" height="22" align=right bgcolor="#d9d9ff"><strong>本页已提货金额：￥<%=(formatnumber(totaldeliveryamount,2))%></strong></td>
</tr>
</table>
<br></div>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -