⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 deliveryprintresult2.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷
💻 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
set rs=conn.Execute("select * from v_poreceive where poreceiveid="&request("poreceiveid"))
if rs.eof then
	Response.Write "记录不存在"
	Response.End 
end if

'取打印参数
dim rspara
sql="select * from printsetup where type='打印入库凭证'"
'response.write sql
set rspara=conn.Execute(sql)
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(-2,-2);
window.resizeTo(screen.availWidth, screen.availHeight);
}
</script>
<body leftmargin="0" rightmargin="0" topmargin="0" onload="window_onload()">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td valign="top"> 
      <table width="100%" border="0" cellpadding="1" cellspacing="0">
        <tr> 
          <td width="120"><font face="Verdana, Arial, Helvetica, sans-serif">&nbsp; 
            </font></td>
          <td>
<div align="center"><font color="#000000" size="6" face="Verdana, Arial, Helvetica, sans-serif"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font><font size="5"><strong></strong><font color="#000000" size="6" face="Verdana, Arial, Helvetica, sans-serif"><font size="5"><font size="3"><strong><%=rsco("company")%></strong></font></font></font><font size="3"><em><br>
              </em> <strong>实物入库凭证</strong></font></font></font></div></td>
          <td width="120"> 
            <div align="right"><font 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><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
              </font></div></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="2" cellspacing="0">
        <tr> 
          <td width="63%" height="30" valign="bottom"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">交货单位：<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("account")%></font></font></td>
          <td width="37%" valign="bottom"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">收货单号：<font color="#000000"><%=rs("poreceiveno")%></font></font></td>
        </tr>
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">采 购 
            员<font size="2" face="Verdana, Arial, Helvetica, sans-serif">：<font color="#000000"><%=rs("username")%></font></font></font></td>
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">日&nbsp;&nbsp;&nbsp;&nbsp;期：<%=date()%></font></td>
        </tr>
      </table>
      <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
      <%
dim connorderline
dim rspoline
set connorderline=server.CreateObject("adodb.connection")
set rspoline=server.CreateObject("adodb.recordset")
connorderline.Open connstring
rspoline.Open "select * from v_poreceiveline where poreceiveid="&request("poreceiveid"),connorderline,1,1
%>
      </font> 
      <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="30" valign="bottom"><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>订货内容</strong></font></td>
        </tr>
      </table>
      <table width="100%" border="1" cellpadding="1" cellspacing="0" bordercolor="#333333" bgcolor="#333333">
        <tr bgcolor="#FFFFFF"> 
          <td width="6%" height="20" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">No.</font></td>
          <td width="16%" align=center><font size="2" face="Verdana, Arial, Helvetica, sans-serif">订单号码</font></td>
          <td width="16%" 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="10%" align=center>单价</td>
          <td width="10%" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">含税价</font></td>
          <td width="10%" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">金额</font></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <%i=1
  if not rspoline.eof then
  	response.Write "<td align=center valign=top>"
 
	if Request.QueryString("thepage")="" then
		do while not rspoline.EOF
			response.write i&"<br>"
			i=i+1
			rspoline.MoveNext
		loop
	elseif Request.QueryString("thepage")<>Request.QueryString("totalpages") then
		for x=(Request.QueryString("thepage")-1)*rspara("line")+1 to (Request.QueryString("thepage")-1)*rspara("line")+rspara("line")
			Response.Write x&"<br>"
		next
	else
		for x=(Request.QueryString("thepage")-1)*rspara("line")+1 to rspoline.RecordCount
			Response.Write x&"<br>"
		next
	end if
	
	if Request.QueryString("thepage")="" then		
		if i<rspara("line") then
			for x=1 to rspara("line")-i
				Response.Write "<br>"
			next
		end if
	elseif Request.QueryString("totalpages")=Request.QueryString("thepage") then
			if rspoline.RecordCount mod rspara("line")<>0 then
				for x=1 to rspara("line")-(rspoline.RecordCount mod rspara("line"))
					Response.Write "<br>"
				next
			end if
	end if
	 response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td align=center valign=top>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write rspoline("pono")&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rspoline("pono")&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td align=center valign=top>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write rspoline("name")&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rspoline("name")&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td align=center valign=top>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write rspoline("model")&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rspoline("model")&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td align=center valign=top>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write rspoline("qty")&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rspoline("qty")&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td valign=top align=right>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write formatnumber(csng(rspoline("price"))/1.17,2)&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write formatnumber(csng(rspoline("price"))/1.17,2)&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
            <%
  if rspoline.recordcount<>-1 then
	response.Write "<td valign=top align=right>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write formatnumber(rspoline("price"),2)&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write formatnumber(rspoline("price"),2)&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td valign=top align=right>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write formatnumber(csng(rspoline("qty"))*csng(rspoline("price")),2)&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write formatnumber(csng(rspoline("qty"))*csng(rspoline("price")),2)&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
        </tr>
        <%
  rspoline.Close
  set rspoline=nothing
  connorderline.Close 
  set connorderline=nothing
  %>
        <%if Request.QueryString("thepage")="" or (Request.QueryString("thepage")<>"" and Request.QueryString("thepage")=Request.QueryString("totalpages")) then%>
        <tr bgcolor="#FFFFFF"> 
          <td><div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">合计</font></div></td>
          <td colspan=9><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=formatnumber(rs("totalamount"),2)%>&nbsp;</font> 
            <div align="center"></div>
            <div align="center"></div></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td><div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">大写</font></div></td>
          <td colspan=9><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=convertcurrency(rs("totalamount"))%>&nbsp;</font></td>
        </tr>
        <%end if%>
      </table>
      <font face="Verdana, Arial, Helvetica, sans-serif"><br>
      </font>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td><font color="#000000" size="2">负责人____________ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;会计____________ 
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;库管____________</font></td>
        </tr>
      </table>
      <font face="Verdana, Arial, Helvetica, sans-serif"><br>
      <script language="JavaScript">window.print();</script>
      </font></td>
  </tr>
</table>
</html></body>
<%
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
  %>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -