📄 deliveryprintresult4.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("ordernum")%></title>
<script language=javascript>
function myprint(x){
//alert(x);
//for(j=1;j<x;j++){
// var actualqty='actualqty'+j
// if (form1.item(actualqty).value='' or form1.item(actualqty).value=)
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 color="#000000" size="2"><%=rsco("company")%></font><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><br>
</font></strong><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>实物出库凭证</strong></font><strong><br>
</strong></div></td>
</tr>
<tr valign="bottom">
<td><font color="#000000" size="2">领物单位：<%=rs("account")%><br>
开票日期：<%=date()%><br>
</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%>
/
<%
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%" 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="32%" align=left>
<div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">型号</font></div></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="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((csng(rsdeliveryline("deliverycost"))/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("deliverycost"))/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(rsdeliveryline("deliverycost"))/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(rsdeliveryline("deliverycost"))/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(rsdeliveryline("deliverycost")))/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)%> </font></td>
</tr>
<%end if%>
</table>
<table width="90%" border="0" cellspacing="1" cellpadding="4">
<tr>
<td> </td>
</tr>
</table>
<table width="90%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td><div align="left"><font color="#000000" size="2"> 负责人____________ 会计____________
保管____________ 领物人____________</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 + -