📄 inquireprintresult.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "po","read"
set objcheck=nothing
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_po where poid="&request("poid"),conn,1,1
'Response.Write "select * from v_po where poid="&request("poid")
'Response.End
if rs.EOF then
Response.Write "记录不存在"
Response.End
end if
'取打印参数
dim rspara
set rspara=conn.Execute("select * from printsetup where type='打印订货通知单'")
if rspara.EOF then
Response.Write "打印参数未找到，请检查系统设置 -> 打印参数设置"
Response.End
end if
'取公司信息
dim rsco
set rsco=conn.Execute("select * from company")
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("pono")%></title>
</head>
<script language="JavaScript">
function window_onload()
{
window.moveTo(40,0);
//window.resizeTo(screen.availWidth, screen.availHeight);
window.resizeTo(650, 700);
}
</script>
<body leftmargin="0" rightmargin="0" topmargin="60" onload="window_onload()">
<table width="595" border="0" cellspacing="0" cellpadding="0" align="center"><tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="bottom"> <div align="right"><strong><img src="../tools/showimg.asp?id=<%=rspara("id")%>"></strong></div></td>
<td width="20%"> <div align="center"><font color="#000000" size="6"><font size="5"><strong><font size="4" face="Verdana, Arial, Helvetica, sans-serif">产品采购合同</font></strong></font></font></div></td>
<td width="40%" valign="bottom"> <div align="right"></div></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></div></td>
</tr>
</table></td>
</tr>
<tr>
<td width="50%" colpan=2><table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000">
<td width="70%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">采购合同号：<font color="#000000"><%=rs("pono")%> </font></font></td>
<td width="30%" align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
if request.QueryString("thepage")="" then
response.Write "第1页"
else
response.Write "第"&request.QueryString("thepage")&"页"
end if
%>
/
<%
if request.QueryString("thepage")="" then
response.Write "共1页"
else
response.Write "共"&request.QueryString("totalpages")&"页"
end if
%>
</font> </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"><img src="../images/blackloginbutton.gif" width="595" height="1"></td>
</tr>
<tr>
<td colspan="2" ><font size="2" face="Verdana, Arial, Helvetica, sans-serif">供方：<%=rs("account")%><font color="#000000"> 需方：<%=rsco("company")%></font></font></td>
</tr>
<tr>
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000"></font></font></td>
</tr>
</table>
<font size="3">
<%
dim connorderline
dim rspoline
set connorderline=server.CreateObject("adodb.connection")
set rspoline=server.CreateObject("adodb.recordset")
connorderline.Open connstring
rspoline.Open "select * from v_poline where poid="&request("poid"),connorderline,1,1
%>
</font>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">1、订货产品</font></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="" bgcolor="">
<tr>
<td colspan=7><img src="../images/blackloginbutton.gif" width="595" height="2"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="4%" height="20" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">No.</font></td>
<td width="25%" align=center><font size="2" face="Verdana, Arial, Helvetica, sans-serif">产品名称</font></td>
<td align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">型号</font></td>
<td width="8%" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">数量</font></td>
<td width="8%" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">单价</font></td>
<td width="12%" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">金额</font></td>
<td width="15%" align=center><font size="2" face="Verdana, Arial, Helvetica, sans-serif">希望交货期</font></td>
</tr>
<tr>
<td colspan=7><img src="../images/blackloginbutton.gif" width="595" height="1"></td>
</tr>
<%i=1
if Request.QueryString("thepage")="" then
do while not rspoline.EOF
Response.Write "<tr bgcolor=#FFFFFF>"
response.write "<td align=center><font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"&i&"</font></td><td align=center><font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"&rspoline("name")&"</font></td><td align=center><font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"&rspoline("model")&"</font></td><td align=center><font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"&rspoline("qty")&"</font></td><td align=right><font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif></font></td><td align=right><font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif></font></td><td align=center><font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"&rspoline("ExpectedDate")&"</font></td>"
i=i+1
Response.Write "</tr>"
rspoline.MoveNext
loop
elseif Request.QueryString("thepage")<>Request.QueryString("totalpages") then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -