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

📄 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 "order","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_delivery where deliveryid="&request("deliveryid"),conn,1,1
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")
	
	if rs.EOF then
		Response.Write "记录不存在"
		Response.End 
	end if
	
	dim conndeliveryline
	dim rsdeliveryline
	set conndeliveryline=server.CreateObject("adodb.connection")
	set rsdeliveryline=server.CreateObject("adodb.recordset")
	conndeliveryline.Open connstring
	rsdeliveryline.Open "select * from v_deliveryline where deliveryid="&request("deliveryid"),conndeliveryline,1,1
%>
	<html>
	<head>
	<LINK href="../global.css" rel=STYLESHEET type=text/css>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<title><%=rs("deliveryno")%></title>
<script language=javascript>
	function myprint(x){
		form1.submit();
	}
    </script>
	</head>
<script language="JavaScript">
function window_onload()
{
window.moveTo(-2,-2);
window.resizeTo(screen.availWidth, screen.availHeight);
}
    </script>
<body leftmargin="50" rightmargin="0" topmargin="0" onload="window_onload()">
<table width="90%" border="0" cellpadding="1" cellspacing="0">
  <tr> 
    <td colspan="3"><div align="center"><strong><font size="3" face="Verdana, Arial, Helvetica, sans-serif">出货通知单</font><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><br>
        </font></strong><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Delivery</strong></font><strong>(不含税)<br>
        </strong></div></td>
  </tr>
  <tr valign="bottom"> 
    <td><font color="#000000" size="2"><%=rsco("company")%><br>
      <%=rsco("englishname")%></font></td>
    <td width="20%"><font color="#000000" size="2">销售员：<%=rs("owner")%><br>
      合同号：<%=rs("ordernum")%></font></td>
    <td width="26%"> <div align="right"> <font size="2"> 
        <%
	if request.QueryString("thepage")="" then
		response.Write "第1页"
	else
		response.Write "第"&request.QueryString("thepage")&"页"
	end if%>
        &nbsp;/&nbsp; 
        <%
	if request.QueryString("thepage")="" then
		response.Write "共1页"
	else
		response.Write "共"&request.QueryString("totalpages")&"页"
	end if
	%>
        <br>
        发货单号：<font color="#000000"><%=rs("deliveryno")%></font></font> </div></td>
  </tr>
</table>
<table width="90%" border="1" cellpadding="1" cellspacing="0" bordercolor="#333333" bgcolor="#333333">
  <tr bgcolor="#FFFFFF"> 
    <td width="5%" rowspan="4"><div align="center"><font color="#000000" size="2">收货<br>
        单位</font></div></td>
    <td width="12%"> <div align="right"><font color="#000000" size="2">收货单位</font></div></td>
    <td><font color="#000000" size="2"><%=rs("account")%>&nbsp;</font></td>
    <td width="14%"> <div align="right"><font color="#000000" size="2">出库日期</font></div></td>
    <td width="21%"><font color="#000000" size="2"><%=date()%>&nbsp;</font></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"> <div align="right"><font color="#000000" size="2">发货地址</font></div></td>
    <td bgcolor="#FFFFFF"><font color="#000000" size="2"><%=rs("shipaddress")%>&nbsp;</font></td>
    <td bgcolor="#FFFFFF"><div align="right"><font color="#000000" size="2">运货方式</font></div></td>
    <td bgcolor="#FFFFFF"><font color="#000000" size="2"><%=rs("shipvia")%>&nbsp;</font></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"> <div align="right"><font color="#000000" size="2">联系人</font></div></td>
    <td bgcolor="#FFFFFF"><font color="#000000" size="2"><%=rs("contact")%>&nbsp;</font></td>
    <td bgcolor="#FFFFFF"><div align="right"><font color="#000000" size="2">客户采购单号</font></div></td>
    <td bgcolor="#FFFFFF"><font color="#000000" size="2"><%=rs("customerpo")%>&nbsp;</font></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"> <div align="right"><font color="#000000" size="2">电话</font></div></td>
    <td bgcolor="#FFFFFF"><font color="#000000" size="2"><%=rs("workphone")%>&nbsp;</font></td>
    <td bgcolor="#FFFFFF"><div align="right"><font color="#000000" size="2">税号</font></div></td>
    <td bgcolor="#FFFFFF"><font color="#000000" size="2"><%=rs("taxno")%>&nbsp;</font></td>
  </tr>
</table>

	
<table width="90%" height="25" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="bottom"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>发货明细:</strong></font></td>
  </tr>
