<%
pagenum=55'指定打印行数
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content= "text/html; charset=gb2312" >
<TITLE>销售利润明细报表打印</TITLE>
<style type="text/css" >
td {font-size:9pt; color:#000000}
A{text-decoration:none}
A:hover{color:#FF0000;text-decoration:derline}
.break {page- break -before:always}
</style>
</HEAD>
<script language="javascript" >
window.print()
</script>
<BODY style="border:none" topmargin= "0" leftmargin= "6" onload= "javascrpt:pagesetup_default();" >
<script language="VbScript" >
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
function pagesetup_default()
on error resume next
Set RegWsh = CreateObject("WScript.Shell" )
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&b页&p/&P"
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
</script>
<%
kdname1=trim(request("kdname1" ))
kdname2=trim(request("kdname2" ))
keyword1=trim(request("keyword1" ))
keyword2=trim(request("keyword2" ))
if keyword1<> "" then
today=keyword1
else
if kdname1= "" then
today=year(date())&"-" &month(date())
else
today=kdname1&"至" &kdname2
end if
end if
%>
<table border="0" cellspacing= "0" cellpadding= "0" align= "center" width= "740" height= "30" >
<tr>
<td align="center" >销售利润汇总报表</td>
</tr>
</table>
<%
strSQL="select autoid,sellautoid,productxili,productname,productsize,productnum,productdan,productjia,chaoshi,tiaoma,youhui,fukuan,moncount1,gongshang,lirun1,username,indate,fudate from sell where officename='" &trim(request.cookies( "Myoffice" ))& "' and monthjie='0' and (year(indate)=year(getdate()) and month(indate)=month(getdate())) and zhuofei is null order by autoid desc"
set rs1=server.createobject("adodb.recordset" )
rs1.open strSQL,conn,1,1
%>
<table border="1" cellspacing= "0" cellpadding= "0" align= "center" style= "border-collapse: collapse" bordercolor= "#000000" width= "740" >
<tr>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "70" >销售单号</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "168" >商品名称(规格)</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "121" >客户</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "30" >数量</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "24" >单位</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "50" >销售价</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "23" >折%</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "52" >进货价</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "55" >小计</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "45" >利润</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "25" >付款</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "61" >销售日期</td>
</tr>
</table>
<%
moncount2=0
moncount5=0
Do while not rs1.eof
%>
<table border="1" cellpadding= "0" cellspacing= "0" width= "740" align= "center" style= "border-collapse:collapse; font-size:10pt;color:#000000" bordercolor= "#000000" >
<%
for i=1 to pagenum
if not rs1.eof then
if trim(rs1( "fukuan" ))= "欠款" then
moncount6=Csng(rs1("lirun1" ))
moncount5=moncount5+moncount6
else
moncount3=Csng(rs1("lirun1" ))
moncount2=moncount2+moncount3
end if
%>
<tr>
<td height="18" width= "70" > <%=rs1( "sellautoid" )%></td>
<td height="18" width= "168" ><%=Decode(rs1( "productname" ))%> <%=rs1( "productsize" )%></td>
<td height="18" width= "121" ><%=left(rs1( "gongshang" ),9)%></td>
<td height="18" width= "30" align= "center" ><%=rs1( "productnum" )%></td>
<td height="18" width= "24" align= "center" ><%=rs1( "productdan" )%></td>
<td height="18" width= "50" align= "right" ><%=formatNumber(rs1( "chaoshi" ),varnum,-1)%></td>
<td height="18" width= "23" align= "center" ><%=rs1( "youhui" )%></td>
<td height="18" width= "52" align= "right" ><%=formatNumber(rs1( "productjia" ),varnum,-1)%></td>
<td height="18" width= "55" align= "right" ><%=formatNumber(rs1( "moncount1" ),varnum,-1)%></td>
<td height="18" width= "45" align= "right" ><%=formatNumber(rs1( "lirun1" ),varnum,-1)%></td>
<td align="center" height= "18" width= "25" ><% if trim(rs1( "fukuan" ))= "欠款" then%><font color=blue><%=rs1( "fukuan" )%></font><% else %><%=rs1( "fukuan" )%><%end if %></td>
<td height="18" width= "61" ><%=rs1( "indate" )%></td>
</tr>
<%
rs1.movenext
end if
next
%>
</table>
<%
if not rs1.eof and i=pagenum+1 then '添加分页标记
%>
<div class = "break" > </div>
<table border="0" cellpadding= "0" cellspacing= "0" width= "740" height= "12" align= "center" ><tr><td height= "12" ></td></tr></table>
<table border="1" cellspacing= "0" cellpadding= "0" align= "center" width= "740" style= "border-collapse: collapse" bordercolor= "#000000" >
<tr>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "70" >销售单号</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "168" >商品名称(规格)</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "121" >客户</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "30" >数量</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "24" >单位</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "50" >销售价</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "23" >折%</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "52" >进货价</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "55" >小计</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "45" >利润</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "25" >付款</td>
<td align="center" height= "20" bgcolor= "#BDCBEE" width= "61" >销售日期</td>
</tr>
<%
end if
loop
rs1.close
set rs1=nothing
%>
</table>
<table border="1" cellpadding= "0" cellspacing= "0" width= "740" height= "20" align= "center" style= "border-collapse: collapse" bordercolor= "#000000" >
<tr>
<td><font color="#FF0000" ><b>现金利润:</b></font><b><%=formatNumber(moncount2,varnum,-1)%></b> <% if moncount5<> "" then%><b><font color= "#FF0000" >欠款利润</font>:<%=formatNumber(moncount5,varnum,-1)%></b><%end if %> <% if moncount5<> "" then%><b><font color= "#FF0000" >毛利合计:</font><%=formatNumber(moncount5+moncount2,varnum,-1)%></b><%end if %></td>
</tr>
</table>
<%
end if
conn.close
set conn=nothing
%>
</BODY>
</HTML>