%
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">nbsp;%=rs1("sellautoid")%>/td>            
      td height="18" width="168">%=Decode(rs1("productname"))%>nbsp;%=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">nbsp;/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>nbsp;nbsp;nbsp;%if moncount5>"" then%>b>font color="#FF0000">欠款利潤/font>：%=formatNumber(moncount5,varnum,-1)%>/b>%end if%>nbsp;nbsp;nbsp;%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>