</table>
	
  <table width="90%" 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">序号</font></td>
      <td align=left><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">产品名称</font></div></td>
      <td width="30%" align=left> 
        <div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">型号</font></div></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>
      <td width="12%" 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>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <%i=1
  if not rsdeliveryline.eof then
  	response.Write "<td align=center valign=top><font color=#000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"
 
	if Request.QueryString("thepage")="" then
		do while not rsdeliveryline.EOF
			response.write i&"<br>"
			i=i+1
			rsdeliveryline.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 rsdeliveryline.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 rsdeliveryline.RecordCount mod rspara("line")<>0 then
				for x=1 to rspara("line")-(rsdeliveryline.RecordCount mod rspara("line"))
					Response.Write "<br>"
				next
			end if
	end if
	 response.Write "</font></td>"
 end if
 %>
      <%
  if rsdeliveryline.recordcount<>-1 then
	response.Write "<td align=center valign=top><font color=#000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"
	if Request.QueryString("thepage")="" then
		rsdeliveryline.movefirst
		do while not rsdeliveryline.EOF
			response.write rsdeliveryline("name")&"<br>"
			rsdeliveryline.MoveNext
		loop
	else
		rsdeliveryline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rsdeliveryline.Move k
		do while not rsdeliveryline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rsdeliveryline("name")&"<br>"
			end if
			rsdeliveryline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</font></td>"
 end if
 %>
      <%
  if rsdeliveryline.recordcount<>-1 then
	response.Write "<td align=center valign=top><font color=#000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"
	if Request.QueryString("thepage")="" then
		rsdeliveryline.movefirst
		do while not rsdeliveryline.EOF
			response.write rsdeliveryline("model")&"<br>"
			rsdeliveryline.MoveNext
		loop
	else
		rsdeliveryline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rsdeliveryline.Move k
		do while not rsdeliveryline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rsdeliveryline("model")&"<br>"
			end if
			rsdeliveryline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</font></td>"
 end if
 %>
      <%
  if rsdeliveryline.recordcount<>-1 then
	response.Write "<td align=center valign=top><font color=#000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"
	if Request.QueryString("thepage")="" then
		rsdeliveryline.movefirst
		do while not rsdeliveryline.EOF
			response.write rsdeliveryline("orderqty")-rsdeliveryline("issuedqty")&"<br>"
			rsdeliveryline.MoveNext
		loop
	else
		rsdeliveryline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rsdeliveryline.Move k
		do while not rsdeliveryline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rsdeliveryline("orderqty")-rsdeliveryline("issuedqty")&"<br>"
			end if
			rsdeliveryline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</font></td>"
 end if
 %>
      <%
  if rsdeliveryline.recordcount<>-1 then
	response.Write "<td align=center valign=top><font color=#000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"
	if Request.QueryString("thepage")="" then
		rsdeliveryline.movefirst
		do while not rsdeliveryline.EOF
			response.write rsdeliveryline("qty")&"<br>"
			rsdeliveryline.MoveNext
		loop
	else
		rsdeliveryline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rsdeliveryline.Move k
		do while not rsdeliveryline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rsdeliveryline("Qty")&"<br>"
			end if
			rsdeliveryline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</font></td>"
 end if
 %>
      <%
  if rsdeliveryline.recordcount<>-1 then
	response.Write "<td align=right valign=top><font color=#000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"
	if Request.QueryString("thepage")="" then
		rsdeliveryline.movefirst
		do while not rsdeliveryline.EOF
			response.write formatnumber(ccur(rsdeliveryline("discountprice"))/1.17,2)&"<br>"
			rsdeliveryline.MoveNext
		loop
	else
		rsdeliveryline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rsdeliveryline.Move k
		do while not rsdeliveryline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write formatnumber(ccur(rsdeliveryline("discountprice"))/1.17,2)&"<br>"
			end if
			rsdeliveryline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</font></td>"
 end if
 %>
      <%
  if rsdeliveryline.recordcount<>-1 then
	response.Write "<td align=right valign=top><font color=#000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>"
	if Request.QueryString("thepage")="" then
		rsdeliveryline.movefirst
		do while not rsdeliveryline.EOF
			response.write formatnumber(csng(rsdeliveryline("qty"))*csng(ccur(rsdeliveryline("discountprice"))/1.17),2)&"<br>"
			rsdeliveryline.MoveNext
		loop
	else
		rsdeliveryline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rsdeliveryline.Move k
		do while not rsdeliveryline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write formatnumber(csng(rsdeliveryline("qty"))*csng(ccur(rsdeliveryline("discountprice"))/1.17),2)&"<br>"
			end if
			rsdeliveryline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</font></td>"
 end if
 %>
      <%if Request.QueryString("thepage")="" or (Request.QueryString("thepage")<>"" and Request.QueryString("thepage")=Request.QueryString("totalpages")) then%>
      <%
	 dim temptotal
	 if rsdeliveryline.RecordCount<>-1 then
		rsdeliveryline.MoveFirst
		do while not rsdeliveryline.EOF
			temptotal=temptotal+csng(rsdeliveryline("qty"))*csng(ccur(rsdeliveryline("discountprice"))/1.17)
			rsdeliveryline.MoveNext 
		loop
	 end if
	 %>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="20"> <div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">合计</font></div></td>
      <td colspan=6><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=formatnumber(temptotal,2)%></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">　</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="20"> <div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">大写</font></div></td>
      <td colspan=6><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=convertcurrency(temptotal)%>&nbsp;</font></td>
    </tr>
    <%end if%>
  </table>
	
<table width="90%" border="0" cellspacing="1" cellpadding="4">
  <tr>
	    
    <td><font color="#000000" size="2">1.营业部地址：<%=rsco("address")%> 电话：<%=rsco("phone")%> 
      传真：<%=rsco("fax")%><br>
      2.仓库地址：<%=rsco("whseaddress")%> 联系人：<%=rsco("whsecontact")%> 电话：<%=rsco("whsephone")%> 
      传真：<%=rsco("whsefax")%><br>
      3 .收到货物后，请及时回传，谢谢。</font></td>
	  </tr>
	</table>
	
<table width="90%" border="0" cellspacing="1" cellpadding="1">
  <tr> 
    <td><font size="2">　</font></td>
    <td><div align="left"><font color="#000000" size="2"> 
        <%
    for x=1 to 5
		if rsco("siger"&x)<>"" then Response.Write rsco("siger"&x)&"______________ "
    next
    %>
        </font></div></td>
  </tr>
</table>
<script language="JavaScript">window.print();</script>
</body>
</html>
<%	
rspara.close
set rspara=nothing

rsco.close
set rsco=nothing

rsdeliveryline.Close
set rsdeliveryline=nothing

rs.Close
set rs=nothing

conndeliveryline.Close 
set conndeliveryline=nothing

conn.Close 
set conn=nothing
%>

⌨️ 快捷键说明

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