📄 omronpoprint.asp
字号:
<SCRIPT language='javascript'>window.resizeTo(670,700);window.focus()</SCRIPT>
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "po","edit"
set objcheck=nothing
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
strwhere=" where status='ready'"
strwhere=strwhere&" order by 型号"
'response.write "select * from v_omronpolist"&strwhere
rs.Open "select * from v_omronpolist"&strwhere,conn,1,1
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欧姆龙到货通知</title>
</head>
<SCRIPT language=JavaScript>
function selectproduct(){
var theWindow;
theWindow = window.open("selectorderproduct.asp","选择合同产品","toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=580,height=500,top=150,left=160");
theWindow.opener = this;
}
</SCRIPT>
<body leftmargin="10" rightmargin="10" topmargin="10">
<table align=center width="590" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="400" align="left" valign="bottom"><font color="#000000" size="4"><strong><font class=title>欧姆龙到货通知(<%=now%>)</font></strong></font></td>
<td colspan="3" rowspan="2" align="CENTER">
<table width="100%" border="1" cellpadding="1" cellspacing="0" bordercolor="#000000">
<tr>
<td width="50%" height="30" align="center"><font size=2><b>作成<br>
Made</b></font></td>
<td height="30" align="center"><font size=2><b>责任人<br>
Check</b></font></td>
</tr>
<tr>
<td height="50" align="center"> <%=session("username")%></td>
<td height="50"> </td>
</tr>
</table></td>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 bordercolor="" width="590" align=center >
<tr>
<td height=30 align="right" colspan=7><img src="../images/smallprompt.jpg"> 记录数:<%=Rs.RecordCount%>条
<tr>
<tr><td colspan=7><img src="../images/blackloginbutton.gif" width="590" height="2"></td></tr>
<td width="5%" align=center height="22">序号</a></td>
<td align=center>型号</a></td>
<td width="8%" align=center>订货量</a></td>
<td width="8%" align=center>可提量</a></td>
<td width="8%" align=center>已提量</a></td>
<td width="12%" align=center>待提量</a></td>
<td width="12%" align=center>SLIP</a></td>
</tr>
<tr><td colspan=7><img src="../images/blackloginbutton.gif" width="590" height="2"></td></tr>
<%
set spno=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 reportdate=rs("预报交货期")
set status=rs("status")
set cost=rs("cost")
set retail_price=rs("retail_price")
set descriptions=rs("descriptions")
set printqty=rs("printqty")
i=1:totalprintqtyamount=0:do while not rs.EOF
totalprintqtyamount=totalprintqtyamount+ccur(price)*printqty
%>
<tr>
<td height="22" align=center><%=i%></td>
<td align=left><%=model%></td>
<td align=right><%=poqty%></td>
<td align=right><%=podeliveryqty%></td>
<td align=right><%=deliveryqty%></td>
<td align=right><%=printqty%></td>
<td align=right><%=SLIPno%></td>
</tr>
<tr><td colspan=7><img src="../images/blackloginbutton.gif" width="590" height="2"></td></tr>
<%
i=i+1
rs.MoveNext
loop
%>
<tr>
<td height=30 align="left" colspan=7><img src="../images/smallprompt.jpg"> 待提金额:<%=(formatnumber(totalprintqtyamount,2))%>
<tr>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</body>
</html>
<script language=javascript>window.print();</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -